/* GCC MELT GENERATED C++ FILE warmelt-outobj.cc - DO NOT EDIT - see http://gcc-melt.org/ */ /***+ warmelt-outobj 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-outobj declarations ****/ /**** MELT GENERATED DECLARATIONS for warmelt-outobj ** DO NOT EDIT ; see gcc-melt.org ****/ /****++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ *** Copyright (C) 2008 - 2016 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-outobj**/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usualmodule*/ class Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690; // forward declaration fromline 6691 typedef Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690 Melt_InitialFrame; /*** 1 MELT module variables declarations ****/ MELT_EXTERN void melt_forwarding_module_data (void); MELT_EXTERN void melt_marking_module_data (void); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY melt_WARMELTmiOUTOBJ_module_var_ptr_tab[16]; MELT_EXTERN bool MELT_MODULE_VISIBILITY melt_WARMELTmiOUTOBJ_module_var_flags[1]; static inline melt_ptr_t melt_module_var_fetch (int ix) { return (ix > 0 && ix <= 1)?melt_WARMELTmiOUTOBJ_module_var_ptr_tab[ix]:NULL; } static inline void melt_module_var_put (int ix, melt_ptr_t val) { if (ix > 0 && ix <= 1) { melt_WARMELTmiOUTOBJ_module_var_ptr_tab[ix]= val; melt_WARMELTmiOUTOBJ_module_var_flags[ix/16] = true; } } /* MELT module variables indexes */ enum { meltmodatix_none, meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb = 1, meltmodatix_last }; /* end MELT module variables indexes */ /*** 4 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_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 #2 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 #3 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 4 MELT called hook declarations ***/ /*** no extra MELT c-headers ***/ MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_WARMELTmiOUTOBJ_OUTPUCOD_OBJINIELEM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_WARMELTmiOUTOBJ_OUTCINITFILL_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_WARMELTmiOUTOBJ_OUTCINITPREDEF_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_WARMELTmiOUTOBJ_OUTPUT_PREDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_WARMELTmiOUTOBJ_OUTPUCOD_PREDEF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_WARMELTmiOUTOBJ_OUTPUCOD_NIL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPANDPUREVAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_WARMELTmiOUTOBJ_OUTPUCOD_OBJHOOKNTH(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITOBJECT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITMULTIPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITMULTIPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITCLOSURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITCLOSURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITHOOK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITSTRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITSTRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITBOXEDINTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITBOXEDINTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITPAIR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITPAIR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITLIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITLIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_WARMELTmiOUTOBJ_OUTPUCOD_ANYDISCR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_WARMELTmiOUTOBJ_OUTPUCOD_NULL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_WARMELTmiOUTOBJ_OUTPUCOD_CATCHALL_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_WARMELTmiOUTOBJ_OUTPUT_RAW_LOCATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_WARMELTmiOUTOBJ_LINE_AND_FILE_OF_LOCATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_WARMELTmiOUTOBJ_OUTPUT_LOCATION(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT_INIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_WARMELTmiOUTOBJ_OUTPUCOD_PROCROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_STRUCT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_FILL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_WARMELTmiOUTOBJ_OUTPUCOD_INITIALMODULEROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_WARMELTmiOUTOBJ_OUTPUCOD_OBJRAWALLOCOBJ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_WARMELTmiOUTOBJ_OUTPUCOD_OBJNEWCLOSURE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_WARMELTmiOUTOBJ_OUTPUCOD_OBJTOUCH(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_WARMELTmiOUTOBJ_OUTPUCOD_DBGTRACEWRITEOBJ(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRHEAD(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRTAIL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTLIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETSLOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTSLOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSUROUT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKCONST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKDATA(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTXTRARESULT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCATEDEXPV(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_VERBATIMSTRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_STRING(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_WARMELTmiOUTOBJ_SYNTESTGEN_ANY(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_WARMELTmiOUTOBJ_LAMBDA_cl6(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl7(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_WARMELTmiOUTOBJ_LAMBDA_cl8(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_WARMELTmiOUTOBJ_TRANSLATE_RUN_MELT_EXPRESSIONS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_WARMELTmiOUTOBJ_LAMBDA_cl9(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_WARMELTmiOUTOBJ_LAMBDA_cl10(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_WARMELTmiOUTOBJ_LAMBDA_cl11(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_WARMELTmiOUTOBJ_MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_WARMELTmiOUTOBJ_LAMBDA_cl12(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_WARMELTmiOUTOBJ_READ_MELT_EXPRESSIONS(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_WARMELTmiOUTOBJ_TRANSLATE_TO_CC_MODULE_MELT_SOURCES(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_WARMELTmiOUTOBJ_EVAL(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_WARMELTmiOUTOBJ_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); 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_WARMELTmiOUTOBJ_h897178690 /*opaqueinitialclassy*/ meltinitial_frame_t; /* define different names when debugging or not */ #if MELT_HAVE_DEBUG > 0 MELT_EXTERN const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_WARMELTmiOUTOBJ__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG*/ MELT_EXTERN const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_WARMELTmiOUTOBJ__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG*/ void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_0 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_1 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_2 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_3 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_4 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_5 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_6 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_7 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_8 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_9 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_10 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_11 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_12 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_13 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_14 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_15 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_16 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_17 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_18 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_19 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_20 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_21 (meltinitial_frame_t*, char*); //declare void MELT_MODULE_VISIBILITY MELT_LOW_OPTIMIZATION meltmod__WARMELTmiOUTOBJ__initialmeltchunk_22 (meltinitial_frame_t*, char*); //declare /**** warmelt-outobj implementations ****/ /**** MELT GENERATED IMPLEMENTATIONS for warmelt-outobj ** DO NOT EDIT ; see gcc-melt.org ****/ /*** 1 MELT module variables implementations ****/ melt_ptr_t melt_WARMELTmiOUTOBJ_module_var_ptr_tab[16]; bool melt_WARMELTmiOUTOBJ_module_var_flags[1]; /**** forwarding MELT module variables ****/ void melt_forwarding_module_data (void) { int i, j; melt_WARMELTmiOUTOBJ_module_var_ptr_tab[0] = NULL; /* unused modvar elem */ for (i=0; i<=0; i++) { if (melt_WARMELTmiOUTOBJ_module_var_flags[i]) { melt_WARMELTmiOUTOBJ_module_var_flags[i] = false; for (j=0; j<16; j++) MELT_FORWARDED (melt_WARMELTmiOUTOBJ_module_var_ptr_tab[i*16+j]); }; } } /* end melt_fowarding_module_data */ /**** marking MELT module variables ****/ void melt_marking_module_data (void) { int i; melt_WARMELTmiOUTOBJ_module_var_ptr_tab[0] = NULL; /* unused modvar elem */ for (i=1; i <= 1; i++) gt_ggc_mx_melt_un(melt_WARMELTmiOUTOBJ_module_var_ptr_tab[i]); } /* end melt_marking_module_data */ /*** no extra MELT implementations ***/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT_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_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT fromline 1752 */ /** start of frame for meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT// fromline 1568 : public Melt_CallFrameWithValues<12> { public: /* fromline 1572*/ long mcfr_varnum[3]; /*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_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT), clos) {}; MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT() //the constructor fromline 1642 : Melt_CallFrameWithValues<12> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT)) {}; MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<12> (fil,lin, sizeof(MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT /** end of frame for meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT fromline 1697**/ /* end of frame for routine meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT fromline 1756 */ /* classy proc frame meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT */ MeltFrame_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("DO_OUTPUT_DESCRIPTIVE_COMMENT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:52:/ getarg"); /*_.BUF__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.OBJ__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.OBJ__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:53:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L1*/ meltfnum[0] = (melt_is_out ((melt_ptr_t) /*_.BUF__V2*/ meltfptr[1])) ;; MELT_LOCATION("warmelt-outobj.melt:53:/ cond"); /*cond*/ if (/*_#IS_OUT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.melt:53:/ 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 = "do_output_descriptive_comment check buf"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 53; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BUF__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:53:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:53:/ clear"); /*clear*/ /*_#IS_OUT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.OBJ__V3*/ meltfptr[2])) == MELTOBMAG_OBJECT);; MELT_LOCATION("warmelt-outobj.melt:54:/ cond"); /*cond*/ if (/*_#IS_OBJECT__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:55:/ quasiblock"); /*_.DISCRIM__V9*/ meltfptr[8] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.OBJ__V3*/ meltfptr[2]))));; MELT_LOCATION("warmelt-outobj.melt:55:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DISCRIM__V9*/ meltfptr[8]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DISCRIM__V9*/ meltfptr[8]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.DISCNAME__V10*/ meltfptr[9] = slot; }; ; } else /*^cond.else*/ { /*_.DISCNAME__V10*/ meltfptr[9] = /*reallynil*/ NULL ;; } ; /*^compute*/ /*_#HASH__L3*/ meltfnum[2] = (melt_obj_hash((melt_ptr_t)(/*_.OBJ__V3*/ meltfptr[2])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:58:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "/**!~&"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.DISCNAME__V10*/ meltfptr[9]; /*^apply.arg*/ argtab[2].meltbp_cstring = "/"; /*_.ADD2OUT__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:59:/ locexp"); meltgc_add_strbuf_hex((melt_ptr_t)(/*_.BUF__V2*/ meltfptr[1]), (/*_#HASH__L3*/ meltfnum[2])); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:60:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "&~!**/ "; /*_.ADD2OUT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.BUF__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V8*/ meltfptr[4] = /*_.ADD2OUT__V12*/ meltfptr[11];; MELT_LOCATION("warmelt-outobj.melt:55:/ clear"); /*clear*/ /*_.DISCRIM__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.DISCNAME__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_#HASH__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V12*/ meltfptr[11] = 0 ; /*_._IF___V7*/ meltfptr[5] = /*_.LET___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:54:/ clear"); /*clear*/ /*_.LET___V8*/ meltfptr[4] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V7*/ meltfptr[5] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:52:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_._IF___V7*/ meltfptr[5];; { MELT_LOCATION("warmelt-outobj.melt:52:/ 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___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_#IS_OBJECT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V7*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("DO_OUTPUT_DESCRIPTIVE_COMMENT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT_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_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT fromline 1752 */ /** start of frame for meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT// fromline 1568 : public Melt_CallFrameWithValues<22> { public: /* fromline 1572*/ long mcfr_varnum[2]; /*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_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT), clos) {}; MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT() //the constructor fromline 1642 : Melt_CallFrameWithValues<22> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT)) {}; MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<22> (fil,lin, sizeof(MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT /** end of frame for meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT fromline 1697**/ /* end of frame for routine meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT fromline 1756 */ /* classy proc frame meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT */ MeltFrame_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("OUTPUT_DESCRIPTIVE_COMMENT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:63:/ 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*/ { MELT_LOCATION("warmelt-outobj.melt:64:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.SEXP__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_LOCATED*/ meltfrout->tabval[0]))) ) /*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__V7*/ meltfptr[6] = slot; }; ; } else /*^cond.else*/ { /*_.SLOC__V7*/ meltfptr[6] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:65:/ 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"); /*_.SCONT__V8*/ meltfptr[7] = slot; }; ; } else /*^cond.else*/ { /*_.SCONT__V8*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:66:/ 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]; /*_.XARGS__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!EXPAND_RESTLIST_AS_TUPLE*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.SCONT__V8*/ meltfptr[7]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.ARGOUT__V10*/ meltfptr[9] = (melt_multiple_nth((melt_ptr_t)(/*_.XARGS__V9*/ meltfptr[8]), (0)));; /*^compute*/ /*_.ARGOBJ__V11*/ meltfptr[10] = (melt_multiple_nth((melt_ptr_t)(/*_.XARGS__V9*/ meltfptr[8]), (1)));; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#MULTIPLE_LENGTH__L1*/ meltfnum[0] = (melt_multiple_length((melt_ptr_t)(/*_.XARGS__V9*/ meltfptr[8])));; /*^compute*/ /*_#exeqI__L2*/ meltfnum[1] = ((/*_#MULTIPLE_LENGTH__L1*/ meltfnum[0]) != (2));; MELT_LOCATION("warmelt-outobj.melt:70:/ cond"); /*cond*/ if (/*_#exeqI__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:71:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "MELT output_descriptive_comment needs two arguments"; /*_.ERROR_AT__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!ERROR_AT*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SLOC__V7*/ meltfptr[6]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-outobj.melt:72:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*reallynil*/ NULL ;; { MELT_LOCATION("warmelt-outobj.melt:72:/ 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-outobj.melt:70:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[14] = /*_.RETURN___V14*/ meltfptr[13];; /*^compute*/ /*_._IF___V12*/ meltfptr[11] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:70:/ clear"); /*clear*/ /*_.ERROR_AT__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:73:/ quasiblock"); /*_.HOOK_MELT_MAKE_LOCATION__V17*/ meltfptr[13] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[5]), "warmelt-outobj.melt", 73) ;; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[14] = /*hookcall*/ melthook_HOOK_MELT_MAKE_LOCATION ((melt_ptr_t) (/*!HOOK_MELT_MAKE_LOCATION*/ meltfrout->tabval[5]), "warmelt-outobj.melt", 73) ;; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:73:/ apply"); /*apply*/ { union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_aptr = (melt_ptr_t*) &(/*!konst_8_DO_OUTPUT_DESCRIPTIVE_COMMENT*/ meltfrout->tabval[8]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.ARGOUT__V10*/ meltfptr[9]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.ARGOBJ__V11*/ meltfptr[10]; /*_.MELT_MAKE_SEXPR__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[14]), (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_6_IF*/ meltfrout->tabval[6]); /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &(/*!konst_7_FLAGVAL_OUTPUT_DESCR_COMMENT*/ meltfrout->tabval[7]); /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.MELT_MAKE_SEXPR__V19*/ meltfptr[18]; /*_.XCOND__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!MELT_MAKE_SEXPR*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V17*/ meltfptr[13]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:74:/ 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]; /*_.RES__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t)(/*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t)(/*_.XCOND__V20*/ meltfptr[19]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:76:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.RES__V21*/ meltfptr[20];; { MELT_LOCATION("warmelt-outobj.melt:76:/ 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___V16*/ meltfptr[12] = /*_.RETURN___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-outobj.melt:73:/ clear"); /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V17*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.HOOK_MELT_MAKE_LOCATION__V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_MAKE_SEXPR__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.XCOND__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.RES__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; /*_.LET___V6*/ meltfptr[5] = /*_.LET___V16*/ meltfptr[12];; MELT_LOCATION("warmelt-outobj.melt:64:/ clear"); /*clear*/ /*_.SLOC__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.SCONT__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.XARGS__V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.ARGOUT__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.ARGOBJ__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#MULTIPLE_LENGTH__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#exeqI__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V16*/ meltfptr[12] = 0 ; MELT_LOCATION("warmelt-outobj.melt:63:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[5];; { MELT_LOCATION("warmelt-outobj.melt:63:/ 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*/ /*_.LET___V6*/ meltfptr[5] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("OUTPUT_DESCRIPTIVE_COMMENT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT_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_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT fromline 1752 */ /** start of frame for meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT// fromline 1568 : public Melt_CallFrameWithValues<2> { 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*/ MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(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_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT), clos) {}; MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT() //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_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT)) {}; MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT /** end of frame for meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT fromline 1697**/ /* end of frame for routine meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT fromline 1756 */ /* classy proc frame meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT */ MeltFrame_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("GET_CODE_BUFFER_LIMIT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ MELT_LOCATION("warmelt-outobj.melt:78:/ block"); /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:81:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[0])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[0])) /*=obj*/; melt_object_get_field(slot,obj, 0, "REFERENCED_VALUE"); /*_.REFERENCED_VALUE__V2*/ meltfptr[1] = slot; }; ; } else /*^cond.else*/ { /*_.REFERENCED_VALUE__V2*/ meltfptr[1] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:78:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.REFERENCED_VALUE__V2*/ meltfptr[1];; { MELT_LOCATION("warmelt-outobj.melt:78:/ 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*/ /*_.REFERENCED_VALUE__V2*/ meltfptr[1] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("GET_CODE_BUFFER_LIMIT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT_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_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT fromline 1752 */ /** start of frame for meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT// fromline 1568 : public Melt_CallFrameWithValues<5> { 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_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT), clos) {}; MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT() //the constructor fromline 1642 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT)) {}; MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT /** end of frame for meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT fromline 1697**/ /* end of frame for routine meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT fromline 1756 */ /* classy proc frame meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT */ MeltFrame_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("PUT_CODE_BUFFER_LIMIT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:83:/ getarg"); /*_.LIM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:86:/ quasiblock"); /*_#L__L1*/ meltfnum[0] = (melt_get_int((melt_ptr_t)(/*_.LIM__V2*/ meltfptr[1])));; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:88:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L2*/ 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-outobj.melt:88:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = /* 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-outobj.melt:88:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 88; /*^apply.arg*/ argtab[3].meltbp_cstring = "put_buffer_limit l="; /*^apply.arg*/ argtab[4].meltbp_long = /*_#L__L1*/ meltfnum[0]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:88:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L3*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:88:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_CHECK_SIGNAL(); ; MELT_CHECK_SIGNAL(); ; /*_#gteqI__L4*/ meltfnum[2] = ((/*_#L__L1*/ meltfnum[0]) >= (2097152));; MELT_LOCATION("warmelt-outobj.melt:89:/ cond"); /*cond*/ if (/*_#gteqI__L4*/ meltfnum[2]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#lteqI__L6*/ meltfnum[5] = ((/*_#L__L1*/ meltfnum[0]) <= (134217728));; /*^compute*/ /*_#_IF___L5*/ meltfnum[1] = /*_#lteqI__L6*/ meltfnum[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:89:/ clear"); /*clear*/ /*_#lteqI__L6*/ meltfnum[5] = 0 ; } ; } else /*^cond.else*/ { /*_#_IF___L5*/ meltfnum[1] = 0;; } ; MELT_LOCATION("warmelt-outobj.melt:89:/ cond"); /*cond*/ if (/*_#_IF___L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:92:/ quasiblock"); /*_.VLIM__V5*/ meltfptr[3] = (meltgc_new_int((meltobject_ptr_t)((/*!DISCR_CONSTANT_INTEGER*/ meltfrout->tabval[1])), (/*_#L__L1*/ meltfnum[0])));; { MELT_LOCATION("warmelt-outobj.melt:94:/ locexp"); /*INFORMBUFLIMCHK__1*/ inform (UNKNOWN_LOCATION, "MELT code buffer limit set to %ld Kb = %ld Mb", (/*_#L__L1*/ meltfnum[0]) >>10, (/*_#L__L1*/ meltfnum[0]) >> 20); ; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:99:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!CLASS_REFERENCE*/ meltfrout->tabval[3]))) ) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot _ @REFERENCED_VALUE", melt_magic_discr((melt_ptr_t)((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2]))) == MELTOBMAG_OBJECT); melt_putfield_object(((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2])), (0), (/*_.VLIM__V5*/ meltfptr[3]), "REFERENCED_VALUE"); ; /*^touch*/ meltgc_touch((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2])); ; /*^touchobj*/ melt_dbgtrace_written_object ((/*!BUFFER_LIMIT_CONT*/ meltfrout->tabval[2]), "put-fields"); ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-outobj.melt:92:/ clear"); /*clear*/ /*_.VLIM__V5*/ meltfptr[3] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-outobj.melt:86:/ clear"); /*clear*/ /*_#L__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_#gteqI__L4*/ meltfnum[2] = 0 ; /*^clear*/ /*clear*/ /*_#_IF___L5*/ meltfnum[1] = 0 ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("PUT_CODE_BUFFER_LIMIT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND_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_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND fromline 1752 */ /** start of frame for meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND// fromline 1568 : public Melt_CallFrameWithValues<31> { 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_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<31> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND), clos) {}; MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND() //the constructor fromline 1642 : Melt_CallFrameWithValues<31> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<31> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND)) {}; MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<31> (fil,lin, sizeof(MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND /** end of frame for meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND fromline 1697**/ /* end of frame for routine meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND fromline 1756 */ /* classy proc frame meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND */ MeltFrame_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("OUT_ENUMIX_MODVARBIND", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:107:/ getarg"); /*_.OUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.MVARBIND__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.MVARBIND__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:108:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_OUT__L1*/ meltfnum[0] = (melt_is_out ((melt_ptr_t) /*_.OUT__V2*/ meltfptr[1])) ;; MELT_LOCATION("warmelt-outobj.melt:108:/ cond"); /*cond*/ if (/*_#IS_OUT__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V5*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.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 out"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 108; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OUT__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V5*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:108:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V6*/ meltfptr[5] = 0 ; } ; } ; /*_.IFCPP___V4*/ meltfptr[3] = /*_._IFELSE___V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:108:/ clear"); /*clear*/ /*_#IS_OUT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V5*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V4*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:109:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MVARBIND__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:109:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V8*/ meltfptr[4] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.melt:109:/ 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 mvarbind"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 109; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.MVARBIND__V3*/ meltfptr[2]; /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V8*/ meltfptr[4] = /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:109:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V9*/ meltfptr[8] = 0 ; } ; } ; /*_.IFCPP___V7*/ meltfptr[5] = /*_._IFELSE___V8*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:109:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V8*/ meltfptr[4] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[5] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-outobj.melt:110:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.MVARBIND__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ANY_BINDING*/ meltfrout->tabval[2]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.MVARBIND__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 0, "BINDER"); /*_.BINDER__V11*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.BINDER__V11*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:111:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V13*/ meltfptr[12] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_3*/ meltfrout->tabval[3])), (1)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V13*/ meltfptr[12])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V13*/ meltfptr[12]))); ((meltclosure_ptr_t)/*_.LAMBDA___V13*/ meltfptr[12])->tabval[0] = (melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]); ; /*_.OUTNAM__V12*/ meltfptr[11] = /*_.LAMBDA___V13*/ meltfptr[12];; MELT_CHECK_SIGNAL(); ; /*^compute*/ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-outobj.melt:113:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:114:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.CSYMNAM__V16*/ meltfptr[15] = slot; }; ; } else /*^cond.else*/ { /*_.CSYMNAM__V16*/ meltfptr[15] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:115:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_CLONED_SYMBOL*/ meltfrout->tabval[4]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 3, "CSYM_URANK"); /*_.CRANK__V17*/ meltfptr[16] = slot; }; ; } else /*^cond.else*/ { /*_.CRANK__V17*/ meltfptr[16] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:117:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "meltmodvarix_"; /*_.ADD2OUT__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:118:/ locexp"); meltgc_add_out_cident((melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.CSYMNAM__V16*/ meltfptr[15]))); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:119:/ apply"); /*apply*/ { union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "_clon"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.CRANK__V17*/ meltfptr[16]; /*_.ADD2OUT__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V15*/ meltfptr[14] = /*_.ADD2OUT__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-outobj.melt:114:/ clear"); /*clear*/ /*_.CSYMNAM__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CRANK__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V19*/ meltfptr[18] = 0 ; /*_._IFELSE___V14*/ meltfptr[13] = /*_.LET___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:113:/ clear"); /*clear*/ /*_.LET___V15*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_.DISCRIM__V20*/ meltfptr[15] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]))));; /*^compute*/ /*_#eqeq__L4*/ meltfnum[3] = ((/*_.DISCRIM__V20*/ meltfptr[15]) == ((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-outobj.melt:121:/ cond"); /*cond*/ if (/*_#eqeq__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:122:/ quasiblock"); /*^cond*/ /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[5]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.BINDER__V11*/ meltfptr[4]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.SYMNAM__V23*/ meltfptr[18] = slot; }; ; } else /*^cond.else*/ { /*_.SYMNAM__V23*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:124:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "meltmodvarix_"; /*_.ADD2OUT__V24*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; { MELT_LOCATION("warmelt-outobj.melt:125:/ locexp"); meltgc_add_out_cident((melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.SYMNAM__V23*/ meltfptr[18]))); } ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:126:/ apply"); /*apply*/ { union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "_symb"; /*_.ADD2OUT__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!ADD2OUT*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V22*/ meltfptr[17] = /*_.ADD2OUT__V25*/ meltfptr[24];; MELT_LOCATION("warmelt-outobj.melt:122:/ clear"); /*clear*/ /*_.SYMNAM__V23*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V24*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.ADD2OUT__V25*/ meltfptr[24] = 0 ; /*_._IFELSE___V21*/ meltfptr[16] = /*_.LET___V22*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.LET___V22*/ meltfptr[17] = 0 ; } ; } else /*^cond.else*/ { /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:129:/ cppif.then"); /*^block*/ /*anyblock*/ { { /*^locexp*/ /*melt_increment_dbgcounter*/ #if MELT_HAVE_DEBUG > 0 melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL(); ; /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = /*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-outobj.melt:129:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[4]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-outobj.melt:129:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 129; /*^apply.arg*/ argtab[3].meltbp_cstring = "out_enumix_modvarbind bad binder in mvarbind="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.MVARBIND__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V27*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_DEBUG_FUN*/ meltfrout->tabval[8])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IF___V26*/ meltfptr[18] = /*_.MELT_DEBUG_FUN__V27*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:129:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V27*/ meltfptr[14] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V26*/ meltfptr[18] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:129:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[4] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V26*/ meltfptr[18] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:130:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V29*/ meltfptr[17] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.melt:130:/ 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 = "out_enumix_modvarbind bad binder"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 130; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.BINDER__V11*/ meltfptr[4]; /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!MELT_ASSERT_FAILURE_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)((/*nil*/NULL)), (MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_._IFELSE___V29*/ meltfptr[17] = /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:130:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V30*/ meltfptr[14] = 0 ; } ; } ; /*_.IFCPP___V28*/ meltfptr[24] = /*_._IFELSE___V29*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:130:/ clear"); /*clear*/ /*_._IFELSE___V29*/ meltfptr[17] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[24] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-outobj.melt:128:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[18] = /*_.IFCPP___V28*/ meltfptr[24];; /*^compute*/ /*_._IFELSE___V21*/ meltfptr[16] = /*_.PROGN___V31*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:121:/ clear"); /*clear*/ /*_.IFCPP___V28*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V31*/ meltfptr[18] = 0 ; } ; } ; /*_._IFELSE___V14*/ meltfptr[13] = /*_._IFELSE___V21*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:113:/ clear"); /*clear*/ /*_.DISCRIM__V20*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_#eqeq__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V21*/ meltfptr[16] = 0 ; } ; } ; /*_.LET___V10*/ meltfptr[8] = /*_._IFELSE___V14*/ meltfptr[13];; MELT_LOCATION("warmelt-outobj.melt:110:/ clear"); /*clear*/ /*_.BINDER__V11*/ meltfptr[4] = 0 ; /*^clear*/ /*clear*/ /*_.OUTNAM__V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V14*/ meltfptr[13] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:107:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V10*/ meltfptr[8];; { MELT_LOCATION("warmelt-outobj.melt:107:/ 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___V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V10*/ meltfptr[8] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("OUT_ENUMIX_MODVARBIND", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1_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_WARMELTmiOUTOBJ_LAMBDA_cl1 fromline 1752 */ /** start of frame for meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1// fromline 1568 : public Melt_CallFrameWithValues<2> { 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*/ MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1(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_6_WARMELTmiOUTOBJ_LAMBDA_cl1), clos) {}; MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1() //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_6_WARMELTmiOUTOBJ_LAMBDA_cl1)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1)) {}; MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<2> (fil,lin, sizeof(MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 /** end of frame for meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 fromline 1697**/ /* end of frame for routine meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 fromline 1756 */ /* classy proc frame meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 */ MeltFrame_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1 fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl1", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:111:/ getarg"); /*_.NAM__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ meltgc_add_out_cident((melt_ptr_t)((/*~OUT*/ meltfclos->tabval[0])), melt_string_str((melt_ptr_t)(/*_.NAM__V2*/ meltfptr[1]))); } ; /*epilog*/ } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl1", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME_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_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME fromline 1752 */ /** start of frame for meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME// fromline 1568 : public Melt_CallFrameWithValues<14> { 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_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<14> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME), clos) {}; MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME() //the constructor fromline 1642 : Melt_CallFrameWithValues<14> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME)) {}; MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<14> (fil,lin, sizeof(MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME /** end of frame for meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME fromline 1697**/ /* end of frame for routine meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME fromline 1756 */ /* classy proc frame meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME */ MeltFrame_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("INITIAL_CLASSY_FRAME_NAME", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:136:/ getarg"); /*_.OBJ__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:137:/ 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-outobj.melt:137:/ 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-outobj.melt:137:/ 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-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 137; /*^apply.arg*/ argtab[3].meltbp_cstring = "initial_classy_frame_name obj="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.OBJ__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 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___V3*/ meltfptr[2] = /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:137:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V4*/ meltfptr[3] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V3*/ meltfptr[2] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:137:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V3*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*^block*/ /*anyblock*/ { { /*^locexp*/ /*void*/(void)0; } ; /*epilog*/ } #endif /*MELT_HAVE_DEBUG>0*/ ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:138:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*_#IS_A__L3*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-outobj.melt:138:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_._IFELSE___V6*/ meltfptr[2] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.melt:138:/ 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 obj"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 138; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.OBJ__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 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___V6*/ meltfptr[2] = /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:138:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = 0 ; } ; } ; /*_.IFCPP___V5*/ meltfptr[3] = /*_._IFELSE___V6*/ meltfptr[2];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:138:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IFELSE___V6*/ meltfptr[2] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[3] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; MELT_LOCATION("warmelt-outobj.melt:139:/ quasiblock"); MELT_LOCATION("warmelt-outobj.melt:140:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V10*/ meltfptr[9] = (melt_ptr_t) meltgc_new_closure((meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (0)); ; /*_.LAMBDA___V9*/ meltfptr[2] = /*_.LAMBDA___V10*/ meltfptr[9];; /*^compute*/ /*_#OBJ_HASH__L4*/ meltfnum[0] = (melt_obj_hash((melt_ptr_t)(/*_.OBJ__V2*/ meltfptr[1])));; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:139:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_cstring = "Melt_InitialClassyFrame_"; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V9*/ meltfptr[2]; /*^apply.arg*/ argtab[2].meltbp_aptr = (melt_ptr_t*) &/*_.OBJ__V2*/ meltfptr[1]; /*^apply.arg*/ argtab[3].meltbp_cstring = "_h"; /*^apply.arg*/ argtab[4].meltbp_long = /*_#OBJ_HASH__L4*/ meltfnum[0]; /*_.NAME__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!STRING4OUT*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!DISCR_VERBATIM_STRING*/ meltfrout->tabval[4])), (MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:151:/ 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-outobj.melt:151:/ cond"); /*cond*/ if (/*_#MELT_NEED_DBG__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/ { /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = /* 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-outobj.melt:151:/ apply"); /*apply*/ { union meltparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].meltbp_long = /*_#MELT_CALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 151; /*^apply.arg*/ argtab[3].meltbp_cstring = "initial_classy_frame_name name="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.NAME__V11*/ meltfptr[10]; /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 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___V12*/ meltfptr[11] = /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:151:/ clear"); /*clear*/ /*_#MELT_CALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.MELT_DEBUG_FUN__V13*/ meltfptr[12] = 0 ; } ; } else /*^cond.else*/ { /*_._IF___V12*/ meltfptr[11] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:151:/ locexp"); /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ /*^clear*/ /*clear*/ /*_#MELT_NEED_DBG__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_._IF___V12*/ meltfptr[11] = 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-outobj.melt:152:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.NAME__V11*/ meltfptr[10];; { MELT_LOCATION("warmelt-outobj.melt:152:/ 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___V8*/ meltfptr[6] = /*_.RETURN___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-outobj.melt:139:/ clear"); /*clear*/ /*_.LAMBDA___V9*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_#OBJ_HASH__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.NAME__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V14*/ meltfptr[12] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:136:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[6];; { MELT_LOCATION("warmelt-outobj.melt:136:/ 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___V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V8*/ meltfptr[6] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("INITIAL_CLASSY_FRAME_NAME", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2_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_8_WARMELTmiOUTOBJ_LAMBDA_cl2 fromline 1752 */ /** start of frame for meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2// fromline 1568 : public Melt_CallFrameWithValues<5> { 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*/ MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2), clos) {}; MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2() //the constructor fromline 1642 : Melt_CallFrameWithValues<5> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2)) {}; MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<5> (fil,lin, sizeof(MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 /** end of frame for meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 fromline 1697**/ /* end of frame for routine meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 fromline 1756 */ /* classy proc frame meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 */ MeltFrame_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2 fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("LAMBDA_cl2", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:140:/ getarg"); /*_.OUT__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.O__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.O__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:144:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.O__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ meltfrout->tabval[0]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.O__V3*/ meltfptr[2]) /*=obj*/; melt_object_get_field(slot,obj, 15, "OIROUT_MODCTX"); /*_.OIROUT_MODCTX__V4*/ meltfptr[3] = slot; }; ; } else /*^cond.else*/ { /*_.OIROUT_MODCTX__V4*/ meltfptr[3] = /*reallynil*/ NULL ;; } ; MELT_LOCATION("warmelt-outobj.melt:143:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.OIROUT_MODCTX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_ANY_MODULE_CONTEXT*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.OIROUT_MODCTX__V4*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "MOCX_MODULENAME"); /*_.MOCX_MODULENAME__V5*/ meltfptr[4] = slot; }; ; } else /*^cond.else*/ { /*_.MOCX_MODULENAME__V5*/ meltfptr[4] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:141:/ locexp"); meltgc_add_out_cident((melt_ptr_t)(/*_.OUT__V2*/ meltfptr[1]), melt_string_str((melt_ptr_t)(/*_.MOCX_MODULENAME__V5*/ meltfptr[4]))); } ; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:140:/ clear"); /*clear*/ /*_.OIROUT_MODCTX__V4*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MOCX_MODULENAME__V5*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("LAMBDA_cl2", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2_melt; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT_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_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT fromline 1752 */ /** start of frame for meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT of CLASS_PROCROUTINEOBJ from 1555**/ /*curframdeclclassy*/ class MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT// fromline 1568 : public Melt_CallFrameWithValues<11> { public: /* fromline 1572*/ long mcfr_varnum[2]; /*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_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT), clos) {}; MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT() //the constructor fromline 1642 : Melt_CallFrameWithValues<11> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT)) {}; MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT(const char*fil, int lin, meltclosure_ptr_t clos) //the closure constructor fromline 1661 : Melt_CallFrameWithValues<11> (fil,lin, sizeof(MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT), clos) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT /** end of frame for meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT fromline 1697**/ /* end of frame for routine meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT fromline 1756 */ /* classy proc frame meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT */ MeltFrame_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT meltfram__ /*declfrastruct fromline 1780*/ /*classyprocarg meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT fromline 1785*/ #if MELT_HAVE_DEBUG > 0 (__FILE__, __LINE__, meltclosp_) /* fromline 1789*/ #else /*MELT_HAVE_DEBUG */ (meltclosp_) /* fromline 1793*/ #endif /*MELT_HAVE_DEBUG */ ; #define meltframe meltfram__ melt_trace_start("OUTDECLINIT_ROOT", meltcallcount); /*use arguments*/ (void) meltclosp_; (void)meltfirstargp_; (void)meltxargdescr_; (void)meltxargtab_; (void)meltxresdescr_; (void)meltxrestab_; /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-outobj.melt:155:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1*/ /*^getarg*/ if (meltxargdescr_[0] != MELTBPAR_PTR) goto meltlab_endgetargs; /*_.SBUF__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.SBUF__V3*/ meltfptr[2])) != NULL); ; goto meltlab_endgetargs; meltlab_endgetargs: ; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:156:/ 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-outobj.melt:156:/ 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-outobj.melt:156:/ 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-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 156; /*^apply.arg*/ argtab[3].meltbp_cstring = "outdeclinit_root recv="; /*^apply.arg*/ argtab[4].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4] = 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___V4*/ meltfptr[3] = /*_.MELT_DEBUG_FUN__V5*/ meltfptr[4];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:156:/ 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-outobj.melt:156:/ 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-outobj.melt:157:/ quasiblock"); /*_.DIS__V7*/ meltfptr[3] = ((melt_ptr_t) (melt_discr((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]))));; MELT_LOCATION("warmelt-outobj.melt:158:/ cond"); /*cond*/ if ( /*ifisa*/ melt_is_instance_of((melt_ptr_t)(/*_.DIS__V7*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NAMED*/ meltfrout->tabval[1]))) ) /*then*/ { /*^cond.then*/ /*^getslot*/ { melt_ptr_t slot=NULL, obj=NULL; obj = (melt_ptr_t)(/*_.DIS__V7*/ meltfptr[3]) /*=obj*/; melt_object_get_field(slot,obj, 1, "NAMED_NAME"); /*_.DISNAME__V8*/ meltfptr[7] = slot; }; ; } else /*^cond.else*/ { /*_.DISNAME__V8*/ meltfptr[7] = /*reallynil*/ NULL ;; } ; { MELT_LOCATION("warmelt-outobj.melt:160:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s - %s", melt_dbgcounter, ( "unexpected object to output initial declaration for"), melt_string_str((melt_ptr_t)(/*_.DISNAME__V8*/ meltfptr[7]))); } ; #if MELT_HAVE_DEBUG>0 MELT_LOCATION("warmelt-outobj.melt:161:/ cppif.then"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_._IFELSE___V10*/ meltfptr[9] = (/*nil*/NULL);; } else { MELT_LOCATION("warmelt-outobj.melt:161:/ 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 = "outdeclinit_root unimplemented catchall"; /*^apply.arg*/ argtab[1].meltbp_cstring = "warmelt-outobj.melt"; /*^apply.arg*/ argtab[2].meltbp_long = 161; /*^apply.arg*/ argtab[3].meltbp_aptr = (melt_ptr_t*) &/*_.RECV__V2*/ meltfptr[1]; /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 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___V10*/ meltfptr[9] = /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:161:/ clear"); /*clear*/ /*_.MELT_ASSERT_FAILURE_FUN__V11*/ meltfptr[10] = 0 ; } ; } ; /*_.IFCPP___V9*/ meltfptr[8] = /*_._IFELSE___V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:161:/ clear"); /*clear*/ /*_._IFELSE___V10*/ meltfptr[9] = 0 ; } #else /*MELT_HAVE_DEBUG>0*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[8] = (/*nil*/NULL); #endif /*MELT_HAVE_DEBUG>0*/ ; /*^compute*/ /*_.LET___V6*/ meltfptr[4] = /*_.IFCPP___V9*/ meltfptr[8];; MELT_LOCATION("warmelt-outobj.melt:157:/ clear"); /*clear*/ /*_.DIS__V7*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.DISNAME__V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; MELT_CHECK_SIGNAL(); ; MELT_LOCATION("warmelt-outobj.melt:155:/ quasiblock"); /*_._RETVAL___V1*/ meltfptr[0] = /*_.LET___V6*/ meltfptr[4];; { MELT_LOCATION("warmelt-outobj.melt:155:/ 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*/ /*_.LET___V6*/ meltfptr[4] = 0 ; } ; goto meltlabend_rout; meltlabend_rout: melt_trace_end("OUTDECLINIT_ROOT", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT_melt; return (melt_ptr_t)(/*_._RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT*/ /****** emitted syntax checking for C generating devices *****/ #if MELT_HAVE_DEBUG > 0 /* generated syntax checking routine for 2 C generating devices */ MELT_EXTERN void MELT_MODULE_VISIBILITY melt_syntax_tester_WARMELTmiOUTOBJ (void); void melt_syntax_tester_WARMELTmiOUTOBJ (void) { if (1) return; #define meltcallcount -1L /* in melt_syntax_tester_WARMELTmiOUTOBJ */ /* generating device #1 */ /*primitive-syntax GENERATED_CC_FILENAME*/ { melt_ptr_t meltprimf_0_DISCR =0; melt_ptr_t meltprimf_1_BASE =0; melt_ptr_t meltprimf_2_DIR =0; long meltprimf_3_NUM =0; melt_ptr_t primres_0 = meltgc_new_string_generated_cc_filename /* generated_cc_filename */ ((meltobject_ptr_t) (meltprimf_0_DISCR), melt_string_str((melt_ptr_t) (meltprimf_1_BASE)), melt_string_str((melt_ptr_t) (meltprimf_2_DIR)), (meltprimf_3_NUM)); if (primres_0) return; } /*end primitive-syntax GENERATED_CC_FILENAME*/ /* generating device #2 */ /*primitive-syntax MELT_RUN_EXTENSION*/ { melt_ptr_t meltprimf_0_BASENAME =0; melt_ptr_t meltprimf_1_ENV =0; melt_ptr_t meltprimf_2_LITVAL =0; melt_ptr_t primres_1 = /* melt_run_extension */ meltgc_run_cc_extension ((melt_ptr_t) meltprimf_0_BASENAME, (melt_ptr_t) meltprimf_1_ENV, (melt_ptr_t) meltprimf_2_LITVAL) ; if (primres_1) return; } /*end primitive-syntax MELT_RUN_EXTENSION*/ } /* end generated melt_syntax_tester_WARMELTmiOUTOBJ */ #endif /*MELT_HAVE_DEBUG syntaxcheck*/ const char melt_module_is_gpl_compatible[]= "warmelt-outobj: 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_WARMELTmiOUTOBJ_h897178690// fromline 1568 : public Melt_CallFrameWithValues<1162> { public: /* fromline 1572*/ // no classy longs /*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*/ Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690(meltclosure_ptr_t clos) //the closure constructor fromline 1630 : Melt_CallFrameWithValues<1162> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1634*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1638*/ sizeof(Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690), clos) {}; Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690() //the constructor fromline 1642 : Melt_CallFrameWithValues<1162> ( #if MELT_HAVE_DEBUG > 0 /*fromline 1646*/ __FILE__, __LINE__, #endif /* MELT_HAVE_DEBUG fromline 1650*/ sizeof(Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690)) {}; #if MELT_HAVE_DEBUG > 0 /*fromline 1654*/ Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690(const char*fil, int lin) //the constructor fromline 1656 : Melt_CallFrameWithValues<1162> (fil,lin, sizeof(Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690)) {}; #endif /* MELT_HAVE_DEBUG fromline 1666*/ }; // end class Melt_InitialClassyFrame_WARMELTmiOUTOBJ_h897178690 /** end of frame for melt_start_this_module fromline 1697**/ static void melt_initialize_module_meltdata_WARMELTmiOUTOBJ (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_OBJECT_STRUCT(3) dsym_3__BUFFER_LIMIT_CONT; struct MELT_STRING_STRUCT(17) dstr_4__BUFFER_LIMIT_CONT; struct MELT_OBJECT_STRUCT(3) dsym_5__CLASS_REFERENCE; struct MELT_STRING_STRUCT(15) dstr_6__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT(1) dobj_7__BUFFER_LIMIT_CONT; struct meltint_st dint_8__; struct MELT_OBJECT_STRUCT(3) dsym_9__TRUE; struct MELT_STRING_STRUCT(4) dstr_10__TRUE; struct MELT_ROUTINE_STRUCT(3) drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT; struct MELT_CLOSURE_STRUCT(0) dclo_12__DO_OUTPUT_DESCRIPTIVE_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_13__MELT_ASSERT_FAILURE_FUN; struct MELT_STRING_STRUCT(23) dstr_14__MELT_ASSERT_FAILURE_FUN; struct MELT_OBJECT_STRUCT(3) dsym_15__CLASS_NAMED; struct MELT_STRING_STRUCT(11) dstr_16__CLASS_NAMED; struct MELT_OBJECT_STRUCT(3) dsym_17__ADD2OUT; struct MELT_STRING_STRUCT(7) dstr_18__ADD2OUT; struct MELT_ROUTINE_STRUCT(9) drout_19__OUTPUT_DESCRIPTIVE_COMMENT; struct MELT_CLOSURE_STRUCT(0) dclo_20__OUTPUT_DESCRIPTIVE_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_21__CLASS_LOCATED; struct MELT_STRING_STRUCT(13) dstr_22__CLASS_LOCATED; struct MELT_OBJECT_STRUCT(3) dsym_23__CLASS_SEXPR; struct MELT_STRING_STRUCT(11) dstr_24__CLASS_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_25__EXPAND_RESTLIST_AS_TUPLE; struct MELT_STRING_STRUCT(24) dstr_26__EXPAND_RESTLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_27__ERROR_AT; struct MELT_STRING_STRUCT(8) dstr_28__ERROR_AT; struct MELT_OBJECT_STRUCT(3) dsym_29__MELT_MAKE_SEXPR; struct MELT_STRING_STRUCT(15) dstr_30__MELT_MAKE_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_31__HOOK_MELT_MAKE_LOCATION; struct MELT_STRING_STRUCT(23) dstr_32__HOOK_MELT_MAKE_LOCATION; struct MELT_OBJECT_STRUCT(3) dsym_33__IF; struct MELT_STRING_STRUCT(2) dstr_34__IF; struct MELT_OBJECT_STRUCT(3) dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT; struct MELT_STRING_STRUCT(28) dstr_36__FLAGVAL_OUTPUT_DESCR_COM; struct MELT_OBJECT_STRUCT(3) dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT; struct MELT_STRING_STRUCT(29) dstr_38__DO_OUTPUT_DESCRIPTIVE_CO; struct MELT_ROUTINE_STRUCT(2) drout_39__GET_CODE_BUFFER_LIMIT; struct MELT_CLOSURE_STRUCT(0) dclo_40__GET_CODE_BUFFER_LIMIT; struct MELT_ROUTINE_STRUCT(4) drout_41__PUT_CODE_BUFFER_LIMIT; struct MELT_CLOSURE_STRUCT(0) dclo_42__PUT_CODE_BUFFER_LIMIT; 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__DISCR_CONSTANT_INTEGER; struct MELT_STRING_STRUCT(22) dstr_46__DISCR_CONSTANT_INTEGER; struct MELT_ROUTINE_STRUCT(9) drout_47__OUT_ENUMIX_MODVARBIND; struct MELT_CLOSURE_STRUCT(0) dclo_48__OUT_ENUMIX_MODVARBIND; struct MELT_OBJECT_STRUCT(3) dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING; struct MELT_STRING_STRUCT(36) dstr_50__CLASS_NORMAL_MODULE_VARI; struct MELT_OBJECT_STRUCT(3) dsym_51__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT(17) dstr_52__CLASS_ANY_BINDING; struct MELT_ROUTINE_STRUCT(0) drout_53__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_54__CLASS_CLONED_SYMBOL; struct MELT_STRING_STRUCT(19) dstr_55__CLASS_CLONED_SYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_56__CLASS_SYMBOL; struct MELT_STRING_STRUCT(12) dstr_57__CLASS_SYMBOL; struct MELT_ROUTINE_STRUCT(8) drout_58__INITIAL_CLASSY_FRAME_NAME; struct MELT_CLOSURE_STRUCT(0) dclo_59__INITIAL_CLASSY_FRAME_NAME; struct MELT_OBJECT_STRUCT(3) dsym_60__CLASS_INITIALROUTINEOBJ; struct MELT_STRING_STRUCT(23) dstr_61__CLASS_INITIALROUTINEOBJ; struct MELT_OBJECT_STRUCT(3) dsym_62__STRING4OUT; struct MELT_STRING_STRUCT(10) dstr_63__STRING4OUT; struct MELT_OBJECT_STRUCT(3) dsym_64__DISCR_VERBATIM_STRING; struct MELT_STRING_STRUCT(21) dstr_65__DISCR_VERBATIM_STRING; struct MELT_ROUTINE_STRUCT(2) drout_66__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_67__CLASS_ANY_MODULE_CONTEXT; struct MELT_STRING_STRUCT(24) dstr_68__CLASS_ANY_MODULE_CONTEXT; struct MELT_ROUTINE_STRUCT(3) drout_69__OUTDECLINIT_ROOT; struct MELT_CLOSURE_STRUCT(0) dclo_70__OUTDECLINIT_ROOT; struct MELT_OBJECT_STRUCT(3) dsym_71__INSTALL_METHOD; struct MELT_STRING_STRUCT(14) dstr_72__INSTALL_METHOD; struct MELT_OBJECT_STRUCT(3) dsym_73__CLASS_ROOT; struct MELT_STRING_STRUCT(10) dstr_74__CLASS_ROOT; struct MELT_OBJECT_STRUCT(3) dsym_75__OUTPUT_C_DECLINIT; struct MELT_STRING_STRUCT(17) dstr_76__OUTPUT_C_DECLINIT; struct MELT_ROUTINE_STRUCT(7) drout_77__OUTPUCOD_OBJINIELEM; struct MELT_CLOSURE_STRUCT(0) dclo_78__OUTPUCOD_OBJINIELEM; struct MELT_OBJECT_STRUCT(3) dsym_79__CLASS_OBJINITELEM; struct MELT_STRING_STRUCT(17) dstr_80__CLASS_OBJINITELEM; struct MELT_OBJECT_STRUCT(3) dsym_81__OUTPUT_C_CODE; struct MELT_STRING_STRUCT(13) dstr_82__OUTPUT_C_CODE; struct MELT_ROUTINE_STRUCT(2) drout_83__OUTCINITFILL_ROOT; struct MELT_CLOSURE_STRUCT(0) dclo_84__OUTCINITFILL_ROOT; struct MELT_OBJECT_STRUCT(3) dsym_85__OUTPUT_C_INITIAL_FILL; struct MELT_STRING_STRUCT(21) dstr_86__OUTPUT_C_INITIAL_FILL; struct MELT_ROUTINE_STRUCT(1) drout_87__OUTCINITPREDEF_ROOT; struct MELT_CLOSURE_STRUCT(0) dclo_88__OUTCINITPREDEF_ROOT; struct MELT_OBJECT_STRUCT(3) dsym_89__OUTPUT_C_INITIAL_PREDEF; struct MELT_STRING_STRUCT(23) dstr_90__OUTPUT_C_INITIAL_PREDEF; struct MELT_ROUTINE_STRUCT(5) drout_91__OUTPUT_PREDEF; struct MELT_CLOSURE_STRUCT(0) dclo_92__OUTPUT_PREDEF; struct MELT_ROUTINE_STRUCT(3) drout_93__OUTPUCOD_PREDEF; struct MELT_CLOSURE_STRUCT(0) dclo_94__OUTPUCOD_PREDEF; struct MELT_OBJECT_STRUCT(3) dsym_95__CLASS_OBJPREDEF; struct MELT_STRING_STRUCT(15) dstr_96__CLASS_OBJPREDEF; struct MELT_ROUTINE_STRUCT(2) drout_97__OUTPUCOD_NIL; struct MELT_CLOSURE_STRUCT(0) dclo_98__OUTPUCOD_NIL; struct MELT_OBJECT_STRUCT(3) dsym_99__CLASS_OBJNIL; struct MELT_STRING_STRUCT(12) dstr_100__CLASS_OBJNIL; struct MELT_ROUTINE_STRUCT(11) drout_101__OUTPUCOD_OBJEXPANDPUREVAL; struct MELT_CLOSURE_STRUCT(0) dclo_102__OUTPUCOD_OBJEXPANDPUREVAL; struct MELT_OBJECT_STRUCT(3) dsym_103__CLASS_OBJEXPANDPUREVAL; struct MELT_STRING_STRUCT(22) dstr_104__CLASS_OBJEXPANDPUREVAL; struct MELT_OBJECT_STRUCT(3) dsym_105__CLASS_OBJVALUE; struct MELT_STRING_STRUCT(14) dstr_106__CLASS_OBJVALUE; struct MELT_OBJECT_STRUCT(3) dsym_107__CLASS_CTYPE; struct MELT_STRING_STRUCT(11) dstr_108__CLASS_CTYPE; struct MELT_OBJECT_STRUCT(3) dsym_109__CTYPE_VOID; struct MELT_STRING_STRUCT(10) dstr_110__CTYPE_VOID; struct MELT_ROUTINE_STRUCT(10) drout_111__OUTPUCOD_OBJHOOKNTH; struct MELT_CLOSURE_STRUCT(0) dclo_112__OUTPUCOD_OBJHOOKNTH; struct MELT_OBJECT_STRUCT(3) dsym_113__CLASS_OBJHOOKNTH; struct MELT_STRING_STRUCT(16) dstr_114__CLASS_OBJHOOKNTH; struct MELT_OBJECT_STRUCT(3) dsym_115__CTYPE_VALUE; struct MELT_STRING_STRUCT(11) dstr_116__CTYPE_VALUE; struct MELT_OBJECT_STRUCT(3) dsym_117__CLASS_OBJLOCV; struct MELT_STRING_STRUCT(13) dstr_118__CLASS_OBJLOCV; struct MELT_ROUTINE_STRUCT(0) drout_119__OUTDECLINIT_OBJINITOBJECT; struct MELT_CLOSURE_STRUCT(0) dclo_120__OUTDECLINIT_OBJINITOBJECT; struct MELT_OBJECT_STRUCT(3) dsym_121__CLASS_OBJINITOBJECT; struct MELT_STRING_STRUCT(19) dstr_122__CLASS_OBJINITOBJECT; struct MELT_ROUTINE_STRUCT(12) drout_123__OUTCINITFILL_OBJINITOBJECT; struct MELT_CLOSURE_STRUCT(0) dclo_124__OUTCINITFILL_OBJINITOBJECT; struct MELT_OBJECT_STRUCT(3) dsym_125__CLASS_NREP_DATAINSTANCE; struct MELT_STRING_STRUCT(23) dstr_126__CLASS_NREP_DATAINSTANCE; struct MELT_OBJECT_STRUCT(3) dsym_127__CLASS_CLASS; struct MELT_STRING_STRUCT(11) dstr_128__CLASS_CLASS; struct MELT_OBJECT_STRUCT(3) dsym_129__CLASS_OBJINITUNIQUEOBJECT; struct MELT_STRING_STRUCT(25) dstr_130__CLASS_OBJINITUNIQUEOBJEC; struct MELT_ROUTINE_STRUCT(9) drout_131__OUTCINITPREDEF_OBJINITOBJECT; struct MELT_CLOSURE_STRUCT(0) dclo_132__OUTCINITPREDEF_OBJINITOBJECT; struct MELT_OBJECT_STRUCT(3) dsym_133__CLASS_NREP_NIL; struct MELT_STRING_STRUCT(14) dstr_134__CLASS_NREP_NIL; struct MELT_ROUTINE_STRUCT(9) drout_135__OUTCINITPREDEF_OBJINITHOOK; struct MELT_CLOSURE_STRUCT(0) dclo_136__OUTCINITPREDEF_OBJINITHOOK; struct MELT_OBJECT_STRUCT(3) dsym_137__CLASS_OBJINITHOOK; struct MELT_STRING_STRUCT(17) dstr_138__CLASS_OBJINITHOOK; struct MELT_OBJECT_STRUCT(3) dsym_139__CLASS_NREP; struct MELT_STRING_STRUCT(10) dstr_140__CLASS_NREP; struct MELT_ROUTINE_STRUCT(0) drout_141__OUTDECLINIT_OBJINITMULTIPLE; struct MELT_CLOSURE_STRUCT(0) dclo_142__OUTDECLINIT_OBJINITMULTIPLE; struct MELT_OBJECT_STRUCT(3) dsym_143__CLASS_OBJINITMULTIPLE; struct MELT_STRING_STRUCT(21) dstr_144__CLASS_OBJINITMULTIPLE; struct MELT_ROUTINE_STRUCT(6) drout_145__OUTCINITFILL_OBJINITMULTIPLE; struct MELT_CLOSURE_STRUCT(0) dclo_146__OUTCINITFILL_OBJINITMULTIPLE; struct MELT_ROUTINE_STRUCT(0) drout_147__OUTDECLINIT_OBJINITCLOSURE; struct MELT_CLOSURE_STRUCT(0) dclo_148__OUTDECLINIT_OBJINITCLOSURE; struct MELT_OBJECT_STRUCT(3) dsym_149__CLASS_OBJINITCLOSURE; struct MELT_STRING_STRUCT(20) dstr_150__CLASS_OBJINITCLOSURE; struct MELT_ROUTINE_STRUCT(6) drout_151__OUTCINITFILL_OBJINITCLOSURE; struct MELT_CLOSURE_STRUCT(0) dclo_152__OUTCINITFILL_OBJINITCLOSURE; struct MELT_ROUTINE_STRUCT(0) drout_153__OUTDECLINIT_OBJINITROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_154__OUTDECLINIT_OBJINITROUTINE; struct MELT_OBJECT_STRUCT(3) dsym_155__CLASS_OBJINITROUTINE; struct MELT_STRING_STRUCT(20) dstr_156__CLASS_OBJINITROUTINE; struct MELT_ROUTINE_STRUCT(9) drout_157__OUTCINITFILL_OBJINITROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_158__OUTCINITFILL_OBJINITROUTINE; struct MELT_OBJECT_STRUCT(3) dsym_159__CLASS_NREP_DATAROUTINE; struct MELT_STRING_STRUCT(22) dstr_160__CLASS_NREP_DATAROUTINE; struct MELT_OBJECT_STRUCT(3) dsym_161__CLASS_NREP_ROUTPROC; struct MELT_STRING_STRUCT(19) dstr_162__CLASS_NREP_ROUTPROC; struct MELT_ROUTINE_STRUCT(3) drout_163__OUTDECLINIT_OBJINITHOOK; struct MELT_CLOSURE_STRUCT(0) dclo_164__OUTDECLINIT_OBJINITHOOK; struct MELT_ROUTINE_STRUCT(7) drout_165__OUTCINITFILL_OBJINITHOOK; struct MELT_CLOSURE_STRUCT(0) dclo_166__OUTCINITFILL_OBJINITHOOK; struct MELT_OBJECT_STRUCT(3) dsym_167__CLASS_NREP_CLOSPROC; struct MELT_STRING_STRUCT(19) dstr_168__CLASS_NREP_CLOSPROC; struct MELT_ROUTINE_STRUCT(0) drout_169__OUTDECLINIT_OBJINITSTRING; struct MELT_CLOSURE_STRUCT(0) dclo_170__OUTDECLINIT_OBJINITSTRING; struct MELT_OBJECT_STRUCT(3) dsym_171__CLASS_OBJINITSTRING; struct MELT_STRING_STRUCT(19) dstr_172__CLASS_OBJINITSTRING; struct MELT_ROUTINE_STRUCT(7) drout_173__OUTCINITFILL_OBJINITSTRING; struct MELT_CLOSURE_STRUCT(0) dclo_174__OUTCINITFILL_OBJINITSTRING; struct MELT_ROUTINE_STRUCT(0) drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER; struct MELT_CLOSURE_STRUCT(0) dclo_176__OUTDECLINIT_OBJINITBOXEDINTEGER; struct MELT_OBJECT_STRUCT(3) dsym_177__CLASS_OBJINITBOXINTEGER; struct MELT_STRING_STRUCT(23) dstr_178__CLASS_OBJINITBOXINTEGER; struct MELT_ROUTINE_STRUCT(6) drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER; struct MELT_CLOSURE_STRUCT(0) dclo_180__OUTCINITFILL_OBJINITBOXEDINTEGER; struct MELT_ROUTINE_STRUCT(0) drout_181__OUTDECLINIT_OBJINITPAIR; struct MELT_CLOSURE_STRUCT(0) dclo_182__OUTDECLINIT_OBJINITPAIR; struct MELT_OBJECT_STRUCT(3) dsym_183__CLASS_OBJINITPAIR; struct MELT_STRING_STRUCT(17) dstr_184__CLASS_OBJINITPAIR; struct MELT_ROUTINE_STRUCT(6) drout_185__OUTCINITFILL_OBJINITPAIR; struct MELT_CLOSURE_STRUCT(0) dclo_186__OUTCINITFILL_OBJINITPAIR; struct MELT_ROUTINE_STRUCT(0) drout_187__OUTDECLINIT_OBJINITLIST; struct MELT_CLOSURE_STRUCT(0) dclo_188__OUTDECLINIT_OBJINITLIST; struct MELT_OBJECT_STRUCT(3) dsym_189__CLASS_OBJINITLIST; struct MELT_STRING_STRUCT(17) dstr_190__CLASS_OBJINITLIST; struct MELT_ROUTINE_STRUCT(6) drout_191__OUTCINITFILL_OBJINITLIST; struct MELT_CLOSURE_STRUCT(0) dclo_192__OUTCINITFILL_OBJINITLIST; struct MELT_ROUTINE_STRUCT(2) drout_193__OUTPUCOD_ANYDISCR; struct MELT_CLOSURE_STRUCT(0) dclo_194__OUTPUCOD_ANYDISCR; struct MELT_OBJECT_STRUCT(3) dsym_195__DISCR_ANY_RECEIVER; struct MELT_STRING_STRUCT(18) dstr_196__DISCR_ANY_RECEIVER; struct MELT_ROUTINE_STRUCT(2) drout_197__OUTPUCOD_NULL; struct MELT_CLOSURE_STRUCT(0) dclo_198__OUTPUCOD_NULL; struct MELT_OBJECT_STRUCT(3) dsym_199__DISCR_NULL_RECEIVER; struct MELT_STRING_STRUCT(19) dstr_200__DISCR_NULL_RECEIVER; struct MELT_ROUTINE_STRUCT(3) drout_201__OUTPUCOD_CATCHALL_ROOT; struct MELT_CLOSURE_STRUCT(0) dclo_202__OUTPUCOD_CATCHALL_ROOT; struct MELT_OBJECT_STRUCT(3) dsym_203__DISPLAY_DEBUG_MESSAGE; struct MELT_STRING_STRUCT(21) dstr_204__DISPLAY_DEBUG_MESSAGE; struct MELT_ROUTINE_STRUCT(4) drout_205__OUTPUT_RAW_LOCATION; struct MELT_CLOSURE_STRUCT(0) dclo_206__OUTPUT_RAW_LOCATION; struct MELT_OBJECT_STRUCT(3) dsym_207__PREVLOC_CONTAINER; struct MELT_STRING_STRUCT(17) dstr_208__PREVLOC_CONTAINER; struct MELT_OBJECT_STRUCT(1) dobj_209__PREVLOC_CONTAINER; struct MELT_OBJECT_STRUCT(3) dsym_210__PREVIMPLBUF_CONTAINER; struct MELT_STRING_STRUCT(21) dstr_211__PREVIMPLBUF_CONTAINER; struct MELT_OBJECT_STRUCT(1) dobj_212__PREVIMPLBUF_CONTAINER; struct MELT_ROUTINE_STRUCT(2) drout_213__LINE_AND_FILE_OF_LOCATION; struct MELT_CLOSURE_STRUCT(0) dclo_214__LINE_AND_FILE_OF_LOCATION; struct MELT_OBJECT_STRUCT(3) dsym_215__DISCR_INTEGER; struct MELT_STRING_STRUCT(13) dstr_216__DISCR_INTEGER; struct MELT_OBJECT_STRUCT(3) dsym_217__DISCR_STRING; struct MELT_STRING_STRUCT(12) dstr_218__DISCR_STRING; struct MELT_ROUTINE_STRUCT(7) drout_219__OUTPUT_LOCATION; struct MELT_CLOSURE_STRUCT(0) dclo_220__OUTPUT_LOCATION; struct MELT_ROUTINE_STRUCT(14) drout_221__OUTPUT_CURFRAME_DECLSTRUCT; struct MELT_CLOSURE_STRUCT(0) dclo_222__OUTPUT_CURFRAME_DECLSTRUCT; struct MELT_OBJECT_STRUCT(3) dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ; struct MELT_STRING_STRUCT(34) dstr_224__CLASS_INITIAL_EXTENSION_; struct MELT_OBJECT_STRUCT(3) dsym_225__CLASS_CTYPE_GTY; struct MELT_STRING_STRUCT(15) dstr_226__CLASS_CTYPE_GTY; struct MELT_OBJECT_STRUCT(3) dsym_227__CLASS_PROCROUTINEOBJ; struct MELT_STRING_STRUCT(20) dstr_228__CLASS_PROCROUTINEOBJ; struct MELT_OBJECT_STRUCT(3) dsym_229__CLASS_HOOKROUTINEOBJ; struct MELT_STRING_STRUCT(20) dstr_230__CLASS_HOOKROUTINEOBJ; struct MELT_ROUTINE_STRUCT(12) drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT; struct MELT_CLOSURE_STRUCT(0) dclo_232__OUTPUT_CURFRAME_DECLSTRUCT_INIT; struct MELT_OBJECT_STRUCT(3) dsym_233__CLASS_ROUTINEOBJ; struct MELT_STRING_STRUCT(16) dstr_234__CLASS_ROUTINEOBJ; struct MELT_ROUTINE_STRUCT(14) drout_235__OUTPUCOD_PROCROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_236__OUTPUCOD_PROCROUTINE; struct MELT_STRING_STRUCT(2) dstr_237__; struct MELT_OBJECT_STRUCT(3) dsym_238__VARIADIC_INDEX_IDSTR; struct MELT_STRING_STRUCT(20) dstr_239__VARIADIC_INDEX_IDSTR; struct MELT_OBJECT_STRUCT(3) dsym_240__VARIADIC_LENGTH_IDSTR; struct MELT_STRING_STRUCT(21) dstr_241__VARIADIC_LENGTH_IDSTR; struct MELT_OBJECT_STRUCT(3) dsym_242__CLASS_OBJPUREVALUE; struct MELT_STRING_STRUCT(18) dstr_243__CLASS_OBJPUREVALUE; struct MELT_ROUTINE_STRUCT(5) drout_244__OUTPUT_CURFRAME_CDAT_STRUCT; struct MELT_CLOSURE_STRUCT(0) dclo_245__OUTPUT_CURFRAME_CDAT_STRUCT; struct MELT_ROUTINE_STRUCT(8) drout_246__OUTPUT_CURFRAME_CDAT_FILL; struct MELT_CLOSURE_STRUCT(0) dclo_247__OUTPUT_CURFRAME_CDAT_FILL; struct MELT_STRING_STRUCT(8) dstr_248__meltcdat; struct MELT_STRING_STRUCT(8) dstr_249__meltcdat; struct MELT_ROUTINE_STRUCT(26) drout_250__OUTPUCOD_INITIALMODULEROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_251__OUTPUCOD_INITIALMODULEROUTINE; struct MELT_OBJECT_STRUCT(3) dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ; struct MELT_STRING_STRUCT(31) dstr_253__CLASS_INITIAL_MODULE_ROU; struct MELT_OBJECT_STRUCT(3) dsym_254__WARNING_AT; struct MELT_STRING_STRUCT(10) dstr_255__WARNING_AT; struct MELT_OBJECT_STRUCT(3) dsym_256__INFORM_AT; struct MELT_STRING_STRUCT(9) dstr_257__INFORM_AT; struct MELT_ROUTINE_STRUCT(0) drout_258__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_259__DISCR_LIST; struct MELT_STRING_STRUCT(10) dstr_260__DISCR_LIST; struct MELT_OBJECT_STRUCT(3) dsym_261__LIST_TO_MULTIPLE; struct MELT_STRING_STRUCT(16) dstr_262__LIST_TO_MULTIPLE; struct MELT_OBJECT_STRUCT(3) dsym_263__DISCR_MULTIPLE; struct MELT_STRING_STRUCT(14) dstr_264__DISCR_MULTIPLE; struct MELT_OBJECT_STRUCT(3) dsym_265__DISCR_STRBUF; struct MELT_STRING_STRUCT(12) dstr_266__DISCR_STRBUF; struct MELT_OBJECT_STRUCT(3) dsym_267__CLASS_OBJINSTR; struct MELT_STRING_STRUCT(14) dstr_268__CLASS_OBJINSTR; struct MELT_ROUTINE_STRUCT(10) drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_270__OUTPUT_CENTRALDECL_HOOKROUTINE; struct MELT_OBJECT_STRUCT(3) dsym_271__CLASS_NREP_HOOKPROC; struct MELT_STRING_STRUCT(19) dstr_272__CLASS_NREP_HOOKPROC; struct MELT_OBJECT_STRUCT(3) dsym_273__CLASS_OBJCFORMAL; struct MELT_STRING_STRUCT(16) dstr_274__CLASS_OBJCFORMAL; struct MELT_ROUTINE_STRUCT(16) drout_275__OUTPUCOD_HOOKROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_276__OUTPUCOD_HOOKROUTINE; struct MELT_ROUTINE_STRUCT(23) drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_278__OUTPUCOD_INITIALEXTENSIONROUTINE; struct MELT_ROUTINE_STRUCT(1) drout_279__LAMBDA_; struct MELT_ROUTINE_STRUCT(11) drout_280__OUTPUCOD_GETARG; struct MELT_CLOSURE_STRUCT(0) dclo_281__OUTPUCOD_GETARG; struct MELT_OBJECT_STRUCT(3) dsym_282__CLASS_OBJGETARG; struct MELT_STRING_STRUCT(15) dstr_283__CLASS_OBJGETARG; struct MELT_OBJECT_STRUCT(3) dsym_284__CLASS_FORMAL_BINDING; struct MELT_STRING_STRUCT(20) dstr_285__CLASS_FORMAL_BINDING; struct MELT_ROUTINE_STRUCT(13) drout_286__OUTPUCOD_GETARGREST; struct MELT_CLOSURE_STRUCT(0) dclo_287__OUTPUCOD_GETARGREST; struct MELT_OBJECT_STRUCT(3) dsym_288__CLASS_OBJGETARGREST; struct MELT_STRING_STRUCT(19) dstr_289__CLASS_OBJGETARGREST; struct MELT_ROUTINE_STRUCT(4) drout_290__OUTPUCOD_OBJCFORMAL; struct MELT_CLOSURE_STRUCT(0) dclo_291__OUTPUCOD_OBJCFORMAL; struct MELT_ROUTINE_STRUCT(7) drout_292__OUTPUCOD_OBJFETCHMODVAR; struct MELT_CLOSURE_STRUCT(0) dclo_293__OUTPUCOD_OBJFETCHMODVAR; struct MELT_OBJECT_STRUCT(3) dsym_294__CLASS_OBJFETCHMODVAR; struct MELT_STRING_STRUCT(20) dstr_295__CLASS_OBJFETCHMODVAR; struct MELT_ROUTINE_STRUCT(9) drout_296__OUTPUCOD_OBJPUTMODVAR; struct MELT_CLOSURE_STRUCT(0) dclo_297__OUTPUCOD_OBJPUTMODVAR; struct MELT_OBJECT_STRUCT(3) dsym_298__CLASS_OBJPUTMODVAR; struct MELT_STRING_STRUCT(18) dstr_299__CLASS_OBJPUTMODVAR; struct MELT_ROUTINE_STRUCT(9) drout_300__OUTPUCOD_OBJPUTOUTARG; struct MELT_CLOSURE_STRUCT(0) dclo_301__OUTPUCOD_OBJPUTOUTARG; struct MELT_OBJECT_STRUCT(3) dsym_302__CLASS_OBJPUTOUTARG; struct MELT_STRING_STRUCT(18) dstr_303__CLASS_OBJPUTOUTARG; struct MELT_ROUTINE_STRUCT(7) drout_304__OUTPUCOD_OBJLOCV; struct MELT_CLOSURE_STRUCT(0) dclo_305__OUTPUCOD_OBJLOCV; struct MELT_OBJECT_STRUCT(3) dsym_306__CTYPE_LONG; struct MELT_STRING_STRUCT(10) dstr_307__CTYPE_LONG; struct MELT_ROUTINE_STRUCT(6) drout_308__OUTPUCOD_OBJCLOCCV; struct MELT_CLOSURE_STRUCT(0) dclo_309__OUTPUCOD_OBJCLOCCV; struct MELT_OBJECT_STRUCT(3) dsym_310__CLASS_OBJCLOCCV; struct MELT_STRING_STRUCT(15) dstr_311__CLASS_OBJCLOCCV; struct MELT_ROUTINE_STRUCT(7) drout_312__OUTPUCOD_OBJCLOHOOKV; struct MELT_CLOSURE_STRUCT(0) dclo_313__OUTPUCOD_OBJCLOHOOKV; struct MELT_OBJECT_STRUCT(3) dsym_314__CLASS_OBJCLOHOOKV; struct MELT_STRING_STRUCT(17) dstr_315__CLASS_OBJCLOHOOKV; struct MELT_ROUTINE_STRUCT(6) drout_316__OUTPUCOD_OBJCONSTV; struct MELT_CLOSURE_STRUCT(0) dclo_317__OUTPUCOD_OBJCONSTV; struct MELT_OBJECT_STRUCT(3) dsym_318__CLASS_OBJCONSTV; struct MELT_STRING_STRUCT(15) dstr_319__CLASS_OBJCONSTV; struct MELT_ROUTINE_STRUCT(8) drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_321__OUTPUT_CODE_INSTRUCTIONS_LIST; struct MELT_OBJECT_STRUCT(3) dsym_322__CLASS_OBJPLAINBLOCK; struct MELT_STRING_STRUCT(19) dstr_323__CLASS_OBJPLAINBLOCK; struct MELT_ROUTINE_STRUCT(4) drout_324__OUTPUCOD_OBJCHECKSIGNAL; struct MELT_CLOSURE_STRUCT(0) dclo_325__OUTPUCOD_OBJCHECKSIGNAL; struct MELT_OBJECT_STRUCT(3) dsym_326__CLASS_OBJCHECKSIGNAL; struct MELT_STRING_STRUCT(20) dstr_327__CLASS_OBJCHECKSIGNAL; struct MELT_ROUTINE_STRUCT(8) drout_328__OUTPUCOD_OBJANYBLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_329__OUTPUCOD_OBJANYBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_330__CLASS_OBJANYBLOCK; struct MELT_STRING_STRUCT(17) dstr_331__CLASS_OBJANYBLOCK; struct MELT_ROUTINE_STRUCT(5) drout_332__OUTPUCOD_OBJFLAG; struct MELT_CLOSURE_STRUCT(0) dclo_333__OUTPUCOD_OBJFLAG; struct MELT_OBJECT_STRUCT(3) dsym_334__CLASS_OBJFLAG; struct MELT_STRING_STRUCT(13) dstr_335__CLASS_OBJFLAG; struct MELT_ROUTINE_STRUCT(9) drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_337__OUTPUCOD_OBJMATCHFLAGBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_338__CLASS_OBJMATCHFLAGBLOCK; struct MELT_STRING_STRUCT(23) dstr_339__CLASS_OBJMATCHFLAGBLOCK; struct MELT_ROUTINE_STRUCT(12) drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_341__OUTPUCOD_OBJMULTIALLOCBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_342__CLASS_OBJMULTIALLOCBLOCK; struct MELT_STRING_STRUCT(24) dstr_343__CLASS_OBJMULTIALLOCBLOCK; struct MELT_ROUTINE_STRUCT(9) drout_344__OUTPUCOD_OBJCITERBLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_345__OUTPUCOD_OBJCITERBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_346__CLASS_OBJCITERBLOCK; struct MELT_STRING_STRUCT(19) dstr_347__CLASS_OBJCITERBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_348__CLASS_CITERATOR; struct MELT_STRING_STRUCT(15) dstr_349__CLASS_CITERATOR; struct MELT_ROUTINE_STRUCT(7) drout_350__OUTPUCOD_OBJCOMMENTINSTR; struct MELT_CLOSURE_STRUCT(0) dclo_351__OUTPUCOD_OBJCOMMENTINSTR; struct MELT_OBJECT_STRUCT(3) dsym_352__CLASS_OBJCOMMENTINSTR; struct MELT_STRING_STRUCT(21) dstr_353__CLASS_OBJCOMMENTINSTR; struct MELT_ROUTINE_STRUCT(9) drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK; struct MELT_CLOSURE_STRUCT(0) dclo_355__OUTPUCOD_OBJCOMMENTEDBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_356__CLASS_OBJCOMMENTEDBLOCK; struct MELT_STRING_STRUCT(23) dstr_357__CLASS_OBJCOMMENTEDBLOCK; struct MELT_OBJECT_STRUCT(3) dsym_358__LABELCOUNTREF; struct MELT_STRING_STRUCT(13) dstr_359__LABELCOUNTREF; struct MELT_OBJECT_STRUCT(1) dobj_360__LABELCOUNTREF; struct meltint_st dint_361__; struct MELT_ROUTINE_STRUCT(11) drout_362__OUTPUCOD_OBJLABELINSTR; struct MELT_CLOSURE_STRUCT(0) dclo_363__OUTPUCOD_OBJLABELINSTR; struct MELT_OBJECT_STRUCT(3) dsym_364__CLASS_OBJLABELINSTR; struct MELT_STRING_STRUCT(19) dstr_365__CLASS_OBJLABELINSTR; struct MELT_OBJECT_STRUCT(3) dsym_366__SET_CONTENT; struct MELT_STRING_STRUCT(11) dstr_367__SET_CONTENT; struct MELT_ROUTINE_STRUCT(5) drout_368__OUTPUCOD_OBJGOTOINSTR; struct MELT_CLOSURE_STRUCT(0) dclo_369__OUTPUCOD_OBJGOTOINSTR; struct MELT_OBJECT_STRUCT(3) dsym_370__CLASS_OBJGOTOINSTR; struct MELT_STRING_STRUCT(18) dstr_371__CLASS_OBJGOTOINSTR; struct MELT_ROUTINE_STRUCT(4) drout_372__ADD2SBUF_CLONSYM; struct MELT_CLOSURE_STRUCT(0) dclo_373__ADD2SBUF_CLONSYM; struct MELT_ROUTINE_STRUCT(10) drout_374__OUTPUCOD_OBJLOOP; struct MELT_CLOSURE_STRUCT(0) dclo_375__OUTPUCOD_OBJLOOP; struct MELT_OBJECT_STRUCT(3) dsym_376__CLASS_OBJLOOP; struct MELT_STRING_STRUCT(13) dstr_377__CLASS_OBJLOOP; struct MELT_ROUTINE_STRUCT(7) drout_378__OUTPUCOD_OBJEXIT; struct MELT_CLOSURE_STRUCT(0) dclo_379__OUTPUCOD_OBJEXIT; struct MELT_OBJECT_STRUCT(3) dsym_380__CLASS_OBJEXIT; struct MELT_STRING_STRUCT(13) dstr_381__CLASS_OBJEXIT; struct MELT_ROUTINE_STRUCT(7) drout_382__OUTPUCOD_OBJAGAIN; struct MELT_CLOSURE_STRUCT(0) dclo_383__OUTPUCOD_OBJAGAIN; struct MELT_OBJECT_STRUCT(3) dsym_384__CLASS_OBJAGAIN; struct MELT_STRING_STRUCT(14) dstr_385__CLASS_OBJAGAIN; struct MELT_ROUTINE_STRUCT(8) drout_386__OUTPUCOD_OBJCOMPUTE; struct MELT_CLOSURE_STRUCT(0) dclo_387__OUTPUCOD_OBJCOMPUTE; struct MELT_OBJECT_STRUCT(3) dsym_388__CLASS_OBJCOMPUTE; struct MELT_STRING_STRUCT(16) dstr_389__CLASS_OBJCOMPUTE; struct MELT_ROUTINE_STRUCT(7) drout_390__OUTPUCOD_OBJCOND; struct MELT_CLOSURE_STRUCT(0) dclo_391__OUTPUCOD_OBJCOND; struct MELT_OBJECT_STRUCT(3) dsym_392__CLASS_OBJCOND; struct MELT_STRING_STRUCT(13) dstr_393__CLASS_OBJCOND; struct MELT_ROUTINE_STRUCT(7) drout_394__OUTPUCOD_OBJCPPIF; struct MELT_CLOSURE_STRUCT(0) dclo_395__OUTPUCOD_OBJCPPIF; struct MELT_OBJECT_STRUCT(3) dsym_396__CLASS_OBJCPPIF; struct MELT_STRING_STRUCT(14) dstr_397__CLASS_OBJCPPIF; struct MELT_ROUTINE_STRUCT(8) drout_398__OUTPUCOD_OBJINTERNSYMBOL; struct MELT_CLOSURE_STRUCT(0) dclo_399__OUTPUCOD_OBJINTERNSYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_400__CLASS_OBJINTERNSYMBOL; struct MELT_STRING_STRUCT(21) dstr_401__CLASS_OBJINTERNSYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_402__CLASS_NREP_DATASYMBOL; struct MELT_STRING_STRUCT(21) dstr_403__CLASS_NREP_DATASYMBOL; struct MELT_ROUTINE_STRUCT(7) drout_404__OUTPUCOD_OBJINTERNKEYWORD; struct MELT_CLOSURE_STRUCT(0) dclo_405__OUTPUCOD_OBJINTERNKEYWORD; struct MELT_OBJECT_STRUCT(3) dsym_406__CLASS_OBJINTERNKEYWORD; struct MELT_STRING_STRUCT(22) dstr_407__CLASS_OBJINTERNKEYWORD; struct MELT_OBJECT_STRUCT(3) dsym_408__CLASS_NREP_DATAKEYWORD; struct MELT_STRING_STRUCT(22) dstr_409__CLASS_NREP_DATAKEYWORD; struct MELT_ROUTINE_STRUCT(9) drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL; struct MELT_CLOSURE_STRUCT(0) dclo_411__OUTPUCOD_OBJGETNAMEDSYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_412__CLASS_OBJGETNAMEDSYMBOL; struct MELT_STRING_STRUCT(23) dstr_413__CLASS_OBJGETNAMEDSYMBOL; struct MELT_ROUTINE_STRUCT(9) drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD; struct MELT_CLOSURE_STRUCT(0) dclo_415__OUTPUCOD_OBJGETNAMEDKEYWORD; struct MELT_OBJECT_STRUCT(3) dsym_416__CLASS_OBJGETNAMEDKEYWORD; struct MELT_STRING_STRUCT(24) dstr_417__CLASS_OBJGETNAMEDKEYWORD; struct MELT_ROUTINE_STRUCT(19) drout_418__OUTPUCOD_OBJAPPLY; struct MELT_CLOSURE_STRUCT(0) dclo_419__OUTPUCOD_OBJAPPLY; struct MELT_OBJECT_STRUCT(3) dsym_420__CLASS_OBJAPPLY; struct MELT_STRING_STRUCT(14) dstr_421__CLASS_OBJAPPLY; struct MELT_OBJECT_STRUCT(3) dsym_422__GET_CTYPE; struct MELT_STRING_STRUCT(9) dstr_423__GET_CTYPE; struct MELT_ROUTINE_STRUCT(13) drout_424__OUTPUCOD_OBJMSEND; struct MELT_CLOSURE_STRUCT(0) dclo_425__OUTPUCOD_OBJMSEND; struct MELT_OBJECT_STRUCT(3) dsym_426__CLASS_OBJMSEND; struct MELT_STRING_STRUCT(14) dstr_427__CLASS_OBJMSEND; struct MELT_ROUTINE_STRUCT(14) drout_428__OUTPUCOD_OBJMULTIAPPLY; struct MELT_CLOSURE_STRUCT(0) dclo_429__OUTPUCOD_OBJMULTIAPPLY; struct MELT_OBJECT_STRUCT(3) dsym_430__CLASS_OBJMULTIAPPLY; struct MELT_STRING_STRUCT(19) dstr_431__CLASS_OBJMULTIAPPLY; struct MELT_OBJECT_STRUCT(3) dsym_432__LIST_EVERY; struct MELT_STRING_STRUCT(10) dstr_433__LIST_EVERY; struct MELT_ROUTINE_STRUCT(0) drout_434__LAMBDA_; struct MELT_ROUTINE_STRUCT(12) drout_435__OUTPUCOD_OBJMULTIMSEND; struct MELT_CLOSURE_STRUCT(0) dclo_436__OUTPUCOD_OBJMULTIMSEND; struct MELT_OBJECT_STRUCT(3) dsym_437__CLASS_OBJMULTIMSEND; struct MELT_STRING_STRUCT(19) dstr_438__CLASS_OBJMULTIMSEND; struct MELT_ROUTINE_STRUCT(7) drout_439__OUTPUCOD_OBJCLEAR; struct MELT_CLOSURE_STRUCT(0) dclo_440__OUTPUCOD_OBJCLEAR; struct MELT_OBJECT_STRUCT(3) dsym_441__CLASS_OBJCLEAR; struct MELT_STRING_STRUCT(14) dstr_442__CLASS_OBJCLEAR; struct MELT_ROUTINE_STRUCT(9) drout_443__OUTPUCOD_OBJRAWALLOCOBJ; struct MELT_CLOSURE_STRUCT(0) dclo_444__OUTPUCOD_OBJRAWALLOCOBJ; struct MELT_OBJECT_STRUCT(3) dsym_445__CLASS_OBJRAWALLOCOBJ; struct MELT_STRING_STRUCT(20) dstr_446__CLASS_OBJRAWALLOCOBJ; struct MELT_ROUTINE_STRUCT(8) drout_447__OUTPUCOD_OBJNEWCLOSURE; struct MELT_CLOSURE_STRUCT(0) dclo_448__OUTPUCOD_OBJNEWCLOSURE; struct MELT_OBJECT_STRUCT(3) dsym_449__CLASS_OBJNEWCLOSURE; struct MELT_STRING_STRUCT(19) dstr_450__CLASS_OBJNEWCLOSURE; struct MELT_ROUTINE_STRUCT(5) drout_451__OUTPUCOD_OBJTOUCH; struct MELT_CLOSURE_STRUCT(0) dclo_452__OUTPUCOD_OBJTOUCH; struct MELT_OBJECT_STRUCT(3) dsym_453__CLASS_OBJTOUCH; struct MELT_STRING_STRUCT(14) dstr_454__CLASS_OBJTOUCH; struct MELT_ROUTINE_STRUCT(4) drout_455__OUTPUCOD_DBGTRACEWRITEOBJ; struct MELT_CLOSURE_STRUCT(0) dclo_456__OUTPUCOD_DBGTRACEWRITEOBJ; struct MELT_OBJECT_STRUCT(3) dsym_457__CLASS_OBJDBGTRACEWRITEOBJ; struct MELT_STRING_STRUCT(25) dstr_458__CLASS_OBJDBGTRACEWRITEOB; struct MELT_ROUTINE_STRUCT(7) drout_459__OUTPUCOD_OBJPUTUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_460__OUTPUCOD_OBJPUTUPLE; struct MELT_OBJECT_STRUCT(3) dsym_461__CLASS_OBJPUTUPLE; struct MELT_STRING_STRUCT(16) dstr_462__CLASS_OBJPUTUPLE; struct MELT_OBJECT_STRUCT(3) dsym_463__OBJPUTPAIRHEAD_COUNTER; struct MELT_STRING_STRUCT(22) dstr_464__OBJPUTPAIRHEAD_COUNTER; struct MELT_OBJECT_STRUCT(1) dobj_465__OBJPUTPAIRHEAD_COUNTER; struct meltint_st dint_466__; struct MELT_ROUTINE_STRUCT(8) drout_467__OUTPUCOD_OBJPUTPAIRHEAD; struct MELT_CLOSURE_STRUCT(0) dclo_468__OUTPUCOD_OBJPUTPAIRHEAD; struct MELT_OBJECT_STRUCT(3) dsym_469__CLASS_OBJPUTPAIR; struct MELT_STRING_STRUCT(16) dstr_470__CLASS_OBJPUTPAIR; struct MELT_OBJECT_STRUCT(3) dsym_471__CLASS_OBJPUTPAIRHEAD; struct MELT_STRING_STRUCT(20) dstr_472__CLASS_OBJPUTPAIRHEAD; struct MELT_ROUTINE_STRUCT(7) drout_473__OUTPUCOD_OBJPUTPAIRTAIL; struct MELT_CLOSURE_STRUCT(0) dclo_474__OUTPUCOD_OBJPUTPAIRTAIL; struct MELT_OBJECT_STRUCT(3) dsym_475__CLASS_OBJPUTPAIRTAIL; struct MELT_STRING_STRUCT(20) dstr_476__CLASS_OBJPUTPAIRTAIL; struct MELT_ROUTINE_STRUCT(6) drout_477__OUTPUCOD_OBJPUTLIST; struct MELT_CLOSURE_STRUCT(0) dclo_478__OUTPUCOD_OBJPUTLIST; struct MELT_OBJECT_STRUCT(3) dsym_479__CLASS_OBJPUTLIST; struct MELT_STRING_STRUCT(16) dstr_480__CLASS_OBJPUTLIST; struct MELT_ROUTINE_STRUCT(8) drout_481__OUTPUCOD_OBJGETSLOT; struct MELT_CLOSURE_STRUCT(0) dclo_482__OUTPUCOD_OBJGETSLOT; struct MELT_OBJECT_STRUCT(3) dsym_483__CLASS_OBJGETSLOT; struct MELT_STRING_STRUCT(16) dstr_484__CLASS_OBJGETSLOT; struct MELT_OBJECT_STRUCT(3) dsym_485__CLASS_FIELD; struct MELT_STRING_STRUCT(11) dstr_486__CLASS_FIELD; struct MELT_ROUTINE_STRUCT(15) drout_487__OUTPUCOD_OBJPUTSLOT; struct MELT_CLOSURE_STRUCT(0) dclo_488__OUTPUCOD_OBJPUTSLOT; struct MELT_OBJECT_STRUCT(3) dsym_489__CLASS_OBJPUTSLOT; struct MELT_STRING_STRUCT(16) dstr_490__CLASS_OBJPUTSLOT; struct MELT_ROUTINE_STRUCT(7) drout_491__OUTPUCOD_OBJPUTCLOSUROUT; struct MELT_CLOSURE_STRUCT(0) dclo_492__OUTPUCOD_OBJPUTCLOSUROUT; struct MELT_OBJECT_STRUCT(3) dsym_493__CLASS_OBJPUTCLOSUROUT; struct MELT_STRING_STRUCT(21) dstr_494__CLASS_OBJPUTCLOSUROUT; struct MELT_ROUTINE_STRUCT(7) drout_495__OUTPUCOD_OBJPUTCLOSEDV; struct MELT_CLOSURE_STRUCT(0) dclo_496__OUTPUCOD_OBJPUTCLOSEDV; struct MELT_OBJECT_STRUCT(3) dsym_497__CLASS_OBJPUTCLOSEDV; struct MELT_STRING_STRUCT(19) dstr_498__CLASS_OBJPUTCLOSEDV; struct MELT_ROUTINE_STRUCT(7) drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct MELT_CLOSURE_STRUCT(0) dclo_500__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct MELT_OBJECT_STRUCT(3) dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV; struct MELT_STRING_STRUCT(26) dstr_502__CLASS_OBJPUTCLOSEDNOTNUL; struct MELT_ROUTINE_STRUCT(8) drout_503__OUTPUCOD_OBJPUTROUTCONST; struct MELT_CLOSURE_STRUCT(0) dclo_504__OUTPUCOD_OBJPUTROUTCONST; struct MELT_OBJECT_STRUCT(3) dsym_505__CLASS_OBJPUTROUTCONST; struct MELT_STRING_STRUCT(21) dstr_506__CLASS_OBJPUTROUTCONST; struct MELT_ROUTINE_STRUCT(7) drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct MELT_CLOSURE_STRUCT(0) dclo_508__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct MELT_OBJECT_STRUCT(3) dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL; struct MELT_STRING_STRUCT(28) dstr_510__CLASS_OBJPUTROUTCONSTNOT; struct MELT_ROUTINE_STRUCT(10) drout_511__OUTPUCOD_OBJPUTHOOKCONST; struct MELT_CLOSURE_STRUCT(0) dclo_512__OUTPUCOD_OBJPUTHOOKCONST; struct MELT_OBJECT_STRUCT(3) dsym_513__CLASS_OBJPUTHOOKCONST; struct MELT_STRING_STRUCT(21) dstr_514__CLASS_OBJPUTHOOKCONST; struct MELT_OBJECT_STRUCT(3) dsym_515__CLASS_NREP_BOUND_DATA; struct MELT_STRING_STRUCT(21) dstr_516__CLASS_NREP_BOUND_DATA; struct MELT_ROUTINE_STRUCT(11) drout_517__OUTPUCOD_OBJPUTHOOKDATA; struct MELT_CLOSURE_STRUCT(0) dclo_518__OUTPUCOD_OBJPUTHOOKDATA; struct MELT_OBJECT_STRUCT(3) dsym_519__CLASS_OBJPUTHOOKDATA; struct MELT_STRING_STRUCT(20) dstr_520__CLASS_OBJPUTHOOKDATA; struct MELT_ROUTINE_STRUCT(12) drout_521__OUTPUCOD_OBJPUTXTRARESULT; struct MELT_CLOSURE_STRUCT(0) dclo_522__OUTPUCOD_OBJPUTXTRARESULT; struct MELT_OBJECT_STRUCT(3) dsym_523__CLASS_OBJPUTXTRARESULT; struct MELT_STRING_STRUCT(22) dstr_524__CLASS_OBJPUTXTRARESULT; struct MELT_ROUTINE_STRUCT(7) drout_525__OUTPUCOD_OBJEXPV; struct MELT_CLOSURE_STRUCT(0) dclo_526__OUTPUCOD_OBJEXPV; struct MELT_OBJECT_STRUCT(3) dsym_527__CLASS_OBJEXPV; struct MELT_STRING_STRUCT(13) dstr_528__CLASS_OBJEXPV; struct MELT_ROUTINE_STRUCT(10) drout_529__OUTPUCOD_OBJLOCATEDEXPV; struct MELT_CLOSURE_STRUCT(0) dclo_530__OUTPUCOD_OBJLOCATEDEXPV; struct MELT_OBJECT_STRUCT(3) dsym_531__CLASS_OBJLOCATEDEXPV; struct MELT_STRING_STRUCT(20) dstr_532__CLASS_OBJLOCATEDEXPV; struct MELT_ROUTINE_STRUCT(4) drout_533__OUTPUCOD_VERBATIMSTRING; struct MELT_CLOSURE_STRUCT(0) dclo_534__OUTPUCOD_VERBATIMSTRING; struct MELT_ROUTINE_STRUCT(4) drout_535__OUTPUCOD_STRING; struct MELT_CLOSURE_STRUCT(0) dclo_536__OUTPUCOD_STRING; struct MELT_ROUTINE_STRUCT(1) drout_537__OUTPUCOD_INTEGER; struct MELT_CLOSURE_STRUCT(0) dclo_538__OUTPUCOD_INTEGER; struct MELT_ROUTINE_STRUCT(6) drout_539__OUTPUCOD_FINALRETURN; struct MELT_CLOSURE_STRUCT(0) dclo_540__OUTPUCOD_FINALRETURN; struct MELT_OBJECT_STRUCT(3) dsym_541__CLASS_OBJFINALRETURN; struct MELT_STRING_STRUCT(20) dstr_542__CLASS_OBJFINALRETURN; struct MELT_ROUTINE_STRUCT(7) drout_543__SORTED_NAMED_DICT_TUPLE; struct MELT_CLOSURE_STRUCT(0) dclo_544__SORTED_NAMED_DICT_TUPLE; struct MELT_OBJECT_STRUCT(3) dsym_545__MULTIPLE_SORT; struct MELT_STRING_STRUCT(13) dstr_546__MULTIPLE_SORT; struct MELT_OBJECT_STRUCT(3) dsym_547__COMPARE_NAMED_ALPHA; struct MELT_STRING_STRUCT(19) dstr_548__COMPARE_NAMED_ALPHA; struct MELT_ROUTINE_STRUCT(8) drout_549__OUTPUT_EXPORTED_OFFSETS; struct MELT_CLOSURE_STRUCT(0) dclo_550__OUTPUT_EXPORTED_OFFSETS; struct MELT_OBJECT_STRUCT(3) dsym_551__CLASS_SECONDARY_CC_FILE; struct MELT_STRING_STRUCT(23) dstr_552__CLASS_SECONDARY_CC_FILE; struct MELT_OBJECT_STRUCT(8) dobj_553__CLASS_SECONDARY_CC_FILE; struct MELT_STRING_STRUCT(23) dstr_554__CLASS_SECONDARY_CC_FILE; struct MELT_MULTIPLE_STRUCT(1) dtup_555_syCLASS_SECONDARY_CC_FILE; struct MELT_MULTIPLE_STRUCT(4) dtup_556_syCLASS_SECONDARY_CC_FILE; struct MELT_OBJECT_STRUCT(3) dsym_557__SECFIL_MODNAM; struct MELT_STRING_STRUCT(13) dstr_558__SECFIL_MODNAM; struct MELT_OBJECT_STRUCT(4) dobj_559__SECFIL_MODNAM; struct MELT_STRING_STRUCT(13) dstr_560__SECFIL_MODNAM; struct MELT_OBJECT_STRUCT(3) dsym_561__SECFIL_PATH; struct MELT_STRING_STRUCT(11) dstr_562__SECFIL_PATH; struct MELT_OBJECT_STRUCT(4) dobj_563__SECFIL_PATH; struct MELT_STRING_STRUCT(11) dstr_564__SECFIL_PATH; struct MELT_OBJECT_STRUCT(3) dsym_565__SECFIL_DECLBUF; struct MELT_STRING_STRUCT(14) dstr_566__SECFIL_DECLBUF; struct MELT_OBJECT_STRUCT(4) dobj_567__SECFIL_DECLBUF; struct MELT_STRING_STRUCT(14) dstr_568__SECFIL_DECLBUF; struct MELT_OBJECT_STRUCT(3) dsym_569__SECFIL_IMPLBUF; struct MELT_STRING_STRUCT(14) dstr_570__SECFIL_IMPLBUF; struct MELT_OBJECT_STRUCT(4) dobj_571__SECFIL_IMPLBUF; struct MELT_STRING_STRUCT(14) dstr_572__SECFIL_IMPLBUF; struct MELT_OBJECT_STRUCT(3) dsym_573__GENERATED_CC_FILENAME; struct MELT_STRING_STRUCT(21) dstr_574__GENERATED_CC_FILENAME; struct MELT_OBJECT_STRUCT(5) dobj_575__GENERATED_CC_FILENAME; struct MELT_MULTIPLE_STRUCT(9) dtup_576_syGENERATED_CC_FILENAME; struct MELT_MULTIPLE_STRUCT(4) dtup_577_syGENERATED_CC_FILENAME; struct MELT_OBJECT_STRUCT(3) dsym_578__DISCR; struct MELT_STRING_STRUCT(5) dstr_579__DISCR; struct MELT_OBJECT_STRUCT(2) dobj_580; struct MELT_OBJECT_STRUCT(3) dsym_581__BASE; struct MELT_STRING_STRUCT(4) dstr_582__BASE; struct MELT_OBJECT_STRUCT(2) dobj_583; struct MELT_OBJECT_STRUCT(3) dsym_584__DIR; struct MELT_STRING_STRUCT(3) dstr_585__DIR; struct MELT_OBJECT_STRUCT(2) dobj_586; struct MELT_OBJECT_STRUCT(3) dsym_587__NUM; struct MELT_STRING_STRUCT(3) dstr_588__NUM; struct MELT_OBJECT_STRUCT(2) dobj_589; struct MELT_STRING_STRUCT(95) dstr_590__meltgc_new_string_genera; struct MELT_STRING_STRUCT(39) dstr_591__melt_string_str; struct MELT_STRING_STRUCT(34) dstr_592__melt_string_str_mel; struct MELT_STRING_STRUCT(12) dstr_593__; struct MELT_STRING_STRUCT(2) dstr_594__; struct MELT_STRING_STRUCT(21) dstr_595__GENERATED_CC_FILENAME; struct MELT_ROUTINE_STRUCT(5) drout_596__NTH_SECUNDARY_FILE; struct MELT_CLOSURE_STRUCT(0) dclo_597__NTH_SECUNDARY_FILE; struct MELT_ROUTINE_STRUCT(18) drout_598__OUTPUT_MELT_DESCRIPTOR; struct MELT_CLOSURE_STRUCT(0) dclo_599__OUTPUT_MELT_DESCRIPTOR; struct MELT_OBJECT_STRUCT(3) dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT; struct MELT_STRING_STRUCT(38) dstr_601__CLASS_RUNNING_EXTENSION_; struct MELT_STRING_STRUCT(9) dstr_602__runextend; struct MELT_STRING_STRUCT(9) dstr_603__optimized; struct MELT_STRING_STRUCT(12) dstr_604__quicklybuilt; struct MELT_STRING_STRUCT(9) dstr_605__optimized; struct MELT_STRING_STRUCT(7) dstr_606__dynamic; struct MELT_STRING_STRUCT(11) dstr_607__debugnoline; struct MELT_OBJECT_STRUCT(3) dsym_608__SYNTAX_TEST_GENERATOR; struct MELT_STRING_STRUCT(21) dstr_609__SYNTAX_TEST_GENERATOR; struct MELT_OBJECT_STRUCT(3) dsym_610__CLASS_SELECTOR; struct MELT_STRING_STRUCT(14) dstr_611__CLASS_SELECTOR; struct MELT_OBJECT_STRUCT(3) dsym_612__RECV; struct MELT_STRING_STRUCT(4) dstr_613__RECV; struct MELT_OBJECT_STRUCT(2) dobj_614; struct MELT_OBJECT_STRUCT(3) dsym_615__GENDEV; struct MELT_STRING_STRUCT(6) dstr_616__GENDEV; struct MELT_OBJECT_STRUCT(2) dobj_617; struct MELT_OBJECT_STRUCT(3) dsym_618__SBUF; struct MELT_STRING_STRUCT(4) dstr_619__SBUF; struct MELT_OBJECT_STRUCT(2) dobj_620; struct MELT_OBJECT_STRUCT(3) dsym_621__MODCTX; struct MELT_STRING_STRUCT(6) dstr_622__MODCTX; struct MELT_OBJECT_STRUCT(2) dobj_623; struct MELT_OBJECT_STRUCT(3) dsym_624__IX; struct MELT_STRING_STRUCT(2) dstr_625__IX; struct MELT_OBJECT_STRUCT(2) dobj_626; struct MELT_MULTIPLE_STRUCT(5) dtup_627_sySYNTAX_TEST_GENERATOR; struct MELT_OBJECT_STRUCT(4) dobj_628__SYNTAX_TEST_GENERATOR; struct MELT_STRING_STRUCT(21) dstr_629__SYNTAX_TEST_GENERATOR; struct MELT_ROUTINE_STRUCT(6) drout_630__SYNTESTGEN_ANY; struct MELT_CLOSURE_STRUCT(0) dclo_631__SYNTESTGEN_ANY; struct MELT_OBJECT_STRUCT(3) dsym_632__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_STRING_STRUCT(29) dstr_633__CLASS_SOURCE_GENERATOR_D; struct MELT_ROUTINE_STRUCT(9) drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST; struct MELT_CLOSURE_STRUCT(0) dclo_635__SUBSTITUTE_FORMALS_FOR_SYNTEST; struct MELT_ROUTINE_STRUCT(3) drout_636__EXPAND_TUPLE_FOR_SYNTEST; struct MELT_CLOSURE_STRUCT(0) dclo_637__EXPAND_TUPLE_FOR_SYNTEST; struct MELT_ROUTINE_STRUCT(15) drout_638__SYNTESTGEN_PRIMITIVE; struct MELT_CLOSURE_STRUCT(0) dclo_639__SYNTESTGEN_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_640__CLASS_PRIMITIVE; struct MELT_STRING_STRUCT(15) dstr_641__CLASS_PRIMITIVE; struct MELT_OBJECT_STRUCT(3) dsym_642__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT(25) dstr_643__CLASS_SOURCE_DEFPRIMITIV; struct MELT_OBJECT_STRUCT(3) dsym_644__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT(17) dstr_645__DISCR_MAP_OBJECTS; struct MELT_ROUTINE_STRUCT(16) drout_646__SYNTESTGEN_CITERATOR; struct MELT_CLOSURE_STRUCT(0) dclo_647__SYNTESTGEN_CITERATOR; struct MELT_OBJECT_STRUCT(3) dsym_648__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT(25) dstr_649__CLASS_SOURCE_DEFCITERATO; struct MELT_ROUTINE_STRUCT(19) drout_650__SYNTESTGEN_CMATCHER; struct MELT_CLOSURE_STRUCT(0) dclo_651__SYNTESTGEN_CMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_652__CLASS_CMATCHER; struct MELT_STRING_STRUCT(14) dstr_653__CLASS_CMATCHER; struct MELT_OBJECT_STRUCT(3) dsym_654__CLASS_ANY_MATCHER; struct MELT_STRING_STRUCT(17) dstr_655__CLASS_ANY_MATCHER; struct MELT_OBJECT_STRUCT(3) dsym_656__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(24) dstr_657__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT(17) dstr_658__cmatcher_oper_; struct MELT_STRING_STRUCT(3) dstr_659__; struct MELT_ROUTINE_STRUCT(8) drout_660__EMIT_SYNTAX_TESTING_ROUTINE; struct MELT_CLOSURE_STRUCT(0) dclo_661__EMIT_SYNTAX_TESTING_ROUTINE; struct MELT_ROUTINE_STRUCT(17) drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_663__GIVE_NORMALIZED_MACROEXPANDED_LIST; struct MELT_OBJECT_STRUCT(3) dsym_664__DEBUG_LESS; struct MELT_STRING_STRUCT(10) dstr_665__DEBUG_LESS; struct MELT_OBJECT_STRUCT(3) dsym_666__CLASS_NORMALIZATION_CONTEXT; struct MELT_STRING_STRUCT(27) dstr_667__CLASS_NORMALIZATION_CONT; struct MELT_OBJECT_STRUCT(3) dsym_668__CLASS_ENVIRONMENT; struct MELT_STRING_STRUCT(17) dstr_669__CLASS_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_670__CLASS_SOURCE; struct MELT_STRING_STRUCT(12) dstr_671__CLASS_SOURCE; struct MELT_OBJECT_STRUCT(3) dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; struct MELT_STRING_STRUCT(56) dstr_673__CLASS_SOURCE_UPDATE_CURR; struct MELT_STRING_STRUCT(13) dstr_674__at_very_start; struct MELT_OBJECT_STRUCT(3) dsym_675__CLASS_SOURCE_COMMENT; struct MELT_STRING_STRUCT(20) dstr_676__CLASS_SOURCE_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_677__NORMAL_EXP; struct MELT_STRING_STRUCT(10) dstr_678__NORMAL_EXP; struct MELT_OBJECT_STRUCT(3) dsym_679__CLASS_NORMAL_LET_BINDING; struct MELT_STRING_STRUCT(24) dstr_680__CLASS_NORMAL_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_681__CLASS_NREP_ANYPROC; struct MELT_STRING_STRUCT(18) dstr_682__CLASS_NREP_ANYPROC; struct MELT_OBJECT_STRUCT(3) dsym_683__WRAP_NORMAL_LETSEQ; struct MELT_STRING_STRUCT(18) dstr_684__WRAP_NORMAL_LETSEQ; struct MELT_OBJECT_STRUCT(3) dsym_685__WRAP_NORMAL_LET1; struct MELT_STRING_STRUCT(16) dstr_686__WRAP_NORMAL_LET1; struct MELT_OBJECT_STRUCT(3) dsym_687__LIST_APPEND2LIST; struct MELT_STRING_STRUCT(16) dstr_688__LIST_APPEND2LIST; struct MELT_ROUTINE_STRUCT(13) drout_689__OUTPUT_HOOKS_WITH_MODVAR; struct MELT_CLOSURE_STRUCT(0) dclo_690__OUTPUT_HOOKS_WITH_MODVAR; struct MELT_OBJECT_STRUCT(3) dsym_691__CLASS_NREP_DATAHOOK; struct MELT_STRING_STRUCT(19) dstr_692__CLASS_NREP_DATAHOOK; struct MELT_ROUTINE_STRUCT(55) drout_693__TRANSLATE_MACROEXPANDED_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_694__TRANSLATE_MACROEXPANDED_LIST; struct MELT_OBJECT_STRUCT(3) dsym_695__CLASS_NREP_INITPROC; struct MELT_STRING_STRUCT(19) dstr_696__CLASS_NREP_INITPROC; struct MELT_STRING_STRUCT(43) dstr_697__MELT_translation_failed_; struct MELT_OBJECT_STRUCT(3) dsym_698__COMPILE2OBJ_HOOK; struct MELT_STRING_STRUCT(16) dstr_699__COMPILE2OBJ_HOOK; struct MELT_OBJECT_STRUCT(3) dsym_700__COMPILE2OBJ_PROCEDURE; struct MELT_STRING_STRUCT(21) dstr_701__COMPILE2OBJ_PROCEDURE; struct MELT_STRING_STRUCT(40) dstr_702__MELT_translation_failed_; struct MELT_ROUTINE_STRUCT(2) drout_703__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_704__NORMAL_IMPORT; struct MELT_STRING_STRUCT(13) dstr_705__NORMAL_IMPORT; struct MELT_OBJECT_STRUCT(3) dsym_706__CLASS_HOOK_DESCRIPTOR; struct MELT_STRING_STRUCT(21) dstr_707__CLASS_HOOK_DESCRIPTOR; struct MELT_OBJECT_STRUCT(3) dsym_708__SYMBOL_CNAME; struct MELT_STRING_STRUCT(12) dstr_709__SYMBOL_CNAME; struct MELT_OBJECT_STRUCT(3) dsym_710__CLASS_SOURCE_CHEADER; struct MELT_STRING_STRUCT(20) dstr_711__CLASS_SOURCE_CHEADER; struct MELT_OBJECT_STRUCT(3) dsym_712__CLASS_SOURCE_CODE_STRING; struct MELT_STRING_STRUCT(24) dstr_713__CLASS_SOURCE_CODE_STRING; struct MELT_OBJECT_STRUCT(3) dsym_714__CLASS_SOURCE_CIMPLEMENT; struct MELT_STRING_STRUCT(23) dstr_715__CLASS_SOURCE_CIMPLEMENT; struct MELT_OBJECT_STRUCT(3) dsym_716__CLASS_PROTOROUTINEOBJ; struct MELT_STRING_STRUCT(21) dstr_717__CLASS_PROTOROUTINEOBJ; struct MELT_STRING_STRUCT(45) dstr_718__MELT_translation_failed_; struct MELT_ROUTINE_STRUCT(0) drout_719__FATAL_COMPILE_ERROR; struct MELT_CLOSURE_STRUCT(0) dclo_720__FATAL_COMPILE_ERROR; struct MELT_ROUTINE_STRUCT(22) drout_721__COMPILE_LIST_SEXPR; struct MELT_CLOSURE_STRUCT(0) dclo_722__COMPILE_LIST_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_723__DEBUG_MORE; struct MELT_STRING_STRUCT(10) dstr_724__DEBUG_MORE; struct MELT_OBJECT_STRUCT(3) dsym_725__FRESH_ENV; struct MELT_STRING_STRUCT(9) dstr_726__FRESH_ENV; struct MELT_OBJECT_STRUCT(3) dsym_727__MACROmiENVIRONMENT; struct MELT_STRING_STRUCT(17) dstr_728__MACRO_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_729__BASEmiENVIRONMENT; struct MELT_STRING_STRUCT(16) dstr_730__BASE_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_731__CLASS_MODULE_CONTEXT; struct MELT_STRING_STRUCT(20) dstr_732__CLASS_MODULE_CONTEXT; struct MELT_OBJECT_STRUCT(3) dsym_733__DISCR_MAP_STRINGS; struct MELT_STRING_STRUCT(17) dstr_734__DISCR_MAP_STRINGS; struct MELT_ROUTINE_STRUCT(2) drout_735__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_736__CREATE_NORMCONTEXT; struct MELT_STRING_STRUCT(18) dstr_737__CREATE_NORMCONTEXT; struct MELT_OBJECT_STRUCT(3) dsym_738__MACROEXPAND_TOPLEVEL_LIST; struct MELT_STRING_STRUCT(25) dstr_739__MACROEXPAND_TOPLEVEL_LIS; struct MELT_OBJECT_STRUCT(3) dsym_740__MACROEXPAND_1; struct MELT_STRING_STRUCT(13) dstr_741__MACROEXPAND_1; struct MELT_OBJECT_STRUCT(3) dsym_742__COMPILE2OBJ_INITPROC; struct MELT_STRING_STRUCT(20) dstr_743__COMPILE2OBJ_INITPROC; struct MELT_OBJECT_STRUCT(3) dsym_744__CLASS_FIRST_MODULE_CONTEXT; struct MELT_STRING_STRUCT(26) dstr_745__CLASS_FIRST_MODULE_CONTE; struct MELT_OBJECT_STRUCT(8) dobj_746__CLASS_FIRST_MODULE_CONTEXT; struct MELT_STRING_STRUCT(26) dstr_747__CLASS_FIRST_MODULE_CONTE; struct MELT_MULTIPLE_STRUCT(4) dtup_748_syCLASS_FIRST_MODULE_CONTEXT; struct MELT_MULTIPLE_STRUCT(22) dtup_749_syCLASS_FIRST_MODULE_CONTEXT; struct MELT_ROUTINE_STRUCT(21) drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; struct MELT_CLOSURE_STRUCT(0) dclo_751__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_752__INITIAL_ENVIRONMENT; struct MELT_STRING_STRUCT(19) dstr_753__INITIAL_ENVIRONMENT; struct MELT_OBJECT_STRUCT(3) dsym_754__MACROmiFIRST; struct MELT_STRING_STRUCT(11) dstr_755__MACRO_FIRST; struct MELT_ROUTINE_STRUCT(1) drout_756__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_757__MELT_RUN_EXTENSION; struct MELT_STRING_STRUCT(18) dstr_758__MELT_RUN_EXTENSION; struct MELT_OBJECT_STRUCT(5) dobj_759__MELT_RUN_EXTENSION; struct MELT_MULTIPLE_STRUCT(7) dtup_760_syMELT_RUN_EXTENSION; struct MELT_MULTIPLE_STRUCT(3) dtup_761_syMELT_RUN_EXTENSION; struct MELT_OBJECT_STRUCT(3) dsym_762__BASENAME; struct MELT_STRING_STRUCT(8) dstr_763__BASENAME; struct MELT_OBJECT_STRUCT(2) dobj_764; struct MELT_OBJECT_STRUCT(3) dsym_765__ENV; struct MELT_STRING_STRUCT(3) dstr_766__ENV; struct MELT_OBJECT_STRUCT(2) dobj_767; struct MELT_OBJECT_STRUCT(3) dsym_768__LITVAL; struct MELT_STRING_STRUCT(6) dstr_769__LITVAL; struct MELT_OBJECT_STRUCT(2) dobj_770; struct MELT_STRING_STRUCT(70) dstr_771__melt_run_extension_; struct MELT_STRING_STRUCT(22) dstr_772__melt_ptr_t_; struct MELT_STRING_STRUCT(22) dstr_773__melt_ptr_t_; struct MELT_STRING_STRUCT(2) dstr_774__; struct MELT_STRING_STRUCT(18) dstr_775__MELT_RUN_EXTENSION; struct MELT_ROUTINE_STRUCT(26) drout_776__AUTOBOX_NORMAL_RETURN; struct MELT_CLOSURE_STRUCT(0) dclo_777__AUTOBOX_NORMAL_RETURN; struct MELT_OBJECT_STRUCT(3) dsym_778__CLONE_SYMBOL; struct MELT_STRING_STRUCT(12) dstr_779__CLONE_SYMBOL; struct MELT_OBJECT_STRUCT(3) dsym_780__RETAUTOBOXVAL; struct MELT_STRING_STRUCT(13) dstr_781__RETAUTOBOXVAL; struct MELT_OBJECT_STRUCT(3) dsym_782__CLASS_NREP_LOCSYMOCC; struct MELT_STRING_STRUCT(20) dstr_783__CLASS_NREP_LOCSYMOCC; struct MELT_OBJECT_STRUCT(3) dsym_784__CLASS_NREP_RETURN; struct MELT_STRING_STRUCT(17) dstr_785__CLASS_NREP_RETURN; struct MELT_OBJECT_STRUCT(3) dsym_786__CLASS_LET_BINDING; struct MELT_STRING_STRUCT(17) dstr_787__CLASS_LET_BINDING; struct MELT_OBJECT_STRUCT(3) dsym_788__LONGAUTOBOX; struct MELT_STRING_STRUCT(11) dstr_789__LONGAUTOBOX; struct MELT_OBJECT_STRUCT(3) dsym_790__CLASS_NREP_CHUNK; struct MELT_STRING_STRUCT(16) dstr_791__CLASS_NREP_CHUNK; struct MELT_OBJECT_STRUCT(3) dsym_792__AUTOBOXLONG; struct MELT_STRING_STRUCT(11) dstr_793__AUTOBOXLONG; struct MELT_OBJECT_STRUCT(3) dsym_794__CTYPE_CSTRING; struct MELT_STRING_STRUCT(13) dstr_795__CTYPE_CSTRING; struct MELT_OBJECT_STRUCT(3) dsym_796__STRINGAUTOBOX; struct MELT_STRING_STRUCT(13) dstr_797__STRINGAUTOBOX; struct MELT_OBJECT_STRUCT(3) dsym_798__AUTOBOXSTRING; struct MELT_STRING_STRUCT(13) dstr_799__AUTOBOXSTRING; struct MELT_OBJECT_STRUCT(3) dsym_800__AUTOBOXGTY; struct MELT_STRING_STRUCT(10) dstr_801__AUTOBOXGTY; struct MELT_ROUTINE_STRUCT(48) drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS; struct MELT_CLOSURE_STRUCT(0) dclo_803__TRANSLATE_RUN_MELT_EXPRESSIONS; struct MELT_ROUTINE_STRUCT(3) drout_804__LAMBDA_; struct MELT_OBJECT_STRUCT(3) dsym_805__MACROmiEXTENSION; struct MELT_STRING_STRUCT(15) dstr_806__MACRO_EXTENSION; struct MELT_OBJECT_STRUCT(3) dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT; struct MELT_STRING_STRUCT(31) dstr_808__CREATE_NORMAL_EXTENDING_; struct MELT_ROUTINE_STRUCT(5) drout_809__LAMBDA_; struct MELT_STRING_STRUCT(14) dstr_810__Bad_expression; struct MELT_STRING_STRUCT(14) dstr_811__No_expressions; struct MELT_STRING_STRUCT(27) dstr_812__runtime_invalid_expressi; struct MELT_ROUTINE_STRUCT(12) drout_813__LAMBDA_; struct MELT_STRING_STRUCT(29) dstr_814__runtime_macroexpansion_f; struct MELT_OBJECT_STRUCT(3) dsym_815__COMPILE2OBJ_INITEXTENDPROC; struct MELT_STRING_STRUCT(26) dstr_816__COMPILE2OBJ_INITEXTENDPR; struct MELT_STRING_STRUCT(34) dstr_817__runtime_translation_to_c; struct MELT_STRING_STRUCT(9) dstr_818__runextend; struct MELT_OBJECT_STRUCT(3) dsym_819__CLASS_LITERAL_VALUE; struct MELT_STRING_STRUCT(19) dstr_820__CLASS_LITERAL_VALUE; struct MELT_ROUTINE_STRUCT(25) drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; struct MELT_CLOSURE_STRUCT(0) dclo_822__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; struct MELT_ROUTINE_STRUCT(3) drout_823__LAMBDA_; struct MELT_STRING_STRUCT(34) dstr_824__runtime_translation_to_c; struct MELT_STRING_STRUCT(9) dstr_825__runextend; struct MELT_OBJECT_STRUCT(3) dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; struct MELT_STRING_STRUCT(47) dstr_827__MELT_REGISTER_TRANSLATOR; struct MELT_ROUTINE_STRUCT(9) drout_828__READ_MELT_EXPRESSIONS; struct MELT_CLOSURE_STRUCT(0) dclo_829__READ_MELT_EXPRESSIONS; struct MELT_ROUTINE_STRUCT(7) drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; struct MELT_CLOSURE_STRUCT(0) dclo_831__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; struct MELT_ROUTINE_STRUCT(8) drout_832__EVAL; struct MELT_CLOSURE_STRUCT(0) dclo_833__EVAL; struct MELT_OBJECT_STRUCT(3) dsym_834__MULTIPLE_TO_LIST; struct MELT_STRING_STRUCT(16) dstr_835__MULTIPLE_TO_LIST; struct MELT_ROUTINE_STRUCT(1) drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; struct MELT_CLOSURE_STRUCT(0) dclo_837__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; struct MELT_OBJECT_STRUCT(3) dsym_838__COMPILE_LIST_SEXPR; struct MELT_STRING_STRUCT(18) dstr_839__COMPILE_LIST_SEXPR; struct MELT_OBJECT_STRUCT(3) dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; struct MELT_STRING_STRUCT(34) dstr_841__COMPILE_FIRST_BOOTSTRAP_; struct MELT_OBJECT_STRUCT(3) dsym_842__EVAL; struct MELT_STRING_STRUCT(4) dstr_843__EVAL; struct MELT_OBJECT_STRUCT(3) dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; struct MELT_STRING_STRUCT(45) dstr_845__GENERATE_GPLV3PLUS_COPYR; struct MELT_OBJECT_STRUCT(3) dsym_846__GET_CODE_BUFFER_LIMIT; struct MELT_STRING_STRUCT(21) dstr_847__GET_CODE_BUFFER_LIMIT; struct MELT_OBJECT_STRUCT(3) dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; struct MELT_STRING_STRUCT(39) dstr_849__MELT_TRANSLATE_RUN_MACRO; struct MELT_OBJECT_STRUCT(3) dsym_850__PUT_CODE_BUFFER_LIMIT; struct MELT_STRING_STRUCT(21) dstr_851__PUT_CODE_BUFFER_LIMIT; struct MELT_OBJECT_STRUCT(3) dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS; struct MELT_STRING_STRUCT(30) dstr_853__TRANSLATE_RUN_MELT_EXPRE; struct MELT_OBJECT_STRUCT(3) dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; struct MELT_STRING_STRUCT(35) dstr_855__TRANSLATE_TO_CC_MODULE_M; struct MELT_OBJECT_STRUCT(3) dsym_856__CLASS_SECONDARY_C_FILE; struct MELT_STRING_STRUCT(22) dstr_857__CLASS_SECONDARY_C_FILE; struct MELT_OBJECT_STRUCT(3) dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES; struct MELT_STRING_STRUCT(34) dstr_859__TRANSLATE_TO_C_MODULE_ME; long spare_; } *meltcdat = NULL; dbgprintf ("start melt_initialize_module_meltdata_WARMELTmiOUTOBJ 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*/ /*initial routine fill*/ /*iniobj dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ /*uniqueobj*/ if (!/*_._VALDATA___V203*/ meltfptr[202]) /*_._VALDATA___V203*/ meltfptr[202] = (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___V204*/ meltfptr[203] = (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 ; /*iniobj dsym_3__BUFFER_LIMIT_CONT*/ /*uniqueobj*/ if (!/*_._VALDATA___V205*/ meltfptr[204]) /*_._VALDATA___V205*/ meltfptr[204] = (melt_ptr_t )&meltcdat->dsym_3__BUFFER_LIMIT_CONT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_3__BUFFER_LIMIT_CONT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_3__BUFFER_LIMIT_CONT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_3__BUFFER_LIMIT_CONT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_3__BUFFER_LIMIT_CONT.obj_hash = 1026196939; meltcdat->dsym_3__BUFFER_LIMIT_CONT.obj_len = 3; /*inistring dstr_4__BUFFER_LIMIT_CONT*/ /*_._VALSTR___V206*/ meltfptr[205] = (melt_ptr_t) &meltcdat->dstr_4__BUFFER_LIMIT_CONT; meltcdat->dstr_4__BUFFER_LIMIT_CONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_4__BUFFER_LIMIT_CONT.val, "BUFFER_LIMIT_CONT", sizeof (meltcdat->dstr_4__BUFFER_LIMIT_CONT.val)-1); meltcdat->dstr_4__BUFFER_LIMIT_CONT.val[17] = (char)0 ; meltcdat->dstr_4__BUFFER_LIMIT_CONT.slen = 17 ; /*iniobj dsym_5__CLASS_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V207*/ meltfptr[206]) /*_._VALDATA___V207*/ meltfptr[206] = (melt_ptr_t )&meltcdat->dsym_5__CLASS_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_5__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_5__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_5__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_5__CLASS_REFERENCE.obj_hash = 896623907; meltcdat->dsym_5__CLASS_REFERENCE.obj_len = 3; /*inistring dstr_6__CLASS_REFERENCE*/ /*_._VALSTR___V208*/ meltfptr[207] = (melt_ptr_t) &meltcdat->dstr_6__CLASS_REFERENCE; meltcdat->dstr_6__CLASS_REFERENCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_6__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (meltcdat->dstr_6__CLASS_REFERENCE.val)-1); meltcdat->dstr_6__CLASS_REFERENCE.val[15] = (char)0 ; meltcdat->dstr_6__CLASS_REFERENCE.slen = 15 ; MELT_LOCATION("warmelt-outobj.melt:41:/ iniobj"); /*iniobj dobj_7__BUFFER_LIMIT_CONT*/ /*_._VALDATA___V209*/ meltfptr[208] = (melt_ptr_t )&meltcdat->dobj_7__BUFFER_LIMIT_CONT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_7__BUFFER_LIMIT_CONT", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_7__BUFFER_LIMIT_CONT", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_7__BUFFER_LIMIT_CONT.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); meltcdat->dobj_7__BUFFER_LIMIT_CONT.obj_hash = 145371958; meltcdat->dobj_7__BUFFER_LIMIT_CONT.obj_len = 1; /*iniboxint dint_8__*/ /*_._VALBXINT___V210*/ meltfptr[209] = (melt_ptr_t) &meltcdat->dint_8__; meltcdat->dint_8__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_8__.val = 33554432; /*iniobj dsym_9__TRUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V211*/ meltfptr[210]) /*_._VALDATA___V211*/ meltfptr[210] = (melt_ptr_t )&meltcdat->dsym_9__TRUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_9__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_9__TRUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_9__TRUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_KEYWORD)))); meltcdat->dsym_9__TRUE.obj_hash = 576485513; meltcdat->dsym_9__TRUE.obj_len = 3; /*inistring dstr_10__TRUE*/ /*_._VALSTR___V212*/ meltfptr[211] = (melt_ptr_t) &meltcdat->dstr_10__TRUE; meltcdat->dstr_10__TRUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_10__TRUE.val, "TRUE", sizeof (meltcdat->dstr_10__TRUE.val)-1); meltcdat->dstr_10__TRUE.val[4] = (char)0 ; meltcdat->dstr_10__TRUE.slen = 4 ; /*inirout drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V213*/ meltfptr[212] = (melt_ptr_t) &meltcdat->drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT; meltcdat->drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT.routdescr, "DO_OUTPUT_DESCRIPTIVE_COMMENT @warmelt-outobj.melt:52", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT, meltrout_1_WARMELTmiOUTOBJ_DO_OUTPUT_DESCRIPTIVE_COMMENT); /*iniclos dclo_12__DO_OUTPUT_DESCRIPTIVE_COMMENT*/ /*_._VALCLO___V214*/ meltfptr[213] = (melt_ptr_t) &meltcdat->dclo_12__DO_OUTPUT_DESCRIPTIVE_COMMENT; meltcdat->dclo_12__DO_OUTPUT_DESCRIPTIVE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_12__DO_OUTPUT_DESCRIPTIVE_COMMENT.nbval = 0; /*iniobj dsym_13__MELT_ASSERT_FAILURE_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V215*/ meltfptr[214]) /*_._VALDATA___V215*/ meltfptr[214] = (melt_ptr_t )&meltcdat->dsym_13__MELT_ASSERT_FAILURE_FUN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_13__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_13__MELT_ASSERT_FAILURE_FUN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_13__MELT_ASSERT_FAILURE_FUN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_13__MELT_ASSERT_FAILURE_FUN.obj_hash = 215547874; meltcdat->dsym_13__MELT_ASSERT_FAILURE_FUN.obj_len = 3; /*inistring dstr_14__MELT_ASSERT_FAILURE_FUN*/ /*_._VALSTR___V216*/ meltfptr[215] = (melt_ptr_t) &meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN; meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN.val, "MELT_ASSERT_FAILURE_FUN", sizeof (meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN.val)-1); meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN.val[23] = (char)0 ; meltcdat->dstr_14__MELT_ASSERT_FAILURE_FUN.slen = 23 ; /*iniobj dsym_15__CLASS_NAMED*/ /*uniqueobj*/ if (!/*_._VALDATA___V217*/ meltfptr[216]) /*_._VALDATA___V217*/ meltfptr[216] = (melt_ptr_t )&meltcdat->dsym_15__CLASS_NAMED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_15__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_15__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_15__CLASS_NAMED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_15__CLASS_NAMED.obj_hash = 60407004; meltcdat->dsym_15__CLASS_NAMED.obj_len = 3; /*inistring dstr_16__CLASS_NAMED*/ /*_._VALSTR___V218*/ meltfptr[217] = (melt_ptr_t) &meltcdat->dstr_16__CLASS_NAMED; meltcdat->dstr_16__CLASS_NAMED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_16__CLASS_NAMED.val, "CLASS_NAMED", sizeof (meltcdat->dstr_16__CLASS_NAMED.val)-1); meltcdat->dstr_16__CLASS_NAMED.val[11] = (char)0 ; meltcdat->dstr_16__CLASS_NAMED.slen = 11 ; /*iniobj dsym_17__ADD2OUT*/ /*uniqueobj*/ if (!/*_._VALDATA___V219*/ meltfptr[218]) /*_._VALDATA___V219*/ meltfptr[218] = (melt_ptr_t )&meltcdat->dsym_17__ADD2OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_17__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_17__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_17__ADD2OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_17__ADD2OUT.obj_hash = 901325062; meltcdat->dsym_17__ADD2OUT.obj_len = 3; /*inistring dstr_18__ADD2OUT*/ /*_._VALSTR___V220*/ meltfptr[219] = (melt_ptr_t) &meltcdat->dstr_18__ADD2OUT; meltcdat->dstr_18__ADD2OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_18__ADD2OUT.val, "ADD2OUT", sizeof (meltcdat->dstr_18__ADD2OUT.val)-1); meltcdat->dstr_18__ADD2OUT.val[7] = (char)0 ; meltcdat->dstr_18__ADD2OUT.slen = 7 ; /*inirout drout_19__OUTPUT_DESCRIPTIVE_COMMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V221*/ meltfptr[220] = (melt_ptr_t) &meltcdat->drout_19__OUTPUT_DESCRIPTIVE_COMMENT; meltcdat->drout_19__OUTPUT_DESCRIPTIVE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_19__OUTPUT_DESCRIPTIVE_COMMENT.routdescr, "OUTPUT_DESCRIPTIVE_COMMENT @warmelt-outobj.melt:63", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_19__OUTPUT_DESCRIPTIVE_COMMENT.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_19__OUTPUT_DESCRIPTIVE_COMMENT, meltrout_2_WARMELTmiOUTOBJ_OUTPUT_DESCRIPTIVE_COMMENT); /*iniclos dclo_20__OUTPUT_DESCRIPTIVE_COMMENT*/ /*_._VALCLO___V228*/ meltfptr[227] = (melt_ptr_t) &meltcdat->dclo_20__OUTPUT_DESCRIPTIVE_COMMENT; meltcdat->dclo_20__OUTPUT_DESCRIPTIVE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MACRO_CLOSURE)))); meltcdat->dclo_20__OUTPUT_DESCRIPTIVE_COMMENT.nbval = 0; /*iniobj dsym_21__CLASS_LOCATED*/ /*uniqueobj*/ if (!/*_._VALDATA___V229*/ meltfptr[228]) /*_._VALDATA___V229*/ meltfptr[228] = (melt_ptr_t )&meltcdat->dsym_21__CLASS_LOCATED; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_21__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_21__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_21__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_21__CLASS_LOCATED.obj_hash = 979003; meltcdat->dsym_21__CLASS_LOCATED.obj_len = 3; /*inistring dstr_22__CLASS_LOCATED*/ /*_._VALSTR___V230*/ meltfptr[229] = (melt_ptr_t) &meltcdat->dstr_22__CLASS_LOCATED; meltcdat->dstr_22__CLASS_LOCATED.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_22__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (meltcdat->dstr_22__CLASS_LOCATED.val)-1); meltcdat->dstr_22__CLASS_LOCATED.val[13] = (char)0 ; meltcdat->dstr_22__CLASS_LOCATED.slen = 13 ; /*iniobj dsym_23__CLASS_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V231*/ meltfptr[230]) /*_._VALDATA___V231*/ meltfptr[230] = (melt_ptr_t )&meltcdat->dsym_23__CLASS_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_23__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_23__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_23__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_23__CLASS_SEXPR.obj_hash = 53411612; meltcdat->dsym_23__CLASS_SEXPR.obj_len = 3; /*inistring dstr_24__CLASS_SEXPR*/ /*_._VALSTR___V232*/ meltfptr[231] = (melt_ptr_t) &meltcdat->dstr_24__CLASS_SEXPR; meltcdat->dstr_24__CLASS_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_24__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (meltcdat->dstr_24__CLASS_SEXPR.val)-1); meltcdat->dstr_24__CLASS_SEXPR.val[11] = (char)0 ; meltcdat->dstr_24__CLASS_SEXPR.slen = 11 ; /*iniobj dsym_25__EXPAND_RESTLIST_AS_TUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V233*/ meltfptr[232]) /*_._VALDATA___V233*/ meltfptr[232] = (melt_ptr_t )&meltcdat->dsym_25__EXPAND_RESTLIST_AS_TUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_25__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_25__EXPAND_RESTLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_25__EXPAND_RESTLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_25__EXPAND_RESTLIST_AS_TUPLE.obj_hash = 738325133; meltcdat->dsym_25__EXPAND_RESTLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_26__EXPAND_RESTLIST_AS_TUPLE*/ /*_._VALSTR___V234*/ meltfptr[233] = (melt_ptr_t) &meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE; meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE.val, "EXPAND_RESTLIST_AS_TUPLE", sizeof (meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE.val)-1); meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE.val[24] = (char)0 ; meltcdat->dstr_26__EXPAND_RESTLIST_AS_TUPLE.slen = 24 ; /*iniobj dsym_27__ERROR_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V235*/ meltfptr[234]) /*_._VALDATA___V235*/ meltfptr[234] = (melt_ptr_t )&meltcdat->dsym_27__ERROR_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_27__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_27__ERROR_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_27__ERROR_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_27__ERROR_AT.obj_hash = 1019046282; meltcdat->dsym_27__ERROR_AT.obj_len = 3; /*inistring dstr_28__ERROR_AT*/ /*_._VALSTR___V236*/ meltfptr[235] = (melt_ptr_t) &meltcdat->dstr_28__ERROR_AT; meltcdat->dstr_28__ERROR_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_28__ERROR_AT.val, "ERROR_AT", sizeof (meltcdat->dstr_28__ERROR_AT.val)-1); meltcdat->dstr_28__ERROR_AT.val[8] = (char)0 ; meltcdat->dstr_28__ERROR_AT.slen = 8 ; /*iniobj dsym_29__MELT_MAKE_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V237*/ meltfptr[236]) /*_._VALDATA___V237*/ meltfptr[236] = (melt_ptr_t )&meltcdat->dsym_29__MELT_MAKE_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_29__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_29__MELT_MAKE_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_29__MELT_MAKE_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_29__MELT_MAKE_SEXPR.obj_hash = 383667794; meltcdat->dsym_29__MELT_MAKE_SEXPR.obj_len = 3; /*inistring dstr_30__MELT_MAKE_SEXPR*/ /*_._VALSTR___V238*/ meltfptr[237] = (melt_ptr_t) &meltcdat->dstr_30__MELT_MAKE_SEXPR; meltcdat->dstr_30__MELT_MAKE_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_30__MELT_MAKE_SEXPR.val, "MELT_MAKE_SEXPR", sizeof (meltcdat->dstr_30__MELT_MAKE_SEXPR.val)-1); meltcdat->dstr_30__MELT_MAKE_SEXPR.val[15] = (char)0 ; meltcdat->dstr_30__MELT_MAKE_SEXPR.slen = 15 ; /*iniobj dsym_31__HOOK_MELT_MAKE_LOCATION*/ /*uniqueobj*/ if (!/*_._VALDATA___V239*/ meltfptr[238]) /*_._VALDATA___V239*/ meltfptr[238] = (melt_ptr_t )&meltcdat->dsym_31__HOOK_MELT_MAKE_LOCATION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_31__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_31__HOOK_MELT_MAKE_LOCATION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_31__HOOK_MELT_MAKE_LOCATION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_31__HOOK_MELT_MAKE_LOCATION.obj_hash = 753739361; meltcdat->dsym_31__HOOK_MELT_MAKE_LOCATION.obj_len = 3; /*inistring dstr_32__HOOK_MELT_MAKE_LOCATION*/ /*_._VALSTR___V240*/ meltfptr[239] = (melt_ptr_t) &meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION; meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION.val, "HOOK_MELT_MAKE_LOCATION", sizeof (meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION.val)-1); meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION.val[23] = (char)0 ; meltcdat->dstr_32__HOOK_MELT_MAKE_LOCATION.slen = 23 ; /*iniobj dsym_33__IF*/ /*uniqueobj*/ if (!/*_._VALDATA___V222*/ meltfptr[221]) /*_._VALDATA___V222*/ meltfptr[221] = (melt_ptr_t )&meltcdat->dsym_33__IF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_33__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_33__IF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_33__IF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_33__IF.obj_hash = 117586816; meltcdat->dsym_33__IF.obj_len = 3; /*inistring dstr_34__IF*/ /*_._VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) &meltcdat->dstr_34__IF; meltcdat->dstr_34__IF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_34__IF.val, "IF", sizeof (meltcdat->dstr_34__IF.val)-1); meltcdat->dstr_34__IF.val[2] = (char)0 ; meltcdat->dstr_34__IF.slen = 2 ; /*iniobj dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V224*/ meltfptr[223]) /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t )&meltcdat->dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_35__FLAGVAL_OUTPUT_DESCR_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_35__FLAGVAL_OUTPUT_DESCR_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT.obj_hash = 430587642; meltcdat->dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT.obj_len = 3; /*inistring dstr_36__FLAGVAL_OUTPUT_DESCR_COM*/ /*_._VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) &meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM; meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM.val, "FLAGVAL_OUTPUT_DESCR_COMMENT", sizeof (meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM.val)-1); meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM.val[28] = (char)0 ; meltcdat->dstr_36__FLAGVAL_OUTPUT_DESCR_COM.slen = 28 ; /*iniobj dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V226*/ meltfptr[225]) /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t )&meltcdat->dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_37__DO_OUTPUT_DESCRIPTIVE_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_37__DO_OUTPUT_DESCRIPTIVE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT.obj_hash = 158045192; meltcdat->dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT.obj_len = 3; /*inistring dstr_38__DO_OUTPUT_DESCRIPTIVE_CO*/ /*_._VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) &meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO; meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO.val, "DO_OUTPUT_DESCRIPTIVE_COMMENT", sizeof (meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO.val)-1); meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO.val[29] = (char)0 ; meltcdat->dstr_38__DO_OUTPUT_DESCRIPTIVE_CO.slen = 29 ; /*inirout drout_39__GET_CODE_BUFFER_LIMIT*/ /*iniroutlocvar*/ /*_._VALROUT___V241*/ meltfptr[240] = (melt_ptr_t) &meltcdat->drout_39__GET_CODE_BUFFER_LIMIT; meltcdat->drout_39__GET_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_39__GET_CODE_BUFFER_LIMIT.routdescr, "GET_CODE_BUFFER_LIMIT @warmelt-outobj.melt:78", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_39__GET_CODE_BUFFER_LIMIT.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_39__GET_CODE_BUFFER_LIMIT, meltrout_3_WARMELTmiOUTOBJ_GET_CODE_BUFFER_LIMIT); /*iniclos dclo_40__GET_CODE_BUFFER_LIMIT*/ /*_._VALCLO___V242*/ meltfptr[241] = (melt_ptr_t) &meltcdat->dclo_40__GET_CODE_BUFFER_LIMIT; meltcdat->dclo_40__GET_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_40__GET_CODE_BUFFER_LIMIT.nbval = 0; /*inirout drout_41__PUT_CODE_BUFFER_LIMIT*/ /*iniroutlocvar*/ /*_._VALROUT___V243*/ meltfptr[242] = (melt_ptr_t) &meltcdat->drout_41__PUT_CODE_BUFFER_LIMIT; meltcdat->drout_41__PUT_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_41__PUT_CODE_BUFFER_LIMIT.routdescr, "PUT_CODE_BUFFER_LIMIT @warmelt-outobj.melt:83", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_41__PUT_CODE_BUFFER_LIMIT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_41__PUT_CODE_BUFFER_LIMIT, meltrout_4_WARMELTmiOUTOBJ_PUT_CODE_BUFFER_LIMIT); /*iniclos dclo_42__PUT_CODE_BUFFER_LIMIT*/ /*_._VALCLO___V244*/ meltfptr[243] = (melt_ptr_t) &meltcdat->dclo_42__PUT_CODE_BUFFER_LIMIT; meltcdat->dclo_42__PUT_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_42__PUT_CODE_BUFFER_LIMIT.nbval = 0; /*iniobj dsym_43__MELT_DEBUG_FUN*/ /*uniqueobj*/ if (!/*_._VALDATA___V245*/ meltfptr[244]) /*_._VALDATA___V245*/ meltfptr[244] = (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___V246*/ meltfptr[245] = (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__DISCR_CONSTANT_INTEGER*/ /*uniqueobj*/ if (!/*_._VALDATA___V247*/ meltfptr[246]) /*_._VALDATA___V247*/ meltfptr[246] = (melt_ptr_t )&meltcdat->dsym_45__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_45__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_45__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_45__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_45__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; meltcdat->dsym_45__DISCR_CONSTANT_INTEGER.obj_len = 3; /*inistring dstr_46__DISCR_CONSTANT_INTEGER*/ /*_._VALSTR___V248*/ meltfptr[247] = (melt_ptr_t) &meltcdat->dstr_46__DISCR_CONSTANT_INTEGER; meltcdat->dstr_46__DISCR_CONSTANT_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_46__DISCR_CONSTANT_INTEGER.val, "DISCR_CONSTANT_INTEGER", sizeof (meltcdat->dstr_46__DISCR_CONSTANT_INTEGER.val)-1); meltcdat->dstr_46__DISCR_CONSTANT_INTEGER.val[22] = (char)0 ; meltcdat->dstr_46__DISCR_CONSTANT_INTEGER.slen = 22 ; /*inirout drout_47__OUT_ENUMIX_MODVARBIND*/ /*iniroutlocvar*/ /*_._VALROUT___V249*/ meltfptr[248] = (melt_ptr_t) &meltcdat->drout_47__OUT_ENUMIX_MODVARBIND; meltcdat->drout_47__OUT_ENUMIX_MODVARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_47__OUT_ENUMIX_MODVARBIND.routdescr, "OUT_ENUMIX_MODVARBIND @warmelt-outobj.melt:107", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_47__OUT_ENUMIX_MODVARBIND.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_47__OUT_ENUMIX_MODVARBIND, meltrout_5_WARMELTmiOUTOBJ_OUT_ENUMIX_MODVARBIND); /*iniclos dclo_48__OUT_ENUMIX_MODVARBIND*/ /*_._VALCLO___V251*/ meltfptr[250] = (melt_ptr_t) &meltcdat->dclo_48__OUT_ENUMIX_MODVARBIND; meltcdat->dclo_48__OUT_ENUMIX_MODVARBIND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_48__OUT_ENUMIX_MODVARBIND.nbval = 0; /*iniobj dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V252*/ meltfptr[251]) /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t )&meltcdat->dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_49__CLASS_NORMAL_MODULE_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_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING.obj_hash = 273391604; meltcdat->dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING.obj_len = 3; /*inistring dstr_50__CLASS_NORMAL_MODULE_VARI*/ /*_._VALSTR___V253*/ meltfptr[252] = (melt_ptr_t) &meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI; meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI.val, "CLASS_NORMAL_MODULE_VARIABLE_BINDING", sizeof (meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI.val)-1); meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI.val[36] = (char)0 ; meltcdat->dstr_50__CLASS_NORMAL_MODULE_VARI.slen = 36 ; /*iniobj dsym_51__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V254*/ meltfptr[253]) /*_._VALDATA___V254*/ meltfptr[253] = (melt_ptr_t )&meltcdat->dsym_51__CLASS_ANY_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_51__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_51__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_51__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_51__CLASS_ANY_BINDING.obj_hash = 935770; meltcdat->dsym_51__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_52__CLASS_ANY_BINDING*/ /*_._VALSTR___V255*/ meltfptr[254] = (melt_ptr_t) &meltcdat->dstr_52__CLASS_ANY_BINDING; meltcdat->dstr_52__CLASS_ANY_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_52__CLASS_ANY_BINDING.val, "CLASS_ANY_BINDING", sizeof (meltcdat->dstr_52__CLASS_ANY_BINDING.val)-1); meltcdat->dstr_52__CLASS_ANY_BINDING.val[17] = (char)0 ; meltcdat->dstr_52__CLASS_ANY_BINDING.slen = 17 ; /*inirout drout_53__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V250*/ meltfptr[249] = (melt_ptr_t) &meltcdat->drout_53__LAMBDA_; meltcdat->drout_53__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_53__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:111", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_53__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_53__LAMBDA_, meltrout_6_WARMELTmiOUTOBJ_LAMBDA_cl1); /*iniobj dsym_54__CLASS_CLONED_SYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V256*/ meltfptr[255]) /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t )&meltcdat->dsym_54__CLASS_CLONED_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_54__CLASS_CLONED_SYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_54__CLASS_CLONED_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_54__CLASS_CLONED_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_54__CLASS_CLONED_SYMBOL.obj_hash = 933549728; meltcdat->dsym_54__CLASS_CLONED_SYMBOL.obj_len = 3; /*inistring dstr_55__CLASS_CLONED_SYMBOL*/ /*_._VALSTR___V257*/ meltfptr[256] = (melt_ptr_t) &meltcdat->dstr_55__CLASS_CLONED_SYMBOL; meltcdat->dstr_55__CLASS_CLONED_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_55__CLASS_CLONED_SYMBOL.val, "CLASS_CLONED_SYMBOL", sizeof (meltcdat->dstr_55__CLASS_CLONED_SYMBOL.val)-1); meltcdat->dstr_55__CLASS_CLONED_SYMBOL.val[19] = (char)0 ; meltcdat->dstr_55__CLASS_CLONED_SYMBOL.slen = 19 ; /*iniobj dsym_56__CLASS_SYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V258*/ meltfptr[257]) /*_._VALDATA___V258*/ meltfptr[257] = (melt_ptr_t )&meltcdat->dsym_56__CLASS_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_56__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_56__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_56__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_56__CLASS_SYMBOL.obj_hash = 53524182; meltcdat->dsym_56__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_57__CLASS_SYMBOL*/ /*_._VALSTR___V259*/ meltfptr[258] = (melt_ptr_t) &meltcdat->dstr_57__CLASS_SYMBOL; meltcdat->dstr_57__CLASS_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_57__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (meltcdat->dstr_57__CLASS_SYMBOL.val)-1); meltcdat->dstr_57__CLASS_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_57__CLASS_SYMBOL.slen = 12 ; /*inirout drout_58__INITIAL_CLASSY_FRAME_NAME*/ /*iniroutlocvar*/ /*_._VALROUT___V260*/ meltfptr[259] = (melt_ptr_t) &meltcdat->drout_58__INITIAL_CLASSY_FRAME_NAME; meltcdat->drout_58__INITIAL_CLASSY_FRAME_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_58__INITIAL_CLASSY_FRAME_NAME.routdescr, "INITIAL_CLASSY_FRAME_NAME @warmelt-outobj.melt:136", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_58__INITIAL_CLASSY_FRAME_NAME.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_58__INITIAL_CLASSY_FRAME_NAME, meltrout_7_WARMELTmiOUTOBJ_INITIAL_CLASSY_FRAME_NAME); /*iniclos dclo_59__INITIAL_CLASSY_FRAME_NAME*/ /*_._VALCLO___V262*/ meltfptr[261] = (melt_ptr_t) &meltcdat->dclo_59__INITIAL_CLASSY_FRAME_NAME; meltcdat->dclo_59__INITIAL_CLASSY_FRAME_NAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_59__INITIAL_CLASSY_FRAME_NAME.nbval = 0; /*iniobj dsym_60__CLASS_INITIALROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V263*/ meltfptr[262]) /*_._VALDATA___V263*/ meltfptr[262] = (melt_ptr_t )&meltcdat->dsym_60__CLASS_INITIALROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_60__CLASS_INITIALROUTINEOBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_60__CLASS_INITIALROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_60__CLASS_INITIALROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_60__CLASS_INITIALROUTINEOBJ.obj_hash = 149718249; meltcdat->dsym_60__CLASS_INITIALROUTINEOBJ.obj_len = 3; /*inistring dstr_61__CLASS_INITIALROUTINEOBJ*/ /*_._VALSTR___V264*/ meltfptr[263] = (melt_ptr_t) &meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ; meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ.val, "CLASS_INITIALROUTINEOBJ", sizeof (meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ.val)-1); meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ.val[23] = (char)0 ; meltcdat->dstr_61__CLASS_INITIALROUTINEOBJ.slen = 23 ; /*iniobj dsym_62__STRING4OUT*/ /*uniqueobj*/ if (!/*_._VALDATA___V265*/ meltfptr[264]) /*_._VALDATA___V265*/ meltfptr[264] = (melt_ptr_t )&meltcdat->dsym_62__STRING4OUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_62__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_62__STRING4OUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_62__STRING4OUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_62__STRING4OUT.obj_hash = 209944893; meltcdat->dsym_62__STRING4OUT.obj_len = 3; /*inistring dstr_63__STRING4OUT*/ /*_._VALSTR___V266*/ meltfptr[265] = (melt_ptr_t) &meltcdat->dstr_63__STRING4OUT; meltcdat->dstr_63__STRING4OUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_63__STRING4OUT.val, "STRING4OUT", sizeof (meltcdat->dstr_63__STRING4OUT.val)-1); meltcdat->dstr_63__STRING4OUT.val[10] = (char)0 ; meltcdat->dstr_63__STRING4OUT.slen = 10 ; /*iniobj dsym_64__DISCR_VERBATIM_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V267*/ meltfptr[266]) /*_._VALDATA___V267*/ meltfptr[266] = (melt_ptr_t )&meltcdat->dsym_64__DISCR_VERBATIM_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_64__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_64__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_64__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_64__DISCR_VERBATIM_STRING.obj_hash = 258402049; meltcdat->dsym_64__DISCR_VERBATIM_STRING.obj_len = 3; /*inistring dstr_65__DISCR_VERBATIM_STRING*/ /*_._VALSTR___V268*/ meltfptr[267] = (melt_ptr_t) &meltcdat->dstr_65__DISCR_VERBATIM_STRING; meltcdat->dstr_65__DISCR_VERBATIM_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_65__DISCR_VERBATIM_STRING.val, "DISCR_VERBATIM_STRING", sizeof (meltcdat->dstr_65__DISCR_VERBATIM_STRING.val)-1); meltcdat->dstr_65__DISCR_VERBATIM_STRING.val[21] = (char)0 ; meltcdat->dstr_65__DISCR_VERBATIM_STRING.slen = 21 ; /*inirout drout_66__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V261*/ meltfptr[260] = (melt_ptr_t) &meltcdat->drout_66__LAMBDA_; meltcdat->drout_66__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_66__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:140", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_66__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_66__LAMBDA_, meltrout_8_WARMELTmiOUTOBJ_LAMBDA_cl2); /*iniobj dsym_67__CLASS_ANY_MODULE_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V269*/ meltfptr[268]) /*_._VALDATA___V269*/ meltfptr[268] = (melt_ptr_t )&meltcdat->dsym_67__CLASS_ANY_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_67__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_67__CLASS_ANY_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_67__CLASS_ANY_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_67__CLASS_ANY_MODULE_CONTEXT.obj_hash = 153406004; meltcdat->dsym_67__CLASS_ANY_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_68__CLASS_ANY_MODULE_CONTEXT*/ /*_._VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) &meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT; meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT.val, "CLASS_ANY_MODULE_CONTEXT", sizeof (meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT.val)-1); meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT.val[24] = (char)0 ; meltcdat->dstr_68__CLASS_ANY_MODULE_CONTEXT.slen = 24 ; /*inirout drout_69__OUTDECLINIT_ROOT*/ /*iniroutlocvar*/ /*_._VALROUT___V271*/ meltfptr[270] = (melt_ptr_t) &meltcdat->drout_69__OUTDECLINIT_ROOT; meltcdat->drout_69__OUTDECLINIT_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_69__OUTDECLINIT_ROOT.routdescr, "OUTDECLINIT_ROOT @warmelt-outobj.melt:155", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_69__OUTDECLINIT_ROOT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_69__OUTDECLINIT_ROOT, meltrout_9_WARMELTmiOUTOBJ_OUTDECLINIT_ROOT); /*iniclos dclo_70__OUTDECLINIT_ROOT*/ /*_._VALCLO___V272*/ meltfptr[271] = (melt_ptr_t) &meltcdat->dclo_70__OUTDECLINIT_ROOT; meltcdat->dclo_70__OUTDECLINIT_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_70__OUTDECLINIT_ROOT.nbval = 0; /*iniobj dsym_71__INSTALL_METHOD*/ /*uniqueobj*/ if (!/*_._VALDATA___V273*/ meltfptr[272]) /*_._VALDATA___V273*/ meltfptr[272] = (melt_ptr_t )&meltcdat->dsym_71__INSTALL_METHOD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_71__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_71__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_71__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_71__INSTALL_METHOD.obj_hash = 680699224; meltcdat->dsym_71__INSTALL_METHOD.obj_len = 3; /*inistring dstr_72__INSTALL_METHOD*/ /*_._VALSTR___V274*/ meltfptr[273] = (melt_ptr_t) &meltcdat->dstr_72__INSTALL_METHOD; meltcdat->dstr_72__INSTALL_METHOD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_72__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (meltcdat->dstr_72__INSTALL_METHOD.val)-1); meltcdat->dstr_72__INSTALL_METHOD.val[14] = (char)0 ; meltcdat->dstr_72__INSTALL_METHOD.slen = 14 ; /*iniobj dsym_73__CLASS_ROOT*/ /*uniqueobj*/ if (!/*_._VALDATA___V275*/ meltfptr[274]) /*_._VALDATA___V275*/ meltfptr[274] = (melt_ptr_t )&meltcdat->dsym_73__CLASS_ROOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_73__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_73__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_73__CLASS_ROOT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_73__CLASS_ROOT.obj_hash = 60568825; meltcdat->dsym_73__CLASS_ROOT.obj_len = 3; /*inistring dstr_74__CLASS_ROOT*/ /*_._VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) &meltcdat->dstr_74__CLASS_ROOT; meltcdat->dstr_74__CLASS_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_74__CLASS_ROOT.val, "CLASS_ROOT", sizeof (meltcdat->dstr_74__CLASS_ROOT.val)-1); meltcdat->dstr_74__CLASS_ROOT.val[10] = (char)0 ; meltcdat->dstr_74__CLASS_ROOT.slen = 10 ; /*iniobj dsym_75__OUTPUT_C_DECLINIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V277*/ meltfptr[276]) /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t )&meltcdat->dsym_75__OUTPUT_C_DECLINIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_75__OUTPUT_C_DECLINIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_75__OUTPUT_C_DECLINIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_75__OUTPUT_C_DECLINIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_75__OUTPUT_C_DECLINIT.obj_hash = 1046624755; meltcdat->dsym_75__OUTPUT_C_DECLINIT.obj_len = 3; /*inistring dstr_76__OUTPUT_C_DECLINIT*/ /*_._VALSTR___V278*/ meltfptr[277] = (melt_ptr_t) &meltcdat->dstr_76__OUTPUT_C_DECLINIT; meltcdat->dstr_76__OUTPUT_C_DECLINIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_76__OUTPUT_C_DECLINIT.val, "OUTPUT_C_DECLINIT", sizeof (meltcdat->dstr_76__OUTPUT_C_DECLINIT.val)-1); meltcdat->dstr_76__OUTPUT_C_DECLINIT.val[17] = (char)0 ; meltcdat->dstr_76__OUTPUT_C_DECLINIT.slen = 17 ; /*inirout drout_77__OUTPUCOD_OBJINIELEM*/ /*iniroutlocvar*/ /*_._VALROUT___V279*/ meltfptr[278] = (melt_ptr_t) &meltcdat->drout_77__OUTPUCOD_OBJINIELEM; meltcdat->drout_77__OUTPUCOD_OBJINIELEM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_77__OUTPUCOD_OBJINIELEM.routdescr, "OUTPUCOD_OBJINIELEM @warmelt-outobj.melt:166", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_77__OUTPUCOD_OBJINIELEM.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_77__OUTPUCOD_OBJINIELEM, meltrout_10_WARMELTmiOUTOBJ_OUTPUCOD_OBJINIELEM); /*iniclos dclo_78__OUTPUCOD_OBJINIELEM*/ /*_._VALCLO___V280*/ meltfptr[279] = (melt_ptr_t) &meltcdat->dclo_78__OUTPUCOD_OBJINIELEM; meltcdat->dclo_78__OUTPUCOD_OBJINIELEM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_78__OUTPUCOD_OBJINIELEM.nbval = 0; /*iniobj dsym_79__CLASS_OBJINITELEM*/ /*uniqueobj*/ if (!/*_._VALDATA___V281*/ meltfptr[280]) /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t )&meltcdat->dsym_79__CLASS_OBJINITELEM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_79__CLASS_OBJINITELEM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_79__CLASS_OBJINITELEM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_79__CLASS_OBJINITELEM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_79__CLASS_OBJINITELEM.obj_hash = 129631203; meltcdat->dsym_79__CLASS_OBJINITELEM.obj_len = 3; /*inistring dstr_80__CLASS_OBJINITELEM*/ /*_._VALSTR___V282*/ meltfptr[281] = (melt_ptr_t) &meltcdat->dstr_80__CLASS_OBJINITELEM; meltcdat->dstr_80__CLASS_OBJINITELEM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_80__CLASS_OBJINITELEM.val, "CLASS_OBJINITELEM", sizeof (meltcdat->dstr_80__CLASS_OBJINITELEM.val)-1); meltcdat->dstr_80__CLASS_OBJINITELEM.val[17] = (char)0 ; meltcdat->dstr_80__CLASS_OBJINITELEM.slen = 17 ; /*iniobj dsym_81__OUTPUT_C_CODE*/ /*uniqueobj*/ if (!/*_._VALDATA___V283*/ meltfptr[282]) /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t )&meltcdat->dsym_81__OUTPUT_C_CODE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_81__OUTPUT_C_CODE", melt_magic_discr ((melt_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__OUTPUT_C_CODE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_81__OUTPUT_C_CODE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_81__OUTPUT_C_CODE.obj_hash = 137415526; meltcdat->dsym_81__OUTPUT_C_CODE.obj_len = 3; /*inistring dstr_82__OUTPUT_C_CODE*/ /*_._VALSTR___V284*/ meltfptr[283] = (melt_ptr_t) &meltcdat->dstr_82__OUTPUT_C_CODE; meltcdat->dstr_82__OUTPUT_C_CODE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_82__OUTPUT_C_CODE.val, "OUTPUT_C_CODE", sizeof (meltcdat->dstr_82__OUTPUT_C_CODE.val)-1); meltcdat->dstr_82__OUTPUT_C_CODE.val[13] = (char)0 ; meltcdat->dstr_82__OUTPUT_C_CODE.slen = 13 ; /*inirout drout_83__OUTCINITFILL_ROOT*/ /*iniroutlocvar*/ /*_._VALROUT___V285*/ meltfptr[284] = (melt_ptr_t) &meltcdat->drout_83__OUTCINITFILL_ROOT; meltcdat->drout_83__OUTCINITFILL_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_83__OUTCINITFILL_ROOT.routdescr, "OUTCINITFILL_ROOT @warmelt-outobj.melt:190", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_83__OUTCINITFILL_ROOT.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_83__OUTCINITFILL_ROOT, meltrout_11_WARMELTmiOUTOBJ_OUTCINITFILL_ROOT); /*iniclos dclo_84__OUTCINITFILL_ROOT*/ /*_._VALCLO___V286*/ meltfptr[285] = (melt_ptr_t) &meltcdat->dclo_84__OUTCINITFILL_ROOT; meltcdat->dclo_84__OUTCINITFILL_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_84__OUTCINITFILL_ROOT.nbval = 0; /*iniobj dsym_85__OUTPUT_C_INITIAL_FILL*/ /*uniqueobj*/ if (!/*_._VALDATA___V287*/ meltfptr[286]) /*_._VALDATA___V287*/ meltfptr[286] = (melt_ptr_t )&meltcdat->dsym_85__OUTPUT_C_INITIAL_FILL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_85__OUTPUT_C_INITIAL_FILL", melt_magic_discr ((melt_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__OUTPUT_C_INITIAL_FILL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_85__OUTPUT_C_INITIAL_FILL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_85__OUTPUT_C_INITIAL_FILL.obj_hash = 494706160; meltcdat->dsym_85__OUTPUT_C_INITIAL_FILL.obj_len = 3; /*inistring dstr_86__OUTPUT_C_INITIAL_FILL*/ /*_._VALSTR___V288*/ meltfptr[287] = (melt_ptr_t) &meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL; meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL.val, "OUTPUT_C_INITIAL_FILL", sizeof (meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL.val)-1); meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL.val[21] = (char)0 ; meltcdat->dstr_86__OUTPUT_C_INITIAL_FILL.slen = 21 ; /*inirout drout_87__OUTCINITPREDEF_ROOT*/ /*iniroutlocvar*/ /*_._VALROUT___V289*/ meltfptr[288] = (melt_ptr_t) &meltcdat->drout_87__OUTCINITPREDEF_ROOT; meltcdat->drout_87__OUTCINITPREDEF_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_87__OUTCINITPREDEF_ROOT.routdescr, "OUTCINITPREDEF_ROOT @warmelt-outobj.melt:198", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_87__OUTCINITPREDEF_ROOT.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_87__OUTCINITPREDEF_ROOT, meltrout_12_WARMELTmiOUTOBJ_OUTCINITPREDEF_ROOT); /*iniclos dclo_88__OUTCINITPREDEF_ROOT*/ /*_._VALCLO___V290*/ meltfptr[289] = (melt_ptr_t) &meltcdat->dclo_88__OUTCINITPREDEF_ROOT; meltcdat->dclo_88__OUTCINITPREDEF_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_88__OUTCINITPREDEF_ROOT.nbval = 0; /*iniobj dsym_89__OUTPUT_C_INITIAL_PREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V291*/ meltfptr[290]) /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t )&meltcdat->dsym_89__OUTPUT_C_INITIAL_PREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_89__OUTPUT_C_INITIAL_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_89__OUTPUT_C_INITIAL_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_89__OUTPUT_C_INITIAL_PREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_89__OUTPUT_C_INITIAL_PREDEF.obj_hash = 431855229; meltcdat->dsym_89__OUTPUT_C_INITIAL_PREDEF.obj_len = 3; /*inistring dstr_90__OUTPUT_C_INITIAL_PREDEF*/ /*_._VALSTR___V292*/ meltfptr[291] = (melt_ptr_t) &meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF; meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF.val, "OUTPUT_C_INITIAL_PREDEF", sizeof (meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF.val)-1); meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF.val[23] = (char)0 ; meltcdat->dstr_90__OUTPUT_C_INITIAL_PREDEF.slen = 23 ; /*inirout drout_91__OUTPUT_PREDEF*/ /*iniroutlocvar*/ /*_._VALROUT___V293*/ meltfptr[292] = (melt_ptr_t) &meltcdat->drout_91__OUTPUT_PREDEF; meltcdat->drout_91__OUTPUT_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_91__OUTPUT_PREDEF.routdescr, "OUTPUT_PREDEF @warmelt-outobj.melt:205", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_91__OUTPUT_PREDEF.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_91__OUTPUT_PREDEF, meltrout_13_WARMELTmiOUTOBJ_OUTPUT_PREDEF); /*iniclos dclo_92__OUTPUT_PREDEF*/ /*_._VALCLO___V294*/ meltfptr[293] = (melt_ptr_t) &meltcdat->dclo_92__OUTPUT_PREDEF; meltcdat->dclo_92__OUTPUT_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_92__OUTPUT_PREDEF.nbval = 0; /*inirout drout_93__OUTPUCOD_PREDEF*/ /*iniroutlocvar*/ /*_._VALROUT___V295*/ meltfptr[294] = (melt_ptr_t) &meltcdat->drout_93__OUTPUCOD_PREDEF; meltcdat->drout_93__OUTPUCOD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_93__OUTPUCOD_PREDEF.routdescr, "OUTPUCOD_PREDEF @warmelt-outobj.melt:231", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_93__OUTPUCOD_PREDEF.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_93__OUTPUCOD_PREDEF, meltrout_14_WARMELTmiOUTOBJ_OUTPUCOD_PREDEF); /*iniclos dclo_94__OUTPUCOD_PREDEF*/ /*_._VALCLO___V296*/ meltfptr[295] = (melt_ptr_t) &meltcdat->dclo_94__OUTPUCOD_PREDEF; meltcdat->dclo_94__OUTPUCOD_PREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_94__OUTPUCOD_PREDEF.nbval = 0; /*iniobj dsym_95__CLASS_OBJPREDEF*/ /*uniqueobj*/ if (!/*_._VALDATA___V297*/ meltfptr[296]) /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t )&meltcdat->dsym_95__CLASS_OBJPREDEF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_95__CLASS_OBJPREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_95__CLASS_OBJPREDEF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_95__CLASS_OBJPREDEF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_95__CLASS_OBJPREDEF.obj_hash = 416230155; meltcdat->dsym_95__CLASS_OBJPREDEF.obj_len = 3; /*inistring dstr_96__CLASS_OBJPREDEF*/ /*_._VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) &meltcdat->dstr_96__CLASS_OBJPREDEF; meltcdat->dstr_96__CLASS_OBJPREDEF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_96__CLASS_OBJPREDEF.val, "CLASS_OBJPREDEF", sizeof (meltcdat->dstr_96__CLASS_OBJPREDEF.val)-1); meltcdat->dstr_96__CLASS_OBJPREDEF.val[15] = (char)0 ; meltcdat->dstr_96__CLASS_OBJPREDEF.slen = 15 ; /*inirout drout_97__OUTPUCOD_NIL*/ /*iniroutlocvar*/ /*_._VALROUT___V299*/ meltfptr[298] = (melt_ptr_t) &meltcdat->drout_97__OUTPUCOD_NIL; meltcdat->drout_97__OUTPUCOD_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_97__OUTPUCOD_NIL.routdescr, "OUTPUCOD_NIL @warmelt-outobj.melt:239", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_97__OUTPUCOD_NIL.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_97__OUTPUCOD_NIL, meltrout_15_WARMELTmiOUTOBJ_OUTPUCOD_NIL); /*iniclos dclo_98__OUTPUCOD_NIL*/ /*_._VALCLO___V300*/ meltfptr[299] = (melt_ptr_t) &meltcdat->dclo_98__OUTPUCOD_NIL; meltcdat->dclo_98__OUTPUCOD_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_98__OUTPUCOD_NIL.nbval = 0; /*iniobj dsym_99__CLASS_OBJNIL*/ /*uniqueobj*/ if (!/*_._VALDATA___V301*/ meltfptr[300]) /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t )&meltcdat->dsym_99__CLASS_OBJNIL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_99__CLASS_OBJNIL", melt_magic_discr ((melt_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__CLASS_OBJNIL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_99__CLASS_OBJNIL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_99__CLASS_OBJNIL.obj_hash = 621637507; meltcdat->dsym_99__CLASS_OBJNIL.obj_len = 3; /*inistring dstr_100__CLASS_OBJNIL*/ /*_._VALSTR___V302*/ meltfptr[301] = (melt_ptr_t) &meltcdat->dstr_100__CLASS_OBJNIL; meltcdat->dstr_100__CLASS_OBJNIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_100__CLASS_OBJNIL.val, "CLASS_OBJNIL", sizeof (meltcdat->dstr_100__CLASS_OBJNIL.val)-1); meltcdat->dstr_100__CLASS_OBJNIL.val[12] = (char)0 ; meltcdat->dstr_100__CLASS_OBJNIL.slen = 12 ; /*inirout drout_101__OUTPUCOD_OBJEXPANDPUREVAL*/ /*iniroutlocvar*/ /*_._VALROUT___V303*/ meltfptr[302] = (melt_ptr_t) &meltcdat->drout_101__OUTPUCOD_OBJEXPANDPUREVAL; meltcdat->drout_101__OUTPUCOD_OBJEXPANDPUREVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_101__OUTPUCOD_OBJEXPANDPUREVAL.routdescr, "OUTPUCOD_OBJEXPANDPUREVAL @warmelt-outobj.melt:245", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_101__OUTPUCOD_OBJEXPANDPUREVAL.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_101__OUTPUCOD_OBJEXPANDPUREVAL, meltrout_16_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPANDPUREVAL); /*iniclos dclo_102__OUTPUCOD_OBJEXPANDPUREVAL*/ /*_._VALCLO___V310*/ meltfptr[309] = (melt_ptr_t) &meltcdat->dclo_102__OUTPUCOD_OBJEXPANDPUREVAL; meltcdat->dclo_102__OUTPUCOD_OBJEXPANDPUREVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_102__OUTPUCOD_OBJEXPANDPUREVAL.nbval = 0; /*iniobj dsym_103__CLASS_OBJEXPANDPUREVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V311*/ meltfptr[310]) /*_._VALDATA___V311*/ meltfptr[310] = (melt_ptr_t )&meltcdat->dsym_103__CLASS_OBJEXPANDPUREVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_103__CLASS_OBJEXPANDPUREVAL", melt_magic_discr ((melt_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__CLASS_OBJEXPANDPUREVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_103__CLASS_OBJEXPANDPUREVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_103__CLASS_OBJEXPANDPUREVAL.obj_hash = 243006452; meltcdat->dsym_103__CLASS_OBJEXPANDPUREVAL.obj_len = 3; /*inistring dstr_104__CLASS_OBJEXPANDPUREVAL*/ /*_._VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) &meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL; meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL.val, "CLASS_OBJEXPANDPUREVAL", sizeof (meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL.val)-1); meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL.val[22] = (char)0 ; meltcdat->dstr_104__CLASS_OBJEXPANDPUREVAL.slen = 22 ; /*iniobj dsym_105__CLASS_OBJVALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V313*/ meltfptr[312]) /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t )&meltcdat->dsym_105__CLASS_OBJVALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_105__CLASS_OBJVALUE", melt_magic_discr ((melt_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__CLASS_OBJVALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_105__CLASS_OBJVALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_105__CLASS_OBJVALUE.obj_hash = 1057853242; meltcdat->dsym_105__CLASS_OBJVALUE.obj_len = 3; /*inistring dstr_106__CLASS_OBJVALUE*/ /*_._VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) &meltcdat->dstr_106__CLASS_OBJVALUE; meltcdat->dstr_106__CLASS_OBJVALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_106__CLASS_OBJVALUE.val, "CLASS_OBJVALUE", sizeof (meltcdat->dstr_106__CLASS_OBJVALUE.val)-1); meltcdat->dstr_106__CLASS_OBJVALUE.val[14] = (char)0 ; meltcdat->dstr_106__CLASS_OBJVALUE.slen = 14 ; /*iniobj dsym_107__CLASS_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V315*/ meltfptr[314]) /*_._VALDATA___V315*/ meltfptr[314] = (melt_ptr_t )&meltcdat->dsym_107__CLASS_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_107__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_107__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_107__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_107__CLASS_CTYPE.obj_hash = 78610803; meltcdat->dsym_107__CLASS_CTYPE.obj_len = 3; /*inistring dstr_108__CLASS_CTYPE*/ /*_._VALSTR___V316*/ meltfptr[315] = (melt_ptr_t) &meltcdat->dstr_108__CLASS_CTYPE; meltcdat->dstr_108__CLASS_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_108__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (meltcdat->dstr_108__CLASS_CTYPE.val)-1); meltcdat->dstr_108__CLASS_CTYPE.val[11] = (char)0 ; meltcdat->dstr_108__CLASS_CTYPE.slen = 11 ; /*iniobj dsym_109__CTYPE_VOID*/ /*uniqueobj*/ if (!/*_._VALDATA___V317*/ meltfptr[316]) /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t )&meltcdat->dsym_109__CTYPE_VOID; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_109__CTYPE_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__CTYPE_VOID", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_109__CTYPE_VOID.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_109__CTYPE_VOID.obj_hash = 94242002; meltcdat->dsym_109__CTYPE_VOID.obj_len = 3; /*inistring dstr_110__CTYPE_VOID*/ /*_._VALSTR___V318*/ meltfptr[317] = (melt_ptr_t) &meltcdat->dstr_110__CTYPE_VOID; meltcdat->dstr_110__CTYPE_VOID.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_110__CTYPE_VOID.val, "CTYPE_VOID", sizeof (meltcdat->dstr_110__CTYPE_VOID.val)-1); meltcdat->dstr_110__CTYPE_VOID.val[10] = (char)0 ; meltcdat->dstr_110__CTYPE_VOID.slen = 10 ; /*inirout drout_111__OUTPUCOD_OBJHOOKNTH*/ /*iniroutlocvar*/ /*_._VALROUT___V319*/ meltfptr[318] = (melt_ptr_t) &meltcdat->drout_111__OUTPUCOD_OBJHOOKNTH; meltcdat->drout_111__OUTPUCOD_OBJHOOKNTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_111__OUTPUCOD_OBJHOOKNTH.routdescr, "OUTPUCOD_OBJHOOKNTH @warmelt-outobj.melt:334", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_111__OUTPUCOD_OBJHOOKNTH.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_111__OUTPUCOD_OBJHOOKNTH, meltrout_17_WARMELTmiOUTOBJ_OUTPUCOD_OBJHOOKNTH); /*iniclos dclo_112__OUTPUCOD_OBJHOOKNTH*/ /*_._VALCLO___V320*/ meltfptr[319] = (melt_ptr_t) &meltcdat->dclo_112__OUTPUCOD_OBJHOOKNTH; meltcdat->dclo_112__OUTPUCOD_OBJHOOKNTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_112__OUTPUCOD_OBJHOOKNTH.nbval = 0; /*iniobj dsym_113__CLASS_OBJHOOKNTH*/ /*uniqueobj*/ if (!/*_._VALDATA___V321*/ meltfptr[320]) /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t )&meltcdat->dsym_113__CLASS_OBJHOOKNTH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_113__CLASS_OBJHOOKNTH", melt_magic_discr ((melt_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__CLASS_OBJHOOKNTH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_113__CLASS_OBJHOOKNTH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_113__CLASS_OBJHOOKNTH.obj_hash = 926721841; meltcdat->dsym_113__CLASS_OBJHOOKNTH.obj_len = 3; /*inistring dstr_114__CLASS_OBJHOOKNTH*/ /*_._VALSTR___V322*/ meltfptr[321] = (melt_ptr_t) &meltcdat->dstr_114__CLASS_OBJHOOKNTH; meltcdat->dstr_114__CLASS_OBJHOOKNTH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_114__CLASS_OBJHOOKNTH.val, "CLASS_OBJHOOKNTH", sizeof (meltcdat->dstr_114__CLASS_OBJHOOKNTH.val)-1); meltcdat->dstr_114__CLASS_OBJHOOKNTH.val[16] = (char)0 ; meltcdat->dstr_114__CLASS_OBJHOOKNTH.slen = 16 ; /*iniobj dsym_115__CTYPE_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V323*/ meltfptr[322]) /*_._VALDATA___V323*/ meltfptr[322] = (melt_ptr_t )&meltcdat->dsym_115__CTYPE_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_115__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_115__CTYPE_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_115__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_115__CTYPE_VALUE.obj_hash = 11062864; meltcdat->dsym_115__CTYPE_VALUE.obj_len = 3; /*inistring dstr_116__CTYPE_VALUE*/ /*_._VALSTR___V324*/ meltfptr[323] = (melt_ptr_t) &meltcdat->dstr_116__CTYPE_VALUE; meltcdat->dstr_116__CTYPE_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_116__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (meltcdat->dstr_116__CTYPE_VALUE.val)-1); meltcdat->dstr_116__CTYPE_VALUE.val[11] = (char)0 ; meltcdat->dstr_116__CTYPE_VALUE.slen = 11 ; /*iniobj dsym_117__CLASS_OBJLOCV*/ /*uniqueobj*/ if (!/*_._VALDATA___V325*/ meltfptr[324]) /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t )&meltcdat->dsym_117__CLASS_OBJLOCV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_117__CLASS_OBJLOCV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_117__CLASS_OBJLOCV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_117__CLASS_OBJLOCV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_117__CLASS_OBJLOCV.obj_hash = 259875989; meltcdat->dsym_117__CLASS_OBJLOCV.obj_len = 3; /*inistring dstr_118__CLASS_OBJLOCV*/ /*_._VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) &meltcdat->dstr_118__CLASS_OBJLOCV; meltcdat->dstr_118__CLASS_OBJLOCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_118__CLASS_OBJLOCV.val, "CLASS_OBJLOCV", sizeof (meltcdat->dstr_118__CLASS_OBJLOCV.val)-1); meltcdat->dstr_118__CLASS_OBJLOCV.val[13] = (char)0 ; meltcdat->dstr_118__CLASS_OBJLOCV.slen = 13 ; /*inirout drout_119__OUTDECLINIT_OBJINITOBJECT*/ /*iniroutlocvar*/ /*_._VALROUT___V327*/ meltfptr[326] = (melt_ptr_t) &meltcdat->drout_119__OUTDECLINIT_OBJINITOBJECT; meltcdat->drout_119__OUTDECLINIT_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_119__OUTDECLINIT_OBJINITOBJECT.routdescr, "OUTDECLINIT_OBJINITOBJECT @warmelt-outobj.melt:367", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_119__OUTDECLINIT_OBJINITOBJECT.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_119__OUTDECLINIT_OBJINITOBJECT, meltrout_18_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITOBJECT); /*iniclos dclo_120__OUTDECLINIT_OBJINITOBJECT*/ /*_._VALCLO___V328*/ meltfptr[327] = (melt_ptr_t) &meltcdat->dclo_120__OUTDECLINIT_OBJINITOBJECT; meltcdat->dclo_120__OUTDECLINIT_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_120__OUTDECLINIT_OBJINITOBJECT.nbval = 0; /*iniobj dsym_121__CLASS_OBJINITOBJECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V329*/ meltfptr[328]) /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t )&meltcdat->dsym_121__CLASS_OBJINITOBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_121__CLASS_OBJINITOBJECT", melt_magic_discr ((melt_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__CLASS_OBJINITOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_121__CLASS_OBJINITOBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_121__CLASS_OBJINITOBJECT.obj_hash = 532827978; meltcdat->dsym_121__CLASS_OBJINITOBJECT.obj_len = 3; /*inistring dstr_122__CLASS_OBJINITOBJECT*/ /*_._VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) &meltcdat->dstr_122__CLASS_OBJINITOBJECT; meltcdat->dstr_122__CLASS_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_122__CLASS_OBJINITOBJECT.val, "CLASS_OBJINITOBJECT", sizeof (meltcdat->dstr_122__CLASS_OBJINITOBJECT.val)-1); meltcdat->dstr_122__CLASS_OBJINITOBJECT.val[19] = (char)0 ; meltcdat->dstr_122__CLASS_OBJINITOBJECT.slen = 19 ; /*inirout drout_123__OUTCINITFILL_OBJINITOBJECT*/ /*iniroutlocvar*/ /*_._VALROUT___V331*/ meltfptr[330] = (melt_ptr_t) &meltcdat->drout_123__OUTCINITFILL_OBJINITOBJECT; meltcdat->drout_123__OUTCINITFILL_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_123__OUTCINITFILL_OBJINITOBJECT.routdescr, "OUTCINITFILL_OBJINITOBJECT @warmelt-outobj.melt:379", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_123__OUTCINITFILL_OBJINITOBJECT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_123__OUTCINITFILL_OBJINITOBJECT, meltrout_19_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITOBJECT); /*iniclos dclo_124__OUTCINITFILL_OBJINITOBJECT*/ /*_._VALCLO___V332*/ meltfptr[331] = (melt_ptr_t) &meltcdat->dclo_124__OUTCINITFILL_OBJINITOBJECT; meltcdat->dclo_124__OUTCINITFILL_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_124__OUTCINITFILL_OBJINITOBJECT.nbval = 0; /*iniobj dsym_125__CLASS_NREP_DATAINSTANCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V333*/ meltfptr[332]) /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t )&meltcdat->dsym_125__CLASS_NREP_DATAINSTANCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_125__CLASS_NREP_DATAINSTANCE", melt_magic_discr ((melt_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__CLASS_NREP_DATAINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_125__CLASS_NREP_DATAINSTANCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_125__CLASS_NREP_DATAINSTANCE.obj_hash = 475932459; meltcdat->dsym_125__CLASS_NREP_DATAINSTANCE.obj_len = 3; /*inistring dstr_126__CLASS_NREP_DATAINSTANCE*/ /*_._VALSTR___V334*/ meltfptr[333] = (melt_ptr_t) &meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE; meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE.val, "CLASS_NREP_DATAINSTANCE", sizeof (meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE.val)-1); meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE.val[23] = (char)0 ; meltcdat->dstr_126__CLASS_NREP_DATAINSTANCE.slen = 23 ; /*iniobj dsym_127__CLASS_CLASS*/ /*uniqueobj*/ if (!/*_._VALDATA___V335*/ meltfptr[334]) /*_._VALDATA___V335*/ meltfptr[334] = (melt_ptr_t )&meltcdat->dsym_127__CLASS_CLASS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_127__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_127__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_127__CLASS_CLASS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_127__CLASS_CLASS.obj_hash = 60141292; meltcdat->dsym_127__CLASS_CLASS.obj_len = 3; /*inistring dstr_128__CLASS_CLASS*/ /*_._VALSTR___V336*/ meltfptr[335] = (melt_ptr_t) &meltcdat->dstr_128__CLASS_CLASS; meltcdat->dstr_128__CLASS_CLASS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_128__CLASS_CLASS.val, "CLASS_CLASS", sizeof (meltcdat->dstr_128__CLASS_CLASS.val)-1); meltcdat->dstr_128__CLASS_CLASS.val[11] = (char)0 ; meltcdat->dstr_128__CLASS_CLASS.slen = 11 ; /*iniobj dsym_129__CLASS_OBJINITUNIQUEOBJECT*/ /*uniqueobj*/ if (!/*_._VALDATA___V337*/ meltfptr[336]) /*_._VALDATA___V337*/ meltfptr[336] = (melt_ptr_t )&meltcdat->dsym_129__CLASS_OBJINITUNIQUEOBJECT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_129__CLASS_OBJINITUNIQUEOBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_129__CLASS_OBJINITUNIQUEOBJECT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_129__CLASS_OBJINITUNIQUEOBJECT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_129__CLASS_OBJINITUNIQUEOBJECT.obj_hash = 549769452; meltcdat->dsym_129__CLASS_OBJINITUNIQUEOBJECT.obj_len = 3; /*inistring dstr_130__CLASS_OBJINITUNIQUEOBJEC*/ /*_._VALSTR___V338*/ meltfptr[337] = (melt_ptr_t) &meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC; meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC.val, "CLASS_OBJINITUNIQUEOBJECT", sizeof (meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC.val)-1); meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC.val[25] = (char)0 ; meltcdat->dstr_130__CLASS_OBJINITUNIQUEOBJEC.slen = 25 ; /*inirout drout_131__OUTCINITPREDEF_OBJINITOBJECT*/ /*iniroutlocvar*/ /*_._VALROUT___V339*/ meltfptr[338] = (melt_ptr_t) &meltcdat->drout_131__OUTCINITPREDEF_OBJINITOBJECT; meltcdat->drout_131__OUTCINITPREDEF_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_131__OUTCINITPREDEF_OBJINITOBJECT.routdescr, "OUTCINITPREDEF_OBJINITOBJECT @warmelt-outobj.melt:532", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_131__OUTCINITPREDEF_OBJINITOBJECT.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_131__OUTCINITPREDEF_OBJINITOBJECT, meltrout_20_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITOBJECT); /*iniclos dclo_132__OUTCINITPREDEF_OBJINITOBJECT*/ /*_._VALCLO___V340*/ meltfptr[339] = (melt_ptr_t) &meltcdat->dclo_132__OUTCINITPREDEF_OBJINITOBJECT; meltcdat->dclo_132__OUTCINITPREDEF_OBJINITOBJECT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_132__OUTCINITPREDEF_OBJINITOBJECT.nbval = 0; /*iniobj dsym_133__CLASS_NREP_NIL*/ /*uniqueobj*/ if (!/*_._VALDATA___V341*/ meltfptr[340]) /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t )&meltcdat->dsym_133__CLASS_NREP_NIL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_133__CLASS_NREP_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_133__CLASS_NREP_NIL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_133__CLASS_NREP_NIL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_133__CLASS_NREP_NIL.obj_hash = 607452589; meltcdat->dsym_133__CLASS_NREP_NIL.obj_len = 3; /*inistring dstr_134__CLASS_NREP_NIL*/ /*_._VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) &meltcdat->dstr_134__CLASS_NREP_NIL; meltcdat->dstr_134__CLASS_NREP_NIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_134__CLASS_NREP_NIL.val, "CLASS_NREP_NIL", sizeof (meltcdat->dstr_134__CLASS_NREP_NIL.val)-1); meltcdat->dstr_134__CLASS_NREP_NIL.val[14] = (char)0 ; meltcdat->dstr_134__CLASS_NREP_NIL.slen = 14 ; /*inirout drout_135__OUTCINITPREDEF_OBJINITHOOK*/ /*iniroutlocvar*/ /*_._VALROUT___V343*/ meltfptr[342] = (melt_ptr_t) &meltcdat->drout_135__OUTCINITPREDEF_OBJINITHOOK; meltcdat->drout_135__OUTCINITPREDEF_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_135__OUTCINITPREDEF_OBJINITHOOK.routdescr, "OUTCINITPREDEF_OBJINITHOOK @warmelt-outobj.melt:622", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_135__OUTCINITPREDEF_OBJINITHOOK.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_135__OUTCINITPREDEF_OBJINITHOOK, meltrout_21_WARMELTmiOUTOBJ_OUTCINITPREDEF_OBJINITHOOK); /*iniclos dclo_136__OUTCINITPREDEF_OBJINITHOOK*/ /*_._VALCLO___V344*/ meltfptr[343] = (melt_ptr_t) &meltcdat->dclo_136__OUTCINITPREDEF_OBJINITHOOK; meltcdat->dclo_136__OUTCINITPREDEF_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_136__OUTCINITPREDEF_OBJINITHOOK.nbval = 0; /*iniobj dsym_137__CLASS_OBJINITHOOK*/ /*uniqueobj*/ if (!/*_._VALDATA___V345*/ meltfptr[344]) /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t )&meltcdat->dsym_137__CLASS_OBJINITHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_137__CLASS_OBJINITHOOK", melt_magic_discr ((melt_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__CLASS_OBJINITHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_137__CLASS_OBJINITHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_137__CLASS_OBJINITHOOK.obj_hash = 127795252; meltcdat->dsym_137__CLASS_OBJINITHOOK.obj_len = 3; /*inistring dstr_138__CLASS_OBJINITHOOK*/ /*_._VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) &meltcdat->dstr_138__CLASS_OBJINITHOOK; meltcdat->dstr_138__CLASS_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_138__CLASS_OBJINITHOOK.val, "CLASS_OBJINITHOOK", sizeof (meltcdat->dstr_138__CLASS_OBJINITHOOK.val)-1); meltcdat->dstr_138__CLASS_OBJINITHOOK.val[17] = (char)0 ; meltcdat->dstr_138__CLASS_OBJINITHOOK.slen = 17 ; /*iniobj dsym_139__CLASS_NREP*/ /*uniqueobj*/ if (!/*_._VALDATA___V347*/ meltfptr[346]) /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t )&meltcdat->dsym_139__CLASS_NREP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_139__CLASS_NREP", melt_magic_discr ((melt_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__CLASS_NREP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_139__CLASS_NREP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_139__CLASS_NREP.obj_hash = 704846736; meltcdat->dsym_139__CLASS_NREP.obj_len = 3; /*inistring dstr_140__CLASS_NREP*/ /*_._VALSTR___V348*/ meltfptr[347] = (melt_ptr_t) &meltcdat->dstr_140__CLASS_NREP; meltcdat->dstr_140__CLASS_NREP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_140__CLASS_NREP.val, "CLASS_NREP", sizeof (meltcdat->dstr_140__CLASS_NREP.val)-1); meltcdat->dstr_140__CLASS_NREP.val[10] = (char)0 ; meltcdat->dstr_140__CLASS_NREP.slen = 10 ; /*inirout drout_141__OUTDECLINIT_OBJINITMULTIPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V349*/ meltfptr[348] = (melt_ptr_t) &meltcdat->drout_141__OUTDECLINIT_OBJINITMULTIPLE; meltcdat->drout_141__OUTDECLINIT_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_141__OUTDECLINIT_OBJINITMULTIPLE.routdescr, "OUTDECLINIT_OBJINITMULTIPLE @warmelt-outobj.melt:680", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_141__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_141__OUTDECLINIT_OBJINITMULTIPLE, meltrout_22_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITMULTIPLE); /*iniclos dclo_142__OUTDECLINIT_OBJINITMULTIPLE*/ /*_._VALCLO___V350*/ meltfptr[349] = (melt_ptr_t) &meltcdat->dclo_142__OUTDECLINIT_OBJINITMULTIPLE; meltcdat->dclo_142__OUTDECLINIT_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_142__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0; /*iniobj dsym_143__CLASS_OBJINITMULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V351*/ meltfptr[350]) /*_._VALDATA___V351*/ meltfptr[350] = (melt_ptr_t )&meltcdat->dsym_143__CLASS_OBJINITMULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_143__CLASS_OBJINITMULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_143__CLASS_OBJINITMULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_143__CLASS_OBJINITMULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_143__CLASS_OBJINITMULTIPLE.obj_hash = 864635026; meltcdat->dsym_143__CLASS_OBJINITMULTIPLE.obj_len = 3; /*inistring dstr_144__CLASS_OBJINITMULTIPLE*/ /*_._VALSTR___V352*/ meltfptr[351] = (melt_ptr_t) &meltcdat->dstr_144__CLASS_OBJINITMULTIPLE; meltcdat->dstr_144__CLASS_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_144__CLASS_OBJINITMULTIPLE.val, "CLASS_OBJINITMULTIPLE", sizeof (meltcdat->dstr_144__CLASS_OBJINITMULTIPLE.val)-1); meltcdat->dstr_144__CLASS_OBJINITMULTIPLE.val[21] = (char)0 ; meltcdat->dstr_144__CLASS_OBJINITMULTIPLE.slen = 21 ; /*inirout drout_145__OUTCINITFILL_OBJINITMULTIPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V353*/ meltfptr[352] = (melt_ptr_t) &meltcdat->drout_145__OUTCINITFILL_OBJINITMULTIPLE; meltcdat->drout_145__OUTCINITFILL_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_145__OUTCINITFILL_OBJINITMULTIPLE.routdescr, "OUTCINITFILL_OBJINITMULTIPLE @warmelt-outobj.melt:690", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_145__OUTCINITFILL_OBJINITMULTIPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_145__OUTCINITFILL_OBJINITMULTIPLE, meltrout_23_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITMULTIPLE); /*iniclos dclo_146__OUTCINITFILL_OBJINITMULTIPLE*/ /*_._VALCLO___V354*/ meltfptr[353] = (melt_ptr_t) &meltcdat->dclo_146__OUTCINITFILL_OBJINITMULTIPLE; meltcdat->dclo_146__OUTCINITFILL_OBJINITMULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_146__OUTCINITFILL_OBJINITMULTIPLE.nbval = 0; /*inirout drout_147__OUTDECLINIT_OBJINITCLOSURE*/ /*iniroutlocvar*/ /*_._VALROUT___V355*/ meltfptr[354] = (melt_ptr_t) &meltcdat->drout_147__OUTDECLINIT_OBJINITCLOSURE; meltcdat->drout_147__OUTDECLINIT_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_147__OUTDECLINIT_OBJINITCLOSURE.routdescr, "OUTDECLINIT_OBJINITCLOSURE @warmelt-outobj.melt:735", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_147__OUTDECLINIT_OBJINITCLOSURE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_147__OUTDECLINIT_OBJINITCLOSURE, meltrout_24_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITCLOSURE); /*iniclos dclo_148__OUTDECLINIT_OBJINITCLOSURE*/ /*_._VALCLO___V356*/ meltfptr[355] = (melt_ptr_t) &meltcdat->dclo_148__OUTDECLINIT_OBJINITCLOSURE; meltcdat->dclo_148__OUTDECLINIT_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_148__OUTDECLINIT_OBJINITCLOSURE.nbval = 0; /*iniobj dsym_149__CLASS_OBJINITCLOSURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V357*/ meltfptr[356]) /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t )&meltcdat->dsym_149__CLASS_OBJINITCLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_149__CLASS_OBJINITCLOSURE", melt_magic_discr ((melt_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__CLASS_OBJINITCLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_149__CLASS_OBJINITCLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_149__CLASS_OBJINITCLOSURE.obj_hash = 952363892; meltcdat->dsym_149__CLASS_OBJINITCLOSURE.obj_len = 3; /*inistring dstr_150__CLASS_OBJINITCLOSURE*/ /*_._VALSTR___V358*/ meltfptr[357] = (melt_ptr_t) &meltcdat->dstr_150__CLASS_OBJINITCLOSURE; meltcdat->dstr_150__CLASS_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_150__CLASS_OBJINITCLOSURE.val, "CLASS_OBJINITCLOSURE", sizeof (meltcdat->dstr_150__CLASS_OBJINITCLOSURE.val)-1); meltcdat->dstr_150__CLASS_OBJINITCLOSURE.val[20] = (char)0 ; meltcdat->dstr_150__CLASS_OBJINITCLOSURE.slen = 20 ; /*inirout drout_151__OUTCINITFILL_OBJINITCLOSURE*/ /*iniroutlocvar*/ /*_._VALROUT___V359*/ meltfptr[358] = (melt_ptr_t) &meltcdat->drout_151__OUTCINITFILL_OBJINITCLOSURE; meltcdat->drout_151__OUTCINITFILL_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_151__OUTCINITFILL_OBJINITCLOSURE.routdescr, "OUTCINITFILL_OBJINITCLOSURE @warmelt-outobj.melt:744", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_151__OUTCINITFILL_OBJINITCLOSURE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_151__OUTCINITFILL_OBJINITCLOSURE, meltrout_25_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITCLOSURE); /*iniclos dclo_152__OUTCINITFILL_OBJINITCLOSURE*/ /*_._VALCLO___V360*/ meltfptr[359] = (melt_ptr_t) &meltcdat->dclo_152__OUTCINITFILL_OBJINITCLOSURE; meltcdat->dclo_152__OUTCINITFILL_OBJINITCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_152__OUTCINITFILL_OBJINITCLOSURE.nbval = 0; /*inirout drout_153__OUTDECLINIT_OBJINITROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V361*/ meltfptr[360] = (melt_ptr_t) &meltcdat->drout_153__OUTDECLINIT_OBJINITROUTINE; meltcdat->drout_153__OUTDECLINIT_OBJINITROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_153__OUTDECLINIT_OBJINITROUTINE.routdescr, "OUTDECLINIT_OBJINITROUTINE @warmelt-outobj.melt:805", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_153__OUTDECLINIT_OBJINITROUTINE.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_153__OUTDECLINIT_OBJINITROUTINE, meltrout_26_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITROUTINE); /*iniclos dclo_154__OUTDECLINIT_OBJINITROUTINE*/ /*_._VALCLO___V362*/ meltfptr[361] = (melt_ptr_t) &meltcdat->dclo_154__OUTDECLINIT_OBJINITROUTINE; meltcdat->dclo_154__OUTDECLINIT_OBJINITROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_154__OUTDECLINIT_OBJINITROUTINE.nbval = 0; /*iniobj dsym_155__CLASS_OBJINITROUTINE*/ /*uniqueobj*/ if (!/*_._VALDATA___V363*/ meltfptr[362]) /*_._VALDATA___V363*/ meltfptr[362] = (melt_ptr_t )&meltcdat->dsym_155__CLASS_OBJINITROUTINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_155__CLASS_OBJINITROUTINE", melt_magic_discr ((melt_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__CLASS_OBJINITROUTINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_155__CLASS_OBJINITROUTINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_155__CLASS_OBJINITROUTINE.obj_hash = 527007550; meltcdat->dsym_155__CLASS_OBJINITROUTINE.obj_len = 3; /*inistring dstr_156__CLASS_OBJINITROUTINE*/ /*_._VALSTR___V364*/ meltfptr[363] = (melt_ptr_t) &meltcdat->dstr_156__CLASS_OBJINITROUTINE; meltcdat->dstr_156__CLASS_OBJINITROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_156__CLASS_OBJINITROUTINE.val, "CLASS_OBJINITROUTINE", sizeof (meltcdat->dstr_156__CLASS_OBJINITROUTINE.val)-1); meltcdat->dstr_156__CLASS_OBJINITROUTINE.val[20] = (char)0 ; meltcdat->dstr_156__CLASS_OBJINITROUTINE.slen = 20 ; /*inirout drout_157__OUTCINITFILL_OBJINITROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V365*/ meltfptr[364] = (melt_ptr_t) &meltcdat->drout_157__OUTCINITFILL_OBJINITROUTINE; meltcdat->drout_157__OUTCINITFILL_OBJINITROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_157__OUTCINITFILL_OBJINITROUTINE.routdescr, "OUTCINITFILL_OBJINITROUTINE @warmelt-outobj.melt:815", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_157__OUTCINITFILL_OBJINITROUTINE.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_157__OUTCINITFILL_OBJINITROUTINE, meltrout_27_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITROUTINE); /*iniclos dclo_158__OUTCINITFILL_OBJINITROUTINE*/ /*_._VALCLO___V366*/ meltfptr[365] = (melt_ptr_t) &meltcdat->dclo_158__OUTCINITFILL_OBJINITROUTINE; meltcdat->dclo_158__OUTCINITFILL_OBJINITROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_158__OUTCINITFILL_OBJINITROUTINE.nbval = 0; /*iniobj dsym_159__CLASS_NREP_DATAROUTINE*/ /*uniqueobj*/ if (!/*_._VALDATA___V367*/ meltfptr[366]) /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t )&meltcdat->dsym_159__CLASS_NREP_DATAROUTINE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_159__CLASS_NREP_DATAROUTINE", melt_magic_discr ((melt_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__CLASS_NREP_DATAROUTINE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_159__CLASS_NREP_DATAROUTINE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_159__CLASS_NREP_DATAROUTINE.obj_hash = 675830344; meltcdat->dsym_159__CLASS_NREP_DATAROUTINE.obj_len = 3; /*inistring dstr_160__CLASS_NREP_DATAROUTINE*/ /*_._VALSTR___V368*/ meltfptr[367] = (melt_ptr_t) &meltcdat->dstr_160__CLASS_NREP_DATAROUTINE; meltcdat->dstr_160__CLASS_NREP_DATAROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_160__CLASS_NREP_DATAROUTINE.val, "CLASS_NREP_DATAROUTINE", sizeof (meltcdat->dstr_160__CLASS_NREP_DATAROUTINE.val)-1); meltcdat->dstr_160__CLASS_NREP_DATAROUTINE.val[22] = (char)0 ; meltcdat->dstr_160__CLASS_NREP_DATAROUTINE.slen = 22 ; /*iniobj dsym_161__CLASS_NREP_ROUTPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V369*/ meltfptr[368]) /*_._VALDATA___V369*/ meltfptr[368] = (melt_ptr_t )&meltcdat->dsym_161__CLASS_NREP_ROUTPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_161__CLASS_NREP_ROUTPROC", melt_magic_discr ((melt_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__CLASS_NREP_ROUTPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_161__CLASS_NREP_ROUTPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_161__CLASS_NREP_ROUTPROC.obj_hash = 959677762; meltcdat->dsym_161__CLASS_NREP_ROUTPROC.obj_len = 3; /*inistring dstr_162__CLASS_NREP_ROUTPROC*/ /*_._VALSTR___V370*/ meltfptr[369] = (melt_ptr_t) &meltcdat->dstr_162__CLASS_NREP_ROUTPROC; meltcdat->dstr_162__CLASS_NREP_ROUTPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_162__CLASS_NREP_ROUTPROC.val, "CLASS_NREP_ROUTPROC", sizeof (meltcdat->dstr_162__CLASS_NREP_ROUTPROC.val)-1); meltcdat->dstr_162__CLASS_NREP_ROUTPROC.val[19] = (char)0 ; meltcdat->dstr_162__CLASS_NREP_ROUTPROC.slen = 19 ; /*inirout drout_163__OUTDECLINIT_OBJINITHOOK*/ /*iniroutlocvar*/ /*_._VALROUT___V371*/ meltfptr[370] = (melt_ptr_t) &meltcdat->drout_163__OUTDECLINIT_OBJINITHOOK; meltcdat->drout_163__OUTDECLINIT_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_163__OUTDECLINIT_OBJINITHOOK.routdescr, "OUTDECLINIT_OBJINITHOOK @warmelt-outobj.melt:914", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_163__OUTDECLINIT_OBJINITHOOK.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_163__OUTDECLINIT_OBJINITHOOK, meltrout_28_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITHOOK); /*iniclos dclo_164__OUTDECLINIT_OBJINITHOOK*/ /*_._VALCLO___V372*/ meltfptr[371] = (melt_ptr_t) &meltcdat->dclo_164__OUTDECLINIT_OBJINITHOOK; meltcdat->dclo_164__OUTDECLINIT_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_164__OUTDECLINIT_OBJINITHOOK.nbval = 0; /*inirout drout_165__OUTCINITFILL_OBJINITHOOK*/ /*iniroutlocvar*/ /*_._VALROUT___V373*/ meltfptr[372] = (melt_ptr_t) &meltcdat->drout_165__OUTCINITFILL_OBJINITHOOK; meltcdat->drout_165__OUTCINITFILL_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_165__OUTCINITFILL_OBJINITHOOK.routdescr, "OUTCINITFILL_OBJINITHOOK @warmelt-outobj.melt:927", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_165__OUTCINITFILL_OBJINITHOOK.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_165__OUTCINITFILL_OBJINITHOOK, meltrout_29_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITHOOK); /*iniclos dclo_166__OUTCINITFILL_OBJINITHOOK*/ /*_._VALCLO___V374*/ meltfptr[373] = (melt_ptr_t) &meltcdat->dclo_166__OUTCINITFILL_OBJINITHOOK; meltcdat->dclo_166__OUTCINITFILL_OBJINITHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_166__OUTCINITFILL_OBJINITHOOK.nbval = 0; /*iniobj dsym_167__CLASS_NREP_CLOSPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V375*/ meltfptr[374]) /*_._VALDATA___V375*/ meltfptr[374] = (melt_ptr_t )&meltcdat->dsym_167__CLASS_NREP_CLOSPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_167__CLASS_NREP_CLOSPROC", melt_magic_discr ((melt_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__CLASS_NREP_CLOSPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_167__CLASS_NREP_CLOSPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_167__CLASS_NREP_CLOSPROC.obj_hash = 932387045; meltcdat->dsym_167__CLASS_NREP_CLOSPROC.obj_len = 3; /*inistring dstr_168__CLASS_NREP_CLOSPROC*/ /*_._VALSTR___V376*/ meltfptr[375] = (melt_ptr_t) &meltcdat->dstr_168__CLASS_NREP_CLOSPROC; meltcdat->dstr_168__CLASS_NREP_CLOSPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_168__CLASS_NREP_CLOSPROC.val, "CLASS_NREP_CLOSPROC", sizeof (meltcdat->dstr_168__CLASS_NREP_CLOSPROC.val)-1); meltcdat->dstr_168__CLASS_NREP_CLOSPROC.val[19] = (char)0 ; meltcdat->dstr_168__CLASS_NREP_CLOSPROC.slen = 19 ; /*inirout drout_169__OUTDECLINIT_OBJINITSTRING*/ /*iniroutlocvar*/ /*_._VALROUT___V377*/ meltfptr[376] = (melt_ptr_t) &meltcdat->drout_169__OUTDECLINIT_OBJINITSTRING; meltcdat->drout_169__OUTDECLINIT_OBJINITSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_169__OUTDECLINIT_OBJINITSTRING.routdescr, "OUTDECLINIT_OBJINITSTRING @warmelt-outobj.melt:989", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_169__OUTDECLINIT_OBJINITSTRING.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_169__OUTDECLINIT_OBJINITSTRING, meltrout_30_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITSTRING); /*iniclos dclo_170__OUTDECLINIT_OBJINITSTRING*/ /*_._VALCLO___V378*/ meltfptr[377] = (melt_ptr_t) &meltcdat->dclo_170__OUTDECLINIT_OBJINITSTRING; meltcdat->dclo_170__OUTDECLINIT_OBJINITSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_170__OUTDECLINIT_OBJINITSTRING.nbval = 0; /*iniobj dsym_171__CLASS_OBJINITSTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V379*/ meltfptr[378]) /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t )&meltcdat->dsym_171__CLASS_OBJINITSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_171__CLASS_OBJINITSTRING", melt_magic_discr ((melt_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__CLASS_OBJINITSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_171__CLASS_OBJINITSTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_171__CLASS_OBJINITSTRING.obj_hash = 1067075981; meltcdat->dsym_171__CLASS_OBJINITSTRING.obj_len = 3; /*inistring dstr_172__CLASS_OBJINITSTRING*/ /*_._VALSTR___V380*/ meltfptr[379] = (melt_ptr_t) &meltcdat->dstr_172__CLASS_OBJINITSTRING; meltcdat->dstr_172__CLASS_OBJINITSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_172__CLASS_OBJINITSTRING.val, "CLASS_OBJINITSTRING", sizeof (meltcdat->dstr_172__CLASS_OBJINITSTRING.val)-1); meltcdat->dstr_172__CLASS_OBJINITSTRING.val[19] = (char)0 ; meltcdat->dstr_172__CLASS_OBJINITSTRING.slen = 19 ; /*inirout drout_173__OUTCINITFILL_OBJINITSTRING*/ /*iniroutlocvar*/ /*_._VALROUT___V381*/ meltfptr[380] = (melt_ptr_t) &meltcdat->drout_173__OUTCINITFILL_OBJINITSTRING; meltcdat->drout_173__OUTCINITFILL_OBJINITSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_173__OUTCINITFILL_OBJINITSTRING.routdescr, "OUTCINITFILL_OBJINITSTRING @warmelt-outobj.melt:999", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_173__OUTCINITFILL_OBJINITSTRING.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_173__OUTCINITFILL_OBJINITSTRING, meltrout_31_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITSTRING); /*iniclos dclo_174__OUTCINITFILL_OBJINITSTRING*/ /*_._VALCLO___V382*/ meltfptr[381] = (melt_ptr_t) &meltcdat->dclo_174__OUTCINITFILL_OBJINITSTRING; meltcdat->dclo_174__OUTCINITFILL_OBJINITSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_174__OUTCINITFILL_OBJINITSTRING.nbval = 0; /*inirout drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER*/ /*iniroutlocvar*/ /*_._VALROUT___V383*/ meltfptr[382] = (melt_ptr_t) &meltcdat->drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER; meltcdat->drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER.routdescr, "OUTDECLINIT_OBJINITBOXEDINTEGER @warmelt-outobj.melt:1199", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_175__OUTDECLINIT_OBJINITBOXEDINTEGER, meltrout_32_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITBOXEDINTEGER); /*iniclos dclo_176__OUTDECLINIT_OBJINITBOXEDINTEGER*/ /*_._VALCLO___V384*/ meltfptr[383] = (melt_ptr_t) &meltcdat->dclo_176__OUTDECLINIT_OBJINITBOXEDINTEGER; meltcdat->dclo_176__OUTDECLINIT_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_176__OUTDECLINIT_OBJINITBOXEDINTEGER.nbval = 0; /*iniobj dsym_177__CLASS_OBJINITBOXINTEGER*/ /*uniqueobj*/ if (!/*_._VALDATA___V385*/ meltfptr[384]) /*_._VALDATA___V385*/ meltfptr[384] = (melt_ptr_t )&meltcdat->dsym_177__CLASS_OBJINITBOXINTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_177__CLASS_OBJINITBOXINTEGER", melt_magic_discr ((melt_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__CLASS_OBJINITBOXINTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_177__CLASS_OBJINITBOXINTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_177__CLASS_OBJINITBOXINTEGER.obj_hash = 221951388; meltcdat->dsym_177__CLASS_OBJINITBOXINTEGER.obj_len = 3; /*inistring dstr_178__CLASS_OBJINITBOXINTEGER*/ /*_._VALSTR___V386*/ meltfptr[385] = (melt_ptr_t) &meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER; meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER.val, "CLASS_OBJINITBOXINTEGER", sizeof (meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER.val)-1); meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER.val[23] = (char)0 ; meltcdat->dstr_178__CLASS_OBJINITBOXINTEGER.slen = 23 ; /*inirout drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER*/ /*iniroutlocvar*/ /*_._VALROUT___V387*/ meltfptr[386] = (melt_ptr_t) &meltcdat->drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER; meltcdat->drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER.routdescr, "OUTCINITFILL_OBJINITBOXEDINTEGER @warmelt-outobj.melt:1207", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER, meltrout_33_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITBOXEDINTEGER); /*iniclos dclo_180__OUTCINITFILL_OBJINITBOXEDINTEGER*/ /*_._VALCLO___V388*/ meltfptr[387] = (melt_ptr_t) &meltcdat->dclo_180__OUTCINITFILL_OBJINITBOXEDINTEGER; meltcdat->dclo_180__OUTCINITFILL_OBJINITBOXEDINTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_180__OUTCINITFILL_OBJINITBOXEDINTEGER.nbval = 0; /*inirout drout_181__OUTDECLINIT_OBJINITPAIR*/ /*iniroutlocvar*/ /*_._VALROUT___V389*/ meltfptr[388] = (melt_ptr_t) &meltcdat->drout_181__OUTDECLINIT_OBJINITPAIR; meltcdat->drout_181__OUTDECLINIT_OBJINITPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_181__OUTDECLINIT_OBJINITPAIR.routdescr, "OUTDECLINIT_OBJINITPAIR @warmelt-outobj.melt:1259", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_181__OUTDECLINIT_OBJINITPAIR.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_181__OUTDECLINIT_OBJINITPAIR, meltrout_34_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITPAIR); /*iniclos dclo_182__OUTDECLINIT_OBJINITPAIR*/ /*_._VALCLO___V390*/ meltfptr[389] = (melt_ptr_t) &meltcdat->dclo_182__OUTDECLINIT_OBJINITPAIR; meltcdat->dclo_182__OUTDECLINIT_OBJINITPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_182__OUTDECLINIT_OBJINITPAIR.nbval = 0; /*iniobj dsym_183__CLASS_OBJINITPAIR*/ /*uniqueobj*/ if (!/*_._VALDATA___V391*/ meltfptr[390]) /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t )&meltcdat->dsym_183__CLASS_OBJINITPAIR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_183__CLASS_OBJINITPAIR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_183__CLASS_OBJINITPAIR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_183__CLASS_OBJINITPAIR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_183__CLASS_OBJINITPAIR.obj_hash = 1032590021; meltcdat->dsym_183__CLASS_OBJINITPAIR.obj_len = 3; /*inistring dstr_184__CLASS_OBJINITPAIR*/ /*_._VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) &meltcdat->dstr_184__CLASS_OBJINITPAIR; meltcdat->dstr_184__CLASS_OBJINITPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_184__CLASS_OBJINITPAIR.val, "CLASS_OBJINITPAIR", sizeof (meltcdat->dstr_184__CLASS_OBJINITPAIR.val)-1); meltcdat->dstr_184__CLASS_OBJINITPAIR.val[17] = (char)0 ; meltcdat->dstr_184__CLASS_OBJINITPAIR.slen = 17 ; /*inirout drout_185__OUTCINITFILL_OBJINITPAIR*/ /*iniroutlocvar*/ /*_._VALROUT___V393*/ meltfptr[392] = (melt_ptr_t) &meltcdat->drout_185__OUTCINITFILL_OBJINITPAIR; meltcdat->drout_185__OUTCINITFILL_OBJINITPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_185__OUTCINITFILL_OBJINITPAIR.routdescr, "OUTCINITFILL_OBJINITPAIR @warmelt-outobj.melt:1267", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_185__OUTCINITFILL_OBJINITPAIR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_185__OUTCINITFILL_OBJINITPAIR, meltrout_35_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITPAIR); /*iniclos dclo_186__OUTCINITFILL_OBJINITPAIR*/ /*_._VALCLO___V394*/ meltfptr[393] = (melt_ptr_t) &meltcdat->dclo_186__OUTCINITFILL_OBJINITPAIR; meltcdat->dclo_186__OUTCINITFILL_OBJINITPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_186__OUTCINITFILL_OBJINITPAIR.nbval = 0; /*inirout drout_187__OUTDECLINIT_OBJINITLIST*/ /*iniroutlocvar*/ /*_._VALROUT___V395*/ meltfptr[394] = (melt_ptr_t) &meltcdat->drout_187__OUTDECLINIT_OBJINITLIST; meltcdat->drout_187__OUTDECLINIT_OBJINITLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_187__OUTDECLINIT_OBJINITLIST.routdescr, "OUTDECLINIT_OBJINITLIST @warmelt-outobj.melt:1309", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_187__OUTDECLINIT_OBJINITLIST.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_187__OUTDECLINIT_OBJINITLIST, meltrout_36_WARMELTmiOUTOBJ_OUTDECLINIT_OBJINITLIST); /*iniclos dclo_188__OUTDECLINIT_OBJINITLIST*/ /*_._VALCLO___V396*/ meltfptr[395] = (melt_ptr_t) &meltcdat->dclo_188__OUTDECLINIT_OBJINITLIST; meltcdat->dclo_188__OUTDECLINIT_OBJINITLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_188__OUTDECLINIT_OBJINITLIST.nbval = 0; /*iniobj dsym_189__CLASS_OBJINITLIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V397*/ meltfptr[396]) /*_._VALDATA___V397*/ meltfptr[396] = (melt_ptr_t )&meltcdat->dsym_189__CLASS_OBJINITLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_189__CLASS_OBJINITLIST", melt_magic_discr ((melt_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__CLASS_OBJINITLIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_189__CLASS_OBJINITLIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_189__CLASS_OBJINITLIST.obj_hash = 679574260; meltcdat->dsym_189__CLASS_OBJINITLIST.obj_len = 3; /*inistring dstr_190__CLASS_OBJINITLIST*/ /*_._VALSTR___V398*/ meltfptr[397] = (melt_ptr_t) &meltcdat->dstr_190__CLASS_OBJINITLIST; meltcdat->dstr_190__CLASS_OBJINITLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_190__CLASS_OBJINITLIST.val, "CLASS_OBJINITLIST", sizeof (meltcdat->dstr_190__CLASS_OBJINITLIST.val)-1); meltcdat->dstr_190__CLASS_OBJINITLIST.val[17] = (char)0 ; meltcdat->dstr_190__CLASS_OBJINITLIST.slen = 17 ; /*inirout drout_191__OUTCINITFILL_OBJINITLIST*/ /*iniroutlocvar*/ /*_._VALROUT___V399*/ meltfptr[398] = (melt_ptr_t) &meltcdat->drout_191__OUTCINITFILL_OBJINITLIST; meltcdat->drout_191__OUTCINITFILL_OBJINITLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_191__OUTCINITFILL_OBJINITLIST.routdescr, "OUTCINITFILL_OBJINITLIST @warmelt-outobj.melt:1317", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_191__OUTCINITFILL_OBJINITLIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_191__OUTCINITFILL_OBJINITLIST, meltrout_37_WARMELTmiOUTOBJ_OUTCINITFILL_OBJINITLIST); /*iniclos dclo_192__OUTCINITFILL_OBJINITLIST*/ /*_._VALCLO___V400*/ meltfptr[399] = (melt_ptr_t) &meltcdat->dclo_192__OUTCINITFILL_OBJINITLIST; meltcdat->dclo_192__OUTCINITFILL_OBJINITLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_192__OUTCINITFILL_OBJINITLIST.nbval = 0; /*inirout drout_193__OUTPUCOD_ANYDISCR*/ /*iniroutlocvar*/ /*_._VALROUT___V401*/ meltfptr[400] = (melt_ptr_t) &meltcdat->drout_193__OUTPUCOD_ANYDISCR; meltcdat->drout_193__OUTPUCOD_ANYDISCR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_193__OUTPUCOD_ANYDISCR.routdescr, "OUTPUCOD_ANYDISCR @warmelt-outobj.melt:1359", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_193__OUTPUCOD_ANYDISCR.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_193__OUTPUCOD_ANYDISCR, meltrout_38_WARMELTmiOUTOBJ_OUTPUCOD_ANYDISCR); /*iniclos dclo_194__OUTPUCOD_ANYDISCR*/ /*_._VALCLO___V402*/ meltfptr[401] = (melt_ptr_t) &meltcdat->dclo_194__OUTPUCOD_ANYDISCR; meltcdat->dclo_194__OUTPUCOD_ANYDISCR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_194__OUTPUCOD_ANYDISCR.nbval = 0; /*iniobj dsym_195__DISCR_ANY_RECEIVER*/ /*uniqueobj*/ if (!/*_._VALDATA___V403*/ meltfptr[402]) /*_._VALDATA___V403*/ meltfptr[402] = (melt_ptr_t )&meltcdat->dsym_195__DISCR_ANY_RECEIVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_195__DISCR_ANY_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_195__DISCR_ANY_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_195__DISCR_ANY_RECEIVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_195__DISCR_ANY_RECEIVER.obj_hash = 95947314; meltcdat->dsym_195__DISCR_ANY_RECEIVER.obj_len = 3; /*inistring dstr_196__DISCR_ANY_RECEIVER*/ /*_._VALSTR___V404*/ meltfptr[403] = (melt_ptr_t) &meltcdat->dstr_196__DISCR_ANY_RECEIVER; meltcdat->dstr_196__DISCR_ANY_RECEIVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_196__DISCR_ANY_RECEIVER.val, "DISCR_ANY_RECEIVER", sizeof (meltcdat->dstr_196__DISCR_ANY_RECEIVER.val)-1); meltcdat->dstr_196__DISCR_ANY_RECEIVER.val[18] = (char)0 ; meltcdat->dstr_196__DISCR_ANY_RECEIVER.slen = 18 ; /*inirout drout_197__OUTPUCOD_NULL*/ /*iniroutlocvar*/ /*_._VALROUT___V405*/ meltfptr[404] = (melt_ptr_t) &meltcdat->drout_197__OUTPUCOD_NULL; meltcdat->drout_197__OUTPUCOD_NULL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_197__OUTPUCOD_NULL.routdescr, "OUTPUCOD_NULL @warmelt-outobj.melt:1372", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_197__OUTPUCOD_NULL.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_197__OUTPUCOD_NULL, meltrout_39_WARMELTmiOUTOBJ_OUTPUCOD_NULL); /*iniclos dclo_198__OUTPUCOD_NULL*/ /*_._VALCLO___V406*/ meltfptr[405] = (melt_ptr_t) &meltcdat->dclo_198__OUTPUCOD_NULL; meltcdat->dclo_198__OUTPUCOD_NULL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_198__OUTPUCOD_NULL.nbval = 0; /*iniobj dsym_199__DISCR_NULL_RECEIVER*/ /*uniqueobj*/ if (!/*_._VALDATA___V407*/ meltfptr[406]) /*_._VALDATA___V407*/ meltfptr[406] = (melt_ptr_t )&meltcdat->dsym_199__DISCR_NULL_RECEIVER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_199__DISCR_NULL_RECEIVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_199__DISCR_NULL_RECEIVER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_199__DISCR_NULL_RECEIVER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_199__DISCR_NULL_RECEIVER.obj_hash = 1063609307; meltcdat->dsym_199__DISCR_NULL_RECEIVER.obj_len = 3; /*inistring dstr_200__DISCR_NULL_RECEIVER*/ /*_._VALSTR___V408*/ meltfptr[407] = (melt_ptr_t) &meltcdat->dstr_200__DISCR_NULL_RECEIVER; meltcdat->dstr_200__DISCR_NULL_RECEIVER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_200__DISCR_NULL_RECEIVER.val, "DISCR_NULL_RECEIVER", sizeof (meltcdat->dstr_200__DISCR_NULL_RECEIVER.val)-1); meltcdat->dstr_200__DISCR_NULL_RECEIVER.val[19] = (char)0 ; meltcdat->dstr_200__DISCR_NULL_RECEIVER.slen = 19 ; /*inirout drout_201__OUTPUCOD_CATCHALL_ROOT*/ /*iniroutlocvar*/ /*_._VALROUT___V409*/ meltfptr[408] = (melt_ptr_t) &meltcdat->drout_201__OUTPUCOD_CATCHALL_ROOT; meltcdat->drout_201__OUTPUCOD_CATCHALL_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_201__OUTPUCOD_CATCHALL_ROOT.routdescr, "OUTPUCOD_CATCHALL_ROOT @warmelt-outobj.melt:1380", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_201__OUTPUCOD_CATCHALL_ROOT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_201__OUTPUCOD_CATCHALL_ROOT, meltrout_40_WARMELTmiOUTOBJ_OUTPUCOD_CATCHALL_ROOT); /*iniclos dclo_202__OUTPUCOD_CATCHALL_ROOT*/ /*_._VALCLO___V410*/ meltfptr[409] = (melt_ptr_t) &meltcdat->dclo_202__OUTPUCOD_CATCHALL_ROOT; meltcdat->dclo_202__OUTPUCOD_CATCHALL_ROOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_202__OUTPUCOD_CATCHALL_ROOT.nbval = 0; /*iniobj dsym_203__DISPLAY_DEBUG_MESSAGE*/ /*uniqueobj*/ if (!/*_._VALDATA___V411*/ meltfptr[410]) /*_._VALDATA___V411*/ meltfptr[410] = (melt_ptr_t )&meltcdat->dsym_203__DISPLAY_DEBUG_MESSAGE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_203__DISPLAY_DEBUG_MESSAGE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_203__DISPLAY_DEBUG_MESSAGE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_203__DISPLAY_DEBUG_MESSAGE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_203__DISPLAY_DEBUG_MESSAGE.obj_hash = 759618783; meltcdat->dsym_203__DISPLAY_DEBUG_MESSAGE.obj_len = 3; /*inistring dstr_204__DISPLAY_DEBUG_MESSAGE*/ /*_._VALSTR___V412*/ meltfptr[411] = (melt_ptr_t) &meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE; meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE.val, "DISPLAY_DEBUG_MESSAGE", sizeof (meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE.val)-1); meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE.val[21] = (char)0 ; meltcdat->dstr_204__DISPLAY_DEBUG_MESSAGE.slen = 21 ; /*inirout drout_205__OUTPUT_RAW_LOCATION*/ /*iniroutlocvar*/ /*_._VALROUT___V309*/ meltfptr[308] = (melt_ptr_t) &meltcdat->drout_205__OUTPUT_RAW_LOCATION; meltcdat->drout_205__OUTPUT_RAW_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_205__OUTPUT_RAW_LOCATION.routdescr, "OUTPUT_RAW_LOCATION @warmelt-outobj.melt:1393", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_205__OUTPUT_RAW_LOCATION.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_205__OUTPUT_RAW_LOCATION, meltrout_41_WARMELTmiOUTOBJ_OUTPUT_RAW_LOCATION); /*iniclos dclo_206__OUTPUT_RAW_LOCATION*/ /*_._VALCLO___V308*/ meltfptr[307] = (melt_ptr_t) &meltcdat->dclo_206__OUTPUT_RAW_LOCATION; meltcdat->dclo_206__OUTPUT_RAW_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_206__OUTPUT_RAW_LOCATION.nbval = 0; /*iniobj dsym_207__PREVLOC_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V413*/ meltfptr[412]) /*_._VALDATA___V413*/ meltfptr[412] = (melt_ptr_t )&meltcdat->dsym_207__PREVLOC_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_207__PREVLOC_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_207__PREVLOC_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_207__PREVLOC_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_207__PREVLOC_CONTAINER.obj_hash = 314670778; meltcdat->dsym_207__PREVLOC_CONTAINER.obj_len = 3; /*inistring dstr_208__PREVLOC_CONTAINER*/ /*_._VALSTR___V414*/ meltfptr[413] = (melt_ptr_t) &meltcdat->dstr_208__PREVLOC_CONTAINER; meltcdat->dstr_208__PREVLOC_CONTAINER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_208__PREVLOC_CONTAINER.val, "PREVLOC_CONTAINER", sizeof (meltcdat->dstr_208__PREVLOC_CONTAINER.val)-1); meltcdat->dstr_208__PREVLOC_CONTAINER.val[17] = (char)0 ; meltcdat->dstr_208__PREVLOC_CONTAINER.slen = 17 ; MELT_LOCATION("warmelt-outobj.melt:1440:/ iniobj"); /*iniobj dobj_209__PREVLOC_CONTAINER*/ /*_._VALDATA___V306*/ meltfptr[305] = (melt_ptr_t )&meltcdat->dobj_209__PREVLOC_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_209__PREVLOC_CONTAINER", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_209__PREVLOC_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_209__PREVLOC_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); meltcdat->dobj_209__PREVLOC_CONTAINER.obj_hash = 889362625; meltcdat->dobj_209__PREVLOC_CONTAINER.obj_len = 1; /*iniobj dsym_210__PREVIMPLBUF_CONTAINER*/ /*uniqueobj*/ if (!/*_._VALDATA___V415*/ meltfptr[414]) /*_._VALDATA___V415*/ meltfptr[414] = (melt_ptr_t )&meltcdat->dsym_210__PREVIMPLBUF_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_210__PREVIMPLBUF_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_210__PREVIMPLBUF_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_210__PREVIMPLBUF_CONTAINER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_210__PREVIMPLBUF_CONTAINER.obj_hash = 669782191; meltcdat->dsym_210__PREVIMPLBUF_CONTAINER.obj_len = 3; /*inistring dstr_211__PREVIMPLBUF_CONTAINER*/ /*_._VALSTR___V416*/ meltfptr[415] = (melt_ptr_t) &meltcdat->dstr_211__PREVIMPLBUF_CONTAINER; meltcdat->dstr_211__PREVIMPLBUF_CONTAINER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_211__PREVIMPLBUF_CONTAINER.val, "PREVIMPLBUF_CONTAINER", sizeof (meltcdat->dstr_211__PREVIMPLBUF_CONTAINER.val)-1); meltcdat->dstr_211__PREVIMPLBUF_CONTAINER.val[21] = (char)0 ; meltcdat->dstr_211__PREVIMPLBUF_CONTAINER.slen = 21 ; MELT_LOCATION("warmelt-outobj.melt:1441:/ iniobj"); /*iniobj dobj_212__PREVIMPLBUF_CONTAINER*/ /*_._VALDATA___V307*/ meltfptr[306] = (melt_ptr_t )&meltcdat->dobj_212__PREVIMPLBUF_CONTAINER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_212__PREVIMPLBUF_CONTAINER", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_212__PREVIMPLBUF_CONTAINER", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_212__PREVIMPLBUF_CONTAINER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); meltcdat->dobj_212__PREVIMPLBUF_CONTAINER.obj_hash = 168934469; meltcdat->dobj_212__PREVIMPLBUF_CONTAINER.obj_len = 1; /*inirout drout_213__LINE_AND_FILE_OF_LOCATION*/ /*iniroutlocvar*/ /*_._VALROUT___V417*/ meltfptr[416] = (melt_ptr_t) &meltcdat->drout_213__LINE_AND_FILE_OF_LOCATION; meltcdat->drout_213__LINE_AND_FILE_OF_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_213__LINE_AND_FILE_OF_LOCATION.routdescr, "LINE_AND_FILE_OF_LOCATION @warmelt-outobj.melt:1444", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_213__LINE_AND_FILE_OF_LOCATION.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_213__LINE_AND_FILE_OF_LOCATION, meltrout_42_WARMELTmiOUTOBJ_LINE_AND_FILE_OF_LOCATION); /*iniclos dclo_214__LINE_AND_FILE_OF_LOCATION*/ /*_._VALCLO___V418*/ meltfptr[417] = (melt_ptr_t) &meltcdat->dclo_214__LINE_AND_FILE_OF_LOCATION; meltcdat->dclo_214__LINE_AND_FILE_OF_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_214__LINE_AND_FILE_OF_LOCATION.nbval = 0; /*iniobj dsym_215__DISCR_INTEGER*/ /*uniqueobj*/ if (!/*_._VALDATA___V419*/ meltfptr[418]) /*_._VALDATA___V419*/ meltfptr[418] = (melt_ptr_t )&meltcdat->dsym_215__DISCR_INTEGER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_215__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_215__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_215__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_215__DISCR_INTEGER.obj_hash = 119182103; meltcdat->dsym_215__DISCR_INTEGER.obj_len = 3; /*inistring dstr_216__DISCR_INTEGER*/ /*_._VALSTR___V420*/ meltfptr[419] = (melt_ptr_t) &meltcdat->dstr_216__DISCR_INTEGER; meltcdat->dstr_216__DISCR_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_216__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (meltcdat->dstr_216__DISCR_INTEGER.val)-1); meltcdat->dstr_216__DISCR_INTEGER.val[13] = (char)0 ; meltcdat->dstr_216__DISCR_INTEGER.slen = 13 ; /*iniobj dsym_217__DISCR_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V421*/ meltfptr[420]) /*_._VALDATA___V421*/ meltfptr[420] = (melt_ptr_t )&meltcdat->dsym_217__DISCR_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_217__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_217__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_217__DISCR_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_217__DISCR_STRING.obj_hash = 100436219; meltcdat->dsym_217__DISCR_STRING.obj_len = 3; /*inistring dstr_218__DISCR_STRING*/ /*_._VALSTR___V422*/ meltfptr[421] = (melt_ptr_t) &meltcdat->dstr_218__DISCR_STRING; meltcdat->dstr_218__DISCR_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_218__DISCR_STRING.val, "DISCR_STRING", sizeof (meltcdat->dstr_218__DISCR_STRING.val)-1); meltcdat->dstr_218__DISCR_STRING.val[12] = (char)0 ; meltcdat->dstr_218__DISCR_STRING.slen = 12 ; /*inirout drout_219__OUTPUT_LOCATION*/ /*iniroutlocvar*/ /*_._VALROUT___V305*/ meltfptr[304] = (melt_ptr_t) &meltcdat->drout_219__OUTPUT_LOCATION; meltcdat->drout_219__OUTPUT_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_219__OUTPUT_LOCATION.routdescr, "OUTPUT_LOCATION @warmelt-outobj.melt:1459", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_219__OUTPUT_LOCATION.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_219__OUTPUT_LOCATION, meltrout_43_WARMELTmiOUTOBJ_OUTPUT_LOCATION); /*iniclos dclo_220__OUTPUT_LOCATION*/ /*_._VALCLO___V304*/ meltfptr[303] = (melt_ptr_t) &meltcdat->dclo_220__OUTPUT_LOCATION; meltcdat->dclo_220__OUTPUT_LOCATION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_220__OUTPUT_LOCATION.nbval = 0; /*inirout drout_221__OUTPUT_CURFRAME_DECLSTRUCT*/ /*iniroutlocvar*/ /*_._VALROUT___V423*/ meltfptr[422] = (melt_ptr_t) &meltcdat->drout_221__OUTPUT_CURFRAME_DECLSTRUCT; meltcdat->drout_221__OUTPUT_CURFRAME_DECLSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_221__OUTPUT_CURFRAME_DECLSTRUCT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.melt:1538", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_221__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_221__OUTPUT_CURFRAME_DECLSTRUCT, meltrout_44_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT); /*iniclos dclo_222__OUTPUT_CURFRAME_DECLSTRUCT*/ /*_._VALCLO___V424*/ meltfptr[423] = (melt_ptr_t) &meltcdat->dclo_222__OUTPUT_CURFRAME_DECLSTRUCT; meltcdat->dclo_222__OUTPUT_CURFRAME_DECLSTRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_222__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 0; /*iniobj dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V425*/ meltfptr[424]) /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t )&meltcdat->dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ", melt_magic_discr ((melt_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__CLASS_INITIAL_EXTENSION_ROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ.obj_hash = 1011209043; meltcdat->dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ.obj_len = 3; /*inistring dstr_224__CLASS_INITIAL_EXTENSION_*/ /*_._VALSTR___V426*/ meltfptr[425] = (melt_ptr_t) &meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_; meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_.val, "CLASS_INITIAL_EXTENSION_ROUTINEOBJ", sizeof (meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_.val)-1); meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_.val[34] = (char)0 ; meltcdat->dstr_224__CLASS_INITIAL_EXTENSION_.slen = 34 ; /*iniobj dsym_225__CLASS_CTYPE_GTY*/ /*uniqueobj*/ if (!/*_._VALDATA___V427*/ meltfptr[426]) /*_._VALDATA___V427*/ meltfptr[426] = (melt_ptr_t )&meltcdat->dsym_225__CLASS_CTYPE_GTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_225__CLASS_CTYPE_GTY", melt_magic_discr ((melt_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__CLASS_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_225__CLASS_CTYPE_GTY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_225__CLASS_CTYPE_GTY.obj_hash = 167272739; meltcdat->dsym_225__CLASS_CTYPE_GTY.obj_len = 3; /*inistring dstr_226__CLASS_CTYPE_GTY*/ /*_._VALSTR___V428*/ meltfptr[427] = (melt_ptr_t) &meltcdat->dstr_226__CLASS_CTYPE_GTY; meltcdat->dstr_226__CLASS_CTYPE_GTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_226__CLASS_CTYPE_GTY.val, "CLASS_CTYPE_GTY", sizeof (meltcdat->dstr_226__CLASS_CTYPE_GTY.val)-1); meltcdat->dstr_226__CLASS_CTYPE_GTY.val[15] = (char)0 ; meltcdat->dstr_226__CLASS_CTYPE_GTY.slen = 15 ; /*iniobj dsym_227__CLASS_PROCROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V429*/ meltfptr[428]) /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t )&meltcdat->dsym_227__CLASS_PROCROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_227__CLASS_PROCROUTINEOBJ", melt_magic_discr ((melt_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__CLASS_PROCROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_227__CLASS_PROCROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_227__CLASS_PROCROUTINEOBJ.obj_hash = 171301749; meltcdat->dsym_227__CLASS_PROCROUTINEOBJ.obj_len = 3; /*inistring dstr_228__CLASS_PROCROUTINEOBJ*/ /*_._VALSTR___V430*/ meltfptr[429] = (melt_ptr_t) &meltcdat->dstr_228__CLASS_PROCROUTINEOBJ; meltcdat->dstr_228__CLASS_PROCROUTINEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_228__CLASS_PROCROUTINEOBJ.val, "CLASS_PROCROUTINEOBJ", sizeof (meltcdat->dstr_228__CLASS_PROCROUTINEOBJ.val)-1); meltcdat->dstr_228__CLASS_PROCROUTINEOBJ.val[20] = (char)0 ; meltcdat->dstr_228__CLASS_PROCROUTINEOBJ.slen = 20 ; /*iniobj dsym_229__CLASS_HOOKROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V431*/ meltfptr[430]) /*_._VALDATA___V431*/ meltfptr[430] = (melt_ptr_t )&meltcdat->dsym_229__CLASS_HOOKROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_229__CLASS_HOOKROUTINEOBJ", melt_magic_discr ((melt_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_HOOKROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_229__CLASS_HOOKROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_229__CLASS_HOOKROUTINEOBJ.obj_hash = 348853257; meltcdat->dsym_229__CLASS_HOOKROUTINEOBJ.obj_len = 3; /*inistring dstr_230__CLASS_HOOKROUTINEOBJ*/ /*_._VALSTR___V432*/ meltfptr[431] = (melt_ptr_t) &meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ; meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ.val, "CLASS_HOOKROUTINEOBJ", sizeof (meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ.val)-1); meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ.val[20] = (char)0 ; meltcdat->dstr_230__CLASS_HOOKROUTINEOBJ.slen = 20 ; /*inirout drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*iniroutlocvar*/ /*_._VALROUT___V433*/ meltfptr[432] = (melt_ptr_t) &meltcdat->drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT; meltcdat->drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT_INIT @warmelt-outobj.melt:1705", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT, meltrout_45_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_DECLSTRUCT_INIT); /*iniclos dclo_232__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*_._VALCLO___V434*/ meltfptr[433] = (melt_ptr_t) &meltcdat->dclo_232__OUTPUT_CURFRAME_DECLSTRUCT_INIT; meltcdat->dclo_232__OUTPUT_CURFRAME_DECLSTRUCT_INIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_232__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 0; /*iniobj dsym_233__CLASS_ROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V435*/ meltfptr[434]) /*_._VALDATA___V435*/ meltfptr[434] = (melt_ptr_t )&meltcdat->dsym_233__CLASS_ROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_233__CLASS_ROUTINEOBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_233__CLASS_ROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_233__CLASS_ROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_233__CLASS_ROUTINEOBJ.obj_hash = 302625151; meltcdat->dsym_233__CLASS_ROUTINEOBJ.obj_len = 3; /*inistring dstr_234__CLASS_ROUTINEOBJ*/ /*_._VALSTR___V436*/ meltfptr[435] = (melt_ptr_t) &meltcdat->dstr_234__CLASS_ROUTINEOBJ; meltcdat->dstr_234__CLASS_ROUTINEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_234__CLASS_ROUTINEOBJ.val, "CLASS_ROUTINEOBJ", sizeof (meltcdat->dstr_234__CLASS_ROUTINEOBJ.val)-1); meltcdat->dstr_234__CLASS_ROUTINEOBJ.val[16] = (char)0 ; meltcdat->dstr_234__CLASS_ROUTINEOBJ.slen = 16 ; /*inirout drout_235__OUTPUCOD_PROCROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V437*/ meltfptr[436] = (melt_ptr_t) &meltcdat->drout_235__OUTPUCOD_PROCROUTINE; meltcdat->drout_235__OUTPUCOD_PROCROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_235__OUTPUCOD_PROCROUTINE.routdescr, "OUTPUCOD_PROCROUTINE @warmelt-outobj.melt:1844", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_235__OUTPUCOD_PROCROUTINE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_235__OUTPUCOD_PROCROUTINE, meltrout_46_WARMELTmiOUTOBJ_OUTPUCOD_PROCROUTINE); /*iniclos dclo_236__OUTPUCOD_PROCROUTINE*/ /*_._VALCLO___V439*/ meltfptr[438] = (melt_ptr_t) &meltcdat->dclo_236__OUTPUCOD_PROCROUTINE; meltcdat->dclo_236__OUTPUCOD_PROCROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_236__OUTPUCOD_PROCROUTINE.nbval = 0; /*inistring dstr_237__*/ /*_._VALSTR___V438*/ meltfptr[437] = (melt_ptr_t) &meltcdat->dstr_237__; meltcdat->dstr_237__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_237__.val, "**", sizeof (meltcdat->dstr_237__.val)-1); meltcdat->dstr_237__.val[2] = (char)0 ; meltcdat->dstr_237__.slen = 2 ; /*iniobj dsym_238__VARIADIC_INDEX_IDSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V440*/ meltfptr[439]) /*_._VALDATA___V440*/ meltfptr[439] = (melt_ptr_t )&meltcdat->dsym_238__VARIADIC_INDEX_IDSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_238__VARIADIC_INDEX_IDSTR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_238__VARIADIC_INDEX_IDSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_238__VARIADIC_INDEX_IDSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_238__VARIADIC_INDEX_IDSTR.obj_hash = 890084931; meltcdat->dsym_238__VARIADIC_INDEX_IDSTR.obj_len = 3; /*inistring dstr_239__VARIADIC_INDEX_IDSTR*/ /*_._VALSTR___V441*/ meltfptr[440] = (melt_ptr_t) &meltcdat->dstr_239__VARIADIC_INDEX_IDSTR; meltcdat->dstr_239__VARIADIC_INDEX_IDSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_239__VARIADIC_INDEX_IDSTR.val, "VARIADIC_INDEX_IDSTR", sizeof (meltcdat->dstr_239__VARIADIC_INDEX_IDSTR.val)-1); meltcdat->dstr_239__VARIADIC_INDEX_IDSTR.val[20] = (char)0 ; meltcdat->dstr_239__VARIADIC_INDEX_IDSTR.slen = 20 ; /*iniobj dsym_240__VARIADIC_LENGTH_IDSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V442*/ meltfptr[441]) /*_._VALDATA___V442*/ meltfptr[441] = (melt_ptr_t )&meltcdat->dsym_240__VARIADIC_LENGTH_IDSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_240__VARIADIC_LENGTH_IDSTR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_240__VARIADIC_LENGTH_IDSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_240__VARIADIC_LENGTH_IDSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_240__VARIADIC_LENGTH_IDSTR.obj_hash = 768398948; meltcdat->dsym_240__VARIADIC_LENGTH_IDSTR.obj_len = 3; /*inistring dstr_241__VARIADIC_LENGTH_IDSTR*/ /*_._VALSTR___V443*/ meltfptr[442] = (melt_ptr_t) &meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR; meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR.val, "VARIADIC_LENGTH_IDSTR", sizeof (meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR.val)-1); meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR.val[21] = (char)0 ; meltcdat->dstr_241__VARIADIC_LENGTH_IDSTR.slen = 21 ; /*iniobj dsym_242__CLASS_OBJPUREVALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V444*/ meltfptr[443]) /*_._VALDATA___V444*/ meltfptr[443] = (melt_ptr_t )&meltcdat->dsym_242__CLASS_OBJPUREVALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_242__CLASS_OBJPUREVALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_242__CLASS_OBJPUREVALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_242__CLASS_OBJPUREVALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_242__CLASS_OBJPUREVALUE.obj_hash = 439671425; meltcdat->dsym_242__CLASS_OBJPUREVALUE.obj_len = 3; /*inistring dstr_243__CLASS_OBJPUREVALUE*/ /*_._VALSTR___V445*/ meltfptr[444] = (melt_ptr_t) &meltcdat->dstr_243__CLASS_OBJPUREVALUE; meltcdat->dstr_243__CLASS_OBJPUREVALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_243__CLASS_OBJPUREVALUE.val, "CLASS_OBJPUREVALUE", sizeof (meltcdat->dstr_243__CLASS_OBJPUREVALUE.val)-1); meltcdat->dstr_243__CLASS_OBJPUREVALUE.val[18] = (char)0 ; meltcdat->dstr_243__CLASS_OBJPUREVALUE.slen = 18 ; /*inirout drout_244__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*iniroutlocvar*/ /*_._VALROUT___V446*/ meltfptr[445] = (melt_ptr_t) &meltcdat->drout_244__OUTPUT_CURFRAME_CDAT_STRUCT; meltcdat->drout_244__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_244__OUTPUT_CURFRAME_CDAT_STRUCT.routdescr, "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.melt:2030", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_244__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_244__OUTPUT_CURFRAME_CDAT_STRUCT, meltrout_47_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_STRUCT); /*iniclos dclo_245__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*_._VALCLO___V447*/ meltfptr[446] = (melt_ptr_t) &meltcdat->dclo_245__OUTPUT_CURFRAME_CDAT_STRUCT; meltcdat->dclo_245__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_245__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 0; /*inirout drout_246__OUTPUT_CURFRAME_CDAT_FILL*/ /*iniroutlocvar*/ /*_._VALROUT___V448*/ meltfptr[447] = (melt_ptr_t) &meltcdat->drout_246__OUTPUT_CURFRAME_CDAT_FILL; meltcdat->drout_246__OUTPUT_CURFRAME_CDAT_FILL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_246__OUTPUT_CURFRAME_CDAT_FILL.routdescr, "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.melt:2055", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_246__OUTPUT_CURFRAME_CDAT_FILL.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_246__OUTPUT_CURFRAME_CDAT_FILL, meltrout_48_WARMELTmiOUTOBJ_OUTPUT_CURFRAME_CDAT_FILL); /*iniclos dclo_247__OUTPUT_CURFRAME_CDAT_FILL*/ /*_._VALCLO___V451*/ meltfptr[450] = (melt_ptr_t) &meltcdat->dclo_247__OUTPUT_CURFRAME_CDAT_FILL; meltcdat->dclo_247__OUTPUT_CURFRAME_CDAT_FILL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_247__OUTPUT_CURFRAME_CDAT_FILL.nbval = 0; /*inistring dstr_248__meltcdat*/ /*_._VALSTR___V449*/ meltfptr[448] = (melt_ptr_t) &meltcdat->dstr_248__meltcdat; meltcdat->dstr_248__meltcdat.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_248__meltcdat.val, "meltcdat", sizeof (meltcdat->dstr_248__meltcdat.val)-1); meltcdat->dstr_248__meltcdat.val[8] = (char)0 ; meltcdat->dstr_248__meltcdat.slen = 8 ; /*inistring dstr_249__meltcdat*/ /*_._VALSTR___V450*/ meltfptr[449] = (melt_ptr_t) &meltcdat->dstr_249__meltcdat; meltcdat->dstr_249__meltcdat.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_249__meltcdat.val, "meltcdat", sizeof (meltcdat->dstr_249__meltcdat.val)-1); meltcdat->dstr_249__meltcdat.val[8] = (char)0 ; meltcdat->dstr_249__meltcdat.slen = 8 ; /*inirout drout_250__OUTPUCOD_INITIALMODULEROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V452*/ meltfptr[451] = (melt_ptr_t) &meltcdat->drout_250__OUTPUCOD_INITIALMODULEROUTINE; meltcdat->drout_250__OUTPUCOD_INITIALMODULEROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_250__OUTPUCOD_INITIALMODULEROUTINE.routdescr, "OUTPUCOD_INITIALMODULEROUTINE @warmelt-outobj.melt:2102", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_250__OUTPUCOD_INITIALMODULEROUTINE.nbval = 26; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_250__OUTPUCOD_INITIALMODULEROUTINE, meltrout_49_WARMELTmiOUTOBJ_OUTPUCOD_INITIALMODULEROUTINE); /*iniclos dclo_251__OUTPUCOD_INITIALMODULEROUTINE*/ /*_._VALCLO___V454*/ meltfptr[453] = (melt_ptr_t) &meltcdat->dclo_251__OUTPUCOD_INITIALMODULEROUTINE; meltcdat->dclo_251__OUTPUCOD_INITIALMODULEROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_251__OUTPUCOD_INITIALMODULEROUTINE.nbval = 0; /*iniobj dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V455*/ meltfptr[454]) /*_._VALDATA___V455*/ meltfptr[454] = (melt_ptr_t )&meltcdat->dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ.obj_hash = 633261830; meltcdat->dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ.obj_len = 3; /*inistring dstr_253__CLASS_INITIAL_MODULE_ROU*/ /*_._VALSTR___V456*/ meltfptr[455] = (melt_ptr_t) &meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU; meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU.val, "CLASS_INITIAL_MODULE_ROUTINEOBJ", sizeof (meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU.val)-1); meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU.val[31] = (char)0 ; meltcdat->dstr_253__CLASS_INITIAL_MODULE_ROU.slen = 31 ; /*iniobj dsym_254__WARNING_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V457*/ meltfptr[456]) /*_._VALDATA___V457*/ meltfptr[456] = (melt_ptr_t )&meltcdat->dsym_254__WARNING_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_254__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_254__WARNING_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_254__WARNING_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_254__WARNING_AT.obj_hash = 1036427272; meltcdat->dsym_254__WARNING_AT.obj_len = 3; /*inistring dstr_255__WARNING_AT*/ /*_._VALSTR___V458*/ meltfptr[457] = (melt_ptr_t) &meltcdat->dstr_255__WARNING_AT; meltcdat->dstr_255__WARNING_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_255__WARNING_AT.val, "WARNING_AT", sizeof (meltcdat->dstr_255__WARNING_AT.val)-1); meltcdat->dstr_255__WARNING_AT.val[10] = (char)0 ; meltcdat->dstr_255__WARNING_AT.slen = 10 ; /*iniobj dsym_256__INFORM_AT*/ /*uniqueobj*/ if (!/*_._VALDATA___V459*/ meltfptr[458]) /*_._VALDATA___V459*/ meltfptr[458] = (melt_ptr_t )&meltcdat->dsym_256__INFORM_AT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_256__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_256__INFORM_AT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_256__INFORM_AT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_256__INFORM_AT.obj_hash = 595292461; meltcdat->dsym_256__INFORM_AT.obj_len = 3; /*inistring dstr_257__INFORM_AT*/ /*_._VALSTR___V460*/ meltfptr[459] = (melt_ptr_t) &meltcdat->dstr_257__INFORM_AT; meltcdat->dstr_257__INFORM_AT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_257__INFORM_AT.val, "INFORM_AT", sizeof (meltcdat->dstr_257__INFORM_AT.val)-1); meltcdat->dstr_257__INFORM_AT.val[9] = (char)0 ; meltcdat->dstr_257__INFORM_AT.slen = 9 ; /*inirout drout_258__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V453*/ meltfptr[452] = (melt_ptr_t) &meltcdat->drout_258__LAMBDA_; meltcdat->drout_258__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_258__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2253", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_258__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_258__LAMBDA_, meltrout_50_WARMELTmiOUTOBJ_LAMBDA_cl3); /*iniobj dsym_259__DISCR_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V461*/ meltfptr[460]) /*_._VALDATA___V461*/ meltfptr[460] = (melt_ptr_t )&meltcdat->dsym_259__DISCR_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_259__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_259__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_259__DISCR_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_259__DISCR_LIST.obj_hash = 98407634; meltcdat->dsym_259__DISCR_LIST.obj_len = 3; /*inistring dstr_260__DISCR_LIST*/ /*_._VALSTR___V462*/ meltfptr[461] = (melt_ptr_t) &meltcdat->dstr_260__DISCR_LIST; meltcdat->dstr_260__DISCR_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_260__DISCR_LIST.val, "DISCR_LIST", sizeof (meltcdat->dstr_260__DISCR_LIST.val)-1); meltcdat->dstr_260__DISCR_LIST.val[10] = (char)0 ; meltcdat->dstr_260__DISCR_LIST.slen = 10 ; /*iniobj dsym_261__LIST_TO_MULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V463*/ meltfptr[462]) /*_._VALDATA___V463*/ meltfptr[462] = (melt_ptr_t )&meltcdat->dsym_261__LIST_TO_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_261__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_261__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_261__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_261__LIST_TO_MULTIPLE.obj_hash = 987171205; meltcdat->dsym_261__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_262__LIST_TO_MULTIPLE*/ /*_._VALSTR___V464*/ meltfptr[463] = (melt_ptr_t) &meltcdat->dstr_262__LIST_TO_MULTIPLE; meltcdat->dstr_262__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_262__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (meltcdat->dstr_262__LIST_TO_MULTIPLE.val)-1); meltcdat->dstr_262__LIST_TO_MULTIPLE.val[16] = (char)0 ; meltcdat->dstr_262__LIST_TO_MULTIPLE.slen = 16 ; /*iniobj dsym_263__DISCR_MULTIPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V465*/ meltfptr[464]) /*_._VALDATA___V465*/ meltfptr[464] = (melt_ptr_t )&meltcdat->dsym_263__DISCR_MULTIPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_263__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_263__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_263__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_263__DISCR_MULTIPLE.obj_hash = 91864583; meltcdat->dsym_263__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_264__DISCR_MULTIPLE*/ /*_._VALSTR___V466*/ meltfptr[465] = (melt_ptr_t) &meltcdat->dstr_264__DISCR_MULTIPLE; meltcdat->dstr_264__DISCR_MULTIPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_264__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (meltcdat->dstr_264__DISCR_MULTIPLE.val)-1); meltcdat->dstr_264__DISCR_MULTIPLE.val[14] = (char)0 ; meltcdat->dstr_264__DISCR_MULTIPLE.slen = 14 ; /*iniobj dsym_265__DISCR_STRBUF*/ /*uniqueobj*/ if (!/*_._VALDATA___V467*/ meltfptr[466]) /*_._VALDATA___V467*/ meltfptr[466] = (melt_ptr_t )&meltcdat->dsym_265__DISCR_STRBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_265__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_265__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_265__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_265__DISCR_STRBUF.obj_hash = 492035674; meltcdat->dsym_265__DISCR_STRBUF.obj_len = 3; /*inistring dstr_266__DISCR_STRBUF*/ /*_._VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) &meltcdat->dstr_266__DISCR_STRBUF; meltcdat->dstr_266__DISCR_STRBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_266__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (meltcdat->dstr_266__DISCR_STRBUF.val)-1); meltcdat->dstr_266__DISCR_STRBUF.val[12] = (char)0 ; meltcdat->dstr_266__DISCR_STRBUF.slen = 12 ; /*iniobj dsym_267__CLASS_OBJINSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V469*/ meltfptr[468]) /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t )&meltcdat->dsym_267__CLASS_OBJINSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_267__CLASS_OBJINSTR", melt_magic_discr ((melt_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_OBJINSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_267__CLASS_OBJINSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_267__CLASS_OBJINSTR.obj_hash = 310627895; meltcdat->dsym_267__CLASS_OBJINSTR.obj_len = 3; /*inistring dstr_268__CLASS_OBJINSTR*/ /*_._VALSTR___V470*/ meltfptr[469] = (melt_ptr_t) &meltcdat->dstr_268__CLASS_OBJINSTR; meltcdat->dstr_268__CLASS_OBJINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_268__CLASS_OBJINSTR.val, "CLASS_OBJINSTR", sizeof (meltcdat->dstr_268__CLASS_OBJINSTR.val)-1); meltcdat->dstr_268__CLASS_OBJINSTR.val[14] = (char)0 ; meltcdat->dstr_268__CLASS_OBJINSTR.slen = 14 ; /*inirout drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V471*/ meltfptr[470] = (melt_ptr_t) &meltcdat->drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE; meltcdat->drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE.routdescr, "OUTPUT_CENTRALDECL_HOOKROUTINE @warmelt-outobj.melt:2450", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE, meltrout_51_WARMELTmiOUTOBJ_OUTPUT_CENTRALDECL_HOOKROUTINE); /*iniclos dclo_270__OUTPUT_CENTRALDECL_HOOKROUTINE*/ /*_._VALCLO___V472*/ meltfptr[471] = (melt_ptr_t) &meltcdat->dclo_270__OUTPUT_CENTRALDECL_HOOKROUTINE; meltcdat->dclo_270__OUTPUT_CENTRALDECL_HOOKROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_270__OUTPUT_CENTRALDECL_HOOKROUTINE.nbval = 0; /*iniobj dsym_271__CLASS_NREP_HOOKPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V473*/ meltfptr[472]) /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t )&meltcdat->dsym_271__CLASS_NREP_HOOKPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_271__CLASS_NREP_HOOKPROC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_271__CLASS_NREP_HOOKPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_271__CLASS_NREP_HOOKPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_271__CLASS_NREP_HOOKPROC.obj_hash = 999315103; meltcdat->dsym_271__CLASS_NREP_HOOKPROC.obj_len = 3; /*inistring dstr_272__CLASS_NREP_HOOKPROC*/ /*_._VALSTR___V474*/ meltfptr[473] = (melt_ptr_t) &meltcdat->dstr_272__CLASS_NREP_HOOKPROC; meltcdat->dstr_272__CLASS_NREP_HOOKPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_272__CLASS_NREP_HOOKPROC.val, "CLASS_NREP_HOOKPROC", sizeof (meltcdat->dstr_272__CLASS_NREP_HOOKPROC.val)-1); meltcdat->dstr_272__CLASS_NREP_HOOKPROC.val[19] = (char)0 ; meltcdat->dstr_272__CLASS_NREP_HOOKPROC.slen = 19 ; /*iniobj dsym_273__CLASS_OBJCFORMAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V475*/ meltfptr[474]) /*_._VALDATA___V475*/ meltfptr[474] = (melt_ptr_t )&meltcdat->dsym_273__CLASS_OBJCFORMAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_273__CLASS_OBJCFORMAL", melt_magic_discr ((melt_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__CLASS_OBJCFORMAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_273__CLASS_OBJCFORMAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_273__CLASS_OBJCFORMAL.obj_hash = 344955941; meltcdat->dsym_273__CLASS_OBJCFORMAL.obj_len = 3; /*inistring dstr_274__CLASS_OBJCFORMAL*/ /*_._VALSTR___V476*/ meltfptr[475] = (melt_ptr_t) &meltcdat->dstr_274__CLASS_OBJCFORMAL; meltcdat->dstr_274__CLASS_OBJCFORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_274__CLASS_OBJCFORMAL.val, "CLASS_OBJCFORMAL", sizeof (meltcdat->dstr_274__CLASS_OBJCFORMAL.val)-1); meltcdat->dstr_274__CLASS_OBJCFORMAL.val[16] = (char)0 ; meltcdat->dstr_274__CLASS_OBJCFORMAL.slen = 16 ; /*inirout drout_275__OUTPUCOD_HOOKROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V477*/ meltfptr[476] = (melt_ptr_t) &meltcdat->drout_275__OUTPUCOD_HOOKROUTINE; meltcdat->drout_275__OUTPUCOD_HOOKROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_275__OUTPUCOD_HOOKROUTINE.routdescr, "OUTPUCOD_HOOKROUTINE @warmelt-outobj.melt:2508", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_275__OUTPUCOD_HOOKROUTINE.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_275__OUTPUCOD_HOOKROUTINE, meltrout_52_WARMELTmiOUTOBJ_OUTPUCOD_HOOKROUTINE); /*iniclos dclo_276__OUTPUCOD_HOOKROUTINE*/ /*_._VALCLO___V478*/ meltfptr[477] = (melt_ptr_t) &meltcdat->dclo_276__OUTPUCOD_HOOKROUTINE; meltcdat->dclo_276__OUTPUCOD_HOOKROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_276__OUTPUCOD_HOOKROUTINE.nbval = 0; /*inirout drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V479*/ meltfptr[478] = (melt_ptr_t) &meltcdat->drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE; meltcdat->drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE.routdescr, "OUTPUCOD_INITIALEXTENSIONROUTINE @warmelt-outobj.melt:2665", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE.nbval = 23; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE, meltrout_53_WARMELTmiOUTOBJ_OUTPUCOD_INITIALEXTENSIONROUTINE); /*iniclos dclo_278__OUTPUCOD_INITIALEXTENSIONROUTINE*/ /*_._VALCLO___V481*/ meltfptr[480] = (melt_ptr_t) &meltcdat->dclo_278__OUTPUCOD_INITIALEXTENSIONROUTINE; meltcdat->dclo_278__OUTPUCOD_INITIALEXTENSIONROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_278__OUTPUCOD_INITIALEXTENSIONROUTINE.nbval = 0; /*inirout drout_279__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V480*/ meltfptr[479] = (melt_ptr_t) &meltcdat->drout_279__LAMBDA_; meltcdat->drout_279__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:2740", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_279__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_279__LAMBDA_, meltrout_54_WARMELTmiOUTOBJ_LAMBDA_cl4); /*inirout drout_280__OUTPUCOD_GETARG*/ /*iniroutlocvar*/ /*_._VALROUT___V482*/ meltfptr[481] = (melt_ptr_t) &meltcdat->drout_280__OUTPUCOD_GETARG; meltcdat->drout_280__OUTPUCOD_GETARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_280__OUTPUCOD_GETARG.routdescr, "OUTPUCOD_GETARG @warmelt-outobj.melt:2824", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_280__OUTPUCOD_GETARG.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_280__OUTPUCOD_GETARG, meltrout_55_WARMELTmiOUTOBJ_OUTPUCOD_GETARG); /*iniclos dclo_281__OUTPUCOD_GETARG*/ /*_._VALCLO___V483*/ meltfptr[482] = (melt_ptr_t) &meltcdat->dclo_281__OUTPUCOD_GETARG; meltcdat->dclo_281__OUTPUCOD_GETARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_281__OUTPUCOD_GETARG.nbval = 0; /*iniobj dsym_282__CLASS_OBJGETARG*/ /*uniqueobj*/ if (!/*_._VALDATA___V484*/ meltfptr[483]) /*_._VALDATA___V484*/ meltfptr[483] = (melt_ptr_t )&meltcdat->dsym_282__CLASS_OBJGETARG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_282__CLASS_OBJGETARG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_282__CLASS_OBJGETARG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_282__CLASS_OBJGETARG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_282__CLASS_OBJGETARG.obj_hash = 596373581; meltcdat->dsym_282__CLASS_OBJGETARG.obj_len = 3; /*inistring dstr_283__CLASS_OBJGETARG*/ /*_._VALSTR___V485*/ meltfptr[484] = (melt_ptr_t) &meltcdat->dstr_283__CLASS_OBJGETARG; meltcdat->dstr_283__CLASS_OBJGETARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_283__CLASS_OBJGETARG.val, "CLASS_OBJGETARG", sizeof (meltcdat->dstr_283__CLASS_OBJGETARG.val)-1); meltcdat->dstr_283__CLASS_OBJGETARG.val[15] = (char)0 ; meltcdat->dstr_283__CLASS_OBJGETARG.slen = 15 ; /*iniobj dsym_284__CLASS_FORMAL_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V486*/ meltfptr[485]) /*_._VALDATA___V486*/ meltfptr[485] = (melt_ptr_t )&meltcdat->dsym_284__CLASS_FORMAL_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_284__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_284__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_284__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_284__CLASS_FORMAL_BINDING.obj_hash = 3733780; meltcdat->dsym_284__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_285__CLASS_FORMAL_BINDING*/ /*_._VALSTR___V487*/ meltfptr[486] = (melt_ptr_t) &meltcdat->dstr_285__CLASS_FORMAL_BINDING; meltcdat->dstr_285__CLASS_FORMAL_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_285__CLASS_FORMAL_BINDING.val, "CLASS_FORMAL_BINDING", sizeof (meltcdat->dstr_285__CLASS_FORMAL_BINDING.val)-1); meltcdat->dstr_285__CLASS_FORMAL_BINDING.val[20] = (char)0 ; meltcdat->dstr_285__CLASS_FORMAL_BINDING.slen = 20 ; /*inirout drout_286__OUTPUCOD_GETARGREST*/ /*iniroutlocvar*/ /*_._VALROUT___V488*/ meltfptr[487] = (melt_ptr_t) &meltcdat->drout_286__OUTPUCOD_GETARGREST; meltcdat->drout_286__OUTPUCOD_GETARGREST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_286__OUTPUCOD_GETARGREST.routdescr, "OUTPUCOD_GETARGREST @warmelt-outobj.melt:2890", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_286__OUTPUCOD_GETARGREST.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_286__OUTPUCOD_GETARGREST, meltrout_56_WARMELTmiOUTOBJ_OUTPUCOD_GETARGREST); /*iniclos dclo_287__OUTPUCOD_GETARGREST*/ /*_._VALCLO___V489*/ meltfptr[488] = (melt_ptr_t) &meltcdat->dclo_287__OUTPUCOD_GETARGREST; meltcdat->dclo_287__OUTPUCOD_GETARGREST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_287__OUTPUCOD_GETARGREST.nbval = 0; /*iniobj dsym_288__CLASS_OBJGETARGREST*/ /*uniqueobj*/ if (!/*_._VALDATA___V490*/ meltfptr[489]) /*_._VALDATA___V490*/ meltfptr[489] = (melt_ptr_t )&meltcdat->dsym_288__CLASS_OBJGETARGREST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_288__CLASS_OBJGETARGREST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_288__CLASS_OBJGETARGREST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_288__CLASS_OBJGETARGREST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_288__CLASS_OBJGETARGREST.obj_hash = 558628622; meltcdat->dsym_288__CLASS_OBJGETARGREST.obj_len = 3; /*inistring dstr_289__CLASS_OBJGETARGREST*/ /*_._VALSTR___V491*/ meltfptr[490] = (melt_ptr_t) &meltcdat->dstr_289__CLASS_OBJGETARGREST; meltcdat->dstr_289__CLASS_OBJGETARGREST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_289__CLASS_OBJGETARGREST.val, "CLASS_OBJGETARGREST", sizeof (meltcdat->dstr_289__CLASS_OBJGETARGREST.val)-1); meltcdat->dstr_289__CLASS_OBJGETARGREST.val[19] = (char)0 ; meltcdat->dstr_289__CLASS_OBJGETARGREST.slen = 19 ; /*inirout drout_290__OUTPUCOD_OBJCFORMAL*/ /*iniroutlocvar*/ /*_._VALROUT___V492*/ meltfptr[491] = (melt_ptr_t) &meltcdat->drout_290__OUTPUCOD_OBJCFORMAL; meltcdat->drout_290__OUTPUCOD_OBJCFORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_290__OUTPUCOD_OBJCFORMAL.routdescr, "OUTPUCOD_OBJCFORMAL @warmelt-outobj.melt:2974", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_290__OUTPUCOD_OBJCFORMAL.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_290__OUTPUCOD_OBJCFORMAL, meltrout_57_WARMELTmiOUTOBJ_OUTPUCOD_OBJCFORMAL); /*iniclos dclo_291__OUTPUCOD_OBJCFORMAL*/ /*_._VALCLO___V493*/ meltfptr[492] = (melt_ptr_t) &meltcdat->dclo_291__OUTPUCOD_OBJCFORMAL; meltcdat->dclo_291__OUTPUCOD_OBJCFORMAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_291__OUTPUCOD_OBJCFORMAL.nbval = 0; /*inirout drout_292__OUTPUCOD_OBJFETCHMODVAR*/ /*iniroutlocvar*/ /*_._VALROUT___V494*/ meltfptr[493] = (melt_ptr_t) &meltcdat->drout_292__OUTPUCOD_OBJFETCHMODVAR; meltcdat->drout_292__OUTPUCOD_OBJFETCHMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_292__OUTPUCOD_OBJFETCHMODVAR.routdescr, "OUTPUCOD_OBJFETCHMODVAR @warmelt-outobj.melt:2989", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_292__OUTPUCOD_OBJFETCHMODVAR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_292__OUTPUCOD_OBJFETCHMODVAR, meltrout_58_WARMELTmiOUTOBJ_OUTPUCOD_OBJFETCHMODVAR); /*iniclos dclo_293__OUTPUCOD_OBJFETCHMODVAR*/ /*_._VALCLO___V495*/ meltfptr[494] = (melt_ptr_t) &meltcdat->dclo_293__OUTPUCOD_OBJFETCHMODVAR; meltcdat->dclo_293__OUTPUCOD_OBJFETCHMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_293__OUTPUCOD_OBJFETCHMODVAR.nbval = 0; /*iniobj dsym_294__CLASS_OBJFETCHMODVAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V496*/ meltfptr[495]) /*_._VALDATA___V496*/ meltfptr[495] = (melt_ptr_t )&meltcdat->dsym_294__CLASS_OBJFETCHMODVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_294__CLASS_OBJFETCHMODVAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_294__CLASS_OBJFETCHMODVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_294__CLASS_OBJFETCHMODVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_294__CLASS_OBJFETCHMODVAR.obj_hash = 493414352; meltcdat->dsym_294__CLASS_OBJFETCHMODVAR.obj_len = 3; /*inistring dstr_295__CLASS_OBJFETCHMODVAR*/ /*_._VALSTR___V497*/ meltfptr[496] = (melt_ptr_t) &meltcdat->dstr_295__CLASS_OBJFETCHMODVAR; meltcdat->dstr_295__CLASS_OBJFETCHMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_295__CLASS_OBJFETCHMODVAR.val, "CLASS_OBJFETCHMODVAR", sizeof (meltcdat->dstr_295__CLASS_OBJFETCHMODVAR.val)-1); meltcdat->dstr_295__CLASS_OBJFETCHMODVAR.val[20] = (char)0 ; meltcdat->dstr_295__CLASS_OBJFETCHMODVAR.slen = 20 ; /*inirout drout_296__OUTPUCOD_OBJPUTMODVAR*/ /*iniroutlocvar*/ /*_._VALROUT___V498*/ meltfptr[497] = (melt_ptr_t) &meltcdat->drout_296__OUTPUCOD_OBJPUTMODVAR; meltcdat->drout_296__OUTPUCOD_OBJPUTMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_296__OUTPUCOD_OBJPUTMODVAR.routdescr, "OUTPUCOD_OBJPUTMODVAR @warmelt-outobj.melt:3004", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_296__OUTPUCOD_OBJPUTMODVAR.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_296__OUTPUCOD_OBJPUTMODVAR, meltrout_59_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTMODVAR); /*iniclos dclo_297__OUTPUCOD_OBJPUTMODVAR*/ /*_._VALCLO___V499*/ meltfptr[498] = (melt_ptr_t) &meltcdat->dclo_297__OUTPUCOD_OBJPUTMODVAR; meltcdat->dclo_297__OUTPUCOD_OBJPUTMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_297__OUTPUCOD_OBJPUTMODVAR.nbval = 0; /*iniobj dsym_298__CLASS_OBJPUTMODVAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V500*/ meltfptr[499]) /*_._VALDATA___V500*/ meltfptr[499] = (melt_ptr_t )&meltcdat->dsym_298__CLASS_OBJPUTMODVAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_298__CLASS_OBJPUTMODVAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_298__CLASS_OBJPUTMODVAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_298__CLASS_OBJPUTMODVAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_298__CLASS_OBJPUTMODVAR.obj_hash = 665291680; meltcdat->dsym_298__CLASS_OBJPUTMODVAR.obj_len = 3; /*inistring dstr_299__CLASS_OBJPUTMODVAR*/ /*_._VALSTR___V501*/ meltfptr[500] = (melt_ptr_t) &meltcdat->dstr_299__CLASS_OBJPUTMODVAR; meltcdat->dstr_299__CLASS_OBJPUTMODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_299__CLASS_OBJPUTMODVAR.val, "CLASS_OBJPUTMODVAR", sizeof (meltcdat->dstr_299__CLASS_OBJPUTMODVAR.val)-1); meltcdat->dstr_299__CLASS_OBJPUTMODVAR.val[18] = (char)0 ; meltcdat->dstr_299__CLASS_OBJPUTMODVAR.slen = 18 ; /*inirout drout_300__OUTPUCOD_OBJPUTOUTARG*/ /*iniroutlocvar*/ /*_._VALROUT___V502*/ meltfptr[501] = (melt_ptr_t) &meltcdat->drout_300__OUTPUCOD_OBJPUTOUTARG; meltcdat->drout_300__OUTPUCOD_OBJPUTOUTARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_300__OUTPUCOD_OBJPUTOUTARG.routdescr, "OUTPUCOD_OBJPUTOUTARG @warmelt-outobj.melt:3025", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_300__OUTPUCOD_OBJPUTOUTARG.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_300__OUTPUCOD_OBJPUTOUTARG, meltrout_60_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTOUTARG); /*iniclos dclo_301__OUTPUCOD_OBJPUTOUTARG*/ /*_._VALCLO___V503*/ meltfptr[502] = (melt_ptr_t) &meltcdat->dclo_301__OUTPUCOD_OBJPUTOUTARG; meltcdat->dclo_301__OUTPUCOD_OBJPUTOUTARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_301__OUTPUCOD_OBJPUTOUTARG.nbval = 0; /*iniobj dsym_302__CLASS_OBJPUTOUTARG*/ /*uniqueobj*/ if (!/*_._VALDATA___V504*/ meltfptr[503]) /*_._VALDATA___V504*/ meltfptr[503] = (melt_ptr_t )&meltcdat->dsym_302__CLASS_OBJPUTOUTARG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_302__CLASS_OBJPUTOUTARG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_302__CLASS_OBJPUTOUTARG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_302__CLASS_OBJPUTOUTARG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_302__CLASS_OBJPUTOUTARG.obj_hash = 399195986; meltcdat->dsym_302__CLASS_OBJPUTOUTARG.obj_len = 3; /*inistring dstr_303__CLASS_OBJPUTOUTARG*/ /*_._VALSTR___V505*/ meltfptr[504] = (melt_ptr_t) &meltcdat->dstr_303__CLASS_OBJPUTOUTARG; meltcdat->dstr_303__CLASS_OBJPUTOUTARG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_303__CLASS_OBJPUTOUTARG.val, "CLASS_OBJPUTOUTARG", sizeof (meltcdat->dstr_303__CLASS_OBJPUTOUTARG.val)-1); meltcdat->dstr_303__CLASS_OBJPUTOUTARG.val[18] = (char)0 ; meltcdat->dstr_303__CLASS_OBJPUTOUTARG.slen = 18 ; /*inirout drout_304__OUTPUCOD_OBJLOCV*/ /*iniroutlocvar*/ /*_._VALROUT___V506*/ meltfptr[505] = (melt_ptr_t) &meltcdat->drout_304__OUTPUCOD_OBJLOCV; meltcdat->drout_304__OUTPUCOD_OBJLOCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_304__OUTPUCOD_OBJLOCV.routdescr, "OUTPUCOD_OBJLOCV @warmelt-outobj.melt:3051", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_304__OUTPUCOD_OBJLOCV.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_304__OUTPUCOD_OBJLOCV, meltrout_61_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCV); /*iniclos dclo_305__OUTPUCOD_OBJLOCV*/ /*_._VALCLO___V507*/ meltfptr[506] = (melt_ptr_t) &meltcdat->dclo_305__OUTPUCOD_OBJLOCV; meltcdat->dclo_305__OUTPUCOD_OBJLOCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_305__OUTPUCOD_OBJLOCV.nbval = 0; /*iniobj dsym_306__CTYPE_LONG*/ /*uniqueobj*/ if (!/*_._VALDATA___V508*/ meltfptr[507]) /*_._VALDATA___V508*/ meltfptr[507] = (melt_ptr_t )&meltcdat->dsym_306__CTYPE_LONG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_306__CTYPE_LONG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_306__CTYPE_LONG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_306__CTYPE_LONG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_306__CTYPE_LONG.obj_hash = 64180850; meltcdat->dsym_306__CTYPE_LONG.obj_len = 3; /*inistring dstr_307__CTYPE_LONG*/ /*_._VALSTR___V509*/ meltfptr[508] = (melt_ptr_t) &meltcdat->dstr_307__CTYPE_LONG; meltcdat->dstr_307__CTYPE_LONG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_307__CTYPE_LONG.val, "CTYPE_LONG", sizeof (meltcdat->dstr_307__CTYPE_LONG.val)-1); meltcdat->dstr_307__CTYPE_LONG.val[10] = (char)0 ; meltcdat->dstr_307__CTYPE_LONG.slen = 10 ; /*inirout drout_308__OUTPUCOD_OBJCLOCCV*/ /*iniroutlocvar*/ /*_._VALROUT___V510*/ meltfptr[509] = (melt_ptr_t) &meltcdat->drout_308__OUTPUCOD_OBJCLOCCV; meltcdat->drout_308__OUTPUCOD_OBJCLOCCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_308__OUTPUCOD_OBJCLOCCV.routdescr, "OUTPUCOD_OBJCLOCCV @warmelt-outobj.melt:3083", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_308__OUTPUCOD_OBJCLOCCV.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_308__OUTPUCOD_OBJCLOCCV, meltrout_62_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOCCV); /*iniclos dclo_309__OUTPUCOD_OBJCLOCCV*/ /*_._VALCLO___V511*/ meltfptr[510] = (melt_ptr_t) &meltcdat->dclo_309__OUTPUCOD_OBJCLOCCV; meltcdat->dclo_309__OUTPUCOD_OBJCLOCCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_309__OUTPUCOD_OBJCLOCCV.nbval = 0; /*iniobj dsym_310__CLASS_OBJCLOCCV*/ /*uniqueobj*/ if (!/*_._VALDATA___V512*/ meltfptr[511]) /*_._VALDATA___V512*/ meltfptr[511] = (melt_ptr_t )&meltcdat->dsym_310__CLASS_OBJCLOCCV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_310__CLASS_OBJCLOCCV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_310__CLASS_OBJCLOCCV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_310__CLASS_OBJCLOCCV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_310__CLASS_OBJCLOCCV.obj_hash = 195863179; meltcdat->dsym_310__CLASS_OBJCLOCCV.obj_len = 3; /*inistring dstr_311__CLASS_OBJCLOCCV*/ /*_._VALSTR___V513*/ meltfptr[512] = (melt_ptr_t) &meltcdat->dstr_311__CLASS_OBJCLOCCV; meltcdat->dstr_311__CLASS_OBJCLOCCV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_311__CLASS_OBJCLOCCV.val, "CLASS_OBJCLOCCV", sizeof (meltcdat->dstr_311__CLASS_OBJCLOCCV.val)-1); meltcdat->dstr_311__CLASS_OBJCLOCCV.val[15] = (char)0 ; meltcdat->dstr_311__CLASS_OBJCLOCCV.slen = 15 ; /*inirout drout_312__OUTPUCOD_OBJCLOHOOKV*/ /*iniroutlocvar*/ /*_._VALROUT___V514*/ meltfptr[513] = (melt_ptr_t) &meltcdat->drout_312__OUTPUCOD_OBJCLOHOOKV; meltcdat->drout_312__OUTPUCOD_OBJCLOHOOKV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_312__OUTPUCOD_OBJCLOHOOKV.routdescr, "OUTPUCOD_OBJCLOHOOKV @warmelt-outobj.melt:3102", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_312__OUTPUCOD_OBJCLOHOOKV.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_312__OUTPUCOD_OBJCLOHOOKV, meltrout_63_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLOHOOKV); /*iniclos dclo_313__OUTPUCOD_OBJCLOHOOKV*/ /*_._VALCLO___V515*/ meltfptr[514] = (melt_ptr_t) &meltcdat->dclo_313__OUTPUCOD_OBJCLOHOOKV; meltcdat->dclo_313__OUTPUCOD_OBJCLOHOOKV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_313__OUTPUCOD_OBJCLOHOOKV.nbval = 0; /*iniobj dsym_314__CLASS_OBJCLOHOOKV*/ /*uniqueobj*/ if (!/*_._VALDATA___V516*/ meltfptr[515]) /*_._VALDATA___V516*/ meltfptr[515] = (melt_ptr_t )&meltcdat->dsym_314__CLASS_OBJCLOHOOKV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_314__CLASS_OBJCLOHOOKV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_314__CLASS_OBJCLOHOOKV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_314__CLASS_OBJCLOHOOKV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_314__CLASS_OBJCLOHOOKV.obj_hash = 822920976; meltcdat->dsym_314__CLASS_OBJCLOHOOKV.obj_len = 3; /*inistring dstr_315__CLASS_OBJCLOHOOKV*/ /*_._VALSTR___V517*/ meltfptr[516] = (melt_ptr_t) &meltcdat->dstr_315__CLASS_OBJCLOHOOKV; meltcdat->dstr_315__CLASS_OBJCLOHOOKV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_315__CLASS_OBJCLOHOOKV.val, "CLASS_OBJCLOHOOKV", sizeof (meltcdat->dstr_315__CLASS_OBJCLOHOOKV.val)-1); meltcdat->dstr_315__CLASS_OBJCLOHOOKV.val[17] = (char)0 ; meltcdat->dstr_315__CLASS_OBJCLOHOOKV.slen = 17 ; /*inirout drout_316__OUTPUCOD_OBJCONSTV*/ /*iniroutlocvar*/ /*_._VALROUT___V518*/ meltfptr[517] = (melt_ptr_t) &meltcdat->drout_316__OUTPUCOD_OBJCONSTV; meltcdat->drout_316__OUTPUCOD_OBJCONSTV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_316__OUTPUCOD_OBJCONSTV.routdescr, "OUTPUCOD_OBJCONSTV @warmelt-outobj.melt:3123", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_316__OUTPUCOD_OBJCONSTV.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_316__OUTPUCOD_OBJCONSTV, meltrout_64_WARMELTmiOUTOBJ_OUTPUCOD_OBJCONSTV); /*iniclos dclo_317__OUTPUCOD_OBJCONSTV*/ /*_._VALCLO___V519*/ meltfptr[518] = (melt_ptr_t) &meltcdat->dclo_317__OUTPUCOD_OBJCONSTV; meltcdat->dclo_317__OUTPUCOD_OBJCONSTV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_317__OUTPUCOD_OBJCONSTV.nbval = 0; /*iniobj dsym_318__CLASS_OBJCONSTV*/ /*uniqueobj*/ if (!/*_._VALDATA___V520*/ meltfptr[519]) /*_._VALDATA___V520*/ meltfptr[519] = (melt_ptr_t )&meltcdat->dsym_318__CLASS_OBJCONSTV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_318__CLASS_OBJCONSTV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_318__CLASS_OBJCONSTV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_318__CLASS_OBJCONSTV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_318__CLASS_OBJCONSTV.obj_hash = 125371776; meltcdat->dsym_318__CLASS_OBJCONSTV.obj_len = 3; /*inistring dstr_319__CLASS_OBJCONSTV*/ /*_._VALSTR___V521*/ meltfptr[520] = (melt_ptr_t) &meltcdat->dstr_319__CLASS_OBJCONSTV; meltcdat->dstr_319__CLASS_OBJCONSTV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_319__CLASS_OBJCONSTV.val, "CLASS_OBJCONSTV", sizeof (meltcdat->dstr_319__CLASS_OBJCONSTV.val)-1); meltcdat->dstr_319__CLASS_OBJCONSTV.val[15] = (char)0 ; meltcdat->dstr_319__CLASS_OBJCONSTV.slen = 15 ; /*inirout drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V522*/ meltfptr[521] = (melt_ptr_t) &meltcdat->drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST; meltcdat->drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST.routdescr, "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.melt:3143", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST, meltrout_65_WARMELTmiOUTOBJ_OUTPUT_CODE_INSTRUCTIONS_LIST); /*iniclos dclo_321__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*_._VALCLO___V523*/ meltfptr[522] = (melt_ptr_t) &meltcdat->dclo_321__OUTPUT_CODE_INSTRUCTIONS_LIST; meltcdat->dclo_321__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_321__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 0; /*iniobj dsym_322__CLASS_OBJPLAINBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V524*/ meltfptr[523]) /*_._VALDATA___V524*/ meltfptr[523] = (melt_ptr_t )&meltcdat->dsym_322__CLASS_OBJPLAINBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_322__CLASS_OBJPLAINBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_322__CLASS_OBJPLAINBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_322__CLASS_OBJPLAINBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_322__CLASS_OBJPLAINBLOCK.obj_hash = 984803675; meltcdat->dsym_322__CLASS_OBJPLAINBLOCK.obj_len = 3; /*inistring dstr_323__CLASS_OBJPLAINBLOCK*/ /*_._VALSTR___V525*/ meltfptr[524] = (melt_ptr_t) &meltcdat->dstr_323__CLASS_OBJPLAINBLOCK; meltcdat->dstr_323__CLASS_OBJPLAINBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_323__CLASS_OBJPLAINBLOCK.val, "CLASS_OBJPLAINBLOCK", sizeof (meltcdat->dstr_323__CLASS_OBJPLAINBLOCK.val)-1); meltcdat->dstr_323__CLASS_OBJPLAINBLOCK.val[19] = (char)0 ; meltcdat->dstr_323__CLASS_OBJPLAINBLOCK.slen = 19 ; /*inirout drout_324__OUTPUCOD_OBJCHECKSIGNAL*/ /*iniroutlocvar*/ /*_._VALROUT___V526*/ meltfptr[525] = (melt_ptr_t) &meltcdat->drout_324__OUTPUCOD_OBJCHECKSIGNAL; meltcdat->drout_324__OUTPUCOD_OBJCHECKSIGNAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_324__OUTPUCOD_OBJCHECKSIGNAL.routdescr, "OUTPUCOD_OBJCHECKSIGNAL @warmelt-outobj.melt:3177", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_324__OUTPUCOD_OBJCHECKSIGNAL.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_324__OUTPUCOD_OBJCHECKSIGNAL, meltrout_66_WARMELTmiOUTOBJ_OUTPUCOD_OBJCHECKSIGNAL); /*iniclos dclo_325__OUTPUCOD_OBJCHECKSIGNAL*/ /*_._VALCLO___V527*/ meltfptr[526] = (melt_ptr_t) &meltcdat->dclo_325__OUTPUCOD_OBJCHECKSIGNAL; meltcdat->dclo_325__OUTPUCOD_OBJCHECKSIGNAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_325__OUTPUCOD_OBJCHECKSIGNAL.nbval = 0; /*iniobj dsym_326__CLASS_OBJCHECKSIGNAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V528*/ meltfptr[527]) /*_._VALDATA___V528*/ meltfptr[527] = (melt_ptr_t )&meltcdat->dsym_326__CLASS_OBJCHECKSIGNAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_326__CLASS_OBJCHECKSIGNAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_326__CLASS_OBJCHECKSIGNAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_326__CLASS_OBJCHECKSIGNAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_326__CLASS_OBJCHECKSIGNAL.obj_hash = 215068855; meltcdat->dsym_326__CLASS_OBJCHECKSIGNAL.obj_len = 3; /*inistring dstr_327__CLASS_OBJCHECKSIGNAL*/ /*_._VALSTR___V529*/ meltfptr[528] = (melt_ptr_t) &meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL; meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL.val, "CLASS_OBJCHECKSIGNAL", sizeof (meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL.val)-1); meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL.val[20] = (char)0 ; meltcdat->dstr_327__CLASS_OBJCHECKSIGNAL.slen = 20 ; /*inirout drout_328__OUTPUCOD_OBJANYBLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V530*/ meltfptr[529] = (melt_ptr_t) &meltcdat->drout_328__OUTPUCOD_OBJANYBLOCK; meltcdat->drout_328__OUTPUCOD_OBJANYBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_328__OUTPUCOD_OBJANYBLOCK.routdescr, "OUTPUCOD_OBJANYBLOCK @warmelt-outobj.melt:3190", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_328__OUTPUCOD_OBJANYBLOCK.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_328__OUTPUCOD_OBJANYBLOCK, meltrout_67_WARMELTmiOUTOBJ_OUTPUCOD_OBJANYBLOCK); /*iniclos dclo_329__OUTPUCOD_OBJANYBLOCK*/ /*_._VALCLO___V531*/ meltfptr[530] = (melt_ptr_t) &meltcdat->dclo_329__OUTPUCOD_OBJANYBLOCK; meltcdat->dclo_329__OUTPUCOD_OBJANYBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_329__OUTPUCOD_OBJANYBLOCK.nbval = 0; /*iniobj dsym_330__CLASS_OBJANYBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V532*/ meltfptr[531]) /*_._VALDATA___V532*/ meltfptr[531] = (melt_ptr_t )&meltcdat->dsym_330__CLASS_OBJANYBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_330__CLASS_OBJANYBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_330__CLASS_OBJANYBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_330__CLASS_OBJANYBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_330__CLASS_OBJANYBLOCK.obj_hash = 872465590; meltcdat->dsym_330__CLASS_OBJANYBLOCK.obj_len = 3; /*inistring dstr_331__CLASS_OBJANYBLOCK*/ /*_._VALSTR___V533*/ meltfptr[532] = (melt_ptr_t) &meltcdat->dstr_331__CLASS_OBJANYBLOCK; meltcdat->dstr_331__CLASS_OBJANYBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_331__CLASS_OBJANYBLOCK.val, "CLASS_OBJANYBLOCK", sizeof (meltcdat->dstr_331__CLASS_OBJANYBLOCK.val)-1); meltcdat->dstr_331__CLASS_OBJANYBLOCK.val[17] = (char)0 ; meltcdat->dstr_331__CLASS_OBJANYBLOCK.slen = 17 ; /*inirout drout_332__OUTPUCOD_OBJFLAG*/ /*iniroutlocvar*/ /*_._VALROUT___V534*/ meltfptr[533] = (melt_ptr_t) &meltcdat->drout_332__OUTPUCOD_OBJFLAG; meltcdat->drout_332__OUTPUCOD_OBJFLAG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_332__OUTPUCOD_OBJFLAG.routdescr, "OUTPUCOD_OBJFLAG @warmelt-outobj.melt:3216", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_332__OUTPUCOD_OBJFLAG.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_332__OUTPUCOD_OBJFLAG, meltrout_68_WARMELTmiOUTOBJ_OUTPUCOD_OBJFLAG); /*iniclos dclo_333__OUTPUCOD_OBJFLAG*/ /*_._VALCLO___V535*/ meltfptr[534] = (melt_ptr_t) &meltcdat->dclo_333__OUTPUCOD_OBJFLAG; meltcdat->dclo_333__OUTPUCOD_OBJFLAG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_333__OUTPUCOD_OBJFLAG.nbval = 0; /*iniobj dsym_334__CLASS_OBJFLAG*/ /*uniqueobj*/ if (!/*_._VALDATA___V536*/ meltfptr[535]) /*_._VALDATA___V536*/ meltfptr[535] = (melt_ptr_t )&meltcdat->dsym_334__CLASS_OBJFLAG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_334__CLASS_OBJFLAG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_334__CLASS_OBJFLAG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_334__CLASS_OBJFLAG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_334__CLASS_OBJFLAG.obj_hash = 994586081; meltcdat->dsym_334__CLASS_OBJFLAG.obj_len = 3; /*inistring dstr_335__CLASS_OBJFLAG*/ /*_._VALSTR___V537*/ meltfptr[536] = (melt_ptr_t) &meltcdat->dstr_335__CLASS_OBJFLAG; meltcdat->dstr_335__CLASS_OBJFLAG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_335__CLASS_OBJFLAG.val, "CLASS_OBJFLAG", sizeof (meltcdat->dstr_335__CLASS_OBJFLAG.val)-1); meltcdat->dstr_335__CLASS_OBJFLAG.val[13] = (char)0 ; meltcdat->dstr_335__CLASS_OBJFLAG.slen = 13 ; /*inirout drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V538*/ meltfptr[537] = (melt_ptr_t) &meltcdat->drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK; meltcdat->drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK.routdescr, "OUTPUCOD_OBJMATCHFLAGBLOCK @warmelt-outobj.melt:3228", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK, meltrout_69_WARMELTmiOUTOBJ_OUTPUCOD_OBJMATCHFLAGBLOCK); /*iniclos dclo_337__OUTPUCOD_OBJMATCHFLAGBLOCK*/ /*_._VALCLO___V539*/ meltfptr[538] = (melt_ptr_t) &meltcdat->dclo_337__OUTPUCOD_OBJMATCHFLAGBLOCK; meltcdat->dclo_337__OUTPUCOD_OBJMATCHFLAGBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_337__OUTPUCOD_OBJMATCHFLAGBLOCK.nbval = 0; /*iniobj dsym_338__CLASS_OBJMATCHFLAGBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V540*/ meltfptr[539]) /*_._VALDATA___V540*/ meltfptr[539] = (melt_ptr_t )&meltcdat->dsym_338__CLASS_OBJMATCHFLAGBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_338__CLASS_OBJMATCHFLAGBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_338__CLASS_OBJMATCHFLAGBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_338__CLASS_OBJMATCHFLAGBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_338__CLASS_OBJMATCHFLAGBLOCK.obj_hash = 561303579; meltcdat->dsym_338__CLASS_OBJMATCHFLAGBLOCK.obj_len = 3; /*inistring dstr_339__CLASS_OBJMATCHFLAGBLOCK*/ /*_._VALSTR___V541*/ meltfptr[540] = (melt_ptr_t) &meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK; meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK.val, "CLASS_OBJMATCHFLAGBLOCK", sizeof (meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK.val)-1); meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK.val[23] = (char)0 ; meltcdat->dstr_339__CLASS_OBJMATCHFLAGBLOCK.slen = 23 ; /*inirout drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V542*/ meltfptr[541] = (melt_ptr_t) &meltcdat->drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK; meltcdat->drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK.routdescr, "OUTPUCOD_OBJMULTIALLOCBLOCK @warmelt-outobj.melt:3280", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK, meltrout_70_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIALLOCBLOCK); /*iniclos dclo_341__OUTPUCOD_OBJMULTIALLOCBLOCK*/ /*_._VALCLO___V543*/ meltfptr[542] = (melt_ptr_t) &meltcdat->dclo_341__OUTPUCOD_OBJMULTIALLOCBLOCK; meltcdat->dclo_341__OUTPUCOD_OBJMULTIALLOCBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_341__OUTPUCOD_OBJMULTIALLOCBLOCK.nbval = 0; /*iniobj dsym_342__CLASS_OBJMULTIALLOCBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V544*/ meltfptr[543]) /*_._VALDATA___V544*/ meltfptr[543] = (melt_ptr_t )&meltcdat->dsym_342__CLASS_OBJMULTIALLOCBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_342__CLASS_OBJMULTIALLOCBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_342__CLASS_OBJMULTIALLOCBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_342__CLASS_OBJMULTIALLOCBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_342__CLASS_OBJMULTIALLOCBLOCK.obj_hash = 839199968; meltcdat->dsym_342__CLASS_OBJMULTIALLOCBLOCK.obj_len = 3; /*inistring dstr_343__CLASS_OBJMULTIALLOCBLOCK*/ /*_._VALSTR___V545*/ meltfptr[544] = (melt_ptr_t) &meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK; meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK.val, "CLASS_OBJMULTIALLOCBLOCK", sizeof (meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK.val)-1); meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK.val[24] = (char)0 ; meltcdat->dstr_343__CLASS_OBJMULTIALLOCBLOCK.slen = 24 ; /*inirout drout_344__OUTPUCOD_OBJCITERBLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V546*/ meltfptr[545] = (melt_ptr_t) &meltcdat->drout_344__OUTPUCOD_OBJCITERBLOCK; meltcdat->drout_344__OUTPUCOD_OBJCITERBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_344__OUTPUCOD_OBJCITERBLOCK.routdescr, "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.melt:3351", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_344__OUTPUCOD_OBJCITERBLOCK.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_344__OUTPUCOD_OBJCITERBLOCK, meltrout_71_WARMELTmiOUTOBJ_OUTPUCOD_OBJCITERBLOCK); /*iniclos dclo_345__OUTPUCOD_OBJCITERBLOCK*/ /*_._VALCLO___V547*/ meltfptr[546] = (melt_ptr_t) &meltcdat->dclo_345__OUTPUCOD_OBJCITERBLOCK; meltcdat->dclo_345__OUTPUCOD_OBJCITERBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_345__OUTPUCOD_OBJCITERBLOCK.nbval = 0; /*iniobj dsym_346__CLASS_OBJCITERBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V548*/ meltfptr[547]) /*_._VALDATA___V548*/ meltfptr[547] = (melt_ptr_t )&meltcdat->dsym_346__CLASS_OBJCITERBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_346__CLASS_OBJCITERBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_346__CLASS_OBJCITERBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_346__CLASS_OBJCITERBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_346__CLASS_OBJCITERBLOCK.obj_hash = 897861098; meltcdat->dsym_346__CLASS_OBJCITERBLOCK.obj_len = 3; /*inistring dstr_347__CLASS_OBJCITERBLOCK*/ /*_._VALSTR___V549*/ meltfptr[548] = (melt_ptr_t) &meltcdat->dstr_347__CLASS_OBJCITERBLOCK; meltcdat->dstr_347__CLASS_OBJCITERBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_347__CLASS_OBJCITERBLOCK.val, "CLASS_OBJCITERBLOCK", sizeof (meltcdat->dstr_347__CLASS_OBJCITERBLOCK.val)-1); meltcdat->dstr_347__CLASS_OBJCITERBLOCK.val[19] = (char)0 ; meltcdat->dstr_347__CLASS_OBJCITERBLOCK.slen = 19 ; /*iniobj dsym_348__CLASS_CITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V550*/ meltfptr[549]) /*_._VALDATA___V550*/ meltfptr[549] = (melt_ptr_t )&meltcdat->dsym_348__CLASS_CITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_348__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_348__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_348__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_348__CLASS_CITERATOR.obj_hash = 650290054; meltcdat->dsym_348__CLASS_CITERATOR.obj_len = 3; /*inistring dstr_349__CLASS_CITERATOR*/ /*_._VALSTR___V551*/ meltfptr[550] = (melt_ptr_t) &meltcdat->dstr_349__CLASS_CITERATOR; meltcdat->dstr_349__CLASS_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_349__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (meltcdat->dstr_349__CLASS_CITERATOR.val)-1); meltcdat->dstr_349__CLASS_CITERATOR.val[15] = (char)0 ; meltcdat->dstr_349__CLASS_CITERATOR.slen = 15 ; /*inirout drout_350__OUTPUCOD_OBJCOMMENTINSTR*/ /*iniroutlocvar*/ /*_._VALROUT___V552*/ meltfptr[551] = (melt_ptr_t) &meltcdat->drout_350__OUTPUCOD_OBJCOMMENTINSTR; meltcdat->drout_350__OUTPUCOD_OBJCOMMENTINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_350__OUTPUCOD_OBJCOMMENTINSTR.routdescr, "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.melt:3406", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_350__OUTPUCOD_OBJCOMMENTINSTR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_350__OUTPUCOD_OBJCOMMENTINSTR, meltrout_72_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTINSTR); /*iniclos dclo_351__OUTPUCOD_OBJCOMMENTINSTR*/ /*_._VALCLO___V553*/ meltfptr[552] = (melt_ptr_t) &meltcdat->dclo_351__OUTPUCOD_OBJCOMMENTINSTR; meltcdat->dclo_351__OUTPUCOD_OBJCOMMENTINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_351__OUTPUCOD_OBJCOMMENTINSTR.nbval = 0; /*iniobj dsym_352__CLASS_OBJCOMMENTINSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V554*/ meltfptr[553]) /*_._VALDATA___V554*/ meltfptr[553] = (melt_ptr_t )&meltcdat->dsym_352__CLASS_OBJCOMMENTINSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_352__CLASS_OBJCOMMENTINSTR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_352__CLASS_OBJCOMMENTINSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_352__CLASS_OBJCOMMENTINSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_352__CLASS_OBJCOMMENTINSTR.obj_hash = 564818642; meltcdat->dsym_352__CLASS_OBJCOMMENTINSTR.obj_len = 3; /*inistring dstr_353__CLASS_OBJCOMMENTINSTR*/ /*_._VALSTR___V555*/ meltfptr[554] = (melt_ptr_t) &meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR; meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR.val, "CLASS_OBJCOMMENTINSTR", sizeof (meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR.val)-1); meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR.val[21] = (char)0 ; meltcdat->dstr_353__CLASS_OBJCOMMENTINSTR.slen = 21 ; /*inirout drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*iniroutlocvar*/ /*_._VALROUT___V556*/ meltfptr[555] = (melt_ptr_t) &meltcdat->drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK; meltcdat->drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK.routdescr, "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.melt:3427", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK, meltrout_73_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMMENTEDBLOCK); /*iniclos dclo_355__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*_._VALCLO___V557*/ meltfptr[556] = (melt_ptr_t) &meltcdat->dclo_355__OUTPUCOD_OBJCOMMENTEDBLOCK; meltcdat->dclo_355__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_355__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 0; /*iniobj dsym_356__CLASS_OBJCOMMENTEDBLOCK*/ /*uniqueobj*/ if (!/*_._VALDATA___V558*/ meltfptr[557]) /*_._VALDATA___V558*/ meltfptr[557] = (melt_ptr_t )&meltcdat->dsym_356__CLASS_OBJCOMMENTEDBLOCK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_356__CLASS_OBJCOMMENTEDBLOCK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_356__CLASS_OBJCOMMENTEDBLOCK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_356__CLASS_OBJCOMMENTEDBLOCK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_356__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 94800260; meltcdat->dsym_356__CLASS_OBJCOMMENTEDBLOCK.obj_len = 3; /*inistring dstr_357__CLASS_OBJCOMMENTEDBLOCK*/ /*_._VALSTR___V559*/ meltfptr[558] = (melt_ptr_t) &meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK; meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK.val, "CLASS_OBJCOMMENTEDBLOCK", sizeof (meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK.val)-1); meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK.val[23] = (char)0 ; meltcdat->dstr_357__CLASS_OBJCOMMENTEDBLOCK.slen = 23 ; /*iniobj dsym_358__LABELCOUNTREF*/ /*uniqueobj*/ if (!/*_._VALDATA___V560*/ meltfptr[559]) /*_._VALDATA___V560*/ meltfptr[559] = (melt_ptr_t )&meltcdat->dsym_358__LABELCOUNTREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_358__LABELCOUNTREF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_358__LABELCOUNTREF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_358__LABELCOUNTREF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_358__LABELCOUNTREF.obj_hash = 102600919; meltcdat->dsym_358__LABELCOUNTREF.obj_len = 3; /*inistring dstr_359__LABELCOUNTREF*/ /*_._VALSTR___V561*/ meltfptr[560] = (melt_ptr_t) &meltcdat->dstr_359__LABELCOUNTREF; meltcdat->dstr_359__LABELCOUNTREF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_359__LABELCOUNTREF.val, "LABELCOUNTREF", sizeof (meltcdat->dstr_359__LABELCOUNTREF.val)-1); meltcdat->dstr_359__LABELCOUNTREF.val[13] = (char)0 ; meltcdat->dstr_359__LABELCOUNTREF.slen = 13 ; MELT_LOCATION("warmelt-outobj.melt:3464:/ iniobj"); /*iniobj dobj_360__LABELCOUNTREF*/ /*_._VALDATA___V562*/ meltfptr[561] = (melt_ptr_t )&meltcdat->dobj_360__LABELCOUNTREF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_360__LABELCOUNTREF", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_360__LABELCOUNTREF", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_360__LABELCOUNTREF.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); meltcdat->dobj_360__LABELCOUNTREF.obj_hash = 53842506; meltcdat->dobj_360__LABELCOUNTREF.obj_len = 1; /*iniboxint dint_361__*/ /*_._VALBXINT___V563*/ meltfptr[562] = (melt_ptr_t) &meltcdat->dint_361__; meltcdat->dint_361__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_361__.val = 0; /*inirout drout_362__OUTPUCOD_OBJLABELINSTR*/ /*iniroutlocvar*/ /*_._VALROUT___V564*/ meltfptr[563] = (melt_ptr_t) &meltcdat->drout_362__OUTPUCOD_OBJLABELINSTR; meltcdat->drout_362__OUTPUCOD_OBJLABELINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_362__OUTPUCOD_OBJLABELINSTR.routdescr, "OUTPUCOD_OBJLABELINSTR @warmelt-outobj.melt:3465", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_362__OUTPUCOD_OBJLABELINSTR.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_362__OUTPUCOD_OBJLABELINSTR, meltrout_74_WARMELTmiOUTOBJ_OUTPUCOD_OBJLABELINSTR); /*iniclos dclo_363__OUTPUCOD_OBJLABELINSTR*/ /*_._VALCLO___V565*/ meltfptr[564] = (melt_ptr_t) &meltcdat->dclo_363__OUTPUCOD_OBJLABELINSTR; meltcdat->dclo_363__OUTPUCOD_OBJLABELINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_363__OUTPUCOD_OBJLABELINSTR.nbval = 0; /*iniobj dsym_364__CLASS_OBJLABELINSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V566*/ meltfptr[565]) /*_._VALDATA___V566*/ meltfptr[565] = (melt_ptr_t )&meltcdat->dsym_364__CLASS_OBJLABELINSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_364__CLASS_OBJLABELINSTR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_364__CLASS_OBJLABELINSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_364__CLASS_OBJLABELINSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_364__CLASS_OBJLABELINSTR.obj_hash = 573008884; meltcdat->dsym_364__CLASS_OBJLABELINSTR.obj_len = 3; /*inistring dstr_365__CLASS_OBJLABELINSTR*/ /*_._VALSTR___V567*/ meltfptr[566] = (melt_ptr_t) &meltcdat->dstr_365__CLASS_OBJLABELINSTR; meltcdat->dstr_365__CLASS_OBJLABELINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_365__CLASS_OBJLABELINSTR.val, "CLASS_OBJLABELINSTR", sizeof (meltcdat->dstr_365__CLASS_OBJLABELINSTR.val)-1); meltcdat->dstr_365__CLASS_OBJLABELINSTR.val[19] = (char)0 ; meltcdat->dstr_365__CLASS_OBJLABELINSTR.slen = 19 ; /*iniobj dsym_366__SET_CONTENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V568*/ meltfptr[567]) /*_._VALDATA___V568*/ meltfptr[567] = (melt_ptr_t )&meltcdat->dsym_366__SET_CONTENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_366__SET_CONTENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_366__SET_CONTENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_366__SET_CONTENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_366__SET_CONTENT.obj_hash = 1002281179; meltcdat->dsym_366__SET_CONTENT.obj_len = 3; /*inistring dstr_367__SET_CONTENT*/ /*_._VALSTR___V569*/ meltfptr[568] = (melt_ptr_t) &meltcdat->dstr_367__SET_CONTENT; meltcdat->dstr_367__SET_CONTENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_367__SET_CONTENT.val, "SET_CONTENT", sizeof (meltcdat->dstr_367__SET_CONTENT.val)-1); meltcdat->dstr_367__SET_CONTENT.val[11] = (char)0 ; meltcdat->dstr_367__SET_CONTENT.slen = 11 ; /*inirout drout_368__OUTPUCOD_OBJGOTOINSTR*/ /*iniroutlocvar*/ /*_._VALROUT___V570*/ meltfptr[569] = (melt_ptr_t) &meltcdat->drout_368__OUTPUCOD_OBJGOTOINSTR; meltcdat->drout_368__OUTPUCOD_OBJGOTOINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_368__OUTPUCOD_OBJGOTOINSTR.routdescr, "OUTPUCOD_OBJGOTOINSTR @warmelt-outobj.melt:3500", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_368__OUTPUCOD_OBJGOTOINSTR.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_368__OUTPUCOD_OBJGOTOINSTR, meltrout_75_WARMELTmiOUTOBJ_OUTPUCOD_OBJGOTOINSTR); /*iniclos dclo_369__OUTPUCOD_OBJGOTOINSTR*/ /*_._VALCLO___V571*/ meltfptr[570] = (melt_ptr_t) &meltcdat->dclo_369__OUTPUCOD_OBJGOTOINSTR; meltcdat->dclo_369__OUTPUCOD_OBJGOTOINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_369__OUTPUCOD_OBJGOTOINSTR.nbval = 0; /*iniobj dsym_370__CLASS_OBJGOTOINSTR*/ /*uniqueobj*/ if (!/*_._VALDATA___V572*/ meltfptr[571]) /*_._VALDATA___V572*/ meltfptr[571] = (melt_ptr_t )&meltcdat->dsym_370__CLASS_OBJGOTOINSTR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_370__CLASS_OBJGOTOINSTR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_370__CLASS_OBJGOTOINSTR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_370__CLASS_OBJGOTOINSTR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_370__CLASS_OBJGOTOINSTR.obj_hash = 100586655; meltcdat->dsym_370__CLASS_OBJGOTOINSTR.obj_len = 3; /*inistring dstr_371__CLASS_OBJGOTOINSTR*/ /*_._VALSTR___V573*/ meltfptr[572] = (melt_ptr_t) &meltcdat->dstr_371__CLASS_OBJGOTOINSTR; meltcdat->dstr_371__CLASS_OBJGOTOINSTR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_371__CLASS_OBJGOTOINSTR.val, "CLASS_OBJGOTOINSTR", sizeof (meltcdat->dstr_371__CLASS_OBJGOTOINSTR.val)-1); meltcdat->dstr_371__CLASS_OBJGOTOINSTR.val[18] = (char)0 ; meltcdat->dstr_371__CLASS_OBJGOTOINSTR.slen = 18 ; /*inirout drout_372__ADD2SBUF_CLONSYM*/ /*iniroutlocvar*/ /*_._VALROUT___V574*/ meltfptr[573] = (melt_ptr_t) &meltcdat->drout_372__ADD2SBUF_CLONSYM; meltcdat->drout_372__ADD2SBUF_CLONSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_372__ADD2SBUF_CLONSYM.routdescr, "ADD2SBUF_CLONSYM @warmelt-outobj.melt:3517", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_372__ADD2SBUF_CLONSYM.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_372__ADD2SBUF_CLONSYM, meltrout_76_WARMELTmiOUTOBJ_ADD2SBUF_CLONSYM); /*iniclos dclo_373__ADD2SBUF_CLONSYM*/ /*_._VALCLO___V575*/ meltfptr[574] = (melt_ptr_t) &meltcdat->dclo_373__ADD2SBUF_CLONSYM; meltcdat->dclo_373__ADD2SBUF_CLONSYM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_373__ADD2SBUF_CLONSYM.nbval = 0; /*inirout drout_374__OUTPUCOD_OBJLOOP*/ /*iniroutlocvar*/ /*_._VALROUT___V576*/ meltfptr[575] = (melt_ptr_t) &meltcdat->drout_374__OUTPUCOD_OBJLOOP; meltcdat->drout_374__OUTPUCOD_OBJLOOP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_374__OUTPUCOD_OBJLOOP.routdescr, "OUTPUCOD_OBJLOOP @warmelt-outobj.melt:3530", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_374__OUTPUCOD_OBJLOOP.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_374__OUTPUCOD_OBJLOOP, meltrout_77_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOOP); /*iniclos dclo_375__OUTPUCOD_OBJLOOP*/ /*_._VALCLO___V577*/ meltfptr[576] = (melt_ptr_t) &meltcdat->dclo_375__OUTPUCOD_OBJLOOP; meltcdat->dclo_375__OUTPUCOD_OBJLOOP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_375__OUTPUCOD_OBJLOOP.nbval = 0; /*iniobj dsym_376__CLASS_OBJLOOP*/ /*uniqueobj*/ if (!/*_._VALDATA___V578*/ meltfptr[577]) /*_._VALDATA___V578*/ meltfptr[577] = (melt_ptr_t )&meltcdat->dsym_376__CLASS_OBJLOOP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_376__CLASS_OBJLOOP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_376__CLASS_OBJLOOP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_376__CLASS_OBJLOOP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_376__CLASS_OBJLOOP.obj_hash = 763853388; meltcdat->dsym_376__CLASS_OBJLOOP.obj_len = 3; /*inistring dstr_377__CLASS_OBJLOOP*/ /*_._VALSTR___V579*/ meltfptr[578] = (melt_ptr_t) &meltcdat->dstr_377__CLASS_OBJLOOP; meltcdat->dstr_377__CLASS_OBJLOOP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_377__CLASS_OBJLOOP.val, "CLASS_OBJLOOP", sizeof (meltcdat->dstr_377__CLASS_OBJLOOP.val)-1); meltcdat->dstr_377__CLASS_OBJLOOP.val[13] = (char)0 ; meltcdat->dstr_377__CLASS_OBJLOOP.slen = 13 ; /*inirout drout_378__OUTPUCOD_OBJEXIT*/ /*iniroutlocvar*/ /*_._VALROUT___V580*/ meltfptr[579] = (melt_ptr_t) &meltcdat->drout_378__OUTPUCOD_OBJEXIT; meltcdat->drout_378__OUTPUCOD_OBJEXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_378__OUTPUCOD_OBJEXIT.routdescr, "OUTPUCOD_OBJEXIT @warmelt-outobj.melt:3587", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_378__OUTPUCOD_OBJEXIT.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_378__OUTPUCOD_OBJEXIT, meltrout_78_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXIT); /*iniclos dclo_379__OUTPUCOD_OBJEXIT*/ /*_._VALCLO___V581*/ meltfptr[580] = (melt_ptr_t) &meltcdat->dclo_379__OUTPUCOD_OBJEXIT; meltcdat->dclo_379__OUTPUCOD_OBJEXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_379__OUTPUCOD_OBJEXIT.nbval = 0; /*iniobj dsym_380__CLASS_OBJEXIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V582*/ meltfptr[581]) /*_._VALDATA___V582*/ meltfptr[581] = (melt_ptr_t )&meltcdat->dsym_380__CLASS_OBJEXIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_380__CLASS_OBJEXIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_380__CLASS_OBJEXIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_380__CLASS_OBJEXIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_380__CLASS_OBJEXIT.obj_hash = 635210442; meltcdat->dsym_380__CLASS_OBJEXIT.obj_len = 3; /*inistring dstr_381__CLASS_OBJEXIT*/ /*_._VALSTR___V583*/ meltfptr[582] = (melt_ptr_t) &meltcdat->dstr_381__CLASS_OBJEXIT; meltcdat->dstr_381__CLASS_OBJEXIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_381__CLASS_OBJEXIT.val, "CLASS_OBJEXIT", sizeof (meltcdat->dstr_381__CLASS_OBJEXIT.val)-1); meltcdat->dstr_381__CLASS_OBJEXIT.val[13] = (char)0 ; meltcdat->dstr_381__CLASS_OBJEXIT.slen = 13 ; /*inirout drout_382__OUTPUCOD_OBJAGAIN*/ /*iniroutlocvar*/ /*_._VALROUT___V584*/ meltfptr[583] = (melt_ptr_t) &meltcdat->drout_382__OUTPUCOD_OBJAGAIN; meltcdat->drout_382__OUTPUCOD_OBJAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_382__OUTPUCOD_OBJAGAIN.routdescr, "OUTPUCOD_OBJAGAIN @warmelt-outobj.melt:3607", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_382__OUTPUCOD_OBJAGAIN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_382__OUTPUCOD_OBJAGAIN, meltrout_79_WARMELTmiOUTOBJ_OUTPUCOD_OBJAGAIN); /*iniclos dclo_383__OUTPUCOD_OBJAGAIN*/ /*_._VALCLO___V585*/ meltfptr[584] = (melt_ptr_t) &meltcdat->dclo_383__OUTPUCOD_OBJAGAIN; meltcdat->dclo_383__OUTPUCOD_OBJAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_383__OUTPUCOD_OBJAGAIN.nbval = 0; /*iniobj dsym_384__CLASS_OBJAGAIN*/ /*uniqueobj*/ if (!/*_._VALDATA___V586*/ meltfptr[585]) /*_._VALDATA___V586*/ meltfptr[585] = (melt_ptr_t )&meltcdat->dsym_384__CLASS_OBJAGAIN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_384__CLASS_OBJAGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_384__CLASS_OBJAGAIN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_384__CLASS_OBJAGAIN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_384__CLASS_OBJAGAIN.obj_hash = 540256863; meltcdat->dsym_384__CLASS_OBJAGAIN.obj_len = 3; /*inistring dstr_385__CLASS_OBJAGAIN*/ /*_._VALSTR___V587*/ meltfptr[586] = (melt_ptr_t) &meltcdat->dstr_385__CLASS_OBJAGAIN; meltcdat->dstr_385__CLASS_OBJAGAIN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_385__CLASS_OBJAGAIN.val, "CLASS_OBJAGAIN", sizeof (meltcdat->dstr_385__CLASS_OBJAGAIN.val)-1); meltcdat->dstr_385__CLASS_OBJAGAIN.val[14] = (char)0 ; meltcdat->dstr_385__CLASS_OBJAGAIN.slen = 14 ; /*inirout drout_386__OUTPUCOD_OBJCOMPUTE*/ /*iniroutlocvar*/ /*_._VALROUT___V588*/ meltfptr[587] = (melt_ptr_t) &meltcdat->drout_386__OUTPUCOD_OBJCOMPUTE; meltcdat->drout_386__OUTPUCOD_OBJCOMPUTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_386__OUTPUCOD_OBJCOMPUTE.routdescr, "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.melt:3626", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_386__OUTPUCOD_OBJCOMPUTE.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_386__OUTPUCOD_OBJCOMPUTE, meltrout_80_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOMPUTE); /*iniclos dclo_387__OUTPUCOD_OBJCOMPUTE*/ /*_._VALCLO___V589*/ meltfptr[588] = (melt_ptr_t) &meltcdat->dclo_387__OUTPUCOD_OBJCOMPUTE; meltcdat->dclo_387__OUTPUCOD_OBJCOMPUTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_387__OUTPUCOD_OBJCOMPUTE.nbval = 0; /*iniobj dsym_388__CLASS_OBJCOMPUTE*/ /*uniqueobj*/ if (!/*_._VALDATA___V590*/ meltfptr[589]) /*_._VALDATA___V590*/ meltfptr[589] = (melt_ptr_t )&meltcdat->dsym_388__CLASS_OBJCOMPUTE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_388__CLASS_OBJCOMPUTE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_388__CLASS_OBJCOMPUTE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_388__CLASS_OBJCOMPUTE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_388__CLASS_OBJCOMPUTE.obj_hash = 943434547; meltcdat->dsym_388__CLASS_OBJCOMPUTE.obj_len = 3; /*inistring dstr_389__CLASS_OBJCOMPUTE*/ /*_._VALSTR___V591*/ meltfptr[590] = (melt_ptr_t) &meltcdat->dstr_389__CLASS_OBJCOMPUTE; meltcdat->dstr_389__CLASS_OBJCOMPUTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_389__CLASS_OBJCOMPUTE.val, "CLASS_OBJCOMPUTE", sizeof (meltcdat->dstr_389__CLASS_OBJCOMPUTE.val)-1); meltcdat->dstr_389__CLASS_OBJCOMPUTE.val[16] = (char)0 ; meltcdat->dstr_389__CLASS_OBJCOMPUTE.slen = 16 ; /*inirout drout_390__OUTPUCOD_OBJCOND*/ /*iniroutlocvar*/ /*_._VALROUT___V592*/ meltfptr[591] = (melt_ptr_t) &meltcdat->drout_390__OUTPUCOD_OBJCOND; meltcdat->drout_390__OUTPUCOD_OBJCOND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_390__OUTPUCOD_OBJCOND.routdescr, "OUTPUCOD_OBJCOND @warmelt-outobj.melt:3673", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_390__OUTPUCOD_OBJCOND.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_390__OUTPUCOD_OBJCOND, meltrout_81_WARMELTmiOUTOBJ_OUTPUCOD_OBJCOND); /*iniclos dclo_391__OUTPUCOD_OBJCOND*/ /*_._VALCLO___V593*/ meltfptr[592] = (melt_ptr_t) &meltcdat->dclo_391__OUTPUCOD_OBJCOND; meltcdat->dclo_391__OUTPUCOD_OBJCOND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_391__OUTPUCOD_OBJCOND.nbval = 0; /*iniobj dsym_392__CLASS_OBJCOND*/ /*uniqueobj*/ if (!/*_._VALDATA___V594*/ meltfptr[593]) /*_._VALDATA___V594*/ meltfptr[593] = (melt_ptr_t )&meltcdat->dsym_392__CLASS_OBJCOND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_392__CLASS_OBJCOND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_392__CLASS_OBJCOND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_392__CLASS_OBJCOND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_392__CLASS_OBJCOND.obj_hash = 545823211; meltcdat->dsym_392__CLASS_OBJCOND.obj_len = 3; /*inistring dstr_393__CLASS_OBJCOND*/ /*_._VALSTR___V595*/ meltfptr[594] = (melt_ptr_t) &meltcdat->dstr_393__CLASS_OBJCOND; meltcdat->dstr_393__CLASS_OBJCOND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_393__CLASS_OBJCOND.val, "CLASS_OBJCOND", sizeof (meltcdat->dstr_393__CLASS_OBJCOND.val)-1); meltcdat->dstr_393__CLASS_OBJCOND.val[13] = (char)0 ; meltcdat->dstr_393__CLASS_OBJCOND.slen = 13 ; /*inirout drout_394__OUTPUCOD_OBJCPPIF*/ /*iniroutlocvar*/ /*_._VALROUT___V596*/ meltfptr[595] = (melt_ptr_t) &meltcdat->drout_394__OUTPUCOD_OBJCPPIF; meltcdat->drout_394__OUTPUCOD_OBJCPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_394__OUTPUCOD_OBJCPPIF.routdescr, "OUTPUCOD_OBJCPPIF @warmelt-outobj.melt:3713", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_394__OUTPUCOD_OBJCPPIF.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_394__OUTPUCOD_OBJCPPIF, meltrout_82_WARMELTmiOUTOBJ_OUTPUCOD_OBJCPPIF); /*iniclos dclo_395__OUTPUCOD_OBJCPPIF*/ /*_._VALCLO___V597*/ meltfptr[596] = (melt_ptr_t) &meltcdat->dclo_395__OUTPUCOD_OBJCPPIF; meltcdat->dclo_395__OUTPUCOD_OBJCPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_395__OUTPUCOD_OBJCPPIF.nbval = 0; /*iniobj dsym_396__CLASS_OBJCPPIF*/ /*uniqueobj*/ if (!/*_._VALDATA___V598*/ meltfptr[597]) /*_._VALDATA___V598*/ meltfptr[597] = (melt_ptr_t )&meltcdat->dsym_396__CLASS_OBJCPPIF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_396__CLASS_OBJCPPIF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_396__CLASS_OBJCPPIF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_396__CLASS_OBJCPPIF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_396__CLASS_OBJCPPIF.obj_hash = 418843843; meltcdat->dsym_396__CLASS_OBJCPPIF.obj_len = 3; /*inistring dstr_397__CLASS_OBJCPPIF*/ /*_._VALSTR___V599*/ meltfptr[598] = (melt_ptr_t) &meltcdat->dstr_397__CLASS_OBJCPPIF; meltcdat->dstr_397__CLASS_OBJCPPIF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_397__CLASS_OBJCPPIF.val, "CLASS_OBJCPPIF", sizeof (meltcdat->dstr_397__CLASS_OBJCPPIF.val)-1); meltcdat->dstr_397__CLASS_OBJCPPIF.val[14] = (char)0 ; meltcdat->dstr_397__CLASS_OBJCPPIF.slen = 14 ; /*inirout drout_398__OUTPUCOD_OBJINTERNSYMBOL*/ /*iniroutlocvar*/ /*_._VALROUT___V600*/ meltfptr[599] = (melt_ptr_t) &meltcdat->drout_398__OUTPUCOD_OBJINTERNSYMBOL; meltcdat->drout_398__OUTPUCOD_OBJINTERNSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_398__OUTPUCOD_OBJINTERNSYMBOL.routdescr, "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.melt:3746", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_398__OUTPUCOD_OBJINTERNSYMBOL.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_398__OUTPUCOD_OBJINTERNSYMBOL, meltrout_83_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNSYMBOL); /*iniclos dclo_399__OUTPUCOD_OBJINTERNSYMBOL*/ /*_._VALCLO___V601*/ meltfptr[600] = (melt_ptr_t) &meltcdat->dclo_399__OUTPUCOD_OBJINTERNSYMBOL; meltcdat->dclo_399__OUTPUCOD_OBJINTERNSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_399__OUTPUCOD_OBJINTERNSYMBOL.nbval = 0; /*iniobj dsym_400__CLASS_OBJINTERNSYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V602*/ meltfptr[601]) /*_._VALDATA___V602*/ meltfptr[601] = (melt_ptr_t )&meltcdat->dsym_400__CLASS_OBJINTERNSYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_400__CLASS_OBJINTERNSYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_400__CLASS_OBJINTERNSYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_400__CLASS_OBJINTERNSYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_400__CLASS_OBJINTERNSYMBOL.obj_hash = 881953204; meltcdat->dsym_400__CLASS_OBJINTERNSYMBOL.obj_len = 3; /*inistring dstr_401__CLASS_OBJINTERNSYMBOL*/ /*_._VALSTR___V603*/ meltfptr[602] = (melt_ptr_t) &meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL; meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL.val, "CLASS_OBJINTERNSYMBOL", sizeof (meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL.val)-1); meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL.val[21] = (char)0 ; meltcdat->dstr_401__CLASS_OBJINTERNSYMBOL.slen = 21 ; /*iniobj dsym_402__CLASS_NREP_DATASYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V604*/ meltfptr[603]) /*_._VALDATA___V604*/ meltfptr[603] = (melt_ptr_t )&meltcdat->dsym_402__CLASS_NREP_DATASYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_402__CLASS_NREP_DATASYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_402__CLASS_NREP_DATASYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_402__CLASS_NREP_DATASYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_402__CLASS_NREP_DATASYMBOL.obj_hash = 55902456; meltcdat->dsym_402__CLASS_NREP_DATASYMBOL.obj_len = 3; /*inistring dstr_403__CLASS_NREP_DATASYMBOL*/ /*_._VALSTR___V605*/ meltfptr[604] = (melt_ptr_t) &meltcdat->dstr_403__CLASS_NREP_DATASYMBOL; meltcdat->dstr_403__CLASS_NREP_DATASYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_403__CLASS_NREP_DATASYMBOL.val, "CLASS_NREP_DATASYMBOL", sizeof (meltcdat->dstr_403__CLASS_NREP_DATASYMBOL.val)-1); meltcdat->dstr_403__CLASS_NREP_DATASYMBOL.val[21] = (char)0 ; meltcdat->dstr_403__CLASS_NREP_DATASYMBOL.slen = 21 ; /*inirout drout_404__OUTPUCOD_OBJINTERNKEYWORD*/ /*iniroutlocvar*/ /*_._VALROUT___V606*/ meltfptr[605] = (melt_ptr_t) &meltcdat->drout_404__OUTPUCOD_OBJINTERNKEYWORD; meltcdat->drout_404__OUTPUCOD_OBJINTERNKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_404__OUTPUCOD_OBJINTERNKEYWORD.routdescr, "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.melt:3771", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_404__OUTPUCOD_OBJINTERNKEYWORD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_404__OUTPUCOD_OBJINTERNKEYWORD, meltrout_84_WARMELTmiOUTOBJ_OUTPUCOD_OBJINTERNKEYWORD); /*iniclos dclo_405__OUTPUCOD_OBJINTERNKEYWORD*/ /*_._VALCLO___V607*/ meltfptr[606] = (melt_ptr_t) &meltcdat->dclo_405__OUTPUCOD_OBJINTERNKEYWORD; meltcdat->dclo_405__OUTPUCOD_OBJINTERNKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_405__OUTPUCOD_OBJINTERNKEYWORD.nbval = 0; /*iniobj dsym_406__CLASS_OBJINTERNKEYWORD*/ /*uniqueobj*/ if (!/*_._VALDATA___V608*/ meltfptr[607]) /*_._VALDATA___V608*/ meltfptr[607] = (melt_ptr_t )&meltcdat->dsym_406__CLASS_OBJINTERNKEYWORD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_406__CLASS_OBJINTERNKEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_406__CLASS_OBJINTERNKEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_406__CLASS_OBJINTERNKEYWORD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_406__CLASS_OBJINTERNKEYWORD.obj_hash = 606725080; meltcdat->dsym_406__CLASS_OBJINTERNKEYWORD.obj_len = 3; /*inistring dstr_407__CLASS_OBJINTERNKEYWORD*/ /*_._VALSTR___V609*/ meltfptr[608] = (melt_ptr_t) &meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD; meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD.val, "CLASS_OBJINTERNKEYWORD", sizeof (meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD.val)-1); meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD.val[22] = (char)0 ; meltcdat->dstr_407__CLASS_OBJINTERNKEYWORD.slen = 22 ; /*iniobj dsym_408__CLASS_NREP_DATAKEYWORD*/ /*uniqueobj*/ if (!/*_._VALDATA___V610*/ meltfptr[609]) /*_._VALDATA___V610*/ meltfptr[609] = (melt_ptr_t )&meltcdat->dsym_408__CLASS_NREP_DATAKEYWORD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_408__CLASS_NREP_DATAKEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_408__CLASS_NREP_DATAKEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_408__CLASS_NREP_DATAKEYWORD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_408__CLASS_NREP_DATAKEYWORD.obj_hash = 755124591; meltcdat->dsym_408__CLASS_NREP_DATAKEYWORD.obj_len = 3; /*inistring dstr_409__CLASS_NREP_DATAKEYWORD*/ /*_._VALSTR___V611*/ meltfptr[610] = (melt_ptr_t) &meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD; meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD.val, "CLASS_NREP_DATAKEYWORD", sizeof (meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD.val)-1); meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD.val[22] = (char)0 ; meltcdat->dstr_409__CLASS_NREP_DATAKEYWORD.slen = 22 ; /*inirout drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*iniroutlocvar*/ /*_._VALROUT___V612*/ meltfptr[611] = (melt_ptr_t) &meltcdat->drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL; meltcdat->drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.melt:3795", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL, meltrout_85_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDSYMBOL); /*iniclos dclo_411__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*_._VALCLO___V613*/ meltfptr[612] = (melt_ptr_t) &meltcdat->dclo_411__OUTPUCOD_OBJGETNAMEDSYMBOL; meltcdat->dclo_411__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_411__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 0; /*iniobj dsym_412__CLASS_OBJGETNAMEDSYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V614*/ meltfptr[613]) /*_._VALDATA___V614*/ meltfptr[613] = (melt_ptr_t )&meltcdat->dsym_412__CLASS_OBJGETNAMEDSYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_412__CLASS_OBJGETNAMEDSYMBOL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_412__CLASS_OBJGETNAMEDSYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_412__CLASS_OBJGETNAMEDSYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_412__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 552748717; meltcdat->dsym_412__CLASS_OBJGETNAMEDSYMBOL.obj_len = 3; /*inistring dstr_413__CLASS_OBJGETNAMEDSYMBOL*/ /*_._VALSTR___V615*/ meltfptr[614] = (melt_ptr_t) &meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL; meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL.val, "CLASS_OBJGETNAMEDSYMBOL", sizeof (meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL.val)-1); meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL.val[23] = (char)0 ; meltcdat->dstr_413__CLASS_OBJGETNAMEDSYMBOL.slen = 23 ; /*inirout drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*iniroutlocvar*/ /*_._VALROUT___V616*/ meltfptr[615] = (melt_ptr_t) &meltcdat->drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD; meltcdat->drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.melt:3846", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD, meltrout_86_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETNAMEDKEYWORD); /*iniclos dclo_415__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*_._VALCLO___V617*/ meltfptr[616] = (melt_ptr_t) &meltcdat->dclo_415__OUTPUCOD_OBJGETNAMEDKEYWORD; meltcdat->dclo_415__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_415__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 0; /*iniobj dsym_416__CLASS_OBJGETNAMEDKEYWORD*/ /*uniqueobj*/ if (!/*_._VALDATA___V618*/ meltfptr[617]) /*_._VALDATA___V618*/ meltfptr[617] = (melt_ptr_t )&meltcdat->dsym_416__CLASS_OBJGETNAMEDKEYWORD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_416__CLASS_OBJGETNAMEDKEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_416__CLASS_OBJGETNAMEDKEYWORD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_416__CLASS_OBJGETNAMEDKEYWORD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_416__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 877025959; meltcdat->dsym_416__CLASS_OBJGETNAMEDKEYWORD.obj_len = 3; /*inistring dstr_417__CLASS_OBJGETNAMEDKEYWORD*/ /*_._VALSTR___V619*/ meltfptr[618] = (melt_ptr_t) &meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD; meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD.val, "CLASS_OBJGETNAMEDKEYWORD", sizeof (meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD.val)-1); meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD.val[24] = (char)0 ; meltcdat->dstr_417__CLASS_OBJGETNAMEDKEYWORD.slen = 24 ; /*inirout drout_418__OUTPUCOD_OBJAPPLY*/ /*iniroutlocvar*/ /*_._VALROUT___V620*/ meltfptr[619] = (melt_ptr_t) &meltcdat->drout_418__OUTPUCOD_OBJAPPLY; meltcdat->drout_418__OUTPUCOD_OBJAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_418__OUTPUCOD_OBJAPPLY.routdescr, "OUTPUCOD_OBJAPPLY @warmelt-outobj.melt:3883", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_418__OUTPUCOD_OBJAPPLY.nbval = 19; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_418__OUTPUCOD_OBJAPPLY, meltrout_87_WARMELTmiOUTOBJ_OUTPUCOD_OBJAPPLY); /*iniclos dclo_419__OUTPUCOD_OBJAPPLY*/ /*_._VALCLO___V621*/ meltfptr[620] = (melt_ptr_t) &meltcdat->dclo_419__OUTPUCOD_OBJAPPLY; meltcdat->dclo_419__OUTPUCOD_OBJAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_419__OUTPUCOD_OBJAPPLY.nbval = 0; /*iniobj dsym_420__CLASS_OBJAPPLY*/ /*uniqueobj*/ if (!/*_._VALDATA___V622*/ meltfptr[621]) /*_._VALDATA___V622*/ meltfptr[621] = (melt_ptr_t )&meltcdat->dsym_420__CLASS_OBJAPPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_420__CLASS_OBJAPPLY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_420__CLASS_OBJAPPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_420__CLASS_OBJAPPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_420__CLASS_OBJAPPLY.obj_hash = 734111989; meltcdat->dsym_420__CLASS_OBJAPPLY.obj_len = 3; /*inistring dstr_421__CLASS_OBJAPPLY*/ /*_._VALSTR___V623*/ meltfptr[622] = (melt_ptr_t) &meltcdat->dstr_421__CLASS_OBJAPPLY; meltcdat->dstr_421__CLASS_OBJAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_421__CLASS_OBJAPPLY.val, "CLASS_OBJAPPLY", sizeof (meltcdat->dstr_421__CLASS_OBJAPPLY.val)-1); meltcdat->dstr_421__CLASS_OBJAPPLY.val[14] = (char)0 ; meltcdat->dstr_421__CLASS_OBJAPPLY.slen = 14 ; /*iniobj dsym_422__GET_CTYPE*/ /*uniqueobj*/ if (!/*_._VALDATA___V624*/ meltfptr[623]) /*_._VALDATA___V624*/ meltfptr[623] = (melt_ptr_t )&meltcdat->dsym_422__GET_CTYPE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_422__GET_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_422__GET_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_422__GET_CTYPE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_422__GET_CTYPE.obj_hash = 747649571; meltcdat->dsym_422__GET_CTYPE.obj_len = 3; /*inistring dstr_423__GET_CTYPE*/ /*_._VALSTR___V625*/ meltfptr[624] = (melt_ptr_t) &meltcdat->dstr_423__GET_CTYPE; meltcdat->dstr_423__GET_CTYPE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_423__GET_CTYPE.val, "GET_CTYPE", sizeof (meltcdat->dstr_423__GET_CTYPE.val)-1); meltcdat->dstr_423__GET_CTYPE.val[9] = (char)0 ; meltcdat->dstr_423__GET_CTYPE.slen = 9 ; /*inirout drout_424__OUTPUCOD_OBJMSEND*/ /*iniroutlocvar*/ /*_._VALROUT___V626*/ meltfptr[625] = (melt_ptr_t) &meltcdat->drout_424__OUTPUCOD_OBJMSEND; meltcdat->drout_424__OUTPUCOD_OBJMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_424__OUTPUCOD_OBJMSEND.routdescr, "OUTPUCOD_OBJMSEND @warmelt-outobj.melt:3997", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_424__OUTPUCOD_OBJMSEND.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_424__OUTPUCOD_OBJMSEND, meltrout_88_WARMELTmiOUTOBJ_OUTPUCOD_OBJMSEND); /*iniclos dclo_425__OUTPUCOD_OBJMSEND*/ /*_._VALCLO___V627*/ meltfptr[626] = (melt_ptr_t) &meltcdat->dclo_425__OUTPUCOD_OBJMSEND; meltcdat->dclo_425__OUTPUCOD_OBJMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_425__OUTPUCOD_OBJMSEND.nbval = 0; /*iniobj dsym_426__CLASS_OBJMSEND*/ /*uniqueobj*/ if (!/*_._VALDATA___V628*/ meltfptr[627]) /*_._VALDATA___V628*/ meltfptr[627] = (melt_ptr_t )&meltcdat->dsym_426__CLASS_OBJMSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_426__CLASS_OBJMSEND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_426__CLASS_OBJMSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_426__CLASS_OBJMSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_426__CLASS_OBJMSEND.obj_hash = 664056168; meltcdat->dsym_426__CLASS_OBJMSEND.obj_len = 3; /*inistring dstr_427__CLASS_OBJMSEND*/ /*_._VALSTR___V629*/ meltfptr[628] = (melt_ptr_t) &meltcdat->dstr_427__CLASS_OBJMSEND; meltcdat->dstr_427__CLASS_OBJMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_427__CLASS_OBJMSEND.val, "CLASS_OBJMSEND", sizeof (meltcdat->dstr_427__CLASS_OBJMSEND.val)-1); meltcdat->dstr_427__CLASS_OBJMSEND.val[14] = (char)0 ; meltcdat->dstr_427__CLASS_OBJMSEND.slen = 14 ; /*inirout drout_428__OUTPUCOD_OBJMULTIAPPLY*/ /*iniroutlocvar*/ /*_._VALROUT___V630*/ meltfptr[629] = (melt_ptr_t) &meltcdat->drout_428__OUTPUCOD_OBJMULTIAPPLY; meltcdat->drout_428__OUTPUCOD_OBJMULTIAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_428__OUTPUCOD_OBJMULTIAPPLY.routdescr, "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.melt:4096", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_428__OUTPUCOD_OBJMULTIAPPLY.nbval = 14; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_428__OUTPUCOD_OBJMULTIAPPLY, meltrout_89_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIAPPLY); /*iniclos dclo_429__OUTPUCOD_OBJMULTIAPPLY*/ /*_._VALCLO___V632*/ meltfptr[631] = (melt_ptr_t) &meltcdat->dclo_429__OUTPUCOD_OBJMULTIAPPLY; meltcdat->dclo_429__OUTPUCOD_OBJMULTIAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_429__OUTPUCOD_OBJMULTIAPPLY.nbval = 0; /*iniobj dsym_430__CLASS_OBJMULTIAPPLY*/ /*uniqueobj*/ if (!/*_._VALDATA___V633*/ meltfptr[632]) /*_._VALDATA___V633*/ meltfptr[632] = (melt_ptr_t )&meltcdat->dsym_430__CLASS_OBJMULTIAPPLY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_430__CLASS_OBJMULTIAPPLY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_430__CLASS_OBJMULTIAPPLY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_430__CLASS_OBJMULTIAPPLY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_430__CLASS_OBJMULTIAPPLY.obj_hash = 718205837; meltcdat->dsym_430__CLASS_OBJMULTIAPPLY.obj_len = 3; /*inistring dstr_431__CLASS_OBJMULTIAPPLY*/ /*_._VALSTR___V634*/ meltfptr[633] = (melt_ptr_t) &meltcdat->dstr_431__CLASS_OBJMULTIAPPLY; meltcdat->dstr_431__CLASS_OBJMULTIAPPLY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_431__CLASS_OBJMULTIAPPLY.val, "CLASS_OBJMULTIAPPLY", sizeof (meltcdat->dstr_431__CLASS_OBJMULTIAPPLY.val)-1); meltcdat->dstr_431__CLASS_OBJMULTIAPPLY.val[19] = (char)0 ; meltcdat->dstr_431__CLASS_OBJMULTIAPPLY.slen = 19 ; /*iniobj dsym_432__LIST_EVERY*/ /*uniqueobj*/ if (!/*_._VALDATA___V635*/ meltfptr[634]) /*_._VALDATA___V635*/ meltfptr[634] = (melt_ptr_t )&meltcdat->dsym_432__LIST_EVERY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_432__LIST_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_432__LIST_EVERY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_432__LIST_EVERY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_432__LIST_EVERY.obj_hash = 942863429; meltcdat->dsym_432__LIST_EVERY.obj_len = 3; /*inistring dstr_433__LIST_EVERY*/ /*_._VALSTR___V636*/ meltfptr[635] = (melt_ptr_t) &meltcdat->dstr_433__LIST_EVERY; meltcdat->dstr_433__LIST_EVERY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_433__LIST_EVERY.val, "LIST_EVERY", sizeof (meltcdat->dstr_433__LIST_EVERY.val)-1); meltcdat->dstr_433__LIST_EVERY.val[10] = (char)0 ; meltcdat->dstr_433__LIST_EVERY.slen = 10 ; /*inirout drout_434__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V631*/ meltfptr[630] = (melt_ptr_t) &meltcdat->drout_434__LAMBDA_; meltcdat->drout_434__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_434__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:4223", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_434__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_434__LAMBDA_, meltrout_90_WARMELTmiOUTOBJ_LAMBDA_cl5); /*inirout drout_435__OUTPUCOD_OBJMULTIMSEND*/ /*iniroutlocvar*/ /*_._VALROUT___V637*/ meltfptr[636] = (melt_ptr_t) &meltcdat->drout_435__OUTPUCOD_OBJMULTIMSEND; meltcdat->drout_435__OUTPUCOD_OBJMULTIMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_435__OUTPUCOD_OBJMULTIMSEND.routdescr, "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.melt:4256", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_435__OUTPUCOD_OBJMULTIMSEND.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_435__OUTPUCOD_OBJMULTIMSEND, meltrout_91_WARMELTmiOUTOBJ_OUTPUCOD_OBJMULTIMSEND); /*iniclos dclo_436__OUTPUCOD_OBJMULTIMSEND*/ /*_._VALCLO___V638*/ meltfptr[637] = (melt_ptr_t) &meltcdat->dclo_436__OUTPUCOD_OBJMULTIMSEND; meltcdat->dclo_436__OUTPUCOD_OBJMULTIMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_436__OUTPUCOD_OBJMULTIMSEND.nbval = 0; /*iniobj dsym_437__CLASS_OBJMULTIMSEND*/ /*uniqueobj*/ if (!/*_._VALDATA___V639*/ meltfptr[638]) /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t )&meltcdat->dsym_437__CLASS_OBJMULTIMSEND; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_437__CLASS_OBJMULTIMSEND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_437__CLASS_OBJMULTIMSEND", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_437__CLASS_OBJMULTIMSEND.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_437__CLASS_OBJMULTIMSEND.obj_hash = 441055573; meltcdat->dsym_437__CLASS_OBJMULTIMSEND.obj_len = 3; /*inistring dstr_438__CLASS_OBJMULTIMSEND*/ /*_._VALSTR___V640*/ meltfptr[639] = (melt_ptr_t) &meltcdat->dstr_438__CLASS_OBJMULTIMSEND; meltcdat->dstr_438__CLASS_OBJMULTIMSEND.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_438__CLASS_OBJMULTIMSEND.val, "CLASS_OBJMULTIMSEND", sizeof (meltcdat->dstr_438__CLASS_OBJMULTIMSEND.val)-1); meltcdat->dstr_438__CLASS_OBJMULTIMSEND.val[19] = (char)0 ; meltcdat->dstr_438__CLASS_OBJMULTIMSEND.slen = 19 ; /*inirout drout_439__OUTPUCOD_OBJCLEAR*/ /*iniroutlocvar*/ /*_._VALROUT___V641*/ meltfptr[640] = (melt_ptr_t) &meltcdat->drout_439__OUTPUCOD_OBJCLEAR; meltcdat->drout_439__OUTPUCOD_OBJCLEAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_439__OUTPUCOD_OBJCLEAR.routdescr, "OUTPUCOD_OBJCLEAR @warmelt-outobj.melt:4406", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_439__OUTPUCOD_OBJCLEAR.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_439__OUTPUCOD_OBJCLEAR, meltrout_92_WARMELTmiOUTOBJ_OUTPUCOD_OBJCLEAR); /*iniclos dclo_440__OUTPUCOD_OBJCLEAR*/ /*_._VALCLO___V642*/ meltfptr[641] = (melt_ptr_t) &meltcdat->dclo_440__OUTPUCOD_OBJCLEAR; meltcdat->dclo_440__OUTPUCOD_OBJCLEAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_440__OUTPUCOD_OBJCLEAR.nbval = 0; /*iniobj dsym_441__CLASS_OBJCLEAR*/ /*uniqueobj*/ if (!/*_._VALDATA___V643*/ meltfptr[642]) /*_._VALDATA___V643*/ meltfptr[642] = (melt_ptr_t )&meltcdat->dsym_441__CLASS_OBJCLEAR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_441__CLASS_OBJCLEAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_441__CLASS_OBJCLEAR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_441__CLASS_OBJCLEAR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_441__CLASS_OBJCLEAR.obj_hash = 1071635108; meltcdat->dsym_441__CLASS_OBJCLEAR.obj_len = 3; /*inistring dstr_442__CLASS_OBJCLEAR*/ /*_._VALSTR___V644*/ meltfptr[643] = (melt_ptr_t) &meltcdat->dstr_442__CLASS_OBJCLEAR; meltcdat->dstr_442__CLASS_OBJCLEAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_442__CLASS_OBJCLEAR.val, "CLASS_OBJCLEAR", sizeof (meltcdat->dstr_442__CLASS_OBJCLEAR.val)-1); meltcdat->dstr_442__CLASS_OBJCLEAR.val[14] = (char)0 ; meltcdat->dstr_442__CLASS_OBJCLEAR.slen = 14 ; /*inirout drout_443__OUTPUCOD_OBJRAWALLOCOBJ*/ /*iniroutlocvar*/ /*_._VALROUT___V645*/ meltfptr[644] = (melt_ptr_t) &meltcdat->drout_443__OUTPUCOD_OBJRAWALLOCOBJ; meltcdat->drout_443__OUTPUCOD_OBJRAWALLOCOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_443__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.melt:4423", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_443__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_443__OUTPUCOD_OBJRAWALLOCOBJ, meltrout_93_WARMELTmiOUTOBJ_OUTPUCOD_OBJRAWALLOCOBJ); /*iniclos dclo_444__OUTPUCOD_OBJRAWALLOCOBJ*/ /*_._VALCLO___V646*/ meltfptr[645] = (melt_ptr_t) &meltcdat->dclo_444__OUTPUCOD_OBJRAWALLOCOBJ; meltcdat->dclo_444__OUTPUCOD_OBJRAWALLOCOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_444__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 0; /*iniobj dsym_445__CLASS_OBJRAWALLOCOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V647*/ meltfptr[646]) /*_._VALDATA___V647*/ meltfptr[646] = (melt_ptr_t )&meltcdat->dsym_445__CLASS_OBJRAWALLOCOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_445__CLASS_OBJRAWALLOCOBJ", melt_magic_discr ((melt_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_OBJRAWALLOCOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_445__CLASS_OBJRAWALLOCOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_445__CLASS_OBJRAWALLOCOBJ.obj_hash = 795830730; meltcdat->dsym_445__CLASS_OBJRAWALLOCOBJ.obj_len = 3; /*inistring dstr_446__CLASS_OBJRAWALLOCOBJ*/ /*_._VALSTR___V648*/ meltfptr[647] = (melt_ptr_t) &meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ; meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ.val, "CLASS_OBJRAWALLOCOBJ", sizeof (meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ.val)-1); meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ.val[20] = (char)0 ; meltcdat->dstr_446__CLASS_OBJRAWALLOCOBJ.slen = 20 ; /*inirout drout_447__OUTPUCOD_OBJNEWCLOSURE*/ /*iniroutlocvar*/ /*_._VALROUT___V649*/ meltfptr[648] = (melt_ptr_t) &meltcdat->drout_447__OUTPUCOD_OBJNEWCLOSURE; meltcdat->drout_447__OUTPUCOD_OBJNEWCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_447__OUTPUCOD_OBJNEWCLOSURE.routdescr, "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.melt:4462", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_447__OUTPUCOD_OBJNEWCLOSURE.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_447__OUTPUCOD_OBJNEWCLOSURE, meltrout_94_WARMELTmiOUTOBJ_OUTPUCOD_OBJNEWCLOSURE); /*iniclos dclo_448__OUTPUCOD_OBJNEWCLOSURE*/ /*_._VALCLO___V650*/ meltfptr[649] = (melt_ptr_t) &meltcdat->dclo_448__OUTPUCOD_OBJNEWCLOSURE; meltcdat->dclo_448__OUTPUCOD_OBJNEWCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_448__OUTPUCOD_OBJNEWCLOSURE.nbval = 0; /*iniobj dsym_449__CLASS_OBJNEWCLOSURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V651*/ meltfptr[650]) /*_._VALDATA___V651*/ meltfptr[650] = (melt_ptr_t )&meltcdat->dsym_449__CLASS_OBJNEWCLOSURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_449__CLASS_OBJNEWCLOSURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_449__CLASS_OBJNEWCLOSURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_449__CLASS_OBJNEWCLOSURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_449__CLASS_OBJNEWCLOSURE.obj_hash = 699586028; meltcdat->dsym_449__CLASS_OBJNEWCLOSURE.obj_len = 3; /*inistring dstr_450__CLASS_OBJNEWCLOSURE*/ /*_._VALSTR___V652*/ meltfptr[651] = (melt_ptr_t) &meltcdat->dstr_450__CLASS_OBJNEWCLOSURE; meltcdat->dstr_450__CLASS_OBJNEWCLOSURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_450__CLASS_OBJNEWCLOSURE.val, "CLASS_OBJNEWCLOSURE", sizeof (meltcdat->dstr_450__CLASS_OBJNEWCLOSURE.val)-1); meltcdat->dstr_450__CLASS_OBJNEWCLOSURE.val[19] = (char)0 ; meltcdat->dstr_450__CLASS_OBJNEWCLOSURE.slen = 19 ; /*inirout drout_451__OUTPUCOD_OBJTOUCH*/ /*iniroutlocvar*/ /*_._VALROUT___V653*/ meltfptr[652] = (melt_ptr_t) &meltcdat->drout_451__OUTPUCOD_OBJTOUCH; meltcdat->drout_451__OUTPUCOD_OBJTOUCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_451__OUTPUCOD_OBJTOUCH.routdescr, "OUTPUCOD_OBJTOUCH @warmelt-outobj.melt:4496", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_451__OUTPUCOD_OBJTOUCH.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_451__OUTPUCOD_OBJTOUCH, meltrout_95_WARMELTmiOUTOBJ_OUTPUCOD_OBJTOUCH); /*iniclos dclo_452__OUTPUCOD_OBJTOUCH*/ /*_._VALCLO___V654*/ meltfptr[653] = (melt_ptr_t) &meltcdat->dclo_452__OUTPUCOD_OBJTOUCH; meltcdat->dclo_452__OUTPUCOD_OBJTOUCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_452__OUTPUCOD_OBJTOUCH.nbval = 0; /*iniobj dsym_453__CLASS_OBJTOUCH*/ /*uniqueobj*/ if (!/*_._VALDATA___V655*/ meltfptr[654]) /*_._VALDATA___V655*/ meltfptr[654] = (melt_ptr_t )&meltcdat->dsym_453__CLASS_OBJTOUCH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_453__CLASS_OBJTOUCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_453__CLASS_OBJTOUCH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_453__CLASS_OBJTOUCH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_453__CLASS_OBJTOUCH.obj_hash = 643155770; meltcdat->dsym_453__CLASS_OBJTOUCH.obj_len = 3; /*inistring dstr_454__CLASS_OBJTOUCH*/ /*_._VALSTR___V656*/ meltfptr[655] = (melt_ptr_t) &meltcdat->dstr_454__CLASS_OBJTOUCH; meltcdat->dstr_454__CLASS_OBJTOUCH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_454__CLASS_OBJTOUCH.val, "CLASS_OBJTOUCH", sizeof (meltcdat->dstr_454__CLASS_OBJTOUCH.val)-1); meltcdat->dstr_454__CLASS_OBJTOUCH.val[14] = (char)0 ; meltcdat->dstr_454__CLASS_OBJTOUCH.slen = 14 ; /*inirout drout_455__OUTPUCOD_DBGTRACEWRITEOBJ*/ /*iniroutlocvar*/ /*_._VALROUT___V657*/ meltfptr[656] = (melt_ptr_t) &meltcdat->drout_455__OUTPUCOD_DBGTRACEWRITEOBJ; meltcdat->drout_455__OUTPUCOD_DBGTRACEWRITEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_455__OUTPUCOD_DBGTRACEWRITEOBJ.routdescr, "OUTPUCOD_DBGTRACEWRITEOBJ @warmelt-outobj.melt:4521", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_455__OUTPUCOD_DBGTRACEWRITEOBJ.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_455__OUTPUCOD_DBGTRACEWRITEOBJ, meltrout_96_WARMELTmiOUTOBJ_OUTPUCOD_DBGTRACEWRITEOBJ); /*iniclos dclo_456__OUTPUCOD_DBGTRACEWRITEOBJ*/ /*_._VALCLO___V658*/ meltfptr[657] = (melt_ptr_t) &meltcdat->dclo_456__OUTPUCOD_DBGTRACEWRITEOBJ; meltcdat->dclo_456__OUTPUCOD_DBGTRACEWRITEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_456__OUTPUCOD_DBGTRACEWRITEOBJ.nbval = 0; /*iniobj dsym_457__CLASS_OBJDBGTRACEWRITEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V659*/ meltfptr[658]) /*_._VALDATA___V659*/ meltfptr[658] = (melt_ptr_t )&meltcdat->dsym_457__CLASS_OBJDBGTRACEWRITEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_457__CLASS_OBJDBGTRACEWRITEOBJ", melt_magic_discr ((melt_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_OBJDBGTRACEWRITEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_457__CLASS_OBJDBGTRACEWRITEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_457__CLASS_OBJDBGTRACEWRITEOBJ.obj_hash = 822920976; meltcdat->dsym_457__CLASS_OBJDBGTRACEWRITEOBJ.obj_len = 3; /*inistring dstr_458__CLASS_OBJDBGTRACEWRITEOB*/ /*_._VALSTR___V660*/ meltfptr[659] = (melt_ptr_t) &meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB; meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB.val, "CLASS_OBJDBGTRACEWRITEOBJ", sizeof (meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB.val)-1); meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB.val[25] = (char)0 ; meltcdat->dstr_458__CLASS_OBJDBGTRACEWRITEOB.slen = 25 ; /*inirout drout_459__OUTPUCOD_OBJPUTUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V661*/ meltfptr[660] = (melt_ptr_t) &meltcdat->drout_459__OUTPUCOD_OBJPUTUPLE; meltcdat->drout_459__OUTPUCOD_OBJPUTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_459__OUTPUCOD_OBJPUTUPLE.routdescr, "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.melt:4541", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_459__OUTPUCOD_OBJPUTUPLE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_459__OUTPUCOD_OBJPUTUPLE, meltrout_97_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTUPLE); /*iniclos dclo_460__OUTPUCOD_OBJPUTUPLE*/ /*_._VALCLO___V662*/ meltfptr[661] = (melt_ptr_t) &meltcdat->dclo_460__OUTPUCOD_OBJPUTUPLE; meltcdat->dclo_460__OUTPUCOD_OBJPUTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_460__OUTPUCOD_OBJPUTUPLE.nbval = 0; /*iniobj dsym_461__CLASS_OBJPUTUPLE*/ /*uniqueobj*/ if (!/*_._VALDATA___V663*/ meltfptr[662]) /*_._VALDATA___V663*/ meltfptr[662] = (melt_ptr_t )&meltcdat->dsym_461__CLASS_OBJPUTUPLE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_461__CLASS_OBJPUTUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_461__CLASS_OBJPUTUPLE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_461__CLASS_OBJPUTUPLE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_461__CLASS_OBJPUTUPLE.obj_hash = 419131762; meltcdat->dsym_461__CLASS_OBJPUTUPLE.obj_len = 3; /*inistring dstr_462__CLASS_OBJPUTUPLE*/ /*_._VALSTR___V664*/ meltfptr[663] = (melt_ptr_t) &meltcdat->dstr_462__CLASS_OBJPUTUPLE; meltcdat->dstr_462__CLASS_OBJPUTUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_462__CLASS_OBJPUTUPLE.val, "CLASS_OBJPUTUPLE", sizeof (meltcdat->dstr_462__CLASS_OBJPUTUPLE.val)-1); meltcdat->dstr_462__CLASS_OBJPUTUPLE.val[16] = (char)0 ; meltcdat->dstr_462__CLASS_OBJPUTUPLE.slen = 16 ; /*iniobj dsym_463__OBJPUTPAIRHEAD_COUNTER*/ /*uniqueobj*/ if (!/*_._VALDATA___V665*/ meltfptr[664]) /*_._VALDATA___V665*/ meltfptr[664] = (melt_ptr_t )&meltcdat->dsym_463__OBJPUTPAIRHEAD_COUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_463__OBJPUTPAIRHEAD_COUNTER", melt_magic_discr ((melt_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__OBJPUTPAIRHEAD_COUNTER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_463__OBJPUTPAIRHEAD_COUNTER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_463__OBJPUTPAIRHEAD_COUNTER.obj_hash = 710161913; meltcdat->dsym_463__OBJPUTPAIRHEAD_COUNTER.obj_len = 3; /*inistring dstr_464__OBJPUTPAIRHEAD_COUNTER*/ /*_._VALSTR___V666*/ meltfptr[665] = (melt_ptr_t) &meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER; meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER.val, "OBJPUTPAIRHEAD_COUNTER", sizeof (meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER.val)-1); meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER.val[22] = (char)0 ; meltcdat->dstr_464__OBJPUTPAIRHEAD_COUNTER.slen = 22 ; MELT_LOCATION("warmelt-outobj.melt:4614:/ iniobj"); /*iniobj dobj_465__OBJPUTPAIRHEAD_COUNTER*/ /*_._VALDATA___V667*/ meltfptr[666] = (melt_ptr_t )&meltcdat->dobj_465__OBJPUTPAIRHEAD_COUNTER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_465__OBJPUTPAIRHEAD_COUNTER", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_465__OBJPUTPAIRHEAD_COUNTER", ((meltobject_ptr_t) (/*_.CLASS_REFERENCE__V6*/ meltfptr[5]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_465__OBJPUTPAIRHEAD_COUNTER.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); meltcdat->dobj_465__OBJPUTPAIRHEAD_COUNTER.obj_hash = 27285609; meltcdat->dobj_465__OBJPUTPAIRHEAD_COUNTER.obj_len = 1; /*iniboxint dint_466__*/ /*_._VALBXINT___V668*/ meltfptr[667] = (melt_ptr_t) &meltcdat->dint_466__; meltcdat->dint_466__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CONSTANT_INTEGER)))); meltcdat->dint_466__.val = 0; /*inirout drout_467__OUTPUCOD_OBJPUTPAIRHEAD*/ /*iniroutlocvar*/ /*_._VALROUT___V669*/ meltfptr[668] = (melt_ptr_t) &meltcdat->drout_467__OUTPUCOD_OBJPUTPAIRHEAD; meltcdat->drout_467__OUTPUCOD_OBJPUTPAIRHEAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_467__OUTPUCOD_OBJPUTPAIRHEAD.routdescr, "OUTPUCOD_OBJPUTPAIRHEAD @warmelt-outobj.melt:4616", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_467__OUTPUCOD_OBJPUTPAIRHEAD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_467__OUTPUCOD_OBJPUTPAIRHEAD, meltrout_98_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRHEAD); /*iniclos dclo_468__OUTPUCOD_OBJPUTPAIRHEAD*/ /*_._VALCLO___V670*/ meltfptr[669] = (melt_ptr_t) &meltcdat->dclo_468__OUTPUCOD_OBJPUTPAIRHEAD; meltcdat->dclo_468__OUTPUCOD_OBJPUTPAIRHEAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_468__OUTPUCOD_OBJPUTPAIRHEAD.nbval = 0; /*iniobj dsym_469__CLASS_OBJPUTPAIR*/ /*uniqueobj*/ if (!/*_._VALDATA___V671*/ meltfptr[670]) /*_._VALDATA___V671*/ meltfptr[670] = (melt_ptr_t )&meltcdat->dsym_469__CLASS_OBJPUTPAIR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_469__CLASS_OBJPUTPAIR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_469__CLASS_OBJPUTPAIR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_469__CLASS_OBJPUTPAIR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_469__CLASS_OBJPUTPAIR.obj_hash = 28800659; meltcdat->dsym_469__CLASS_OBJPUTPAIR.obj_len = 3; /*inistring dstr_470__CLASS_OBJPUTPAIR*/ /*_._VALSTR___V672*/ meltfptr[671] = (melt_ptr_t) &meltcdat->dstr_470__CLASS_OBJPUTPAIR; meltcdat->dstr_470__CLASS_OBJPUTPAIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_470__CLASS_OBJPUTPAIR.val, "CLASS_OBJPUTPAIR", sizeof (meltcdat->dstr_470__CLASS_OBJPUTPAIR.val)-1); meltcdat->dstr_470__CLASS_OBJPUTPAIR.val[16] = (char)0 ; meltcdat->dstr_470__CLASS_OBJPUTPAIR.slen = 16 ; /*iniobj dsym_471__CLASS_OBJPUTPAIRHEAD*/ /*uniqueobj*/ if (!/*_._VALDATA___V673*/ meltfptr[672]) /*_._VALDATA___V673*/ meltfptr[672] = (melt_ptr_t )&meltcdat->dsym_471__CLASS_OBJPUTPAIRHEAD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_471__CLASS_OBJPUTPAIRHEAD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_471__CLASS_OBJPUTPAIRHEAD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_471__CLASS_OBJPUTPAIRHEAD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_471__CLASS_OBJPUTPAIRHEAD.obj_hash = 844112648; meltcdat->dsym_471__CLASS_OBJPUTPAIRHEAD.obj_len = 3; /*inistring dstr_472__CLASS_OBJPUTPAIRHEAD*/ /*_._VALSTR___V674*/ meltfptr[673] = (melt_ptr_t) &meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD; meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD.val, "CLASS_OBJPUTPAIRHEAD", sizeof (meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD.val)-1); meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD.val[20] = (char)0 ; meltcdat->dstr_472__CLASS_OBJPUTPAIRHEAD.slen = 20 ; /*inirout drout_473__OUTPUCOD_OBJPUTPAIRTAIL*/ /*iniroutlocvar*/ /*_._VALROUT___V675*/ meltfptr[674] = (melt_ptr_t) &meltcdat->drout_473__OUTPUCOD_OBJPUTPAIRTAIL; meltcdat->drout_473__OUTPUCOD_OBJPUTPAIRTAIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_473__OUTPUCOD_OBJPUTPAIRTAIL.routdescr, "OUTPUCOD_OBJPUTPAIRTAIL @warmelt-outobj.melt:4645", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_473__OUTPUCOD_OBJPUTPAIRTAIL.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_473__OUTPUCOD_OBJPUTPAIRTAIL, meltrout_99_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTPAIRTAIL); /*iniclos dclo_474__OUTPUCOD_OBJPUTPAIRTAIL*/ /*_._VALCLO___V676*/ meltfptr[675] = (melt_ptr_t) &meltcdat->dclo_474__OUTPUCOD_OBJPUTPAIRTAIL; meltcdat->dclo_474__OUTPUCOD_OBJPUTPAIRTAIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_474__OUTPUCOD_OBJPUTPAIRTAIL.nbval = 0; /*iniobj dsym_475__CLASS_OBJPUTPAIRTAIL*/ /*uniqueobj*/ if (!/*_._VALDATA___V677*/ meltfptr[676]) /*_._VALDATA___V677*/ meltfptr[676] = (melt_ptr_t )&meltcdat->dsym_475__CLASS_OBJPUTPAIRTAIL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_475__CLASS_OBJPUTPAIRTAIL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_475__CLASS_OBJPUTPAIRTAIL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_475__CLASS_OBJPUTPAIRTAIL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_475__CLASS_OBJPUTPAIRTAIL.obj_hash = 11812974; meltcdat->dsym_475__CLASS_OBJPUTPAIRTAIL.obj_len = 3; /*inistring dstr_476__CLASS_OBJPUTPAIRTAIL*/ /*_._VALSTR___V678*/ meltfptr[677] = (melt_ptr_t) &meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL; meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL.val, "CLASS_OBJPUTPAIRTAIL", sizeof (meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL.val)-1); meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL.val[20] = (char)0 ; meltcdat->dstr_476__CLASS_OBJPUTPAIRTAIL.slen = 20 ; /*inirout drout_477__OUTPUCOD_OBJPUTLIST*/ /*iniroutlocvar*/ /*_._VALROUT___V679*/ meltfptr[678] = (melt_ptr_t) &meltcdat->drout_477__OUTPUCOD_OBJPUTLIST; meltcdat->drout_477__OUTPUCOD_OBJPUTLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_477__OUTPUCOD_OBJPUTLIST.routdescr, "OUTPUCOD_OBJPUTLIST @warmelt-outobj.melt:4671", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_477__OUTPUCOD_OBJPUTLIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_477__OUTPUCOD_OBJPUTLIST, meltrout_100_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTLIST); /*iniclos dclo_478__OUTPUCOD_OBJPUTLIST*/ /*_._VALCLO___V680*/ meltfptr[679] = (melt_ptr_t) &meltcdat->dclo_478__OUTPUCOD_OBJPUTLIST; meltcdat->dclo_478__OUTPUCOD_OBJPUTLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_478__OUTPUCOD_OBJPUTLIST.nbval = 0; /*iniobj dsym_479__CLASS_OBJPUTLIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V681*/ meltfptr[680]) /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t )&meltcdat->dsym_479__CLASS_OBJPUTLIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_479__CLASS_OBJPUTLIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_479__CLASS_OBJPUTLIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_479__CLASS_OBJPUTLIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_479__CLASS_OBJPUTLIST.obj_hash = 581868612; meltcdat->dsym_479__CLASS_OBJPUTLIST.obj_len = 3; /*inistring dstr_480__CLASS_OBJPUTLIST*/ /*_._VALSTR___V682*/ meltfptr[681] = (melt_ptr_t) &meltcdat->dstr_480__CLASS_OBJPUTLIST; meltcdat->dstr_480__CLASS_OBJPUTLIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_480__CLASS_OBJPUTLIST.val, "CLASS_OBJPUTLIST", sizeof (meltcdat->dstr_480__CLASS_OBJPUTLIST.val)-1); meltcdat->dstr_480__CLASS_OBJPUTLIST.val[16] = (char)0 ; meltcdat->dstr_480__CLASS_OBJPUTLIST.slen = 16 ; /*inirout drout_481__OUTPUCOD_OBJGETSLOT*/ /*iniroutlocvar*/ /*_._VALROUT___V683*/ meltfptr[682] = (melt_ptr_t) &meltcdat->drout_481__OUTPUCOD_OBJGETSLOT; meltcdat->drout_481__OUTPUCOD_OBJGETSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_481__OUTPUCOD_OBJGETSLOT.routdescr, "OUTPUCOD_OBJGETSLOT @warmelt-outobj.melt:4702", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_481__OUTPUCOD_OBJGETSLOT.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_481__OUTPUCOD_OBJGETSLOT, meltrout_101_WARMELTmiOUTOBJ_OUTPUCOD_OBJGETSLOT); /*iniclos dclo_482__OUTPUCOD_OBJGETSLOT*/ /*_._VALCLO___V684*/ meltfptr[683] = (melt_ptr_t) &meltcdat->dclo_482__OUTPUCOD_OBJGETSLOT; meltcdat->dclo_482__OUTPUCOD_OBJGETSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_482__OUTPUCOD_OBJGETSLOT.nbval = 0; /*iniobj dsym_483__CLASS_OBJGETSLOT*/ /*uniqueobj*/ if (!/*_._VALDATA___V685*/ meltfptr[684]) /*_._VALDATA___V685*/ meltfptr[684] = (melt_ptr_t )&meltcdat->dsym_483__CLASS_OBJGETSLOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_483__CLASS_OBJGETSLOT", melt_magic_discr ((melt_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__CLASS_OBJGETSLOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_483__CLASS_OBJGETSLOT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_483__CLASS_OBJGETSLOT.obj_hash = 1004612742; meltcdat->dsym_483__CLASS_OBJGETSLOT.obj_len = 3; /*inistring dstr_484__CLASS_OBJGETSLOT*/ /*_._VALSTR___V686*/ meltfptr[685] = (melt_ptr_t) &meltcdat->dstr_484__CLASS_OBJGETSLOT; meltcdat->dstr_484__CLASS_OBJGETSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_484__CLASS_OBJGETSLOT.val, "CLASS_OBJGETSLOT", sizeof (meltcdat->dstr_484__CLASS_OBJGETSLOT.val)-1); meltcdat->dstr_484__CLASS_OBJGETSLOT.val[16] = (char)0 ; meltcdat->dstr_484__CLASS_OBJGETSLOT.slen = 16 ; /*iniobj dsym_485__CLASS_FIELD*/ /*uniqueobj*/ if (!/*_._VALDATA___V687*/ meltfptr[686]) /*_._VALDATA___V687*/ meltfptr[686] = (melt_ptr_t )&meltcdat->dsym_485__CLASS_FIELD; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_485__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_485__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_485__CLASS_FIELD.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_485__CLASS_FIELD.obj_hash = 523073; meltcdat->dsym_485__CLASS_FIELD.obj_len = 3; /*inistring dstr_486__CLASS_FIELD*/ /*_._VALSTR___V688*/ meltfptr[687] = (melt_ptr_t) &meltcdat->dstr_486__CLASS_FIELD; meltcdat->dstr_486__CLASS_FIELD.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_486__CLASS_FIELD.val, "CLASS_FIELD", sizeof (meltcdat->dstr_486__CLASS_FIELD.val)-1); meltcdat->dstr_486__CLASS_FIELD.val[11] = (char)0 ; meltcdat->dstr_486__CLASS_FIELD.slen = 11 ; /*inirout drout_487__OUTPUCOD_OBJPUTSLOT*/ /*iniroutlocvar*/ /*_._VALROUT___V689*/ meltfptr[688] = (melt_ptr_t) &meltcdat->drout_487__OUTPUCOD_OBJPUTSLOT; meltcdat->drout_487__OUTPUCOD_OBJPUTSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_487__OUTPUCOD_OBJPUTSLOT.routdescr, "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.melt:4741", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_487__OUTPUCOD_OBJPUTSLOT.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_487__OUTPUCOD_OBJPUTSLOT, meltrout_102_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTSLOT); /*iniclos dclo_488__OUTPUCOD_OBJPUTSLOT*/ /*_._VALCLO___V690*/ meltfptr[689] = (melt_ptr_t) &meltcdat->dclo_488__OUTPUCOD_OBJPUTSLOT; meltcdat->dclo_488__OUTPUCOD_OBJPUTSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_488__OUTPUCOD_OBJPUTSLOT.nbval = 0; /*iniobj dsym_489__CLASS_OBJPUTSLOT*/ /*uniqueobj*/ if (!/*_._VALDATA___V691*/ meltfptr[690]) /*_._VALDATA___V691*/ meltfptr[690] = (melt_ptr_t )&meltcdat->dsym_489__CLASS_OBJPUTSLOT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_489__CLASS_OBJPUTSLOT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_489__CLASS_OBJPUTSLOT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_489__CLASS_OBJPUTSLOT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_489__CLASS_OBJPUTSLOT.obj_hash = 382942903; meltcdat->dsym_489__CLASS_OBJPUTSLOT.obj_len = 3; /*inistring dstr_490__CLASS_OBJPUTSLOT*/ /*_._VALSTR___V692*/ meltfptr[691] = (melt_ptr_t) &meltcdat->dstr_490__CLASS_OBJPUTSLOT; meltcdat->dstr_490__CLASS_OBJPUTSLOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_490__CLASS_OBJPUTSLOT.val, "CLASS_OBJPUTSLOT", sizeof (meltcdat->dstr_490__CLASS_OBJPUTSLOT.val)-1); meltcdat->dstr_490__CLASS_OBJPUTSLOT.val[16] = (char)0 ; meltcdat->dstr_490__CLASS_OBJPUTSLOT.slen = 16 ; /*inirout drout_491__OUTPUCOD_OBJPUTCLOSUROUT*/ /*iniroutlocvar*/ /*_._VALROUT___V693*/ meltfptr[692] = (melt_ptr_t) &meltcdat->drout_491__OUTPUCOD_OBJPUTCLOSUROUT; meltcdat->drout_491__OUTPUCOD_OBJPUTCLOSUROUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_491__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.melt:4819", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_491__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_491__OUTPUCOD_OBJPUTCLOSUROUT, meltrout_103_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSUROUT); /*iniclos dclo_492__OUTPUCOD_OBJPUTCLOSUROUT*/ /*_._VALCLO___V694*/ meltfptr[693] = (melt_ptr_t) &meltcdat->dclo_492__OUTPUCOD_OBJPUTCLOSUROUT; meltcdat->dclo_492__OUTPUCOD_OBJPUTCLOSUROUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_492__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 0; /*iniobj dsym_493__CLASS_OBJPUTCLOSUROUT*/ /*uniqueobj*/ if (!/*_._VALDATA___V695*/ meltfptr[694]) /*_._VALDATA___V695*/ meltfptr[694] = (melt_ptr_t )&meltcdat->dsym_493__CLASS_OBJPUTCLOSUROUT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_493__CLASS_OBJPUTCLOSUROUT", melt_magic_discr ((melt_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_OBJPUTCLOSUROUT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_493__CLASS_OBJPUTCLOSUROUT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_493__CLASS_OBJPUTCLOSUROUT.obj_hash = 331144291; meltcdat->dsym_493__CLASS_OBJPUTCLOSUROUT.obj_len = 3; /*inistring dstr_494__CLASS_OBJPUTCLOSUROUT*/ /*_._VALSTR___V696*/ meltfptr[695] = (melt_ptr_t) &meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT; meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT.val, "CLASS_OBJPUTCLOSUROUT", sizeof (meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT.val)-1); meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT.val[21] = (char)0 ; meltcdat->dstr_494__CLASS_OBJPUTCLOSUROUT.slen = 21 ; /*inirout drout_495__OUTPUCOD_OBJPUTCLOSEDV*/ /*iniroutlocvar*/ /*_._VALROUT___V697*/ meltfptr[696] = (melt_ptr_t) &meltcdat->drout_495__OUTPUCOD_OBJPUTCLOSEDV; meltcdat->drout_495__OUTPUCOD_OBJPUTCLOSEDV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_495__OUTPUCOD_OBJPUTCLOSEDV.routdescr, "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.melt:4864", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_495__OUTPUCOD_OBJPUTCLOSEDV.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_495__OUTPUCOD_OBJPUTCLOSEDV, meltrout_104_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDV); /*iniclos dclo_496__OUTPUCOD_OBJPUTCLOSEDV*/ /*_._VALCLO___V698*/ meltfptr[697] = (melt_ptr_t) &meltcdat->dclo_496__OUTPUCOD_OBJPUTCLOSEDV; meltcdat->dclo_496__OUTPUCOD_OBJPUTCLOSEDV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_496__OUTPUCOD_OBJPUTCLOSEDV.nbval = 0; /*iniobj dsym_497__CLASS_OBJPUTCLOSEDV*/ /*uniqueobj*/ if (!/*_._VALDATA___V699*/ meltfptr[698]) /*_._VALDATA___V699*/ meltfptr[698] = (melt_ptr_t )&meltcdat->dsym_497__CLASS_OBJPUTCLOSEDV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_497__CLASS_OBJPUTCLOSEDV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_497__CLASS_OBJPUTCLOSEDV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_497__CLASS_OBJPUTCLOSEDV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_497__CLASS_OBJPUTCLOSEDV.obj_hash = 870174829; meltcdat->dsym_497__CLASS_OBJPUTCLOSEDV.obj_len = 3; /*inistring dstr_498__CLASS_OBJPUTCLOSEDV*/ /*_._VALSTR___V700*/ meltfptr[699] = (melt_ptr_t) &meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV; meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV.val, "CLASS_OBJPUTCLOSEDV", sizeof (meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV.val)-1); meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV.val[19] = (char)0 ; meltcdat->dstr_498__CLASS_OBJPUTCLOSEDV.slen = 19 ; /*inirout drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*iniroutlocvar*/ /*_._VALROUT___V701*/ meltfptr[700] = (melt_ptr_t) &meltcdat->drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; meltcdat->drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.melt:4902", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV, meltrout_105_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTCLOSEDNOTNULLV); /*iniclos dclo_500__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*_._VALCLO___V702*/ meltfptr[701] = (melt_ptr_t) &meltcdat->dclo_500__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; meltcdat->dclo_500__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_500__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 0; /*iniobj dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV*/ /*uniqueobj*/ if (!/*_._VALDATA___V703*/ meltfptr[702]) /*_._VALDATA___V703*/ meltfptr[702] = (melt_ptr_t )&meltcdat->dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 674443590; meltcdat->dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 3; /*inistring dstr_502__CLASS_OBJPUTCLOSEDNOTNUL*/ /*_._VALSTR___V704*/ meltfptr[703] = (melt_ptr_t) &meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL; meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL.val, "CLASS_OBJPUTCLOSEDNOTNULLV", sizeof (meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL.val)-1); meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL.val[26] = (char)0 ; meltcdat->dstr_502__CLASS_OBJPUTCLOSEDNOTNUL.slen = 26 ; /*inirout drout_503__OUTPUCOD_OBJPUTROUTCONST*/ /*iniroutlocvar*/ /*_._VALROUT___V705*/ meltfptr[704] = (melt_ptr_t) &meltcdat->drout_503__OUTPUCOD_OBJPUTROUTCONST; meltcdat->drout_503__OUTPUCOD_OBJPUTROUTCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_503__OUTPUCOD_OBJPUTROUTCONST.routdescr, "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.melt:4943", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_503__OUTPUCOD_OBJPUTROUTCONST.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_503__OUTPUCOD_OBJPUTROUTCONST, meltrout_106_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONST); /*iniclos dclo_504__OUTPUCOD_OBJPUTROUTCONST*/ /*_._VALCLO___V706*/ meltfptr[705] = (melt_ptr_t) &meltcdat->dclo_504__OUTPUCOD_OBJPUTROUTCONST; meltcdat->dclo_504__OUTPUCOD_OBJPUTROUTCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_504__OUTPUCOD_OBJPUTROUTCONST.nbval = 0; /*iniobj dsym_505__CLASS_OBJPUTROUTCONST*/ /*uniqueobj*/ if (!/*_._VALDATA___V707*/ meltfptr[706]) /*_._VALDATA___V707*/ meltfptr[706] = (melt_ptr_t )&meltcdat->dsym_505__CLASS_OBJPUTROUTCONST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_505__CLASS_OBJPUTROUTCONST", melt_magic_discr ((melt_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__CLASS_OBJPUTROUTCONST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_505__CLASS_OBJPUTROUTCONST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_505__CLASS_OBJPUTROUTCONST.obj_hash = 815485494; meltcdat->dsym_505__CLASS_OBJPUTROUTCONST.obj_len = 3; /*inistring dstr_506__CLASS_OBJPUTROUTCONST*/ /*_._VALSTR___V708*/ meltfptr[707] = (melt_ptr_t) &meltcdat->dstr_506__CLASS_OBJPUTROUTCONST; meltcdat->dstr_506__CLASS_OBJPUTROUTCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_506__CLASS_OBJPUTROUTCONST.val, "CLASS_OBJPUTROUTCONST", sizeof (meltcdat->dstr_506__CLASS_OBJPUTROUTCONST.val)-1); meltcdat->dstr_506__CLASS_OBJPUTROUTCONST.val[21] = (char)0 ; meltcdat->dstr_506__CLASS_OBJPUTROUTCONST.slen = 21 ; /*inirout drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*iniroutlocvar*/ /*_._VALROUT___V709*/ meltfptr[708] = (melt_ptr_t) &meltcdat->drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; meltcdat->drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.melt:4983", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL, meltrout_107_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTROUTCONSTNOTNULL); /*iniclos dclo_508__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*_._VALCLO___V710*/ meltfptr[709] = (melt_ptr_t) &meltcdat->dclo_508__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; meltcdat->dclo_508__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_508__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 0; /*iniobj dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL*/ /*uniqueobj*/ if (!/*_._VALDATA___V711*/ meltfptr[710]) /*_._VALDATA___V711*/ meltfptr[710] = (melt_ptr_t )&meltcdat->dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL", melt_magic_discr ((melt_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__CLASS_OBJPUTROUTCONSTNOTNULL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 698971949; meltcdat->dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 3; /*inistring dstr_510__CLASS_OBJPUTROUTCONSTNOT*/ /*_._VALSTR___V712*/ meltfptr[711] = (melt_ptr_t) &meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT; meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT.val, "CLASS_OBJPUTROUTCONSTNOTNULL", sizeof (meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT.val)-1); meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT.val[28] = (char)0 ; meltcdat->dstr_510__CLASS_OBJPUTROUTCONSTNOT.slen = 28 ; /*inirout drout_511__OUTPUCOD_OBJPUTHOOKCONST*/ /*iniroutlocvar*/ /*_._VALROUT___V713*/ meltfptr[712] = (melt_ptr_t) &meltcdat->drout_511__OUTPUCOD_OBJPUTHOOKCONST; meltcdat->drout_511__OUTPUCOD_OBJPUTHOOKCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_511__OUTPUCOD_OBJPUTHOOKCONST.routdescr, "OUTPUCOD_OBJPUTHOOKCONST @warmelt-outobj.melt:5018", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_511__OUTPUCOD_OBJPUTHOOKCONST.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_511__OUTPUCOD_OBJPUTHOOKCONST, meltrout_108_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKCONST); /*iniclos dclo_512__OUTPUCOD_OBJPUTHOOKCONST*/ /*_._VALCLO___V714*/ meltfptr[713] = (melt_ptr_t) &meltcdat->dclo_512__OUTPUCOD_OBJPUTHOOKCONST; meltcdat->dclo_512__OUTPUCOD_OBJPUTHOOKCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_512__OUTPUCOD_OBJPUTHOOKCONST.nbval = 0; /*iniobj dsym_513__CLASS_OBJPUTHOOKCONST*/ /*uniqueobj*/ if (!/*_._VALDATA___V715*/ meltfptr[714]) /*_._VALDATA___V715*/ meltfptr[714] = (melt_ptr_t )&meltcdat->dsym_513__CLASS_OBJPUTHOOKCONST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_513__CLASS_OBJPUTHOOKCONST", melt_magic_discr ((melt_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_OBJPUTHOOKCONST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_513__CLASS_OBJPUTHOOKCONST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_513__CLASS_OBJPUTHOOKCONST.obj_hash = 533859598; meltcdat->dsym_513__CLASS_OBJPUTHOOKCONST.obj_len = 3; /*inistring dstr_514__CLASS_OBJPUTHOOKCONST*/ /*_._VALSTR___V716*/ meltfptr[715] = (melt_ptr_t) &meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST; meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST.val, "CLASS_OBJPUTHOOKCONST", sizeof (meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST.val)-1); meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST.val[21] = (char)0 ; meltcdat->dstr_514__CLASS_OBJPUTHOOKCONST.slen = 21 ; /*iniobj dsym_515__CLASS_NREP_BOUND_DATA*/ /*uniqueobj*/ if (!/*_._VALDATA___V717*/ meltfptr[716]) /*_._VALDATA___V717*/ meltfptr[716] = (melt_ptr_t )&meltcdat->dsym_515__CLASS_NREP_BOUND_DATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_515__CLASS_NREP_BOUND_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_515__CLASS_NREP_BOUND_DATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_515__CLASS_NREP_BOUND_DATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_515__CLASS_NREP_BOUND_DATA.obj_hash = 580314803; meltcdat->dsym_515__CLASS_NREP_BOUND_DATA.obj_len = 3; /*inistring dstr_516__CLASS_NREP_BOUND_DATA*/ /*_._VALSTR___V718*/ meltfptr[717] = (melt_ptr_t) &meltcdat->dstr_516__CLASS_NREP_BOUND_DATA; meltcdat->dstr_516__CLASS_NREP_BOUND_DATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_516__CLASS_NREP_BOUND_DATA.val, "CLASS_NREP_BOUND_DATA", sizeof (meltcdat->dstr_516__CLASS_NREP_BOUND_DATA.val)-1); meltcdat->dstr_516__CLASS_NREP_BOUND_DATA.val[21] = (char)0 ; meltcdat->dstr_516__CLASS_NREP_BOUND_DATA.slen = 21 ; /*inirout drout_517__OUTPUCOD_OBJPUTHOOKDATA*/ /*iniroutlocvar*/ /*_._VALROUT___V719*/ meltfptr[718] = (melt_ptr_t) &meltcdat->drout_517__OUTPUCOD_OBJPUTHOOKDATA; meltcdat->drout_517__OUTPUCOD_OBJPUTHOOKDATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_517__OUTPUCOD_OBJPUTHOOKDATA.routdescr, "OUTPUCOD_OBJPUTHOOKDATA @warmelt-outobj.melt:5063", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_517__OUTPUCOD_OBJPUTHOOKDATA.nbval = 11; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_517__OUTPUCOD_OBJPUTHOOKDATA, meltrout_109_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTHOOKDATA); /*iniclos dclo_518__OUTPUCOD_OBJPUTHOOKDATA*/ /*_._VALCLO___V720*/ meltfptr[719] = (melt_ptr_t) &meltcdat->dclo_518__OUTPUCOD_OBJPUTHOOKDATA; meltcdat->dclo_518__OUTPUCOD_OBJPUTHOOKDATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_518__OUTPUCOD_OBJPUTHOOKDATA.nbval = 0; /*iniobj dsym_519__CLASS_OBJPUTHOOKDATA*/ /*uniqueobj*/ if (!/*_._VALDATA___V721*/ meltfptr[720]) /*_._VALDATA___V721*/ meltfptr[720] = (melt_ptr_t )&meltcdat->dsym_519__CLASS_OBJPUTHOOKDATA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_519__CLASS_OBJPUTHOOKDATA", melt_magic_discr ((melt_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__CLASS_OBJPUTHOOKDATA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_519__CLASS_OBJPUTHOOKDATA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_519__CLASS_OBJPUTHOOKDATA.obj_hash = 877753267; meltcdat->dsym_519__CLASS_OBJPUTHOOKDATA.obj_len = 3; /*inistring dstr_520__CLASS_OBJPUTHOOKDATA*/ /*_._VALSTR___V722*/ meltfptr[721] = (melt_ptr_t) &meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA; meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA.val, "CLASS_OBJPUTHOOKDATA", sizeof (meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA.val)-1); meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA.val[20] = (char)0 ; meltcdat->dstr_520__CLASS_OBJPUTHOOKDATA.slen = 20 ; /*inirout drout_521__OUTPUCOD_OBJPUTXTRARESULT*/ /*iniroutlocvar*/ /*_._VALROUT___V723*/ meltfptr[722] = (melt_ptr_t) &meltcdat->drout_521__OUTPUCOD_OBJPUTXTRARESULT; meltcdat->drout_521__OUTPUCOD_OBJPUTXTRARESULT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_521__OUTPUCOD_OBJPUTXTRARESULT.routdescr, "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.melt:5093", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_521__OUTPUCOD_OBJPUTXTRARESULT.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_521__OUTPUCOD_OBJPUTXTRARESULT, meltrout_110_WARMELTmiOUTOBJ_OUTPUCOD_OBJPUTXTRARESULT); /*iniclos dclo_522__OUTPUCOD_OBJPUTXTRARESULT*/ /*_._VALCLO___V724*/ meltfptr[723] = (melt_ptr_t) &meltcdat->dclo_522__OUTPUCOD_OBJPUTXTRARESULT; meltcdat->dclo_522__OUTPUCOD_OBJPUTXTRARESULT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_522__OUTPUCOD_OBJPUTXTRARESULT.nbval = 0; /*iniobj dsym_523__CLASS_OBJPUTXTRARESULT*/ /*uniqueobj*/ if (!/*_._VALDATA___V725*/ meltfptr[724]) /*_._VALDATA___V725*/ meltfptr[724] = (melt_ptr_t )&meltcdat->dsym_523__CLASS_OBJPUTXTRARESULT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_523__CLASS_OBJPUTXTRARESULT", melt_magic_discr ((melt_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_OBJPUTXTRARESULT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_523__CLASS_OBJPUTXTRARESULT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_523__CLASS_OBJPUTXTRARESULT.obj_hash = 66172370; meltcdat->dsym_523__CLASS_OBJPUTXTRARESULT.obj_len = 3; /*inistring dstr_524__CLASS_OBJPUTXTRARESULT*/ /*_._VALSTR___V726*/ meltfptr[725] = (melt_ptr_t) &meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT; meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT.val, "CLASS_OBJPUTXTRARESULT", sizeof (meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT.val)-1); meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT.val[22] = (char)0 ; meltcdat->dstr_524__CLASS_OBJPUTXTRARESULT.slen = 22 ; /*inirout drout_525__OUTPUCOD_OBJEXPV*/ /*iniroutlocvar*/ /*_._VALROUT___V727*/ meltfptr[726] = (melt_ptr_t) &meltcdat->drout_525__OUTPUCOD_OBJEXPV; meltcdat->drout_525__OUTPUCOD_OBJEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_525__OUTPUCOD_OBJEXPV.routdescr, "OUTPUCOD_OBJEXPV @warmelt-outobj.melt:5136", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_525__OUTPUCOD_OBJEXPV.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_525__OUTPUCOD_OBJEXPV, meltrout_111_WARMELTmiOUTOBJ_OUTPUCOD_OBJEXPV); /*iniclos dclo_526__OUTPUCOD_OBJEXPV*/ /*_._VALCLO___V728*/ meltfptr[727] = (melt_ptr_t) &meltcdat->dclo_526__OUTPUCOD_OBJEXPV; meltcdat->dclo_526__OUTPUCOD_OBJEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_526__OUTPUCOD_OBJEXPV.nbval = 0; /*iniobj dsym_527__CLASS_OBJEXPV*/ /*uniqueobj*/ if (!/*_._VALDATA___V729*/ meltfptr[728]) /*_._VALDATA___V729*/ meltfptr[728] = (melt_ptr_t )&meltcdat->dsym_527__CLASS_OBJEXPV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_527__CLASS_OBJEXPV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_527__CLASS_OBJEXPV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_527__CLASS_OBJEXPV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_527__CLASS_OBJEXPV.obj_hash = 134484056; meltcdat->dsym_527__CLASS_OBJEXPV.obj_len = 3; /*inistring dstr_528__CLASS_OBJEXPV*/ /*_._VALSTR___V730*/ meltfptr[729] = (melt_ptr_t) &meltcdat->dstr_528__CLASS_OBJEXPV; meltcdat->dstr_528__CLASS_OBJEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_528__CLASS_OBJEXPV.val, "CLASS_OBJEXPV", sizeof (meltcdat->dstr_528__CLASS_OBJEXPV.val)-1); meltcdat->dstr_528__CLASS_OBJEXPV.val[13] = (char)0 ; meltcdat->dstr_528__CLASS_OBJEXPV.slen = 13 ; /*inirout drout_529__OUTPUCOD_OBJLOCATEDEXPV*/ /*iniroutlocvar*/ /*_._VALROUT___V731*/ meltfptr[730] = (melt_ptr_t) &meltcdat->drout_529__OUTPUCOD_OBJLOCATEDEXPV; meltcdat->drout_529__OUTPUCOD_OBJLOCATEDEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_529__OUTPUCOD_OBJLOCATEDEXPV.routdescr, "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.melt:5153", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_529__OUTPUCOD_OBJLOCATEDEXPV.nbval = 10; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_529__OUTPUCOD_OBJLOCATEDEXPV, meltrout_112_WARMELTmiOUTOBJ_OUTPUCOD_OBJLOCATEDEXPV); /*iniclos dclo_530__OUTPUCOD_OBJLOCATEDEXPV*/ /*_._VALCLO___V732*/ meltfptr[731] = (melt_ptr_t) &meltcdat->dclo_530__OUTPUCOD_OBJLOCATEDEXPV; meltcdat->dclo_530__OUTPUCOD_OBJLOCATEDEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_530__OUTPUCOD_OBJLOCATEDEXPV.nbval = 0; /*iniobj dsym_531__CLASS_OBJLOCATEDEXPV*/ /*uniqueobj*/ if (!/*_._VALDATA___V733*/ meltfptr[732]) /*_._VALDATA___V733*/ meltfptr[732] = (melt_ptr_t )&meltcdat->dsym_531__CLASS_OBJLOCATEDEXPV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_531__CLASS_OBJLOCATEDEXPV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_531__CLASS_OBJLOCATEDEXPV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_531__CLASS_OBJLOCATEDEXPV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_531__CLASS_OBJLOCATEDEXPV.obj_hash = 564704332; meltcdat->dsym_531__CLASS_OBJLOCATEDEXPV.obj_len = 3; /*inistring dstr_532__CLASS_OBJLOCATEDEXPV*/ /*_._VALSTR___V734*/ meltfptr[733] = (melt_ptr_t) &meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV; meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV.val, "CLASS_OBJLOCATEDEXPV", sizeof (meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV.val)-1); meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV.val[20] = (char)0 ; meltcdat->dstr_532__CLASS_OBJLOCATEDEXPV.slen = 20 ; /*inirout drout_533__OUTPUCOD_VERBATIMSTRING*/ /*iniroutlocvar*/ /*_._VALROUT___V735*/ meltfptr[734] = (melt_ptr_t) &meltcdat->drout_533__OUTPUCOD_VERBATIMSTRING; meltcdat->drout_533__OUTPUCOD_VERBATIMSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_533__OUTPUCOD_VERBATIMSTRING.routdescr, "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.melt:5195", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_533__OUTPUCOD_VERBATIMSTRING.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_533__OUTPUCOD_VERBATIMSTRING, meltrout_113_WARMELTmiOUTOBJ_OUTPUCOD_VERBATIMSTRING); /*iniclos dclo_534__OUTPUCOD_VERBATIMSTRING*/ /*_._VALCLO___V736*/ meltfptr[735] = (melt_ptr_t) &meltcdat->dclo_534__OUTPUCOD_VERBATIMSTRING; meltcdat->dclo_534__OUTPUCOD_VERBATIMSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_534__OUTPUCOD_VERBATIMSTRING.nbval = 0; /*inirout drout_535__OUTPUCOD_STRING*/ /*iniroutlocvar*/ /*_._VALROUT___V737*/ meltfptr[736] = (melt_ptr_t) &meltcdat->drout_535__OUTPUCOD_STRING; meltcdat->drout_535__OUTPUCOD_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_535__OUTPUCOD_STRING.routdescr, "OUTPUCOD_STRING @warmelt-outobj.melt:5206", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_535__OUTPUCOD_STRING.nbval = 4; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_535__OUTPUCOD_STRING, meltrout_114_WARMELTmiOUTOBJ_OUTPUCOD_STRING); /*iniclos dclo_536__OUTPUCOD_STRING*/ /*_._VALCLO___V738*/ meltfptr[737] = (melt_ptr_t) &meltcdat->dclo_536__OUTPUCOD_STRING; meltcdat->dclo_536__OUTPUCOD_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_536__OUTPUCOD_STRING.nbval = 0; /*inirout drout_537__OUTPUCOD_INTEGER*/ /*iniroutlocvar*/ /*_._VALROUT___V739*/ meltfptr[738] = (melt_ptr_t) &meltcdat->drout_537__OUTPUCOD_INTEGER; meltcdat->drout_537__OUTPUCOD_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_537__OUTPUCOD_INTEGER.routdescr, "OUTPUCOD_INTEGER @warmelt-outobj.melt:5219", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_537__OUTPUCOD_INTEGER.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_537__OUTPUCOD_INTEGER, meltrout_115_WARMELTmiOUTOBJ_OUTPUCOD_INTEGER); /*iniclos dclo_538__OUTPUCOD_INTEGER*/ /*_._VALCLO___V740*/ meltfptr[739] = (melt_ptr_t) &meltcdat->dclo_538__OUTPUCOD_INTEGER; meltcdat->dclo_538__OUTPUCOD_INTEGER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_538__OUTPUCOD_INTEGER.nbval = 0; /*inirout drout_539__OUTPUCOD_FINALRETURN*/ /*iniroutlocvar*/ /*_._VALROUT___V741*/ meltfptr[740] = (melt_ptr_t) &meltcdat->drout_539__OUTPUCOD_FINALRETURN; meltcdat->drout_539__OUTPUCOD_FINALRETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_539__OUTPUCOD_FINALRETURN.routdescr, "OUTPUCOD_FINALRETURN @warmelt-outobj.melt:5226", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_539__OUTPUCOD_FINALRETURN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_539__OUTPUCOD_FINALRETURN, meltrout_116_WARMELTmiOUTOBJ_OUTPUCOD_FINALRETURN); /*iniclos dclo_540__OUTPUCOD_FINALRETURN*/ /*_._VALCLO___V742*/ meltfptr[741] = (melt_ptr_t) &meltcdat->dclo_540__OUTPUCOD_FINALRETURN; meltcdat->dclo_540__OUTPUCOD_FINALRETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_540__OUTPUCOD_FINALRETURN.nbval = 0; /*iniobj dsym_541__CLASS_OBJFINALRETURN*/ /*uniqueobj*/ if (!/*_._VALDATA___V743*/ meltfptr[742]) /*_._VALDATA___V743*/ meltfptr[742] = (melt_ptr_t )&meltcdat->dsym_541__CLASS_OBJFINALRETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_541__CLASS_OBJFINALRETURN", melt_magic_discr ((melt_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__CLASS_OBJFINALRETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_541__CLASS_OBJFINALRETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_541__CLASS_OBJFINALRETURN.obj_hash = 650464089; meltcdat->dsym_541__CLASS_OBJFINALRETURN.obj_len = 3; /*inistring dstr_542__CLASS_OBJFINALRETURN*/ /*_._VALSTR___V744*/ meltfptr[743] = (melt_ptr_t) &meltcdat->dstr_542__CLASS_OBJFINALRETURN; meltcdat->dstr_542__CLASS_OBJFINALRETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_542__CLASS_OBJFINALRETURN.val, "CLASS_OBJFINALRETURN", sizeof (meltcdat->dstr_542__CLASS_OBJFINALRETURN.val)-1); meltcdat->dstr_542__CLASS_OBJFINALRETURN.val[20] = (char)0 ; meltcdat->dstr_542__CLASS_OBJFINALRETURN.slen = 20 ; /*inirout drout_543__SORTED_NAMED_DICT_TUPLE*/ /*iniroutlocvar*/ /*_._VALROUT___V745*/ meltfptr[744] = (melt_ptr_t) &meltcdat->drout_543__SORTED_NAMED_DICT_TUPLE; meltcdat->drout_543__SORTED_NAMED_DICT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_543__SORTED_NAMED_DICT_TUPLE.routdescr, "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.melt:5240", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_543__SORTED_NAMED_DICT_TUPLE.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_543__SORTED_NAMED_DICT_TUPLE, meltrout_117_WARMELTmiOUTOBJ_SORTED_NAMED_DICT_TUPLE); /*iniclos dclo_544__SORTED_NAMED_DICT_TUPLE*/ /*_._VALCLO___V746*/ meltfptr[745] = (melt_ptr_t) &meltcdat->dclo_544__SORTED_NAMED_DICT_TUPLE; meltcdat->dclo_544__SORTED_NAMED_DICT_TUPLE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_544__SORTED_NAMED_DICT_TUPLE.nbval = 0; /*iniobj dsym_545__MULTIPLE_SORT*/ /*uniqueobj*/ if (!/*_._VALDATA___V747*/ meltfptr[746]) /*_._VALDATA___V747*/ meltfptr[746] = (melt_ptr_t )&meltcdat->dsym_545__MULTIPLE_SORT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_545__MULTIPLE_SORT", melt_magic_discr ((melt_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__MULTIPLE_SORT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_545__MULTIPLE_SORT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_545__MULTIPLE_SORT.obj_hash = 959027783; meltcdat->dsym_545__MULTIPLE_SORT.obj_len = 3; /*inistring dstr_546__MULTIPLE_SORT*/ /*_._VALSTR___V748*/ meltfptr[747] = (melt_ptr_t) &meltcdat->dstr_546__MULTIPLE_SORT; meltcdat->dstr_546__MULTIPLE_SORT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_546__MULTIPLE_SORT.val, "MULTIPLE_SORT", sizeof (meltcdat->dstr_546__MULTIPLE_SORT.val)-1); meltcdat->dstr_546__MULTIPLE_SORT.val[13] = (char)0 ; meltcdat->dstr_546__MULTIPLE_SORT.slen = 13 ; /*iniobj dsym_547__COMPARE_NAMED_ALPHA*/ /*uniqueobj*/ if (!/*_._VALDATA___V749*/ meltfptr[748]) /*_._VALDATA___V749*/ meltfptr[748] = (melt_ptr_t )&meltcdat->dsym_547__COMPARE_NAMED_ALPHA; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_547__COMPARE_NAMED_ALPHA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_547__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_547__COMPARE_NAMED_ALPHA.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_547__COMPARE_NAMED_ALPHA.obj_hash = 155514911; meltcdat->dsym_547__COMPARE_NAMED_ALPHA.obj_len = 3; /*inistring dstr_548__COMPARE_NAMED_ALPHA*/ /*_._VALSTR___V750*/ meltfptr[749] = (melt_ptr_t) &meltcdat->dstr_548__COMPARE_NAMED_ALPHA; meltcdat->dstr_548__COMPARE_NAMED_ALPHA.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_548__COMPARE_NAMED_ALPHA.val, "COMPARE_NAMED_ALPHA", sizeof (meltcdat->dstr_548__COMPARE_NAMED_ALPHA.val)-1); meltcdat->dstr_548__COMPARE_NAMED_ALPHA.val[19] = (char)0 ; meltcdat->dstr_548__COMPARE_NAMED_ALPHA.slen = 19 ; /*inirout drout_549__OUTPUT_EXPORTED_OFFSETS*/ /*iniroutlocvar*/ /*_._VALROUT___V751*/ meltfptr[750] = (melt_ptr_t) &meltcdat->drout_549__OUTPUT_EXPORTED_OFFSETS; meltcdat->drout_549__OUTPUT_EXPORTED_OFFSETS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_549__OUTPUT_EXPORTED_OFFSETS.routdescr, "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.melt:5256", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_549__OUTPUT_EXPORTED_OFFSETS.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_549__OUTPUT_EXPORTED_OFFSETS, meltrout_118_WARMELTmiOUTOBJ_OUTPUT_EXPORTED_OFFSETS); /*iniclos dclo_550__OUTPUT_EXPORTED_OFFSETS*/ /*_._VALCLO___V752*/ meltfptr[751] = (melt_ptr_t) &meltcdat->dclo_550__OUTPUT_EXPORTED_OFFSETS; meltcdat->dclo_550__OUTPUT_EXPORTED_OFFSETS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_550__OUTPUT_EXPORTED_OFFSETS.nbval = 0; /*iniobj dsym_551__CLASS_SECONDARY_CC_FILE*/ /*uniqueobj*/ if (!/*_._VALDATA___V753*/ meltfptr[752]) /*_._VALDATA___V753*/ meltfptr[752] = (melt_ptr_t )&meltcdat->dsym_551__CLASS_SECONDARY_CC_FILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_551__CLASS_SECONDARY_CC_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_551__CLASS_SECONDARY_CC_FILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_551__CLASS_SECONDARY_CC_FILE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_551__CLASS_SECONDARY_CC_FILE.obj_hash = 924472310; meltcdat->dsym_551__CLASS_SECONDARY_CC_FILE.obj_len = 3; /*inistring dstr_552__CLASS_SECONDARY_CC_FILE*/ /*_._VALSTR___V754*/ meltfptr[753] = (melt_ptr_t) &meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE; meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE.val, "CLASS_SECONDARY_CC_FILE", sizeof (meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE.val)-1); meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE.val[23] = (char)0 ; meltcdat->dstr_552__CLASS_SECONDARY_CC_FILE.slen = 23 ; MELT_LOCATION("warmelt-outobj.melt:5318:/ iniobj"); /*iniobj dobj_553__CLASS_SECONDARY_CC_FILE*/ /*_._VALDATA___V755*/ meltfptr[754] = (melt_ptr_t )&meltcdat->dobj_553__CLASS_SECONDARY_CC_FILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_553__CLASS_SECONDARY_CC_FILE", 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_553__CLASS_SECONDARY_CC_FILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_553__CLASS_SECONDARY_CC_FILE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_553__CLASS_SECONDARY_CC_FILE.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_553__CLASS_SECONDARY_CC_FILE.obj_hash = 585970808; meltcdat->dobj_553__CLASS_SECONDARY_CC_FILE.obj_len = 8; /*inistring dstr_554__CLASS_SECONDARY_CC_FILE*/ /*_._VALSTR___V756*/ meltfptr[755] = (melt_ptr_t) &meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE; meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE.val, "CLASS_SECONDARY_CC_FILE", sizeof (meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE.val)-1); meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE.val[23] = (char)0 ; meltcdat->dstr_554__CLASS_SECONDARY_CC_FILE.slen = 23 ; /*inimult dtup_555_syCLASS_SECONDARY_CC_FILE*/ /*_._VALTUP___V757*/ meltfptr[756] = (melt_ptr_t) &meltcdat->dtup_555_syCLASS_SECONDARY_CC_FILE; meltcdat->dtup_555_syCLASS_SECONDARY_CC_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_555_syCLASS_SECONDARY_CC_FILE.nbval = 1; /*inimult dtup_556_syCLASS_SECONDARY_CC_FILE*/ /*_._VALTUP___V766*/ meltfptr[765] = (melt_ptr_t) &meltcdat->dtup_556_syCLASS_SECONDARY_CC_FILE; meltcdat->dtup_556_syCLASS_SECONDARY_CC_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_556_syCLASS_SECONDARY_CC_FILE.nbval = 4; /*iniobj dsym_557__SECFIL_MODNAM*/ /*uniqueobj*/ if (!/*_._VALDATA___V767*/ meltfptr[766]) /*_._VALDATA___V767*/ meltfptr[766] = (melt_ptr_t )&meltcdat->dsym_557__SECFIL_MODNAM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_557__SECFIL_MODNAM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_557__SECFIL_MODNAM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_557__SECFIL_MODNAM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_557__SECFIL_MODNAM.obj_hash = 412289055; meltcdat->dsym_557__SECFIL_MODNAM.obj_len = 3; /*inistring dstr_558__SECFIL_MODNAM*/ /*_._VALSTR___V768*/ meltfptr[767] = (melt_ptr_t) &meltcdat->dstr_558__SECFIL_MODNAM; meltcdat->dstr_558__SECFIL_MODNAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_558__SECFIL_MODNAM.val, "SECFIL_MODNAM", sizeof (meltcdat->dstr_558__SECFIL_MODNAM.val)-1); meltcdat->dstr_558__SECFIL_MODNAM.val[13] = (char)0 ; meltcdat->dstr_558__SECFIL_MODNAM.slen = 13 ; /*^iniobj*/ /*iniobj dobj_559__SECFIL_MODNAM*/ /*_._VALDATA___V758*/ meltfptr[757] = (melt_ptr_t )&meltcdat->dobj_559__SECFIL_MODNAM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_559__SECFIL_MODNAM", 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_559__SECFIL_MODNAM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_559__SECFIL_MODNAM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_559__SECFIL_MODNAM.obj_num = 0; meltcdat->dobj_559__SECFIL_MODNAM.obj_hash = 81837392; meltcdat->dobj_559__SECFIL_MODNAM.obj_len = 4; /*inistring dstr_560__SECFIL_MODNAM*/ /*_._VALSTR___V759*/ meltfptr[758] = (melt_ptr_t) &meltcdat->dstr_560__SECFIL_MODNAM; meltcdat->dstr_560__SECFIL_MODNAM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_560__SECFIL_MODNAM.val, "SECFIL_MODNAM", sizeof (meltcdat->dstr_560__SECFIL_MODNAM.val)-1); meltcdat->dstr_560__SECFIL_MODNAM.val[13] = (char)0 ; meltcdat->dstr_560__SECFIL_MODNAM.slen = 13 ; /*iniobj dsym_561__SECFIL_PATH*/ /*uniqueobj*/ if (!/*_._VALDATA___V769*/ meltfptr[768]) /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t )&meltcdat->dsym_561__SECFIL_PATH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_561__SECFIL_PATH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_561__SECFIL_PATH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_561__SECFIL_PATH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_561__SECFIL_PATH.obj_hash = 1021166889; meltcdat->dsym_561__SECFIL_PATH.obj_len = 3; /*inistring dstr_562__SECFIL_PATH*/ /*_._VALSTR___V770*/ meltfptr[769] = (melt_ptr_t) &meltcdat->dstr_562__SECFIL_PATH; meltcdat->dstr_562__SECFIL_PATH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_562__SECFIL_PATH.val, "SECFIL_PATH", sizeof (meltcdat->dstr_562__SECFIL_PATH.val)-1); meltcdat->dstr_562__SECFIL_PATH.val[11] = (char)0 ; meltcdat->dstr_562__SECFIL_PATH.slen = 11 ; /*^iniobj*/ /*iniobj dobj_563__SECFIL_PATH*/ /*_._VALDATA___V760*/ meltfptr[759] = (melt_ptr_t )&meltcdat->dobj_563__SECFIL_PATH; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_563__SECFIL_PATH", 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_563__SECFIL_PATH", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_563__SECFIL_PATH.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_563__SECFIL_PATH.obj_num = 1; meltcdat->dobj_563__SECFIL_PATH.obj_hash = 944566040; meltcdat->dobj_563__SECFIL_PATH.obj_len = 4; /*inistring dstr_564__SECFIL_PATH*/ /*_._VALSTR___V761*/ meltfptr[760] = (melt_ptr_t) &meltcdat->dstr_564__SECFIL_PATH; meltcdat->dstr_564__SECFIL_PATH.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_564__SECFIL_PATH.val, "SECFIL_PATH", sizeof (meltcdat->dstr_564__SECFIL_PATH.val)-1); meltcdat->dstr_564__SECFIL_PATH.val[11] = (char)0 ; meltcdat->dstr_564__SECFIL_PATH.slen = 11 ; /*iniobj dsym_565__SECFIL_DECLBUF*/ /*uniqueobj*/ if (!/*_._VALDATA___V771*/ meltfptr[770]) /*_._VALDATA___V771*/ meltfptr[770] = (melt_ptr_t )&meltcdat->dsym_565__SECFIL_DECLBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_565__SECFIL_DECLBUF", melt_magic_discr ((melt_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__SECFIL_DECLBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_565__SECFIL_DECLBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_565__SECFIL_DECLBUF.obj_hash = 792503811; meltcdat->dsym_565__SECFIL_DECLBUF.obj_len = 3; /*inistring dstr_566__SECFIL_DECLBUF*/ /*_._VALSTR___V772*/ meltfptr[771] = (melt_ptr_t) &meltcdat->dstr_566__SECFIL_DECLBUF; meltcdat->dstr_566__SECFIL_DECLBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_566__SECFIL_DECLBUF.val, "SECFIL_DECLBUF", sizeof (meltcdat->dstr_566__SECFIL_DECLBUF.val)-1); meltcdat->dstr_566__SECFIL_DECLBUF.val[14] = (char)0 ; meltcdat->dstr_566__SECFIL_DECLBUF.slen = 14 ; /*^iniobj*/ /*iniobj dobj_567__SECFIL_DECLBUF*/ /*_._VALDATA___V762*/ meltfptr[761] = (melt_ptr_t )&meltcdat->dobj_567__SECFIL_DECLBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_567__SECFIL_DECLBUF", 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_567__SECFIL_DECLBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_567__SECFIL_DECLBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_567__SECFIL_DECLBUF.obj_num = 2; meltcdat->dobj_567__SECFIL_DECLBUF.obj_hash = 49538941; meltcdat->dobj_567__SECFIL_DECLBUF.obj_len = 4; /*inistring dstr_568__SECFIL_DECLBUF*/ /*_._VALSTR___V763*/ meltfptr[762] = (melt_ptr_t) &meltcdat->dstr_568__SECFIL_DECLBUF; meltcdat->dstr_568__SECFIL_DECLBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_568__SECFIL_DECLBUF.val, "SECFIL_DECLBUF", sizeof (meltcdat->dstr_568__SECFIL_DECLBUF.val)-1); meltcdat->dstr_568__SECFIL_DECLBUF.val[14] = (char)0 ; meltcdat->dstr_568__SECFIL_DECLBUF.slen = 14 ; /*iniobj dsym_569__SECFIL_IMPLBUF*/ /*uniqueobj*/ if (!/*_._VALDATA___V773*/ meltfptr[772]) /*_._VALDATA___V773*/ meltfptr[772] = (melt_ptr_t )&meltcdat->dsym_569__SECFIL_IMPLBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_569__SECFIL_IMPLBUF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_569__SECFIL_IMPLBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_569__SECFIL_IMPLBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_569__SECFIL_IMPLBUF.obj_hash = 143691030; meltcdat->dsym_569__SECFIL_IMPLBUF.obj_len = 3; /*inistring dstr_570__SECFIL_IMPLBUF*/ /*_._VALSTR___V774*/ meltfptr[773] = (melt_ptr_t) &meltcdat->dstr_570__SECFIL_IMPLBUF; meltcdat->dstr_570__SECFIL_IMPLBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_570__SECFIL_IMPLBUF.val, "SECFIL_IMPLBUF", sizeof (meltcdat->dstr_570__SECFIL_IMPLBUF.val)-1); meltcdat->dstr_570__SECFIL_IMPLBUF.val[14] = (char)0 ; meltcdat->dstr_570__SECFIL_IMPLBUF.slen = 14 ; /*^iniobj*/ /*iniobj dobj_571__SECFIL_IMPLBUF*/ /*_._VALDATA___V764*/ meltfptr[763] = (melt_ptr_t )&meltcdat->dobj_571__SECFIL_IMPLBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_571__SECFIL_IMPLBUF", 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_571__SECFIL_IMPLBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_571__SECFIL_IMPLBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FIELD)))); meltcdat->dobj_571__SECFIL_IMPLBUF.obj_num = 3; meltcdat->dobj_571__SECFIL_IMPLBUF.obj_hash = 511654643; meltcdat->dobj_571__SECFIL_IMPLBUF.obj_len = 4; /*inistring dstr_572__SECFIL_IMPLBUF*/ /*_._VALSTR___V765*/ meltfptr[764] = (melt_ptr_t) &meltcdat->dstr_572__SECFIL_IMPLBUF; meltcdat->dstr_572__SECFIL_IMPLBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_572__SECFIL_IMPLBUF.val, "SECFIL_IMPLBUF", sizeof (meltcdat->dstr_572__SECFIL_IMPLBUF.val)-1); meltcdat->dstr_572__SECFIL_IMPLBUF.val[14] = (char)0 ; meltcdat->dstr_572__SECFIL_IMPLBUF.slen = 14 ; /*iniobj dsym_573__GENERATED_CC_FILENAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V775*/ meltfptr[774]) /*_._VALDATA___V775*/ meltfptr[774] = (melt_ptr_t )&meltcdat->dsym_573__GENERATED_CC_FILENAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_573__GENERATED_CC_FILENAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_573__GENERATED_CC_FILENAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_573__GENERATED_CC_FILENAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_573__GENERATED_CC_FILENAME.obj_hash = 857887386; meltcdat->dsym_573__GENERATED_CC_FILENAME.obj_len = 3; /*inistring dstr_574__GENERATED_CC_FILENAME*/ /*_._VALSTR___V776*/ meltfptr[775] = (melt_ptr_t) &meltcdat->dstr_574__GENERATED_CC_FILENAME; meltcdat->dstr_574__GENERATED_CC_FILENAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_574__GENERATED_CC_FILENAME.val, "GENERATED_CC_FILENAME", sizeof (meltcdat->dstr_574__GENERATED_CC_FILENAME.val)-1); meltcdat->dstr_574__GENERATED_CC_FILENAME.val[21] = (char)0 ; meltcdat->dstr_574__GENERATED_CC_FILENAME.slen = 21 ; MELT_LOCATION("warmelt-outobj.melt:5327:/ iniobj"); /*iniobj dobj_575__GENERATED_CC_FILENAME*/ /*_._VALDATA___V777*/ meltfptr[776] = (melt_ptr_t )&meltcdat->dobj_575__GENERATED_CC_FILENAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_575__GENERATED_CC_FILENAME", 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_575__GENERATED_CC_FILENAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_575__GENERATED_CC_FILENAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))); meltcdat->dobj_575__GENERATED_CC_FILENAME.obj_hash = 871832477; meltcdat->dobj_575__GENERATED_CC_FILENAME.obj_len = 5; /*inimult dtup_576_syGENERATED_CC_FILENAME*/ /*_._VALTUP___V797*/ meltfptr[796] = (melt_ptr_t) &meltcdat->dtup_576_syGENERATED_CC_FILENAME; meltcdat->dtup_576_syGENERATED_CC_FILENAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_576_syGENERATED_CC_FILENAME.nbval = 9; /*inimult dtup_577_syGENERATED_CC_FILENAME*/ /*_._VALTUP___V791*/ meltfptr[790] = (melt_ptr_t) &meltcdat->dtup_577_syGENERATED_CC_FILENAME; meltcdat->dtup_577_syGENERATED_CC_FILENAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_577_syGENERATED_CC_FILENAME.nbval = 4; /*iniobj dsym_578__DISCR*/ /*uniqueobj*/ if (!/*_._VALDATA___V780*/ meltfptr[779]) /*_._VALDATA___V780*/ meltfptr[779] = (melt_ptr_t )&meltcdat->dsym_578__DISCR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_578__DISCR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_578__DISCR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_578__DISCR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_578__DISCR.obj_hash = 95458406; meltcdat->dsym_578__DISCR.obj_len = 3; /*inistring dstr_579__DISCR*/ /*_._VALSTR___V781*/ meltfptr[780] = (melt_ptr_t) &meltcdat->dstr_579__DISCR; meltcdat->dstr_579__DISCR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_579__DISCR.val, "DISCR", sizeof (meltcdat->dstr_579__DISCR.val)-1); meltcdat->dstr_579__DISCR.val[5] = (char)0 ; meltcdat->dstr_579__DISCR.slen = 5 ; /*^iniobj*/ /*iniobj dobj_580*/ /*_._VALDATA___V779*/ meltfptr[778] = (melt_ptr_t )&meltcdat->dobj_580; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_580", 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_580", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_580.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_580.obj_num = 0; meltcdat->dobj_580.obj_hash = 327308128; meltcdat->dobj_580.obj_len = 2; /*iniobj dsym_581__BASE*/ /*uniqueobj*/ if (!/*_._VALDATA___V783*/ meltfptr[782]) /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t )&meltcdat->dsym_581__BASE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_581__BASE", melt_magic_discr ((melt_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__BASE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_581__BASE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_581__BASE.obj_hash = 609649580; meltcdat->dsym_581__BASE.obj_len = 3; /*inistring dstr_582__BASE*/ /*_._VALSTR___V784*/ meltfptr[783] = (melt_ptr_t) &meltcdat->dstr_582__BASE; meltcdat->dstr_582__BASE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_582__BASE.val, "BASE", sizeof (meltcdat->dstr_582__BASE.val)-1); meltcdat->dstr_582__BASE.val[4] = (char)0 ; meltcdat->dstr_582__BASE.slen = 4 ; /*^iniobj*/ /*iniobj dobj_583*/ /*_._VALDATA___V782*/ meltfptr[781] = (melt_ptr_t )&meltcdat->dobj_583; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_583", 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_583", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_583.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_583.obj_num = 1; meltcdat->dobj_583.obj_hash = 699790022; meltcdat->dobj_583.obj_len = 2; /*iniobj dsym_584__DIR*/ /*uniqueobj*/ if (!/*_._VALDATA___V786*/ meltfptr[785]) /*_._VALDATA___V786*/ meltfptr[785] = (melt_ptr_t )&meltcdat->dsym_584__DIR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_584__DIR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_584__DIR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_584__DIR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_584__DIR.obj_hash = 922498881; meltcdat->dsym_584__DIR.obj_len = 3; /*inistring dstr_585__DIR*/ /*_._VALSTR___V787*/ meltfptr[786] = (melt_ptr_t) &meltcdat->dstr_585__DIR; meltcdat->dstr_585__DIR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_585__DIR.val, "DIR", sizeof (meltcdat->dstr_585__DIR.val)-1); meltcdat->dstr_585__DIR.val[3] = (char)0 ; meltcdat->dstr_585__DIR.slen = 3 ; /*^iniobj*/ /*iniobj dobj_586*/ /*_._VALDATA___V785*/ meltfptr[784] = (melt_ptr_t )&meltcdat->dobj_586; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_586", 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_586", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_586.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_586.obj_num = 2; meltcdat->dobj_586.obj_hash = 320416062; meltcdat->dobj_586.obj_len = 2; /*iniobj dsym_587__NUM*/ /*uniqueobj*/ if (!/*_._VALDATA___V789*/ meltfptr[788]) /*_._VALDATA___V789*/ meltfptr[788] = (melt_ptr_t )&meltcdat->dsym_587__NUM; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_587__NUM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_587__NUM", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_587__NUM.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_587__NUM.obj_hash = 129664091; meltcdat->dsym_587__NUM.obj_len = 3; /*inistring dstr_588__NUM*/ /*_._VALSTR___V790*/ meltfptr[789] = (melt_ptr_t) &meltcdat->dstr_588__NUM; meltcdat->dstr_588__NUM.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_588__NUM.val, "NUM", sizeof (meltcdat->dstr_588__NUM.val)-1); meltcdat->dstr_588__NUM.val[3] = (char)0 ; meltcdat->dstr_588__NUM.slen = 3 ; /*^iniobj*/ /*iniobj dobj_589*/ /*_._VALDATA___V788*/ meltfptr[787] = (melt_ptr_t )&meltcdat->dobj_589; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_589", 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_589", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_589.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_589.obj_num = 3; meltcdat->dobj_589.obj_hash = 972656503; meltcdat->dobj_589.obj_len = 2; /*inistring dstr_590__meltgc_new_string_genera*/ /*_._VALSTR___V792*/ meltfptr[791] = (melt_ptr_t) &meltcdat->dstr_590__meltgc_new_string_genera; meltcdat->dstr_590__meltgc_new_string_genera.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_590__meltgc_new_string_genera.val, "meltgc_new_string_generated_cc_filename /* generated_cc_filename \ */\n ((meltobject_ptr_t) (", sizeof (meltcdat->dstr_590__meltgc_new_string_genera.val)-1); meltcdat->dstr_590__meltgc_new_string_genera.val[95] = (char)0 ; meltcdat->dstr_590__meltgc_new_string_genera.slen = 95 ; /*inistring dstr_591__melt_string_str*/ /*_._VALSTR___V793*/ meltfptr[792] = (melt_ptr_t) &meltcdat->dstr_591__melt_string_str; meltcdat->dstr_591__melt_string_str.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_591__melt_string_str.val, "),\n melt_string_str((melt_ptr_t) (", sizeof (meltcdat->dstr_591__melt_string_str.val)-1); meltcdat->dstr_591__melt_string_str.val[39] = (char)0 ; meltcdat->dstr_591__melt_string_str.slen = 39 ; /*inistring dstr_592__melt_string_str_mel*/ /*_._VALSTR___V794*/ meltfptr[793] = (melt_ptr_t) &meltcdat->dstr_592__melt_string_str_mel; meltcdat->dstr_592__melt_string_str_mel.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_592__melt_string_str_mel.val, ")), melt_string_str((melt_ptr_t) (", sizeof (meltcdat->dstr_592__melt_string_str_mel.val)-1); meltcdat->dstr_592__melt_string_str_mel.val[34] = (char)0 ; meltcdat->dstr_592__melt_string_str_mel.slen = 34 ; /*inistring dstr_593__*/ /*_._VALSTR___V795*/ meltfptr[794] = (melt_ptr_t) &meltcdat->dstr_593__; meltcdat->dstr_593__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_593__.val, ")), \n (", sizeof (meltcdat->dstr_593__.val)-1); meltcdat->dstr_593__.val[12] = (char)0 ; meltcdat->dstr_593__.slen = 12 ; /*inistring dstr_594__*/ /*_._VALSTR___V796*/ meltfptr[795] = (melt_ptr_t) &meltcdat->dstr_594__; meltcdat->dstr_594__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_594__.val, "))", sizeof (meltcdat->dstr_594__.val)-1); meltcdat->dstr_594__.val[2] = (char)0 ; meltcdat->dstr_594__.slen = 2 ; /*inistring dstr_595__GENERATED_CC_FILENAME*/ /*_._VALSTR___V778*/ meltfptr[777] = (melt_ptr_t) &meltcdat->dstr_595__GENERATED_CC_FILENAME; meltcdat->dstr_595__GENERATED_CC_FILENAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_595__GENERATED_CC_FILENAME.val, "GENERATED_CC_FILENAME", sizeof (meltcdat->dstr_595__GENERATED_CC_FILENAME.val)-1); meltcdat->dstr_595__GENERATED_CC_FILENAME.val[21] = (char)0 ; meltcdat->dstr_595__GENERATED_CC_FILENAME.slen = 21 ; /*inirout drout_596__NTH_SECUNDARY_FILE*/ /*iniroutlocvar*/ /*_._VALROUT___V798*/ meltfptr[797] = (melt_ptr_t) &meltcdat->drout_596__NTH_SECUNDARY_FILE; meltcdat->drout_596__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_596__NTH_SECUNDARY_FILE.routdescr, "NTH_SECUNDARY_FILE @warmelt-outobj.melt:5335", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_596__NTH_SECUNDARY_FILE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_596__NTH_SECUNDARY_FILE, meltrout_119_WARMELTmiOUTOBJ_NTH_SECUNDARY_FILE); /*iniclos dclo_597__NTH_SECUNDARY_FILE*/ /*_._VALCLO___V799*/ meltfptr[798] = (melt_ptr_t) &meltcdat->dclo_597__NTH_SECUNDARY_FILE; meltcdat->dclo_597__NTH_SECUNDARY_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_597__NTH_SECUNDARY_FILE.nbval = 0; /*inirout drout_598__OUTPUT_MELT_DESCRIPTOR*/ /*iniroutlocvar*/ /*_._VALROUT___V800*/ meltfptr[799] = (melt_ptr_t) &meltcdat->drout_598__OUTPUT_MELT_DESCRIPTOR; meltcdat->drout_598__OUTPUT_MELT_DESCRIPTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_598__OUTPUT_MELT_DESCRIPTOR.routdescr, "OUTPUT_MELT_DESCRIPTOR @warmelt-outobj.melt:5369", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_598__OUTPUT_MELT_DESCRIPTOR.nbval = 18; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_598__OUTPUT_MELT_DESCRIPTOR, meltrout_120_WARMELTmiOUTOBJ_OUTPUT_MELT_DESCRIPTOR); /*iniclos dclo_599__OUTPUT_MELT_DESCRIPTOR*/ /*_._VALCLO___V807*/ meltfptr[806] = (melt_ptr_t) &meltcdat->dclo_599__OUTPUT_MELT_DESCRIPTOR; meltcdat->dclo_599__OUTPUT_MELT_DESCRIPTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_599__OUTPUT_MELT_DESCRIPTOR.nbval = 0; /*iniobj dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V808*/ meltfptr[807]) /*_._VALDATA___V808*/ meltfptr[807] = (melt_ptr_t )&meltcdat->dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_600__CLASS_RUNNING_EXTENSION_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_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT.obj_hash = 618245499; meltcdat->dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_601__CLASS_RUNNING_EXTENSION_*/ /*_._VALSTR___V809*/ meltfptr[808] = (melt_ptr_t) &meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_; meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_.val, "CLASS_RUNNING_EXTENSION_MODULE_CONTEXT", sizeof (meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_.val)-1); meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_.val[38] = (char)0 ; meltcdat->dstr_601__CLASS_RUNNING_EXTENSION_.slen = 38 ; /*inistring dstr_602__runextend*/ /*_._VALSTR___V801*/ meltfptr[800] = (melt_ptr_t) &meltcdat->dstr_602__runextend; meltcdat->dstr_602__runextend.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_602__runextend.val, "runextend", sizeof (meltcdat->dstr_602__runextend.val)-1); meltcdat->dstr_602__runextend.val[9] = (char)0 ; meltcdat->dstr_602__runextend.slen = 9 ; /*inistring dstr_603__optimized*/ /*_._VALSTR___V802*/ meltfptr[801] = (melt_ptr_t) &meltcdat->dstr_603__optimized; meltcdat->dstr_603__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_603__optimized.val, "optimized", sizeof (meltcdat->dstr_603__optimized.val)-1); meltcdat->dstr_603__optimized.val[9] = (char)0 ; meltcdat->dstr_603__optimized.slen = 9 ; /*inistring dstr_604__quicklybuilt*/ /*_._VALSTR___V803*/ meltfptr[802] = (melt_ptr_t) &meltcdat->dstr_604__quicklybuilt; meltcdat->dstr_604__quicklybuilt.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_604__quicklybuilt.val, "quicklybuilt", sizeof (meltcdat->dstr_604__quicklybuilt.val)-1); meltcdat->dstr_604__quicklybuilt.val[12] = (char)0 ; meltcdat->dstr_604__quicklybuilt.slen = 12 ; /*inistring dstr_605__optimized*/ /*_._VALSTR___V804*/ meltfptr[803] = (melt_ptr_t) &meltcdat->dstr_605__optimized; meltcdat->dstr_605__optimized.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_605__optimized.val, "optimized", sizeof (meltcdat->dstr_605__optimized.val)-1); meltcdat->dstr_605__optimized.val[9] = (char)0 ; meltcdat->dstr_605__optimized.slen = 9 ; /*inistring dstr_606__dynamic*/ /*_._VALSTR___V805*/ meltfptr[804] = (melt_ptr_t) &meltcdat->dstr_606__dynamic; meltcdat->dstr_606__dynamic.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_606__dynamic.val, "dynamic", sizeof (meltcdat->dstr_606__dynamic.val)-1); meltcdat->dstr_606__dynamic.val[7] = (char)0 ; meltcdat->dstr_606__dynamic.slen = 7 ; /*inistring dstr_607__debugnoline*/ /*_._VALSTR___V806*/ meltfptr[805] = (melt_ptr_t) &meltcdat->dstr_607__debugnoline; meltcdat->dstr_607__debugnoline.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_607__debugnoline.val, "debugnoline", sizeof (meltcdat->dstr_607__debugnoline.val)-1); meltcdat->dstr_607__debugnoline.val[11] = (char)0 ; meltcdat->dstr_607__debugnoline.slen = 11 ; /*iniobj dsym_608__SYNTAX_TEST_GENERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V810*/ meltfptr[809]) /*_._VALDATA___V810*/ meltfptr[809] = (melt_ptr_t )&meltcdat->dsym_608__SYNTAX_TEST_GENERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_608__SYNTAX_TEST_GENERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_608__SYNTAX_TEST_GENERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_608__SYNTAX_TEST_GENERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_608__SYNTAX_TEST_GENERATOR.obj_hash = 803188755; meltcdat->dsym_608__SYNTAX_TEST_GENERATOR.obj_len = 3; /*inistring dstr_609__SYNTAX_TEST_GENERATOR*/ /*_._VALSTR___V811*/ meltfptr[810] = (melt_ptr_t) &meltcdat->dstr_609__SYNTAX_TEST_GENERATOR; meltcdat->dstr_609__SYNTAX_TEST_GENERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_609__SYNTAX_TEST_GENERATOR.val, "SYNTAX_TEST_GENERATOR", sizeof (meltcdat->dstr_609__SYNTAX_TEST_GENERATOR.val)-1); meltcdat->dstr_609__SYNTAX_TEST_GENERATOR.val[21] = (char)0 ; meltcdat->dstr_609__SYNTAX_TEST_GENERATOR.slen = 21 ; /*iniobj dsym_610__CLASS_SELECTOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V812*/ meltfptr[811]) /*_._VALDATA___V812*/ meltfptr[811] = (melt_ptr_t )&meltcdat->dsym_610__CLASS_SELECTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_610__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_610__CLASS_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_610__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_610__CLASS_SELECTOR.obj_hash = 100646971; meltcdat->dsym_610__CLASS_SELECTOR.obj_len = 3; /*inistring dstr_611__CLASS_SELECTOR*/ /*_._VALSTR___V813*/ meltfptr[812] = (melt_ptr_t) &meltcdat->dstr_611__CLASS_SELECTOR; meltcdat->dstr_611__CLASS_SELECTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_611__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (meltcdat->dstr_611__CLASS_SELECTOR.val)-1); meltcdat->dstr_611__CLASS_SELECTOR.val[14] = (char)0 ; meltcdat->dstr_611__CLASS_SELECTOR.slen = 14 ; /*iniobj dsym_612__RECV*/ /*uniqueobj*/ if (!/*_._VALDATA___V814*/ meltfptr[813]) /*_._VALDATA___V814*/ meltfptr[813] = (melt_ptr_t )&meltcdat->dsym_612__RECV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_612__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_612__RECV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_612__RECV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_612__RECV.obj_hash = 10842790; meltcdat->dsym_612__RECV.obj_len = 3; /*inistring dstr_613__RECV*/ /*_._VALSTR___V815*/ meltfptr[814] = (melt_ptr_t) &meltcdat->dstr_613__RECV; meltcdat->dstr_613__RECV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_613__RECV.val, "RECV", sizeof (meltcdat->dstr_613__RECV.val)-1); meltcdat->dstr_613__RECV.val[4] = (char)0 ; meltcdat->dstr_613__RECV.slen = 4 ; MELT_LOCATION("warmelt-outobj.melt:5786:/ iniobj"); /*iniobj dobj_614*/ /*_._VALDATA___V816*/ meltfptr[815] = (melt_ptr_t )&meltcdat->dobj_614; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_614", 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_614", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_614.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_614.obj_num = 0; meltcdat->dobj_614.obj_hash = 463676922; meltcdat->dobj_614.obj_len = 2; /*iniobj dsym_615__GENDEV*/ /*uniqueobj*/ if (!/*_._VALDATA___V817*/ meltfptr[816]) /*_._VALDATA___V817*/ meltfptr[816] = (melt_ptr_t )&meltcdat->dsym_615__GENDEV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_615__GENDEV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_615__GENDEV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_615__GENDEV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_615__GENDEV.obj_hash = 608529194; meltcdat->dsym_615__GENDEV.obj_len = 3; /*inistring dstr_616__GENDEV*/ /*_._VALSTR___V818*/ meltfptr[817] = (melt_ptr_t) &meltcdat->dstr_616__GENDEV; meltcdat->dstr_616__GENDEV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_616__GENDEV.val, "GENDEV", sizeof (meltcdat->dstr_616__GENDEV.val)-1); meltcdat->dstr_616__GENDEV.val[6] = (char)0 ; meltcdat->dstr_616__GENDEV.slen = 6 ; /*^iniobj*/ /*iniobj dobj_617*/ /*_._VALDATA___V819*/ meltfptr[818] = (melt_ptr_t )&meltcdat->dobj_617; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_617", 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_617", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_617.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_617.obj_num = 1; meltcdat->dobj_617.obj_hash = 1026661237; meltcdat->dobj_617.obj_len = 2; /*iniobj dsym_618__SBUF*/ /*uniqueobj*/ if (!/*_._VALDATA___V820*/ meltfptr[819]) /*_._VALDATA___V820*/ meltfptr[819] = (melt_ptr_t )&meltcdat->dsym_618__SBUF; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_618__SBUF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_618__SBUF", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_618__SBUF.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_618__SBUF.obj_hash = 120431958; meltcdat->dsym_618__SBUF.obj_len = 3; /*inistring dstr_619__SBUF*/ /*_._VALSTR___V821*/ meltfptr[820] = (melt_ptr_t) &meltcdat->dstr_619__SBUF; meltcdat->dstr_619__SBUF.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_619__SBUF.val, "SBUF", sizeof (meltcdat->dstr_619__SBUF.val)-1); meltcdat->dstr_619__SBUF.val[4] = (char)0 ; meltcdat->dstr_619__SBUF.slen = 4 ; /*^iniobj*/ /*iniobj dobj_620*/ /*_._VALDATA___V822*/ meltfptr[821] = (melt_ptr_t )&meltcdat->dobj_620; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_620", 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_620", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_620.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_620.obj_num = 2; meltcdat->dobj_620.obj_hash = 52651260; meltcdat->dobj_620.obj_len = 2; /*iniobj dsym_621__MODCTX*/ /*uniqueobj*/ if (!/*_._VALDATA___V823*/ meltfptr[822]) /*_._VALDATA___V823*/ meltfptr[822] = (melt_ptr_t )&meltcdat->dsym_621__MODCTX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_621__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_621__MODCTX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_621__MODCTX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_621__MODCTX.obj_hash = 913240393; meltcdat->dsym_621__MODCTX.obj_len = 3; /*inistring dstr_622__MODCTX*/ /*_._VALSTR___V824*/ meltfptr[823] = (melt_ptr_t) &meltcdat->dstr_622__MODCTX; meltcdat->dstr_622__MODCTX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_622__MODCTX.val, "MODCTX", sizeof (meltcdat->dstr_622__MODCTX.val)-1); meltcdat->dstr_622__MODCTX.val[6] = (char)0 ; meltcdat->dstr_622__MODCTX.slen = 6 ; /*^iniobj*/ /*iniobj dobj_623*/ /*_._VALDATA___V825*/ meltfptr[824] = (melt_ptr_t )&meltcdat->dobj_623; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_623", 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_623", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_623.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_623.obj_num = 3; meltcdat->dobj_623.obj_hash = 940413385; meltcdat->dobj_623.obj_len = 2; /*iniobj dsym_624__IX*/ /*uniqueobj*/ if (!/*_._VALDATA___V826*/ meltfptr[825]) /*_._VALDATA___V826*/ meltfptr[825] = (melt_ptr_t )&meltcdat->dsym_624__IX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_624__IX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_624__IX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_624__IX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_624__IX.obj_hash = 57004009; meltcdat->dsym_624__IX.obj_len = 3; /*inistring dstr_625__IX*/ /*_._VALSTR___V827*/ meltfptr[826] = (melt_ptr_t) &meltcdat->dstr_625__IX; meltcdat->dstr_625__IX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_625__IX.val, "IX", sizeof (meltcdat->dstr_625__IX.val)-1); meltcdat->dstr_625__IX.val[2] = (char)0 ; meltcdat->dstr_625__IX.slen = 2 ; /*^iniobj*/ /*iniobj dobj_626*/ /*_._VALDATA___V828*/ meltfptr[827] = (melt_ptr_t )&meltcdat->dobj_626; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_626", 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_626", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_626.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_626.obj_num = 4; meltcdat->dobj_626.obj_hash = 545474522; meltcdat->dobj_626.obj_len = 2; /*inimult dtup_627_sySYNTAX_TEST_GENERATOR*/ /*_._VALTUP___V829*/ meltfptr[828] = (melt_ptr_t) &meltcdat->dtup_627_sySYNTAX_TEST_GENERATOR; meltcdat->dtup_627_sySYNTAX_TEST_GENERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_627_sySYNTAX_TEST_GENERATOR.nbval = 5; /*^iniobj*/ /*iniobj dobj_628__SYNTAX_TEST_GENERATOR*/ /*_._VALDATA___V830*/ meltfptr[829] = (melt_ptr_t )&meltcdat->dobj_628__SYNTAX_TEST_GENERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_628__SYNTAX_TEST_GENERATOR", melt_magic_discr ((melt_ptr_t) (/*_.CLASS_SELECTOR__V151*/ meltfptr[150])) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dobj_628__SYNTAX_TEST_GENERATOR", ((meltobject_ptr_t) (/*_.CLASS_SELECTOR__V151*/ meltfptr[150]))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_628__SYNTAX_TEST_GENERATOR.meltobj_class = (meltobject_ptr_t)(/*_.CLASS_SELECTOR__V151*/ meltfptr[150]); meltcdat->dobj_628__SYNTAX_TEST_GENERATOR.obj_hash = 402070107; meltcdat->dobj_628__SYNTAX_TEST_GENERATOR.obj_len = 4; /*inistring dstr_629__SYNTAX_TEST_GENERATOR*/ /*_._VALSTR___V831*/ meltfptr[830] = (melt_ptr_t) &meltcdat->dstr_629__SYNTAX_TEST_GENERATOR; meltcdat->dstr_629__SYNTAX_TEST_GENERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_629__SYNTAX_TEST_GENERATOR.val, "SYNTAX_TEST_GENERATOR", sizeof (meltcdat->dstr_629__SYNTAX_TEST_GENERATOR.val)-1); meltcdat->dstr_629__SYNTAX_TEST_GENERATOR.val[21] = (char)0 ; meltcdat->dstr_629__SYNTAX_TEST_GENERATOR.slen = 21 ; /*inirout drout_630__SYNTESTGEN_ANY*/ /*iniroutlocvar*/ /*_._VALROUT___V832*/ meltfptr[831] = (melt_ptr_t) &meltcdat->drout_630__SYNTESTGEN_ANY; meltcdat->drout_630__SYNTESTGEN_ANY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_630__SYNTESTGEN_ANY.routdescr, "SYNTESTGEN_ANY @warmelt-outobj.melt:5795", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_630__SYNTESTGEN_ANY.nbval = 6; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_630__SYNTESTGEN_ANY, meltrout_121_WARMELTmiOUTOBJ_SYNTESTGEN_ANY); /*iniclos dclo_631__SYNTESTGEN_ANY*/ /*_._VALCLO___V833*/ meltfptr[832] = (melt_ptr_t) &meltcdat->dclo_631__SYNTESTGEN_ANY; meltcdat->dclo_631__SYNTESTGEN_ANY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_631__SYNTESTGEN_ANY.nbval = 0; /*iniobj dsym_632__CLASS_SOURCE_GENERATOR_DEVICE*/ /*uniqueobj*/ if (!/*_._VALDATA___V834*/ meltfptr[833]) /*_._VALDATA___V834*/ meltfptr[833] = (melt_ptr_t )&meltcdat->dsym_632__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_632__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_632__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_632__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_632__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 331634544; meltcdat->dsym_632__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 3; /*inistring dstr_633__CLASS_SOURCE_GENERATOR_D*/ /*_._VALSTR___V835*/ meltfptr[834] = (melt_ptr_t) &meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D; meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D.val)-1); meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D.val[29] = (char)0 ; meltcdat->dstr_633__CLASS_SOURCE_GENERATOR_D.slen = 29 ; /*inirout drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST*/ /*iniroutlocvar*/ /*_._VALROUT___V836*/ meltfptr[835] = (melt_ptr_t) &meltcdat->drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST; meltcdat->drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST.routdescr, "SUBSTITUTE_FORMALS_FOR_SYNTEST @warmelt-outobj.melt:5815", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST, meltrout_122_WARMELTmiOUTOBJ_SUBSTITUTE_FORMALS_FOR_SYNTEST); /*iniclos dclo_635__SUBSTITUTE_FORMALS_FOR_SYNTEST*/ /*_._VALCLO___V837*/ meltfptr[836] = (melt_ptr_t) &meltcdat->dclo_635__SUBSTITUTE_FORMALS_FOR_SYNTEST; meltcdat->dclo_635__SUBSTITUTE_FORMALS_FOR_SYNTEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_635__SUBSTITUTE_FORMALS_FOR_SYNTEST.nbval = 0; /*inirout drout_636__EXPAND_TUPLE_FOR_SYNTEST*/ /*iniroutlocvar*/ /*_._VALROUT___V838*/ meltfptr[837] = (melt_ptr_t) &meltcdat->drout_636__EXPAND_TUPLE_FOR_SYNTEST; meltcdat->drout_636__EXPAND_TUPLE_FOR_SYNTEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_636__EXPAND_TUPLE_FOR_SYNTEST.routdescr, "EXPAND_TUPLE_FOR_SYNTEST @warmelt-outobj.melt:5841", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_636__EXPAND_TUPLE_FOR_SYNTEST.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_636__EXPAND_TUPLE_FOR_SYNTEST, meltrout_123_WARMELTmiOUTOBJ_EXPAND_TUPLE_FOR_SYNTEST); /*iniclos dclo_637__EXPAND_TUPLE_FOR_SYNTEST*/ /*_._VALCLO___V839*/ meltfptr[838] = (melt_ptr_t) &meltcdat->dclo_637__EXPAND_TUPLE_FOR_SYNTEST; meltcdat->dclo_637__EXPAND_TUPLE_FOR_SYNTEST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_637__EXPAND_TUPLE_FOR_SYNTEST.nbval = 0; /*inirout drout_638__SYNTESTGEN_PRIMITIVE*/ /*iniroutlocvar*/ /*_._VALROUT___V840*/ meltfptr[839] = (melt_ptr_t) &meltcdat->drout_638__SYNTESTGEN_PRIMITIVE; meltcdat->drout_638__SYNTESTGEN_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_638__SYNTESTGEN_PRIMITIVE.routdescr, "SYNTESTGEN_PRIMITIVE @warmelt-outobj.melt:5865", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_638__SYNTESTGEN_PRIMITIVE.nbval = 15; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_638__SYNTESTGEN_PRIMITIVE, meltrout_124_WARMELTmiOUTOBJ_SYNTESTGEN_PRIMITIVE); /*iniclos dclo_639__SYNTESTGEN_PRIMITIVE*/ /*_._VALCLO___V841*/ meltfptr[840] = (melt_ptr_t) &meltcdat->dclo_639__SYNTESTGEN_PRIMITIVE; meltcdat->dclo_639__SYNTESTGEN_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_639__SYNTESTGEN_PRIMITIVE.nbval = 0; /*iniobj dsym_640__CLASS_PRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V842*/ meltfptr[841]) /*_._VALDATA___V842*/ meltfptr[841] = (melt_ptr_t )&meltcdat->dsym_640__CLASS_PRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_640__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_640__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_640__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_640__CLASS_PRIMITIVE.obj_hash = 102527506; meltcdat->dsym_640__CLASS_PRIMITIVE.obj_len = 3; /*inistring dstr_641__CLASS_PRIMITIVE*/ /*_._VALSTR___V843*/ meltfptr[842] = (melt_ptr_t) &meltcdat->dstr_641__CLASS_PRIMITIVE; meltcdat->dstr_641__CLASS_PRIMITIVE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_641__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (meltcdat->dstr_641__CLASS_PRIMITIVE.val)-1); meltcdat->dstr_641__CLASS_PRIMITIVE.val[15] = (char)0 ; meltcdat->dstr_641__CLASS_PRIMITIVE.slen = 15 ; /*iniobj dsym_642__CLASS_SOURCE_DEFPRIMITIVE*/ /*uniqueobj*/ if (!/*_._VALDATA___V844*/ meltfptr[843]) /*_._VALDATA___V844*/ meltfptr[843] = (melt_ptr_t )&meltcdat->dsym_642__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_642__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_642__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_642__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_642__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; meltcdat->dsym_642__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_643__CLASS_SOURCE_DEFPRIMITIV*/ /*_._VALSTR___V845*/ meltfptr[844] = (melt_ptr_t) &meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV; meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV.val)-1); meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV.val[25] = (char)0 ; meltcdat->dstr_643__CLASS_SOURCE_DEFPRIMITIV.slen = 25 ; /*iniobj dsym_644__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (!/*_._VALDATA___V846*/ meltfptr[845]) /*_._VALDATA___V846*/ meltfptr[845] = (melt_ptr_t )&meltcdat->dsym_644__DISCR_MAP_OBJECTS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_644__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_644__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_644__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_644__DISCR_MAP_OBJECTS.obj_hash = 217147088; meltcdat->dsym_644__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_645__DISCR_MAP_OBJECTS*/ /*_._VALSTR___V847*/ meltfptr[846] = (melt_ptr_t) &meltcdat->dstr_645__DISCR_MAP_OBJECTS; meltcdat->dstr_645__DISCR_MAP_OBJECTS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_645__DISCR_MAP_OBJECTS.val, "DISCR_MAP_OBJECTS", sizeof (meltcdat->dstr_645__DISCR_MAP_OBJECTS.val)-1); meltcdat->dstr_645__DISCR_MAP_OBJECTS.val[17] = (char)0 ; meltcdat->dstr_645__DISCR_MAP_OBJECTS.slen = 17 ; /*inirout drout_646__SYNTESTGEN_CITERATOR*/ /*iniroutlocvar*/ /*_._VALROUT___V848*/ meltfptr[847] = (melt_ptr_t) &meltcdat->drout_646__SYNTESTGEN_CITERATOR; meltcdat->drout_646__SYNTESTGEN_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_646__SYNTESTGEN_CITERATOR.routdescr, "SYNTESTGEN_CITERATOR @warmelt-outobj.melt:5925", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_646__SYNTESTGEN_CITERATOR.nbval = 16; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_646__SYNTESTGEN_CITERATOR, meltrout_125_WARMELTmiOUTOBJ_SYNTESTGEN_CITERATOR); /*iniclos dclo_647__SYNTESTGEN_CITERATOR*/ /*_._VALCLO___V849*/ meltfptr[848] = (melt_ptr_t) &meltcdat->dclo_647__SYNTESTGEN_CITERATOR; meltcdat->dclo_647__SYNTESTGEN_CITERATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_647__SYNTESTGEN_CITERATOR.nbval = 0; /*iniobj dsym_648__CLASS_SOURCE_DEFCITERATOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V850*/ meltfptr[849]) /*_._VALDATA___V850*/ meltfptr[849] = (melt_ptr_t )&meltcdat->dsym_648__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_648__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_648__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_648__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_648__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; meltcdat->dsym_648__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; /*inistring dstr_649__CLASS_SOURCE_DEFCITERATO*/ /*_._VALSTR___V851*/ meltfptr[850] = (melt_ptr_t) &meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO; meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO.val)-1); meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO.val[25] = (char)0 ; meltcdat->dstr_649__CLASS_SOURCE_DEFCITERATO.slen = 25 ; /*inirout drout_650__SYNTESTGEN_CMATCHER*/ /*iniroutlocvar*/ /*_._VALROUT___V852*/ meltfptr[851] = (melt_ptr_t) &meltcdat->drout_650__SYNTESTGEN_CMATCHER; meltcdat->drout_650__SYNTESTGEN_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_650__SYNTESTGEN_CMATCHER.routdescr, "SYNTESTGEN_CMATCHER @warmelt-outobj.melt:5993", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_650__SYNTESTGEN_CMATCHER.nbval = 19; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_650__SYNTESTGEN_CMATCHER, meltrout_126_WARMELTmiOUTOBJ_SYNTESTGEN_CMATCHER); /*iniclos dclo_651__SYNTESTGEN_CMATCHER*/ /*_._VALCLO___V855*/ meltfptr[854] = (melt_ptr_t) &meltcdat->dclo_651__SYNTESTGEN_CMATCHER; meltcdat->dclo_651__SYNTESTGEN_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_651__SYNTESTGEN_CMATCHER.nbval = 0; /*iniobj dsym_652__CLASS_CMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V856*/ meltfptr[855]) /*_._VALDATA___V856*/ meltfptr[855] = (melt_ptr_t )&meltcdat->dsym_652__CLASS_CMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_652__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_652__CLASS_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_652__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_652__CLASS_CMATCHER.obj_hash = 544975672; meltcdat->dsym_652__CLASS_CMATCHER.obj_len = 3; /*inistring dstr_653__CLASS_CMATCHER*/ /*_._VALSTR___V857*/ meltfptr[856] = (melt_ptr_t) &meltcdat->dstr_653__CLASS_CMATCHER; meltcdat->dstr_653__CLASS_CMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_653__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (meltcdat->dstr_653__CLASS_CMATCHER.val)-1); meltcdat->dstr_653__CLASS_CMATCHER.val[14] = (char)0 ; meltcdat->dstr_653__CLASS_CMATCHER.slen = 14 ; /*iniobj dsym_654__CLASS_ANY_MATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V858*/ meltfptr[857]) /*_._VALDATA___V858*/ meltfptr[857] = (melt_ptr_t )&meltcdat->dsym_654__CLASS_ANY_MATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_654__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_654__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_654__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_654__CLASS_ANY_MATCHER.obj_hash = 781265508; meltcdat->dsym_654__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_655__CLASS_ANY_MATCHER*/ /*_._VALSTR___V859*/ meltfptr[858] = (melt_ptr_t) &meltcdat->dstr_655__CLASS_ANY_MATCHER; meltcdat->dstr_655__CLASS_ANY_MATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_655__CLASS_ANY_MATCHER.val, "CLASS_ANY_MATCHER", sizeof (meltcdat->dstr_655__CLASS_ANY_MATCHER.val)-1); meltcdat->dstr_655__CLASS_ANY_MATCHER.val[17] = (char)0 ; meltcdat->dstr_655__CLASS_ANY_MATCHER.slen = 17 ; /*iniobj dsym_656__CLASS_SOURCE_DEFCMATCHER*/ /*uniqueobj*/ if (!/*_._VALDATA___V860*/ meltfptr[859]) /*_._VALDATA___V860*/ meltfptr[859] = (melt_ptr_t )&meltcdat->dsym_656__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_656__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_656__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_656__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_656__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; meltcdat->dsym_656__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_657__CLASS_SOURCE_DEFCMATCHER*/ /*_._VALSTR___V861*/ meltfptr[860] = (melt_ptr_t) &meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER; meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER.val)-1); meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER.val[24] = (char)0 ; meltcdat->dstr_657__CLASS_SOURCE_DEFCMATCHER.slen = 24 ; /*inistring dstr_658__cmatcher_oper_*/ /*_._VALSTR___V853*/ meltfptr[852] = (melt_ptr_t) &meltcdat->dstr_658__cmatcher_oper_; meltcdat->dstr_658__cmatcher_oper_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_658__cmatcher_oper_.val, "/*cmatcher-oper*/", sizeof (meltcdat->dstr_658__cmatcher_oper_.val)-1); meltcdat->dstr_658__cmatcher_oper_.val[17] = (char)0 ; meltcdat->dstr_658__cmatcher_oper_.slen = 17 ; /*inistring dstr_659__*/ /*_._VALSTR___V854*/ meltfptr[853] = (melt_ptr_t) &meltcdat->dstr_659__; meltcdat->dstr_659__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_659__.val, " = ", sizeof (meltcdat->dstr_659__.val)-1); meltcdat->dstr_659__.val[3] = (char)0 ; meltcdat->dstr_659__.slen = 3 ; /*inirout drout_660__EMIT_SYNTAX_TESTING_ROUTINE*/ /*iniroutlocvar*/ /*_._VALROUT___V862*/ meltfptr[861] = (melt_ptr_t) &meltcdat->drout_660__EMIT_SYNTAX_TESTING_ROUTINE; meltcdat->drout_660__EMIT_SYNTAX_TESTING_ROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_660__EMIT_SYNTAX_TESTING_ROUTINE.routdescr, "EMIT_SYNTAX_TESTING_ROUTINE @warmelt-outobj.melt:6078", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_660__EMIT_SYNTAX_TESTING_ROUTINE.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_660__EMIT_SYNTAX_TESTING_ROUTINE, meltrout_127_WARMELTmiOUTOBJ_EMIT_SYNTAX_TESTING_ROUTINE); /*iniclos dclo_661__EMIT_SYNTAX_TESTING_ROUTINE*/ /*_._VALCLO___V863*/ meltfptr[862] = (melt_ptr_t) &meltcdat->dclo_661__EMIT_SYNTAX_TESTING_ROUTINE; meltcdat->dclo_661__EMIT_SYNTAX_TESTING_ROUTINE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_661__EMIT_SYNTAX_TESTING_ROUTINE.nbval = 0; /*inirout drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V864*/ meltfptr[863] = (melt_ptr_t) &meltcdat->drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST; meltcdat->drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST.routdescr, "GIVE_NORMALIZED_MACROEXPANDED_LIST @warmelt-outobj.melt:6148", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST.nbval = 17; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST, meltrout_128_WARMELTmiOUTOBJ_GIVE_NORMALIZED_MACROEXPANDED_LIST); /*iniclos dclo_663__GIVE_NORMALIZED_MACROEXPANDED_LIST*/ /*_._VALCLO___V866*/ meltfptr[865] = (melt_ptr_t) &meltcdat->dclo_663__GIVE_NORMALIZED_MACROEXPANDED_LIST; meltcdat->dclo_663__GIVE_NORMALIZED_MACROEXPANDED_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_663__GIVE_NORMALIZED_MACROEXPANDED_LIST.nbval = 0; /*iniobj dsym_664__DEBUG_LESS*/ /*uniqueobj*/ if (!/*_._VALDATA___V867*/ meltfptr[866]) /*_._VALDATA___V867*/ meltfptr[866] = (melt_ptr_t )&meltcdat->dsym_664__DEBUG_LESS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_664__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_664__DEBUG_LESS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_664__DEBUG_LESS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_664__DEBUG_LESS.obj_hash = 977096719; meltcdat->dsym_664__DEBUG_LESS.obj_len = 3; /*inistring dstr_665__DEBUG_LESS*/ /*_._VALSTR___V868*/ meltfptr[867] = (melt_ptr_t) &meltcdat->dstr_665__DEBUG_LESS; meltcdat->dstr_665__DEBUG_LESS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_665__DEBUG_LESS.val, "DEBUG_LESS", sizeof (meltcdat->dstr_665__DEBUG_LESS.val)-1); meltcdat->dstr_665__DEBUG_LESS.val[10] = (char)0 ; meltcdat->dstr_665__DEBUG_LESS.slen = 10 ; /*iniobj dsym_666__CLASS_NORMALIZATION_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V869*/ meltfptr[868]) /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t )&meltcdat->dsym_666__CLASS_NORMALIZATION_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_666__CLASS_NORMALIZATION_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_666__CLASS_NORMALIZATION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_666__CLASS_NORMALIZATION_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_666__CLASS_NORMALIZATION_CONTEXT.obj_hash = 429657178; meltcdat->dsym_666__CLASS_NORMALIZATION_CONTEXT.obj_len = 3; /*inistring dstr_667__CLASS_NORMALIZATION_CONT*/ /*_._VALSTR___V870*/ meltfptr[869] = (melt_ptr_t) &meltcdat->dstr_667__CLASS_NORMALIZATION_CONT; meltcdat->dstr_667__CLASS_NORMALIZATION_CONT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_667__CLASS_NORMALIZATION_CONT.val, "CLASS_NORMALIZATION_CONTEXT", sizeof (meltcdat->dstr_667__CLASS_NORMALIZATION_CONT.val)-1); meltcdat->dstr_667__CLASS_NORMALIZATION_CONT.val[27] = (char)0 ; meltcdat->dstr_667__CLASS_NORMALIZATION_CONT.slen = 27 ; /*iniobj dsym_668__CLASS_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V871*/ meltfptr[870]) /*_._VALDATA___V871*/ meltfptr[870] = (melt_ptr_t )&meltcdat->dsym_668__CLASS_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_668__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_668__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_668__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_668__CLASS_ENVIRONMENT.obj_hash = 59212821; meltcdat->dsym_668__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_669__CLASS_ENVIRONMENT*/ /*_._VALSTR___V872*/ meltfptr[871] = (melt_ptr_t) &meltcdat->dstr_669__CLASS_ENVIRONMENT; meltcdat->dstr_669__CLASS_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_669__CLASS_ENVIRONMENT.val, "CLASS_ENVIRONMENT", sizeof (meltcdat->dstr_669__CLASS_ENVIRONMENT.val)-1); meltcdat->dstr_669__CLASS_ENVIRONMENT.val[17] = (char)0 ; meltcdat->dstr_669__CLASS_ENVIRONMENT.slen = 17 ; /*iniobj dsym_670__CLASS_SOURCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V873*/ meltfptr[872]) /*_._VALDATA___V873*/ meltfptr[872] = (melt_ptr_t )&meltcdat->dsym_670__CLASS_SOURCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_670__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_670__CLASS_SOURCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_670__CLASS_SOURCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_670__CLASS_SOURCE.obj_hash = 656628255; meltcdat->dsym_670__CLASS_SOURCE.obj_len = 3; /*inistring dstr_671__CLASS_SOURCE*/ /*_._VALSTR___V874*/ meltfptr[873] = (melt_ptr_t) &meltcdat->dstr_671__CLASS_SOURCE; meltcdat->dstr_671__CLASS_SOURCE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_671__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof (meltcdat->dstr_671__CLASS_SOURCE.val)-1); meltcdat->dstr_671__CLASS_SOURCE.val[12] = (char)0 ; meltcdat->dstr_671__CLASS_SOURCE.slen = 12 ; /*iniobj dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*uniqueobj*/ if (!/*_._VALDATA___V875*/ meltfptr[874]) /*_._VALDATA___V875*/ meltfptr[874] = (melt_ptr_t )&meltcdat->dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_672__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_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_hash = 942073007; meltcdat->dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE.obj_len = 3; /*inistring dstr_673__CLASS_SOURCE_UPDATE_CURR*/ /*_._VALSTR___V876*/ meltfptr[875] = (melt_ptr_t) &meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR; meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", sizeof (meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR.val)-1); meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR.val[56] = (char)0 ; meltcdat->dstr_673__CLASS_SOURCE_UPDATE_CURR.slen = 56 ; /*inistring dstr_674__at_very_start*/ /*_._VALSTR___V865*/ meltfptr[864] = (melt_ptr_t) &meltcdat->dstr_674__at_very_start; meltcdat->dstr_674__at_very_start.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_674__at_very_start.val, "at very start", sizeof (meltcdat->dstr_674__at_very_start.val)-1); meltcdat->dstr_674__at_very_start.val[13] = (char)0 ; meltcdat->dstr_674__at_very_start.slen = 13 ; /*iniobj dsym_675__CLASS_SOURCE_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V877*/ meltfptr[876]) /*_._VALDATA___V877*/ meltfptr[876] = (melt_ptr_t )&meltcdat->dsym_675__CLASS_SOURCE_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_675__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_675__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_675__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_675__CLASS_SOURCE_COMMENT.obj_hash = 156677751; meltcdat->dsym_675__CLASS_SOURCE_COMMENT.obj_len = 3; /*inistring dstr_676__CLASS_SOURCE_COMMENT*/ /*_._VALSTR___V878*/ meltfptr[877] = (melt_ptr_t) &meltcdat->dstr_676__CLASS_SOURCE_COMMENT; meltcdat->dstr_676__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_676__CLASS_SOURCE_COMMENT.val, "CLASS_SOURCE_COMMENT", sizeof (meltcdat->dstr_676__CLASS_SOURCE_COMMENT.val)-1); meltcdat->dstr_676__CLASS_SOURCE_COMMENT.val[20] = (char)0 ; meltcdat->dstr_676__CLASS_SOURCE_COMMENT.slen = 20 ; /*iniobj dsym_677__NORMAL_EXP*/ /*uniqueobj*/ if (!/*_._VALDATA___V879*/ meltfptr[878]) /*_._VALDATA___V879*/ meltfptr[878] = (melt_ptr_t )&meltcdat->dsym_677__NORMAL_EXP; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_677__NORMAL_EXP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_677__NORMAL_EXP", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_677__NORMAL_EXP.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_677__NORMAL_EXP.obj_hash = 420282450; meltcdat->dsym_677__NORMAL_EXP.obj_len = 3; /*inistring dstr_678__NORMAL_EXP*/ /*_._VALSTR___V880*/ meltfptr[879] = (melt_ptr_t) &meltcdat->dstr_678__NORMAL_EXP; meltcdat->dstr_678__NORMAL_EXP.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_678__NORMAL_EXP.val, "NORMAL_EXP", sizeof (meltcdat->dstr_678__NORMAL_EXP.val)-1); meltcdat->dstr_678__NORMAL_EXP.val[10] = (char)0 ; meltcdat->dstr_678__NORMAL_EXP.slen = 10 ; /*iniobj dsym_679__CLASS_NORMAL_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V881*/ meltfptr[880]) /*_._VALDATA___V881*/ meltfptr[880] = (melt_ptr_t )&meltcdat->dsym_679__CLASS_NORMAL_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_679__CLASS_NORMAL_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_679__CLASS_NORMAL_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_679__CLASS_NORMAL_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_679__CLASS_NORMAL_LET_BINDING.obj_hash = 76320742; meltcdat->dsym_679__CLASS_NORMAL_LET_BINDING.obj_len = 3; /*inistring dstr_680__CLASS_NORMAL_LET_BINDING*/ /*_._VALSTR___V882*/ meltfptr[881] = (melt_ptr_t) &meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING; meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING.val, "CLASS_NORMAL_LET_BINDING", sizeof (meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING.val)-1); meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING.val[24] = (char)0 ; meltcdat->dstr_680__CLASS_NORMAL_LET_BINDING.slen = 24 ; /*iniobj dsym_681__CLASS_NREP_ANYPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V883*/ meltfptr[882]) /*_._VALDATA___V883*/ meltfptr[882] = (melt_ptr_t )&meltcdat->dsym_681__CLASS_NREP_ANYPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_681__CLASS_NREP_ANYPROC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_681__CLASS_NREP_ANYPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_681__CLASS_NREP_ANYPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_681__CLASS_NREP_ANYPROC.obj_hash = 605230702; meltcdat->dsym_681__CLASS_NREP_ANYPROC.obj_len = 3; /*inistring dstr_682__CLASS_NREP_ANYPROC*/ /*_._VALSTR___V884*/ meltfptr[883] = (melt_ptr_t) &meltcdat->dstr_682__CLASS_NREP_ANYPROC; meltcdat->dstr_682__CLASS_NREP_ANYPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_682__CLASS_NREP_ANYPROC.val, "CLASS_NREP_ANYPROC", sizeof (meltcdat->dstr_682__CLASS_NREP_ANYPROC.val)-1); meltcdat->dstr_682__CLASS_NREP_ANYPROC.val[18] = (char)0 ; meltcdat->dstr_682__CLASS_NREP_ANYPROC.slen = 18 ; /*iniobj dsym_683__WRAP_NORMAL_LETSEQ*/ /*uniqueobj*/ if (!/*_._VALDATA___V885*/ meltfptr[884]) /*_._VALDATA___V885*/ meltfptr[884] = (melt_ptr_t )&meltcdat->dsym_683__WRAP_NORMAL_LETSEQ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_683__WRAP_NORMAL_LETSEQ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_683__WRAP_NORMAL_LETSEQ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_683__WRAP_NORMAL_LETSEQ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_683__WRAP_NORMAL_LETSEQ.obj_hash = 638564573; meltcdat->dsym_683__WRAP_NORMAL_LETSEQ.obj_len = 3; /*inistring dstr_684__WRAP_NORMAL_LETSEQ*/ /*_._VALSTR___V886*/ meltfptr[885] = (melt_ptr_t) &meltcdat->dstr_684__WRAP_NORMAL_LETSEQ; meltcdat->dstr_684__WRAP_NORMAL_LETSEQ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_684__WRAP_NORMAL_LETSEQ.val, "WRAP_NORMAL_LETSEQ", sizeof (meltcdat->dstr_684__WRAP_NORMAL_LETSEQ.val)-1); meltcdat->dstr_684__WRAP_NORMAL_LETSEQ.val[18] = (char)0 ; meltcdat->dstr_684__WRAP_NORMAL_LETSEQ.slen = 18 ; /*iniobj dsym_685__WRAP_NORMAL_LET1*/ /*uniqueobj*/ if (!/*_._VALDATA___V887*/ meltfptr[886]) /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t )&meltcdat->dsym_685__WRAP_NORMAL_LET1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_685__WRAP_NORMAL_LET1", melt_magic_discr ((melt_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__WRAP_NORMAL_LET1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_685__WRAP_NORMAL_LET1.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_685__WRAP_NORMAL_LET1.obj_hash = 891908866; meltcdat->dsym_685__WRAP_NORMAL_LET1.obj_len = 3; /*inistring dstr_686__WRAP_NORMAL_LET1*/ /*_._VALSTR___V888*/ meltfptr[887] = (melt_ptr_t) &meltcdat->dstr_686__WRAP_NORMAL_LET1; meltcdat->dstr_686__WRAP_NORMAL_LET1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_686__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1", sizeof (meltcdat->dstr_686__WRAP_NORMAL_LET1.val)-1); meltcdat->dstr_686__WRAP_NORMAL_LET1.val[16] = (char)0 ; meltcdat->dstr_686__WRAP_NORMAL_LET1.slen = 16 ; /*iniobj dsym_687__LIST_APPEND2LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V889*/ meltfptr[888]) /*_._VALDATA___V889*/ meltfptr[888] = (melt_ptr_t )&meltcdat->dsym_687__LIST_APPEND2LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_687__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_687__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_687__LIST_APPEND2LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_687__LIST_APPEND2LIST.obj_hash = 744841630; meltcdat->dsym_687__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_688__LIST_APPEND2LIST*/ /*_._VALSTR___V890*/ meltfptr[889] = (melt_ptr_t) &meltcdat->dstr_688__LIST_APPEND2LIST; meltcdat->dstr_688__LIST_APPEND2LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_688__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (meltcdat->dstr_688__LIST_APPEND2LIST.val)-1); meltcdat->dstr_688__LIST_APPEND2LIST.val[16] = (char)0 ; meltcdat->dstr_688__LIST_APPEND2LIST.slen = 16 ; /*inirout drout_689__OUTPUT_HOOKS_WITH_MODVAR*/ /*iniroutlocvar*/ /*_._VALROUT___V891*/ meltfptr[890] = (melt_ptr_t) &meltcdat->drout_689__OUTPUT_HOOKS_WITH_MODVAR; meltcdat->drout_689__OUTPUT_HOOKS_WITH_MODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_689__OUTPUT_HOOKS_WITH_MODVAR.routdescr, "OUTPUT_HOOKS_WITH_MODVAR @warmelt-outobj.melt:6286", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_689__OUTPUT_HOOKS_WITH_MODVAR.nbval = 13; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_689__OUTPUT_HOOKS_WITH_MODVAR, meltrout_129_WARMELTmiOUTOBJ_OUTPUT_HOOKS_WITH_MODVAR); /*iniclos dclo_690__OUTPUT_HOOKS_WITH_MODVAR*/ /*_._VALCLO___V892*/ meltfptr[891] = (melt_ptr_t) &meltcdat->dclo_690__OUTPUT_HOOKS_WITH_MODVAR; meltcdat->dclo_690__OUTPUT_HOOKS_WITH_MODVAR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_690__OUTPUT_HOOKS_WITH_MODVAR.nbval = 0; /*iniobj dsym_691__CLASS_NREP_DATAHOOK*/ /*uniqueobj*/ if (!/*_._VALDATA___V893*/ meltfptr[892]) /*_._VALDATA___V893*/ meltfptr[892] = (melt_ptr_t )&meltcdat->dsym_691__CLASS_NREP_DATAHOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_691__CLASS_NREP_DATAHOOK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_691__CLASS_NREP_DATAHOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_691__CLASS_NREP_DATAHOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_691__CLASS_NREP_DATAHOOK.obj_hash = 22086502; meltcdat->dsym_691__CLASS_NREP_DATAHOOK.obj_len = 3; /*inistring dstr_692__CLASS_NREP_DATAHOOK*/ /*_._VALSTR___V894*/ meltfptr[893] = (melt_ptr_t) &meltcdat->dstr_692__CLASS_NREP_DATAHOOK; meltcdat->dstr_692__CLASS_NREP_DATAHOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_692__CLASS_NREP_DATAHOOK.val, "CLASS_NREP_DATAHOOK", sizeof (meltcdat->dstr_692__CLASS_NREP_DATAHOOK.val)-1); meltcdat->dstr_692__CLASS_NREP_DATAHOOK.val[19] = (char)0 ; meltcdat->dstr_692__CLASS_NREP_DATAHOOK.slen = 19 ; /*inirout drout_693__TRANSLATE_MACROEXPANDED_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V895*/ meltfptr[894] = (melt_ptr_t) &meltcdat->drout_693__TRANSLATE_MACROEXPANDED_LIST; meltcdat->drout_693__TRANSLATE_MACROEXPANDED_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_693__TRANSLATE_MACROEXPANDED_LIST.routdescr, "TRANSLATE_MACROEXPANDED_LIST @warmelt-outobj.melt:6423", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_693__TRANSLATE_MACROEXPANDED_LIST.nbval = 55; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_693__TRANSLATE_MACROEXPANDED_LIST, meltrout_130_WARMELTmiOUTOBJ_TRANSLATE_MACROEXPANDED_LIST); /*iniclos dclo_694__TRANSLATE_MACROEXPANDED_LIST*/ /*_._VALCLO___V900*/ meltfptr[899] = (melt_ptr_t) &meltcdat->dclo_694__TRANSLATE_MACROEXPANDED_LIST; meltcdat->dclo_694__TRANSLATE_MACROEXPANDED_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_694__TRANSLATE_MACROEXPANDED_LIST.nbval = 0; /*iniobj dsym_695__CLASS_NREP_INITPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V901*/ meltfptr[900]) /*_._VALDATA___V901*/ meltfptr[900] = (melt_ptr_t )&meltcdat->dsym_695__CLASS_NREP_INITPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_695__CLASS_NREP_INITPROC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_695__CLASS_NREP_INITPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_695__CLASS_NREP_INITPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_695__CLASS_NREP_INITPROC.obj_hash = 915122709; meltcdat->dsym_695__CLASS_NREP_INITPROC.obj_len = 3; /*inistring dstr_696__CLASS_NREP_INITPROC*/ /*_._VALSTR___V902*/ meltfptr[901] = (melt_ptr_t) &meltcdat->dstr_696__CLASS_NREP_INITPROC; meltcdat->dstr_696__CLASS_NREP_INITPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_696__CLASS_NREP_INITPROC.val, "CLASS_NREP_INITPROC", sizeof (meltcdat->dstr_696__CLASS_NREP_INITPROC.val)-1); meltcdat->dstr_696__CLASS_NREP_INITPROC.val[19] = (char)0 ; meltcdat->dstr_696__CLASS_NREP_INITPROC.slen = 19 ; /*inistring dstr_697__MELT_translation_failed_*/ /*_._VALSTR___V896*/ meltfptr[895] = (melt_ptr_t) &meltcdat->dstr_697__MELT_translation_failed_; meltcdat->dstr_697__MELT_translation_failed_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_697__MELT_translation_failed_.val, "MELT translation failed after normalization", sizeof (meltcdat->dstr_697__MELT_translation_failed_.val)-1); meltcdat->dstr_697__MELT_translation_failed_.val[43] = (char)0 ; meltcdat->dstr_697__MELT_translation_failed_.slen = 43 ; /*iniobj dsym_698__COMPILE2OBJ_HOOK*/ /*uniqueobj*/ if (!/*_._VALDATA___V903*/ meltfptr[902]) /*_._VALDATA___V903*/ meltfptr[902] = (melt_ptr_t )&meltcdat->dsym_698__COMPILE2OBJ_HOOK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_698__COMPILE2OBJ_HOOK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_698__COMPILE2OBJ_HOOK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_698__COMPILE2OBJ_HOOK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_698__COMPILE2OBJ_HOOK.obj_hash = 767622405; meltcdat->dsym_698__COMPILE2OBJ_HOOK.obj_len = 3; /*inistring dstr_699__COMPILE2OBJ_HOOK*/ /*_._VALSTR___V904*/ meltfptr[903] = (melt_ptr_t) &meltcdat->dstr_699__COMPILE2OBJ_HOOK; meltcdat->dstr_699__COMPILE2OBJ_HOOK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_699__COMPILE2OBJ_HOOK.val, "COMPILE2OBJ_HOOK", sizeof (meltcdat->dstr_699__COMPILE2OBJ_HOOK.val)-1); meltcdat->dstr_699__COMPILE2OBJ_HOOK.val[16] = (char)0 ; meltcdat->dstr_699__COMPILE2OBJ_HOOK.slen = 16 ; /*iniobj dsym_700__COMPILE2OBJ_PROCEDURE*/ /*uniqueobj*/ if (!/*_._VALDATA___V905*/ meltfptr[904]) /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t )&meltcdat->dsym_700__COMPILE2OBJ_PROCEDURE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_700__COMPILE2OBJ_PROCEDURE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_700__COMPILE2OBJ_PROCEDURE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_700__COMPILE2OBJ_PROCEDURE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_700__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622; meltcdat->dsym_700__COMPILE2OBJ_PROCEDURE.obj_len = 3; /*inistring dstr_701__COMPILE2OBJ_PROCEDURE*/ /*_._VALSTR___V906*/ meltfptr[905] = (melt_ptr_t) &meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE; meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE.val, "COMPILE2OBJ_PROCEDURE", sizeof (meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE.val)-1); meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE.val[21] = (char)0 ; meltcdat->dstr_701__COMPILE2OBJ_PROCEDURE.slen = 21 ; /*inistring dstr_702__MELT_translation_failed_*/ /*_._VALSTR___V897*/ meltfptr[896] = (melt_ptr_t) &meltcdat->dstr_702__MELT_translation_failed_; meltcdat->dstr_702__MELT_translation_failed_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_702__MELT_translation_failed_.val, "MELT translation failed after generation", sizeof (meltcdat->dstr_702__MELT_translation_failed_.val)-1); meltcdat->dstr_702__MELT_translation_failed_.val[40] = (char)0 ; meltcdat->dstr_702__MELT_translation_failed_.slen = 40 ; /*inirout drout_703__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V898*/ meltfptr[897] = (melt_ptr_t) &meltcdat->drout_703__LAMBDA_; meltcdat->drout_703__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_703__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:6592", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_703__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_703__LAMBDA_, meltrout_131_WARMELTmiOUTOBJ_LAMBDA_cl6); /*iniobj dsym_704__NORMAL_IMPORT*/ /*uniqueobj*/ if (!/*_._VALDATA___V907*/ meltfptr[906]) /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t )&meltcdat->dsym_704__NORMAL_IMPORT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_704__NORMAL_IMPORT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_704__NORMAL_IMPORT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_704__NORMAL_IMPORT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_704__NORMAL_IMPORT.obj_hash = 1018945215; meltcdat->dsym_704__NORMAL_IMPORT.obj_len = 3; /*inistring dstr_705__NORMAL_IMPORT*/ /*_._VALSTR___V908*/ meltfptr[907] = (melt_ptr_t) &meltcdat->dstr_705__NORMAL_IMPORT; meltcdat->dstr_705__NORMAL_IMPORT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_705__NORMAL_IMPORT.val, "NORMAL_IMPORT", sizeof (meltcdat->dstr_705__NORMAL_IMPORT.val)-1); meltcdat->dstr_705__NORMAL_IMPORT.val[13] = (char)0 ; meltcdat->dstr_705__NORMAL_IMPORT.slen = 13 ; /*iniobj dsym_706__CLASS_HOOK_DESCRIPTOR*/ /*uniqueobj*/ if (!/*_._VALDATA___V909*/ meltfptr[908]) /*_._VALDATA___V909*/ meltfptr[908] = (melt_ptr_t )&meltcdat->dsym_706__CLASS_HOOK_DESCRIPTOR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_706__CLASS_HOOK_DESCRIPTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_706__CLASS_HOOK_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_706__CLASS_HOOK_DESCRIPTOR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_706__CLASS_HOOK_DESCRIPTOR.obj_hash = 540244888; meltcdat->dsym_706__CLASS_HOOK_DESCRIPTOR.obj_len = 3; /*inistring dstr_707__CLASS_HOOK_DESCRIPTOR*/ /*_._VALSTR___V910*/ meltfptr[909] = (melt_ptr_t) &meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR; meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR.val, "CLASS_HOOK_DESCRIPTOR", sizeof (meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR.val)-1); meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR.val[21] = (char)0 ; meltcdat->dstr_707__CLASS_HOOK_DESCRIPTOR.slen = 21 ; /*iniobj dsym_708__SYMBOL_CNAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V911*/ meltfptr[910]) /*_._VALDATA___V911*/ meltfptr[910] = (melt_ptr_t )&meltcdat->dsym_708__SYMBOL_CNAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_708__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_708__SYMBOL_CNAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_708__SYMBOL_CNAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_708__SYMBOL_CNAME.obj_hash = 868761322; meltcdat->dsym_708__SYMBOL_CNAME.obj_len = 3; /*inistring dstr_709__SYMBOL_CNAME*/ /*_._VALSTR___V912*/ meltfptr[911] = (melt_ptr_t) &meltcdat->dstr_709__SYMBOL_CNAME; meltcdat->dstr_709__SYMBOL_CNAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_709__SYMBOL_CNAME.val, "SYMBOL_CNAME", sizeof (meltcdat->dstr_709__SYMBOL_CNAME.val)-1); meltcdat->dstr_709__SYMBOL_CNAME.val[12] = (char)0 ; meltcdat->dstr_709__SYMBOL_CNAME.slen = 12 ; /*iniobj dsym_710__CLASS_SOURCE_CHEADER*/ /*uniqueobj*/ if (!/*_._VALDATA___V913*/ meltfptr[912]) /*_._VALDATA___V913*/ meltfptr[912] = (melt_ptr_t )&meltcdat->dsym_710__CLASS_SOURCE_CHEADER; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_710__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_710__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_710__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_710__CLASS_SOURCE_CHEADER.obj_hash = 496789791; meltcdat->dsym_710__CLASS_SOURCE_CHEADER.obj_len = 3; /*inistring dstr_711__CLASS_SOURCE_CHEADER*/ /*_._VALSTR___V914*/ meltfptr[913] = (melt_ptr_t) &meltcdat->dstr_711__CLASS_SOURCE_CHEADER; meltcdat->dstr_711__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_711__CLASS_SOURCE_CHEADER.val, "CLASS_SOURCE_CHEADER", sizeof (meltcdat->dstr_711__CLASS_SOURCE_CHEADER.val)-1); meltcdat->dstr_711__CLASS_SOURCE_CHEADER.val[20] = (char)0 ; meltcdat->dstr_711__CLASS_SOURCE_CHEADER.slen = 20 ; /*iniobj dsym_712__CLASS_SOURCE_CODE_STRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V915*/ meltfptr[914]) /*_._VALDATA___V915*/ meltfptr[914] = (melt_ptr_t )&meltcdat->dsym_712__CLASS_SOURCE_CODE_STRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_712__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_712__CLASS_SOURCE_CODE_STRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_712__CLASS_SOURCE_CODE_STRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_712__CLASS_SOURCE_CODE_STRING.obj_hash = 528104845; meltcdat->dsym_712__CLASS_SOURCE_CODE_STRING.obj_len = 3; /*inistring dstr_713__CLASS_SOURCE_CODE_STRING*/ /*_._VALSTR___V916*/ meltfptr[915] = (melt_ptr_t) &meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING; meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING.val, "CLASS_SOURCE_CODE_STRING", sizeof (meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING.val)-1); meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING.val[24] = (char)0 ; meltcdat->dstr_713__CLASS_SOURCE_CODE_STRING.slen = 24 ; /*iniobj dsym_714__CLASS_SOURCE_CIMPLEMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V917*/ meltfptr[916]) /*_._VALDATA___V917*/ meltfptr[916] = (melt_ptr_t )&meltcdat->dsym_714__CLASS_SOURCE_CIMPLEMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_714__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_714__CLASS_SOURCE_CIMPLEMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_714__CLASS_SOURCE_CIMPLEMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_714__CLASS_SOURCE_CIMPLEMENT.obj_hash = 343553263; meltcdat->dsym_714__CLASS_SOURCE_CIMPLEMENT.obj_len = 3; /*inistring dstr_715__CLASS_SOURCE_CIMPLEMENT*/ /*_._VALSTR___V918*/ meltfptr[917] = (melt_ptr_t) &meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT; meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT.val, "CLASS_SOURCE_CIMPLEMENT", sizeof (meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT.val)-1); meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT.val[23] = (char)0 ; meltcdat->dstr_715__CLASS_SOURCE_CIMPLEMENT.slen = 23 ; /*iniobj dsym_716__CLASS_PROTOROUTINEOBJ*/ /*uniqueobj*/ if (!/*_._VALDATA___V919*/ meltfptr[918]) /*_._VALDATA___V919*/ meltfptr[918] = (melt_ptr_t )&meltcdat->dsym_716__CLASS_PROTOROUTINEOBJ; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_716__CLASS_PROTOROUTINEOBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_716__CLASS_PROTOROUTINEOBJ", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_716__CLASS_PROTOROUTINEOBJ.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_716__CLASS_PROTOROUTINEOBJ.obj_hash = 271095662; meltcdat->dsym_716__CLASS_PROTOROUTINEOBJ.obj_len = 3; /*inistring dstr_717__CLASS_PROTOROUTINEOBJ*/ /*_._VALSTR___V920*/ meltfptr[919] = (melt_ptr_t) &meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ; meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ.val, "CLASS_PROTOROUTINEOBJ", sizeof (meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ.val)-1); meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ.val[21] = (char)0 ; meltcdat->dstr_717__CLASS_PROTOROUTINEOBJ.slen = 21 ; /*inistring dstr_718__MELT_translation_failed_*/ /*_._VALSTR___V899*/ meltfptr[898] = (melt_ptr_t) &meltcdat->dstr_718__MELT_translation_failed_; meltcdat->dstr_718__MELT_translation_failed_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_718__MELT_translation_failed_.val, "MELT translation failed after C code emission", sizeof (meltcdat->dstr_718__MELT_translation_failed_.val)-1); meltcdat->dstr_718__MELT_translation_failed_.val[45] = (char)0 ; meltcdat->dstr_718__MELT_translation_failed_.slen = 45 ; /*inirout drout_719__FATAL_COMPILE_ERROR*/ /*iniroutlocvar*/ /*_._VALROUT___V921*/ meltfptr[920] = (melt_ptr_t) &meltcdat->drout_719__FATAL_COMPILE_ERROR; meltcdat->drout_719__FATAL_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_719__FATAL_COMPILE_ERROR.routdescr, "FATAL_COMPILE_ERROR @warmelt-outobj.melt:7114", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_719__FATAL_COMPILE_ERROR.nbval = 0; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_719__FATAL_COMPILE_ERROR, meltrout_132_WARMELTmiOUTOBJ_FATAL_COMPILE_ERROR); /*iniclos dclo_720__FATAL_COMPILE_ERROR*/ /*_._VALCLO___V922*/ meltfptr[921] = (melt_ptr_t) &meltcdat->dclo_720__FATAL_COMPILE_ERROR; meltcdat->dclo_720__FATAL_COMPILE_ERROR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_720__FATAL_COMPILE_ERROR.nbval = 0; /*inirout drout_721__COMPILE_LIST_SEXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V923*/ meltfptr[922] = (melt_ptr_t) &meltcdat->drout_721__COMPILE_LIST_SEXPR; meltcdat->drout_721__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_721__COMPILE_LIST_SEXPR.routdescr, "COMPILE_LIST_SEXPR @warmelt-outobj.melt:7135", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_721__COMPILE_LIST_SEXPR.nbval = 22; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_721__COMPILE_LIST_SEXPR, meltrout_133_WARMELTmiOUTOBJ_COMPILE_LIST_SEXPR); /*iniclos dclo_722__COMPILE_LIST_SEXPR*/ /*_._VALCLO___V929*/ meltfptr[928] = (melt_ptr_t) &meltcdat->dclo_722__COMPILE_LIST_SEXPR; meltcdat->dclo_722__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_722__COMPILE_LIST_SEXPR.nbval = 0; /*iniobj dsym_723__DEBUG_MORE*/ /*uniqueobj*/ if (!/*_._VALDATA___V930*/ meltfptr[929]) /*_._VALDATA___V930*/ meltfptr[929] = (melt_ptr_t )&meltcdat->dsym_723__DEBUG_MORE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_723__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_723__DEBUG_MORE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_723__DEBUG_MORE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_723__DEBUG_MORE.obj_hash = 1017542478; meltcdat->dsym_723__DEBUG_MORE.obj_len = 3; /*inistring dstr_724__DEBUG_MORE*/ /*_._VALSTR___V931*/ meltfptr[930] = (melt_ptr_t) &meltcdat->dstr_724__DEBUG_MORE; meltcdat->dstr_724__DEBUG_MORE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_724__DEBUG_MORE.val, "DEBUG_MORE", sizeof (meltcdat->dstr_724__DEBUG_MORE.val)-1); meltcdat->dstr_724__DEBUG_MORE.val[10] = (char)0 ; meltcdat->dstr_724__DEBUG_MORE.slen = 10 ; /*iniobj dsym_725__FRESH_ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V932*/ meltfptr[931]) /*_._VALDATA___V932*/ meltfptr[931] = (melt_ptr_t )&meltcdat->dsym_725__FRESH_ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_725__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_725__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_725__FRESH_ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_725__FRESH_ENV.obj_hash = 1002363940; meltcdat->dsym_725__FRESH_ENV.obj_len = 3; /*inistring dstr_726__FRESH_ENV*/ /*_._VALSTR___V933*/ meltfptr[932] = (melt_ptr_t) &meltcdat->dstr_726__FRESH_ENV; meltcdat->dstr_726__FRESH_ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_726__FRESH_ENV.val, "FRESH_ENV", sizeof (meltcdat->dstr_726__FRESH_ENV.val)-1); meltcdat->dstr_726__FRESH_ENV.val[9] = (char)0 ; meltcdat->dstr_726__FRESH_ENV.slen = 9 ; /*iniobj dsym_727__MACROmiENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V924*/ meltfptr[923]) /*_._VALDATA___V924*/ meltfptr[923] = (melt_ptr_t )&meltcdat->dsym_727__MACROmiENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_727__MACROmiENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_727__MACROmiENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_727__MACROmiENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_727__MACROmiENVIRONMENT.obj_hash = 786500876; meltcdat->dsym_727__MACROmiENVIRONMENT.obj_len = 3; /*inistring dstr_728__MACRO_ENVIRONMENT*/ /*_._VALSTR___V925*/ meltfptr[924] = (melt_ptr_t) &meltcdat->dstr_728__MACRO_ENVIRONMENT; meltcdat->dstr_728__MACRO_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_728__MACRO_ENVIRONMENT.val, "MACRO-ENVIRONMENT", sizeof (meltcdat->dstr_728__MACRO_ENVIRONMENT.val)-1); meltcdat->dstr_728__MACRO_ENVIRONMENT.val[17] = (char)0 ; meltcdat->dstr_728__MACRO_ENVIRONMENT.slen = 17 ; /*iniobj dsym_729__BASEmiENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V926*/ meltfptr[925]) /*_._VALDATA___V926*/ meltfptr[925] = (melt_ptr_t )&meltcdat->dsym_729__BASEmiENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_729__BASEmiENVIRONMENT", melt_magic_discr ((melt_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__BASEmiENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_729__BASEmiENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_729__BASEmiENVIRONMENT.obj_hash = 201614082; meltcdat->dsym_729__BASEmiENVIRONMENT.obj_len = 3; /*inistring dstr_730__BASE_ENVIRONMENT*/ /*_._VALSTR___V927*/ meltfptr[926] = (melt_ptr_t) &meltcdat->dstr_730__BASE_ENVIRONMENT; meltcdat->dstr_730__BASE_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_730__BASE_ENVIRONMENT.val, "BASE-ENVIRONMENT", sizeof (meltcdat->dstr_730__BASE_ENVIRONMENT.val)-1); meltcdat->dstr_730__BASE_ENVIRONMENT.val[16] = (char)0 ; meltcdat->dstr_730__BASE_ENVIRONMENT.slen = 16 ; /*iniobj dsym_731__CLASS_MODULE_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V934*/ meltfptr[933]) /*_._VALDATA___V934*/ meltfptr[933] = (melt_ptr_t )&meltcdat->dsym_731__CLASS_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_731__CLASS_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_731__CLASS_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_731__CLASS_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_731__CLASS_MODULE_CONTEXT.obj_hash = 641718839; meltcdat->dsym_731__CLASS_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_732__CLASS_MODULE_CONTEXT*/ /*_._VALSTR___V935*/ meltfptr[934] = (melt_ptr_t) &meltcdat->dstr_732__CLASS_MODULE_CONTEXT; meltcdat->dstr_732__CLASS_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_732__CLASS_MODULE_CONTEXT.val, "CLASS_MODULE_CONTEXT", sizeof (meltcdat->dstr_732__CLASS_MODULE_CONTEXT.val)-1); meltcdat->dstr_732__CLASS_MODULE_CONTEXT.val[20] = (char)0 ; meltcdat->dstr_732__CLASS_MODULE_CONTEXT.slen = 20 ; /*iniobj dsym_733__DISCR_MAP_STRINGS*/ /*uniqueobj*/ if (!/*_._VALDATA___V936*/ meltfptr[935]) /*_._VALDATA___V936*/ meltfptr[935] = (melt_ptr_t )&meltcdat->dsym_733__DISCR_MAP_STRINGS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_733__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_733__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_733__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_733__DISCR_MAP_STRINGS.obj_hash = 344609662; meltcdat->dsym_733__DISCR_MAP_STRINGS.obj_len = 3; /*inistring dstr_734__DISCR_MAP_STRINGS*/ /*_._VALSTR___V937*/ meltfptr[936] = (melt_ptr_t) &meltcdat->dstr_734__DISCR_MAP_STRINGS; meltcdat->dstr_734__DISCR_MAP_STRINGS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_734__DISCR_MAP_STRINGS.val, "DISCR_MAP_STRINGS", sizeof (meltcdat->dstr_734__DISCR_MAP_STRINGS.val)-1); meltcdat->dstr_734__DISCR_MAP_STRINGS.val[17] = (char)0 ; meltcdat->dstr_734__DISCR_MAP_STRINGS.slen = 17 ; /*inirout drout_735__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V928*/ meltfptr[927] = (melt_ptr_t) &meltcdat->drout_735__LAMBDA_; meltcdat->drout_735__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_735__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7172", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_735__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_735__LAMBDA_, meltrout_134_WARMELTmiOUTOBJ_LAMBDA_cl7); /*iniobj dsym_736__CREATE_NORMCONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V938*/ meltfptr[937]) /*_._VALDATA___V938*/ meltfptr[937] = (melt_ptr_t )&meltcdat->dsym_736__CREATE_NORMCONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_736__CREATE_NORMCONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_736__CREATE_NORMCONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_736__CREATE_NORMCONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_736__CREATE_NORMCONTEXT.obj_hash = 127778273; meltcdat->dsym_736__CREATE_NORMCONTEXT.obj_len = 3; /*inistring dstr_737__CREATE_NORMCONTEXT*/ /*_._VALSTR___V939*/ meltfptr[938] = (melt_ptr_t) &meltcdat->dstr_737__CREATE_NORMCONTEXT; meltcdat->dstr_737__CREATE_NORMCONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_737__CREATE_NORMCONTEXT.val, "CREATE_NORMCONTEXT", sizeof (meltcdat->dstr_737__CREATE_NORMCONTEXT.val)-1); meltcdat->dstr_737__CREATE_NORMCONTEXT.val[18] = (char)0 ; meltcdat->dstr_737__CREATE_NORMCONTEXT.slen = 18 ; /*iniobj dsym_738__MACROEXPAND_TOPLEVEL_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V940*/ meltfptr[939]) /*_._VALDATA___V940*/ meltfptr[939] = (melt_ptr_t )&meltcdat->dsym_738__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_738__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_738__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_738__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_738__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; meltcdat->dsym_738__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; /*inistring dstr_739__MACROEXPAND_TOPLEVEL_LIS*/ /*_._VALSTR___V941*/ meltfptr[940] = (melt_ptr_t) &meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS; meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS.val)-1); meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS.val[25] = (char)0 ; meltcdat->dstr_739__MACROEXPAND_TOPLEVEL_LIS.slen = 25 ; /*iniobj dsym_740__MACROEXPAND_1*/ /*uniqueobj*/ if (!/*_._VALDATA___V942*/ meltfptr[941]) /*_._VALDATA___V942*/ meltfptr[941] = (melt_ptr_t )&meltcdat->dsym_740__MACROEXPAND_1; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_740__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_740__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_740__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_740__MACROEXPAND_1.obj_hash = 858793911; meltcdat->dsym_740__MACROEXPAND_1.obj_len = 3; /*inistring dstr_741__MACROEXPAND_1*/ /*_._VALSTR___V943*/ meltfptr[942] = (melt_ptr_t) &meltcdat->dstr_741__MACROEXPAND_1; meltcdat->dstr_741__MACROEXPAND_1.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_741__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (meltcdat->dstr_741__MACROEXPAND_1.val)-1); meltcdat->dstr_741__MACROEXPAND_1.val[13] = (char)0 ; meltcdat->dstr_741__MACROEXPAND_1.slen = 13 ; /*iniobj dsym_742__COMPILE2OBJ_INITPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V944*/ meltfptr[943]) /*_._VALDATA___V944*/ meltfptr[943] = (melt_ptr_t )&meltcdat->dsym_742__COMPILE2OBJ_INITPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_742__COMPILE2OBJ_INITPROC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_742__COMPILE2OBJ_INITPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_742__COMPILE2OBJ_INITPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_742__COMPILE2OBJ_INITPROC.obj_hash = 795051323; meltcdat->dsym_742__COMPILE2OBJ_INITPROC.obj_len = 3; /*inistring dstr_743__COMPILE2OBJ_INITPROC*/ /*_._VALSTR___V945*/ meltfptr[944] = (melt_ptr_t) &meltcdat->dstr_743__COMPILE2OBJ_INITPROC; meltcdat->dstr_743__COMPILE2OBJ_INITPROC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_743__COMPILE2OBJ_INITPROC.val, "COMPILE2OBJ_INITPROC", sizeof (meltcdat->dstr_743__COMPILE2OBJ_INITPROC.val)-1); meltcdat->dstr_743__COMPILE2OBJ_INITPROC.val[20] = (char)0 ; meltcdat->dstr_743__COMPILE2OBJ_INITPROC.slen = 20 ; /*iniobj dsym_744__CLASS_FIRST_MODULE_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V946*/ meltfptr[945]) /*_._VALDATA___V946*/ meltfptr[945] = (melt_ptr_t )&meltcdat->dsym_744__CLASS_FIRST_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_744__CLASS_FIRST_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_744__CLASS_FIRST_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_744__CLASS_FIRST_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_744__CLASS_FIRST_MODULE_CONTEXT.obj_hash = 612958455; meltcdat->dsym_744__CLASS_FIRST_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_745__CLASS_FIRST_MODULE_CONTE*/ /*_._VALSTR___V947*/ meltfptr[946] = (melt_ptr_t) &meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE; meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE.val, "CLASS_FIRST_MODULE_CONTEXT", sizeof (meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE.val)-1); meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE.val[26] = (char)0 ; meltcdat->dstr_745__CLASS_FIRST_MODULE_CONTE.slen = 26 ; MELT_LOCATION("warmelt-outobj.melt:7206:/ iniobj"); /*iniobj dobj_746__CLASS_FIRST_MODULE_CONTEXT*/ /*_._VALDATA___V948*/ meltfptr[947] = (melt_ptr_t )&meltcdat->dobj_746__CLASS_FIRST_MODULE_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_746__CLASS_FIRST_MODULE_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_746__CLASS_FIRST_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_746__CLASS_FIRST_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_CLASS)))); meltcdat->dobj_746__CLASS_FIRST_MODULE_CONTEXT.obj_num = MELTOBMAG_OBJECT; meltcdat->dobj_746__CLASS_FIRST_MODULE_CONTEXT.obj_hash = 745004600; meltcdat->dobj_746__CLASS_FIRST_MODULE_CONTEXT.obj_len = 8; /*inistring dstr_747__CLASS_FIRST_MODULE_CONTE*/ /*_._VALSTR___V949*/ meltfptr[948] = (melt_ptr_t) &meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE; meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE.val, "CLASS_FIRST_MODULE_CONTEXT", sizeof (meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE.val)-1); meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE.val[26] = (char)0 ; meltcdat->dstr_747__CLASS_FIRST_MODULE_CONTE.slen = 26 ; /*inimult dtup_748_syCLASS_FIRST_MODULE_CONTEXT*/ /*_._VALTUP___V950*/ meltfptr[949] = (melt_ptr_t) &meltcdat->dtup_748_syCLASS_FIRST_MODULE_CONTEXT; meltcdat->dtup_748_syCLASS_FIRST_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLASS_SEQUENCE)))); meltcdat->dtup_748_syCLASS_FIRST_MODULE_CONTEXT.nbval = 4; /*inimult dtup_749_syCLASS_FIRST_MODULE_CONTEXT*/ /*_._VALTUP___V951*/ meltfptr[950] = (melt_ptr_t) &meltcdat->dtup_749_syCLASS_FIRST_MODULE_CONTEXT; meltcdat->dtup_749_syCLASS_FIRST_MODULE_CONTEXT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_FIELD_SEQUENCE)))); meltcdat->dtup_749_syCLASS_FIRST_MODULE_CONTEXT.nbval = 22; /*inirout drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ /*iniroutlocvar*/ /*_._VALROUT___V952*/ meltfptr[951] = (melt_ptr_t) &meltcdat->drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; meltcdat->drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.routdescr, "COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR @warmelt-outobj.melt:7213", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.nbval = 21; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR, meltrout_135_WARMELTmiOUTOBJ_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR); /*iniclos dclo_751__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ /*_._VALCLO___V956*/ meltfptr[955] = (melt_ptr_t) &meltcdat->dclo_751__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; meltcdat->dclo_751__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_751__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.nbval = 0; /*iniobj dsym_752__INITIAL_ENVIRONMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V957*/ meltfptr[956]) /*_._VALDATA___V957*/ meltfptr[956] = (melt_ptr_t )&meltcdat->dsym_752__INITIAL_ENVIRONMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_752__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_752__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_752__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_752__INITIAL_ENVIRONMENT.obj_hash = 756729242; meltcdat->dsym_752__INITIAL_ENVIRONMENT.obj_len = 3; /*inistring dstr_753__INITIAL_ENVIRONMENT*/ /*_._VALSTR___V958*/ meltfptr[957] = (melt_ptr_t) &meltcdat->dstr_753__INITIAL_ENVIRONMENT; meltcdat->dstr_753__INITIAL_ENVIRONMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_753__INITIAL_ENVIRONMENT.val, "INITIAL_ENVIRONMENT", sizeof (meltcdat->dstr_753__INITIAL_ENVIRONMENT.val)-1); meltcdat->dstr_753__INITIAL_ENVIRONMENT.val[19] = (char)0 ; meltcdat->dstr_753__INITIAL_ENVIRONMENT.slen = 19 ; /*iniobj dsym_754__MACROmiFIRST*/ /*uniqueobj*/ if (!/*_._VALDATA___V953*/ meltfptr[952]) /*_._VALDATA___V953*/ meltfptr[952] = (melt_ptr_t )&meltcdat->dsym_754__MACROmiFIRST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_754__MACROmiFIRST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_754__MACROmiFIRST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_754__MACROmiFIRST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_754__MACROmiFIRST.obj_hash = 143341692; meltcdat->dsym_754__MACROmiFIRST.obj_len = 3; /*inistring dstr_755__MACRO_FIRST*/ /*_._VALSTR___V954*/ meltfptr[953] = (melt_ptr_t) &meltcdat->dstr_755__MACRO_FIRST; meltcdat->dstr_755__MACRO_FIRST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_755__MACRO_FIRST.val, "MACRO-FIRST", sizeof (meltcdat->dstr_755__MACRO_FIRST.val)-1); meltcdat->dstr_755__MACRO_FIRST.val[11] = (char)0 ; meltcdat->dstr_755__MACRO_FIRST.slen = 11 ; /*inirout drout_756__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V955*/ meltfptr[954] = (melt_ptr_t) &meltcdat->drout_756__LAMBDA_; meltcdat->drout_756__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_756__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7252", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_756__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_756__LAMBDA_, meltrout_136_WARMELTmiOUTOBJ_LAMBDA_cl8); /*iniobj dsym_757__MELT_RUN_EXTENSION*/ /*uniqueobj*/ if (!/*_._VALDATA___V959*/ meltfptr[958]) /*_._VALDATA___V959*/ meltfptr[958] = (melt_ptr_t )&meltcdat->dsym_757__MELT_RUN_EXTENSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_757__MELT_RUN_EXTENSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_757__MELT_RUN_EXTENSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_757__MELT_RUN_EXTENSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_757__MELT_RUN_EXTENSION.obj_hash = 63703529; meltcdat->dsym_757__MELT_RUN_EXTENSION.obj_len = 3; /*inistring dstr_758__MELT_RUN_EXTENSION*/ /*_._VALSTR___V960*/ meltfptr[959] = (melt_ptr_t) &meltcdat->dstr_758__MELT_RUN_EXTENSION; meltcdat->dstr_758__MELT_RUN_EXTENSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_758__MELT_RUN_EXTENSION.val, "MELT_RUN_EXTENSION", sizeof (meltcdat->dstr_758__MELT_RUN_EXTENSION.val)-1); meltcdat->dstr_758__MELT_RUN_EXTENSION.val[18] = (char)0 ; meltcdat->dstr_758__MELT_RUN_EXTENSION.slen = 18 ; MELT_LOCATION("warmelt-outobj.melt:7278:/ iniobj"); /*iniobj dobj_759__MELT_RUN_EXTENSION*/ /*_._VALDATA___V961*/ meltfptr[960] = (melt_ptr_t )&meltcdat->dobj_759__MELT_RUN_EXTENSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_759__MELT_RUN_EXTENSION", 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_759__MELT_RUN_EXTENSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_759__MELT_RUN_EXTENSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_PRIMITIVE)))); meltcdat->dobj_759__MELT_RUN_EXTENSION.obj_hash = 753295611; meltcdat->dobj_759__MELT_RUN_EXTENSION.obj_len = 5; /*inimult dtup_760_syMELT_RUN_EXTENSION*/ /*_._VALTUP___V977*/ meltfptr[976] = (melt_ptr_t) &meltcdat->dtup_760_syMELT_RUN_EXTENSION; meltcdat->dtup_760_syMELT_RUN_EXTENSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_760_syMELT_RUN_EXTENSION.nbval = 7; /*inimult dtup_761_syMELT_RUN_EXTENSION*/ /*_._VALTUP___V972*/ meltfptr[971] = (melt_ptr_t) &meltcdat->dtup_761_syMELT_RUN_EXTENSION; meltcdat->dtup_761_syMELT_RUN_EXTENSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_MULTIPLE)))); meltcdat->dtup_761_syMELT_RUN_EXTENSION.nbval = 3; /*iniobj dsym_762__BASENAME*/ /*uniqueobj*/ if (!/*_._VALDATA___V964*/ meltfptr[963]) /*_._VALDATA___V964*/ meltfptr[963] = (melt_ptr_t )&meltcdat->dsym_762__BASENAME; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_762__BASENAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_762__BASENAME", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_762__BASENAME.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_762__BASENAME.obj_hash = 716952306; meltcdat->dsym_762__BASENAME.obj_len = 3; /*inistring dstr_763__BASENAME*/ /*_._VALSTR___V965*/ meltfptr[964] = (melt_ptr_t) &meltcdat->dstr_763__BASENAME; meltcdat->dstr_763__BASENAME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_763__BASENAME.val, "BASENAME", sizeof (meltcdat->dstr_763__BASENAME.val)-1); meltcdat->dstr_763__BASENAME.val[8] = (char)0 ; meltcdat->dstr_763__BASENAME.slen = 8 ; /*^iniobj*/ /*iniobj dobj_764*/ /*_._VALDATA___V963*/ meltfptr[962] = (melt_ptr_t )&meltcdat->dobj_764; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_764", 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_764", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_764.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_764.obj_num = 0; meltcdat->dobj_764.obj_hash = 671741730; meltcdat->dobj_764.obj_len = 2; /*iniobj dsym_765__ENV*/ /*uniqueobj*/ if (!/*_._VALDATA___V967*/ meltfptr[966]) /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t )&meltcdat->dsym_765__ENV; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_765__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_765__ENV", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_765__ENV.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_765__ENV.obj_hash = 127517568; meltcdat->dsym_765__ENV.obj_len = 3; /*inistring dstr_766__ENV*/ /*_._VALSTR___V968*/ meltfptr[967] = (melt_ptr_t) &meltcdat->dstr_766__ENV; meltcdat->dstr_766__ENV.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_766__ENV.val, "ENV", sizeof (meltcdat->dstr_766__ENV.val)-1); meltcdat->dstr_766__ENV.val[3] = (char)0 ; meltcdat->dstr_766__ENV.slen = 3 ; /*^iniobj*/ /*iniobj dobj_767*/ /*_._VALDATA___V966*/ meltfptr[965] = (melt_ptr_t )&meltcdat->dobj_767; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_767", 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_767", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_767.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_767.obj_num = 1; meltcdat->dobj_767.obj_hash = 739094338; meltcdat->dobj_767.obj_len = 2; /*iniobj dsym_768__LITVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V970*/ meltfptr[969]) /*_._VALDATA___V970*/ meltfptr[969] = (melt_ptr_t )&meltcdat->dsym_768__LITVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_768__LITVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_768__LITVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_768__LITVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_768__LITVAL.obj_hash = 785654701; meltcdat->dsym_768__LITVAL.obj_len = 3; /*inistring dstr_769__LITVAL*/ /*_._VALSTR___V971*/ meltfptr[970] = (melt_ptr_t) &meltcdat->dstr_769__LITVAL; meltcdat->dstr_769__LITVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_769__LITVAL.val, "LITVAL", sizeof (meltcdat->dstr_769__LITVAL.val)-1); meltcdat->dstr_769__LITVAL.val[6] = (char)0 ; meltcdat->dstr_769__LITVAL.slen = 6 ; /*^iniobj*/ /*iniobj dobj_770*/ /*_._VALDATA___V969*/ meltfptr[968] = (melt_ptr_t )&meltcdat->dobj_770; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dobj_770", 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_770", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dobj_770.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_FORMAL_BINDING)))); meltcdat->dobj_770.obj_num = 2; meltcdat->dobj_770.obj_hash = 690535708; meltcdat->dobj_770.obj_len = 2; /*inistring dstr_771__melt_run_extension_*/ /*_._VALSTR___V973*/ meltfptr[972] = (melt_ptr_t) &meltcdat->dstr_771__melt_run_extension_; meltcdat->dstr_771__melt_run_extension_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_771__melt_run_extension_.val, " /* melt_run_extension */ meltgc_run_cc_extension\ \n ((melt_ptr_t) ", sizeof (meltcdat->dstr_771__melt_run_extension_.val)-1); meltcdat->dstr_771__melt_run_extension_.val[70] = (char)0 ; meltcdat->dstr_771__melt_run_extension_.slen = 70 ; /*inistring dstr_772__melt_ptr_t_*/ /*_._VALSTR___V974*/ meltfptr[973] = (melt_ptr_t) &meltcdat->dstr_772__melt_ptr_t_; meltcdat->dstr_772__melt_ptr_t_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_772__melt_ptr_t_.val, ",\n (melt_ptr_t) ", sizeof (meltcdat->dstr_772__melt_ptr_t_.val)-1); meltcdat->dstr_772__melt_ptr_t_.val[22] = (char)0 ; meltcdat->dstr_772__melt_ptr_t_.slen = 22 ; /*inistring dstr_773__melt_ptr_t_*/ /*_._VALSTR___V975*/ meltfptr[974] = (melt_ptr_t) &meltcdat->dstr_773__melt_ptr_t_; meltcdat->dstr_773__melt_ptr_t_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_773__melt_ptr_t_.val, ",\n (melt_ptr_t) ", sizeof (meltcdat->dstr_773__melt_ptr_t_.val)-1); meltcdat->dstr_773__melt_ptr_t_.val[22] = (char)0 ; meltcdat->dstr_773__melt_ptr_t_.slen = 22 ; /*inistring dstr_774__*/ /*_._VALSTR___V976*/ meltfptr[975] = (melt_ptr_t) &meltcdat->dstr_774__; meltcdat->dstr_774__.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_VERBATIM_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_774__.val, ") ", sizeof (meltcdat->dstr_774__.val)-1); meltcdat->dstr_774__.val[2] = (char)0 ; meltcdat->dstr_774__.slen = 2 ; /*inistring dstr_775__MELT_RUN_EXTENSION*/ /*_._VALSTR___V962*/ meltfptr[961] = (melt_ptr_t) &meltcdat->dstr_775__MELT_RUN_EXTENSION; meltcdat->dstr_775__MELT_RUN_EXTENSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_775__MELT_RUN_EXTENSION.val, "MELT_RUN_EXTENSION", sizeof (meltcdat->dstr_775__MELT_RUN_EXTENSION.val)-1); meltcdat->dstr_775__MELT_RUN_EXTENSION.val[18] = (char)0 ; meltcdat->dstr_775__MELT_RUN_EXTENSION.slen = 18 ; /*inirout drout_776__AUTOBOX_NORMAL_RETURN*/ /*iniroutlocvar*/ /*_._VALROUT___V978*/ meltfptr[977] = (melt_ptr_t) &meltcdat->drout_776__AUTOBOX_NORMAL_RETURN; meltcdat->drout_776__AUTOBOX_NORMAL_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_776__AUTOBOX_NORMAL_RETURN.routdescr, "AUTOBOX_NORMAL_RETURN @warmelt-outobj.melt:7288", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_776__AUTOBOX_NORMAL_RETURN.nbval = 26; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_776__AUTOBOX_NORMAL_RETURN, meltrout_137_WARMELTmiOUTOBJ_AUTOBOX_NORMAL_RETURN); /*iniclos dclo_777__AUTOBOX_NORMAL_RETURN*/ /*_._VALCLO___V991*/ meltfptr[990] = (melt_ptr_t) &meltcdat->dclo_777__AUTOBOX_NORMAL_RETURN; meltcdat->dclo_777__AUTOBOX_NORMAL_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_777__AUTOBOX_NORMAL_RETURN.nbval = 0; /*iniobj dsym_778__CLONE_SYMBOL*/ /*uniqueobj*/ if (!/*_._VALDATA___V992*/ meltfptr[991]) /*_._VALDATA___V992*/ meltfptr[991] = (melt_ptr_t )&meltcdat->dsym_778__CLONE_SYMBOL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_778__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_778__CLONE_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_778__CLONE_SYMBOL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_778__CLONE_SYMBOL.obj_hash = 213258240; meltcdat->dsym_778__CLONE_SYMBOL.obj_len = 3; /*inistring dstr_779__CLONE_SYMBOL*/ /*_._VALSTR___V993*/ meltfptr[992] = (melt_ptr_t) &meltcdat->dstr_779__CLONE_SYMBOL; meltcdat->dstr_779__CLONE_SYMBOL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_779__CLONE_SYMBOL.val, "CLONE_SYMBOL", sizeof (meltcdat->dstr_779__CLONE_SYMBOL.val)-1); meltcdat->dstr_779__CLONE_SYMBOL.val[12] = (char)0 ; meltcdat->dstr_779__CLONE_SYMBOL.slen = 12 ; /*iniobj dsym_780__RETAUTOBOXVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V979*/ meltfptr[978]) /*_._VALDATA___V979*/ meltfptr[978] = (melt_ptr_t )&meltcdat->dsym_780__RETAUTOBOXVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_780__RETAUTOBOXVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_780__RETAUTOBOXVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_780__RETAUTOBOXVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_780__RETAUTOBOXVAL.obj_hash = 301998775; meltcdat->dsym_780__RETAUTOBOXVAL.obj_len = 3; /*inistring dstr_781__RETAUTOBOXVAL*/ /*_._VALSTR___V980*/ meltfptr[979] = (melt_ptr_t) &meltcdat->dstr_781__RETAUTOBOXVAL; meltcdat->dstr_781__RETAUTOBOXVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_781__RETAUTOBOXVAL.val, "RETAUTOBOXVAL", sizeof (meltcdat->dstr_781__RETAUTOBOXVAL.val)-1); meltcdat->dstr_781__RETAUTOBOXVAL.val[13] = (char)0 ; meltcdat->dstr_781__RETAUTOBOXVAL.slen = 13 ; /*iniobj dsym_782__CLASS_NREP_LOCSYMOCC*/ /*uniqueobj*/ if (!/*_._VALDATA___V994*/ meltfptr[993]) /*_._VALDATA___V994*/ meltfptr[993] = (melt_ptr_t )&meltcdat->dsym_782__CLASS_NREP_LOCSYMOCC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_782__CLASS_NREP_LOCSYMOCC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_782__CLASS_NREP_LOCSYMOCC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_782__CLASS_NREP_LOCSYMOCC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_782__CLASS_NREP_LOCSYMOCC.obj_hash = 614887922; meltcdat->dsym_782__CLASS_NREP_LOCSYMOCC.obj_len = 3; /*inistring dstr_783__CLASS_NREP_LOCSYMOCC*/ /*_._VALSTR___V995*/ meltfptr[994] = (melt_ptr_t) &meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC; meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC.val, "CLASS_NREP_LOCSYMOCC", sizeof (meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC.val)-1); meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC.val[20] = (char)0 ; meltcdat->dstr_783__CLASS_NREP_LOCSYMOCC.slen = 20 ; /*iniobj dsym_784__CLASS_NREP_RETURN*/ /*uniqueobj*/ if (!/*_._VALDATA___V996*/ meltfptr[995]) /*_._VALDATA___V996*/ meltfptr[995] = (melt_ptr_t )&meltcdat->dsym_784__CLASS_NREP_RETURN; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_784__CLASS_NREP_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_784__CLASS_NREP_RETURN", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_784__CLASS_NREP_RETURN.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_784__CLASS_NREP_RETURN.obj_hash = 622944524; meltcdat->dsym_784__CLASS_NREP_RETURN.obj_len = 3; /*inistring dstr_785__CLASS_NREP_RETURN*/ /*_._VALSTR___V997*/ meltfptr[996] = (melt_ptr_t) &meltcdat->dstr_785__CLASS_NREP_RETURN; meltcdat->dstr_785__CLASS_NREP_RETURN.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_785__CLASS_NREP_RETURN.val, "CLASS_NREP_RETURN", sizeof (meltcdat->dstr_785__CLASS_NREP_RETURN.val)-1); meltcdat->dstr_785__CLASS_NREP_RETURN.val[17] = (char)0 ; meltcdat->dstr_785__CLASS_NREP_RETURN.slen = 17 ; /*iniobj dsym_786__CLASS_LET_BINDING*/ /*uniqueobj*/ if (!/*_._VALDATA___V998*/ meltfptr[997]) /*_._VALDATA___V998*/ meltfptr[997] = (melt_ptr_t )&meltcdat->dsym_786__CLASS_LET_BINDING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_786__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_786__CLASS_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_786__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_786__CLASS_LET_BINDING.obj_hash = 373730517; meltcdat->dsym_786__CLASS_LET_BINDING.obj_len = 3; /*inistring dstr_787__CLASS_LET_BINDING*/ /*_._VALSTR___V999*/ meltfptr[998] = (melt_ptr_t) &meltcdat->dstr_787__CLASS_LET_BINDING; meltcdat->dstr_787__CLASS_LET_BINDING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_787__CLASS_LET_BINDING.val, "CLASS_LET_BINDING", sizeof (meltcdat->dstr_787__CLASS_LET_BINDING.val)-1); meltcdat->dstr_787__CLASS_LET_BINDING.val[17] = (char)0 ; meltcdat->dstr_787__CLASS_LET_BINDING.slen = 17 ; /*iniobj dsym_788__LONGAUTOBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V981*/ meltfptr[980]) /*_._VALDATA___V981*/ meltfptr[980] = (melt_ptr_t )&meltcdat->dsym_788__LONGAUTOBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_788__LONGAUTOBOX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_788__LONGAUTOBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_788__LONGAUTOBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_788__LONGAUTOBOX.obj_hash = 196030253; meltcdat->dsym_788__LONGAUTOBOX.obj_len = 3; /*inistring dstr_789__LONGAUTOBOX*/ /*_._VALSTR___V982*/ meltfptr[981] = (melt_ptr_t) &meltcdat->dstr_789__LONGAUTOBOX; meltcdat->dstr_789__LONGAUTOBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_789__LONGAUTOBOX.val, "LONGAUTOBOX", sizeof (meltcdat->dstr_789__LONGAUTOBOX.val)-1); meltcdat->dstr_789__LONGAUTOBOX.val[11] = (char)0 ; meltcdat->dstr_789__LONGAUTOBOX.slen = 11 ; /*iniobj dsym_790__CLASS_NREP_CHUNK*/ /*uniqueobj*/ if (!/*_._VALDATA___V1000*/ meltfptr[999]) /*_._VALDATA___V1000*/ meltfptr[999] = (melt_ptr_t )&meltcdat->dsym_790__CLASS_NREP_CHUNK; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_790__CLASS_NREP_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_790__CLASS_NREP_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_790__CLASS_NREP_CHUNK.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_790__CLASS_NREP_CHUNK.obj_hash = 877025959; meltcdat->dsym_790__CLASS_NREP_CHUNK.obj_len = 3; /*inistring dstr_791__CLASS_NREP_CHUNK*/ /*_._VALSTR___V1001*/ meltfptr[1000] = (melt_ptr_t) &meltcdat->dstr_791__CLASS_NREP_CHUNK; meltcdat->dstr_791__CLASS_NREP_CHUNK.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_791__CLASS_NREP_CHUNK.val, "CLASS_NREP_CHUNK", sizeof (meltcdat->dstr_791__CLASS_NREP_CHUNK.val)-1); meltcdat->dstr_791__CLASS_NREP_CHUNK.val[16] = (char)0 ; meltcdat->dstr_791__CLASS_NREP_CHUNK.slen = 16 ; /*iniobj dsym_792__AUTOBOXLONG*/ /*uniqueobj*/ if (!/*_._VALDATA___V983*/ meltfptr[982]) /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t )&meltcdat->dsym_792__AUTOBOXLONG; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_792__AUTOBOXLONG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_792__AUTOBOXLONG", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_792__AUTOBOXLONG.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_792__AUTOBOXLONG.obj_hash = 86094257; meltcdat->dsym_792__AUTOBOXLONG.obj_len = 3; /*inistring dstr_793__AUTOBOXLONG*/ /*_._VALSTR___V984*/ meltfptr[983] = (melt_ptr_t) &meltcdat->dstr_793__AUTOBOXLONG; meltcdat->dstr_793__AUTOBOXLONG.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_793__AUTOBOXLONG.val, "AUTOBOXLONG", sizeof (meltcdat->dstr_793__AUTOBOXLONG.val)-1); meltcdat->dstr_793__AUTOBOXLONG.val[11] = (char)0 ; meltcdat->dstr_793__AUTOBOXLONG.slen = 11 ; /*iniobj dsym_794__CTYPE_CSTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V1002*/ meltfptr[1001]) /*_._VALDATA___V1002*/ meltfptr[1001] = (melt_ptr_t )&meltcdat->dsym_794__CTYPE_CSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_794__CTYPE_CSTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_794__CTYPE_CSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_794__CTYPE_CSTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_794__CTYPE_CSTRING.obj_hash = 90196516; meltcdat->dsym_794__CTYPE_CSTRING.obj_len = 3; /*inistring dstr_795__CTYPE_CSTRING*/ /*_._VALSTR___V1003*/ meltfptr[1002] = (melt_ptr_t) &meltcdat->dstr_795__CTYPE_CSTRING; meltcdat->dstr_795__CTYPE_CSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_795__CTYPE_CSTRING.val, "CTYPE_CSTRING", sizeof (meltcdat->dstr_795__CTYPE_CSTRING.val)-1); meltcdat->dstr_795__CTYPE_CSTRING.val[13] = (char)0 ; meltcdat->dstr_795__CTYPE_CSTRING.slen = 13 ; /*iniobj dsym_796__STRINGAUTOBOX*/ /*uniqueobj*/ if (!/*_._VALDATA___V985*/ meltfptr[984]) /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t )&meltcdat->dsym_796__STRINGAUTOBOX; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_796__STRINGAUTOBOX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_796__STRINGAUTOBOX", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_796__STRINGAUTOBOX.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_796__STRINGAUTOBOX.obj_hash = 252856358; meltcdat->dsym_796__STRINGAUTOBOX.obj_len = 3; /*inistring dstr_797__STRINGAUTOBOX*/ /*_._VALSTR___V986*/ meltfptr[985] = (melt_ptr_t) &meltcdat->dstr_797__STRINGAUTOBOX; meltcdat->dstr_797__STRINGAUTOBOX.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_797__STRINGAUTOBOX.val, "STRINGAUTOBOX", sizeof (meltcdat->dstr_797__STRINGAUTOBOX.val)-1); meltcdat->dstr_797__STRINGAUTOBOX.val[13] = (char)0 ; meltcdat->dstr_797__STRINGAUTOBOX.slen = 13 ; /*iniobj dsym_798__AUTOBOXSTRING*/ /*uniqueobj*/ if (!/*_._VALDATA___V987*/ meltfptr[986]) /*_._VALDATA___V987*/ meltfptr[986] = (melt_ptr_t )&meltcdat->dsym_798__AUTOBOXSTRING; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_798__AUTOBOXSTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_798__AUTOBOXSTRING", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_798__AUTOBOXSTRING.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_798__AUTOBOXSTRING.obj_hash = 285489089; meltcdat->dsym_798__AUTOBOXSTRING.obj_len = 3; /*inistring dstr_799__AUTOBOXSTRING*/ /*_._VALSTR___V988*/ meltfptr[987] = (melt_ptr_t) &meltcdat->dstr_799__AUTOBOXSTRING; meltcdat->dstr_799__AUTOBOXSTRING.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_799__AUTOBOXSTRING.val, "AUTOBOXSTRING", sizeof (meltcdat->dstr_799__AUTOBOXSTRING.val)-1); meltcdat->dstr_799__AUTOBOXSTRING.val[13] = (char)0 ; meltcdat->dstr_799__AUTOBOXSTRING.slen = 13 ; /*iniobj dsym_800__AUTOBOXGTY*/ /*uniqueobj*/ if (!/*_._VALDATA___V989*/ meltfptr[988]) /*_._VALDATA___V989*/ meltfptr[988] = (melt_ptr_t )&meltcdat->dsym_800__AUTOBOXGTY; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_800__AUTOBOXGTY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_800__AUTOBOXGTY", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_800__AUTOBOXGTY.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_800__AUTOBOXGTY.obj_hash = 665060233; meltcdat->dsym_800__AUTOBOXGTY.obj_len = 3; /*inistring dstr_801__AUTOBOXGTY*/ /*_._VALSTR___V990*/ meltfptr[989] = (melt_ptr_t) &meltcdat->dstr_801__AUTOBOXGTY; meltcdat->dstr_801__AUTOBOXGTY.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_801__AUTOBOXGTY.val, "AUTOBOXGTY", sizeof (meltcdat->dstr_801__AUTOBOXGTY.val)-1); meltcdat->dstr_801__AUTOBOXGTY.val[10] = (char)0 ; meltcdat->dstr_801__AUTOBOXGTY.slen = 10 ; /*inirout drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*iniroutlocvar*/ /*_._VALROUT___V1004*/ meltfptr[1003] = (melt_ptr_t) &meltcdat->drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS; meltcdat->drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS.routdescr, "TRANSLATE_RUN_MELT_EXPRESSIONS @warmelt-outobj.melt:7468", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS.nbval = 48; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS, meltrout_138_WARMELTmiOUTOBJ_TRANSLATE_RUN_MELT_EXPRESSIONS); /*iniclos dclo_803__TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*_._VALCLO___V1016*/ meltfptr[1015] = (melt_ptr_t) &meltcdat->dclo_803__TRANSLATE_RUN_MELT_EXPRESSIONS; meltcdat->dclo_803__TRANSLATE_RUN_MELT_EXPRESSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_803__TRANSLATE_RUN_MELT_EXPRESSIONS.nbval = 0; /*inirout drout_804__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1005*/ meltfptr[1004] = (melt_ptr_t) &meltcdat->drout_804__LAMBDA_; meltcdat->drout_804__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_804__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7529", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_804__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_804__LAMBDA_, meltrout_139_WARMELTmiOUTOBJ_LAMBDA_cl9); /*iniobj dsym_805__MACROmiEXTENSION*/ /*uniqueobj*/ if (!/*_._VALDATA___V1006*/ meltfptr[1005]) /*_._VALDATA___V1006*/ meltfptr[1005] = (melt_ptr_t )&meltcdat->dsym_805__MACROmiEXTENSION; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_805__MACROmiEXTENSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_805__MACROmiEXTENSION", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_805__MACROmiEXTENSION.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_805__MACROmiEXTENSION.obj_hash = 1046402785; meltcdat->dsym_805__MACROmiEXTENSION.obj_len = 3; /*inistring dstr_806__MACRO_EXTENSION*/ /*_._VALSTR___V1007*/ meltfptr[1006] = (melt_ptr_t) &meltcdat->dstr_806__MACRO_EXTENSION; meltcdat->dstr_806__MACRO_EXTENSION.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_806__MACRO_EXTENSION.val, "MACRO-EXTENSION", sizeof (meltcdat->dstr_806__MACRO_EXTENSION.val)-1); meltcdat->dstr_806__MACRO_EXTENSION.val[15] = (char)0 ; meltcdat->dstr_806__MACRO_EXTENSION.slen = 15 ; /*iniobj dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1017*/ meltfptr[1016]) /*_._VALDATA___V1017*/ meltfptr[1016] = (melt_ptr_t )&meltcdat->dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_807__CREATE_NORMAL_EXTENDING_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_807__CREATE_NORMAL_EXTENDING_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT.obj_hash = 134982425; meltcdat->dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT.obj_len = 3; /*inistring dstr_808__CREATE_NORMAL_EXTENDING_*/ /*_._VALSTR___V1018*/ meltfptr[1017] = (melt_ptr_t) &meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_; meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_.val, "CREATE_NORMAL_EXTENDING_CONTEXT", sizeof (meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_.val)-1); meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_.val[31] = (char)0 ; meltcdat->dstr_808__CREATE_NORMAL_EXTENDING_.slen = 31 ; /*inirout drout_809__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1008*/ meltfptr[1007] = (melt_ptr_t) &meltcdat->drout_809__LAMBDA_; meltcdat->drout_809__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_809__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7589", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_809__LAMBDA_.nbval = 5; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_809__LAMBDA_, meltrout_140_WARMELTmiOUTOBJ_LAMBDA_cl10); /*inistring dstr_810__Bad_expression*/ /*_._VALSTR___V1009*/ meltfptr[1008] = (melt_ptr_t) &meltcdat->dstr_810__Bad_expression; meltcdat->dstr_810__Bad_expression.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_810__Bad_expression.val, "Bad expression", sizeof (meltcdat->dstr_810__Bad_expression.val)-1); meltcdat->dstr_810__Bad_expression.val[14] = (char)0 ; meltcdat->dstr_810__Bad_expression.slen = 14 ; /*inistring dstr_811__No_expressions*/ /*_._VALSTR___V1010*/ meltfptr[1009] = (melt_ptr_t) &meltcdat->dstr_811__No_expressions; meltcdat->dstr_811__No_expressions.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_811__No_expressions.val, "No expressions", sizeof (meltcdat->dstr_811__No_expressions.val)-1); meltcdat->dstr_811__No_expressions.val[14] = (char)0 ; meltcdat->dstr_811__No_expressions.slen = 14 ; /*inistring dstr_812__runtime_invalid_expressi*/ /*_._VALSTR___V1011*/ meltfptr[1010] = (melt_ptr_t) &meltcdat->dstr_812__runtime_invalid_expressi; meltcdat->dstr_812__runtime_invalid_expressi.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_812__runtime_invalid_expressi.val, "runtime invalid expressions", sizeof (meltcdat->dstr_812__runtime_invalid_expressi.val)-1); meltcdat->dstr_812__runtime_invalid_expressi.val[27] = (char)0 ; meltcdat->dstr_812__runtime_invalid_expressi.slen = 27 ; /*inirout drout_813__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1012*/ meltfptr[1011] = (melt_ptr_t) &meltcdat->drout_813__LAMBDA_; meltcdat->drout_813__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_813__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7655", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_813__LAMBDA_.nbval = 12; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_813__LAMBDA_, meltrout_141_WARMELTmiOUTOBJ_LAMBDA_cl11); /*inistring dstr_814__runtime_macroexpansion_f*/ /*_._VALSTR___V1013*/ meltfptr[1012] = (melt_ptr_t) &meltcdat->dstr_814__runtime_macroexpansion_f; meltcdat->dstr_814__runtime_macroexpansion_f.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_814__runtime_macroexpansion_f.val, "runtime macroexpansion failed", sizeof (meltcdat->dstr_814__runtime_macroexpansion_f.val)-1); meltcdat->dstr_814__runtime_macroexpansion_f.val[29] = (char)0 ; meltcdat->dstr_814__runtime_macroexpansion_f.slen = 29 ; /*iniobj dsym_815__COMPILE2OBJ_INITEXTENDPROC*/ /*uniqueobj*/ if (!/*_._VALDATA___V1019*/ meltfptr[1018]) /*_._VALDATA___V1019*/ meltfptr[1018] = (melt_ptr_t )&meltcdat->dsym_815__COMPILE2OBJ_INITEXTENDPROC; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_815__COMPILE2OBJ_INITEXTENDPROC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_815__COMPILE2OBJ_INITEXTENDPROC", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_815__COMPILE2OBJ_INITEXTENDPROC.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_815__COMPILE2OBJ_INITEXTENDPROC.obj_hash = 801786105; meltcdat->dsym_815__COMPILE2OBJ_INITEXTENDPROC.obj_len = 3; /*inistring dstr_816__COMPILE2OBJ_INITEXTENDPR*/ /*_._VALSTR___V1020*/ meltfptr[1019] = (melt_ptr_t) &meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR; meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR.val, "COMPILE2OBJ_INITEXTENDPROC", sizeof (meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR.val)-1); meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR.val[26] = (char)0 ; meltcdat->dstr_816__COMPILE2OBJ_INITEXTENDPR.slen = 26 ; /*inistring dstr_817__runtime_translation_to_c*/ /*_._VALSTR___V1014*/ meltfptr[1013] = (melt_ptr_t) &meltcdat->dstr_817__runtime_translation_to_c; meltcdat->dstr_817__runtime_translation_to_c.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_817__runtime_translation_to_c.val, "runtime translation to code failed", sizeof (meltcdat->dstr_817__runtime_translation_to_c.val)-1); meltcdat->dstr_817__runtime_translation_to_c.val[34] = (char)0 ; meltcdat->dstr_817__runtime_translation_to_c.slen = 34 ; /*inistring dstr_818__runextend*/ /*_._VALSTR___V1015*/ meltfptr[1014] = (melt_ptr_t) &meltcdat->dstr_818__runextend; meltcdat->dstr_818__runextend.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_818__runextend.val, "runextend", sizeof (meltcdat->dstr_818__runextend.val)-1); meltcdat->dstr_818__runextend.val[9] = (char)0 ; meltcdat->dstr_818__runextend.slen = 9 ; /*iniobj dsym_819__CLASS_LITERAL_VALUE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1021*/ meltfptr[1020]) /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t )&meltcdat->dsym_819__CLASS_LITERAL_VALUE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_819__CLASS_LITERAL_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_819__CLASS_LITERAL_VALUE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_819__CLASS_LITERAL_VALUE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_819__CLASS_LITERAL_VALUE.obj_hash = 801101132; meltcdat->dsym_819__CLASS_LITERAL_VALUE.obj_len = 3; /*inistring dstr_820__CLASS_LITERAL_VALUE*/ /*_._VALSTR___V1022*/ meltfptr[1021] = (melt_ptr_t) &meltcdat->dstr_820__CLASS_LITERAL_VALUE; meltcdat->dstr_820__CLASS_LITERAL_VALUE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_820__CLASS_LITERAL_VALUE.val, "CLASS_LITERAL_VALUE", sizeof (meltcdat->dstr_820__CLASS_LITERAL_VALUE.val)-1); meltcdat->dstr_820__CLASS_LITERAL_VALUE.val[19] = (char)0 ; meltcdat->dstr_820__CLASS_LITERAL_VALUE.slen = 19 ; /*inirout drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ /*iniroutlocvar*/ /*_._VALROUT___V1023*/ meltfptr[1022] = (melt_ptr_t) &meltcdat->drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; meltcdat->drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.routdescr, "MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST @warmelt-outobj.melt:7777", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.nbval = 25; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST, meltrout_142_WARMELTmiOUTOBJ_MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST); /*iniclos dclo_822__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ /*_._VALCLO___V1027*/ meltfptr[1026] = (melt_ptr_t) &meltcdat->dclo_822__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; meltcdat->dclo_822__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_822__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.nbval = 0; /*inirout drout_823__LAMBDA_*/ /*iniroutlocvar*/ /*_._VALROUT___V1024*/ meltfptr[1023] = (melt_ptr_t) &meltcdat->drout_823__LAMBDA_; meltcdat->drout_823__LAMBDA_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_823__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.melt:7833", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_823__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_823__LAMBDA_, meltrout_143_WARMELTmiOUTOBJ_LAMBDA_cl12); /*inistring dstr_824__runtime_translation_to_c*/ /*_._VALSTR___V1025*/ meltfptr[1024] = (melt_ptr_t) &meltcdat->dstr_824__runtime_translation_to_c; meltcdat->dstr_824__runtime_translation_to_c.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_824__runtime_translation_to_c.val, "runtime translation to code failed", sizeof (meltcdat->dstr_824__runtime_translation_to_c.val)-1); meltcdat->dstr_824__runtime_translation_to_c.val[34] = (char)0 ; meltcdat->dstr_824__runtime_translation_to_c.slen = 34 ; /*inistring dstr_825__runextend*/ /*_._VALSTR___V1026*/ meltfptr[1025] = (melt_ptr_t) &meltcdat->dstr_825__runextend; meltcdat->dstr_825__runextend.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_825__runextend.val, "runextend", sizeof (meltcdat->dstr_825__runextend.val)-1); meltcdat->dstr_825__runextend.val[9] = (char)0 ; meltcdat->dstr_825__runextend.slen = 9 ; /*iniobj dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1028*/ meltfptr[1027]) /*_._VALDATA___V1028*/ meltfptr[1027] = (melt_ptr_t )&meltcdat->dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_826__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_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.obj_hash = 235050317; meltcdat->dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS.obj_len = 3; /*inistring dstr_827__MELT_REGISTER_TRANSLATOR*/ /*_._VALSTR___V1029*/ meltfptr[1028] = (melt_ptr_t) &meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR; meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR.val, "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", sizeof (meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR.val)-1); meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR.val[47] = (char)0 ; meltcdat->dstr_827__MELT_REGISTER_TRANSLATOR.slen = 47 ; /*inirout drout_828__READ_MELT_EXPRESSIONS*/ /*iniroutlocvar*/ /*_._VALROUT___V1030*/ meltfptr[1029] = (melt_ptr_t) &meltcdat->drout_828__READ_MELT_EXPRESSIONS; meltcdat->drout_828__READ_MELT_EXPRESSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_828__READ_MELT_EXPRESSIONS.routdescr, "READ_MELT_EXPRESSIONS @warmelt-outobj.melt:7946", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_828__READ_MELT_EXPRESSIONS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_828__READ_MELT_EXPRESSIONS, meltrout_144_WARMELTmiOUTOBJ_READ_MELT_EXPRESSIONS); /*iniclos dclo_829__READ_MELT_EXPRESSIONS*/ /*_._VALCLO___V1031*/ meltfptr[1030] = (melt_ptr_t) &meltcdat->dclo_829__READ_MELT_EXPRESSIONS; meltcdat->dclo_829__READ_MELT_EXPRESSIONS.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_829__READ_MELT_EXPRESSIONS.nbval = 0; /*inirout drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ /*iniroutlocvar*/ /*_._VALROUT___V1032*/ meltfptr[1031] = (melt_ptr_t) &meltcdat->drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; meltcdat->drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.routdescr, "TRANSLATE_TO_CC_MODULE_MELT_SOURCES @warmelt-outobj.melt:7984", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.nbval = 7; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES, meltrout_145_WARMELTmiOUTOBJ_TRANSLATE_TO_CC_MODULE_MELT_SOURCES); /*iniclos dclo_831__TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ /*_._VALCLO___V1033*/ meltfptr[1032] = (melt_ptr_t) &meltcdat->dclo_831__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; meltcdat->dclo_831__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_831__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.nbval = 0; /*inirout drout_832__EVAL*/ /*iniroutlocvar*/ /*_._VALROUT___V1034*/ meltfptr[1033] = (melt_ptr_t) &meltcdat->drout_832__EVAL; meltcdat->drout_832__EVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_832__EVAL.routdescr, "EVAL @warmelt-outobj.melt:8030", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_832__EVAL.nbval = 8; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_832__EVAL, meltrout_146_WARMELTmiOUTOBJ_EVAL); /*iniclos dclo_833__EVAL*/ /*_._VALCLO___V1035*/ meltfptr[1034] = (melt_ptr_t) &meltcdat->dclo_833__EVAL; meltcdat->dclo_833__EVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_833__EVAL.nbval = 0; /*iniobj dsym_834__MULTIPLE_TO_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1036*/ meltfptr[1035]) /*_._VALDATA___V1036*/ meltfptr[1035] = (melt_ptr_t )&meltcdat->dsym_834__MULTIPLE_TO_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_834__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_834__MULTIPLE_TO_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_834__MULTIPLE_TO_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_834__MULTIPLE_TO_LIST.obj_hash = 622139769; meltcdat->dsym_834__MULTIPLE_TO_LIST.obj_len = 3; /*inistring dstr_835__MULTIPLE_TO_LIST*/ /*_._VALSTR___V1037*/ meltfptr[1036] = (melt_ptr_t) &meltcdat->dstr_835__MULTIPLE_TO_LIST; meltcdat->dstr_835__MULTIPLE_TO_LIST.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_835__MULTIPLE_TO_LIST.val, "MULTIPLE_TO_LIST", sizeof (meltcdat->dstr_835__MULTIPLE_TO_LIST.val)-1); meltcdat->dstr_835__MULTIPLE_TO_LIST.val[16] = (char)0 ; meltcdat->dstr_835__MULTIPLE_TO_LIST.slen = 16 ; /*inirout drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*iniroutlocvar*/ /*_._VALROUT___V1038*/ meltfptr[1037] = (melt_ptr_t) &meltcdat->drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; meltcdat->drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_ROUTINE)))); strncpy (meltcdat->drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.routdescr, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT @warmelt-outobj.melt:8062", MELT_ROUTDESCR_LEN - 1); meltcdat->drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.nbval = 1; MELT_ROUTINE_SET_ROUTCODE(&meltcdat->drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT, meltrout_147_WARMELTmiOUTOBJ_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT); /*iniclos dclo_837__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*_._VALCLO___V1039*/ meltfptr[1038] = (melt_ptr_t) &meltcdat->dclo_837__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; meltcdat->dclo_837__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_CLOSURE)))); meltcdat->dclo_837__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.nbval = 0; /*iniobj dsym_838__COMPILE_LIST_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1040*/ meltfptr[1039]) /*_._VALDATA___V1040*/ meltfptr[1039] = (melt_ptr_t )&meltcdat->dsym_838__COMPILE_LIST_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_838__COMPILE_LIST_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_838__COMPILE_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_838__COMPILE_LIST_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_838__COMPILE_LIST_SEXPR.obj_hash = 346985953; meltcdat->dsym_838__COMPILE_LIST_SEXPR.obj_len = 3; /*inistring dstr_839__COMPILE_LIST_SEXPR*/ /*_._VALSTR___V1041*/ meltfptr[1040] = (melt_ptr_t) &meltcdat->dstr_839__COMPILE_LIST_SEXPR; meltcdat->dstr_839__COMPILE_LIST_SEXPR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_839__COMPILE_LIST_SEXPR.val, "COMPILE_LIST_SEXPR", sizeof (meltcdat->dstr_839__COMPILE_LIST_SEXPR.val)-1); meltcdat->dstr_839__COMPILE_LIST_SEXPR.val[18] = (char)0 ; meltcdat->dstr_839__COMPILE_LIST_SEXPR.slen = 18 ; /*iniobj dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ /*uniqueobj*/ if (!/*_._VALDATA___V1042*/ meltfptr[1041]) /*_._VALDATA___V1042*/ meltfptr[1041] = (melt_ptr_t )&meltcdat->dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_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_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.obj_hash = 407183204; meltcdat->dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR.obj_len = 3; /*inistring dstr_841__COMPILE_FIRST_BOOTSTRAP_*/ /*_._VALSTR___V1043*/ meltfptr[1042] = (melt_ptr_t) &meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_; meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_.val, "COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", sizeof (meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_.val)-1); meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_.val[34] = (char)0 ; meltcdat->dstr_841__COMPILE_FIRST_BOOTSTRAP_.slen = 34 ; /*iniobj dsym_842__EVAL*/ /*uniqueobj*/ if (!/*_._VALDATA___V1044*/ meltfptr[1043]) /*_._VALDATA___V1044*/ meltfptr[1043] = (melt_ptr_t )&meltcdat->dsym_842__EVAL; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_842__EVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_842__EVAL", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_842__EVAL.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_842__EVAL.obj_hash = 8769850; meltcdat->dsym_842__EVAL.obj_len = 3; /*inistring dstr_843__EVAL*/ /*_._VALSTR___V1045*/ meltfptr[1044] = (melt_ptr_t) &meltcdat->dstr_843__EVAL; meltcdat->dstr_843__EVAL.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_843__EVAL.val, "EVAL", sizeof (meltcdat->dstr_843__EVAL.val)-1); meltcdat->dstr_843__EVAL.val[4] = (char)0 ; meltcdat->dstr_843__EVAL.slen = 4 ; /*iniobj dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1046*/ meltfptr[1045]) /*_._VALDATA___V1046*/ meltfptr[1045] = (melt_ptr_t )&meltcdat->dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_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_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_hash = 10057023; meltcdat->dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_len = 3; /*inistring dstr_845__GENERATE_GPLV3PLUS_COPYR*/ /*_._VALSTR___V1047*/ meltfptr[1046] = (melt_ptr_t) &meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR; meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR.val, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", sizeof (meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR.val)-1); meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR.val[45] = (char)0 ; meltcdat->dstr_845__GENERATE_GPLV3PLUS_COPYR.slen = 45 ; /*iniobj dsym_846__GET_CODE_BUFFER_LIMIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1048*/ meltfptr[1047]) /*_._VALDATA___V1048*/ meltfptr[1047] = (melt_ptr_t )&meltcdat->dsym_846__GET_CODE_BUFFER_LIMIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_846__GET_CODE_BUFFER_LIMIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_846__GET_CODE_BUFFER_LIMIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_846__GET_CODE_BUFFER_LIMIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_846__GET_CODE_BUFFER_LIMIT.obj_hash = 989433689; meltcdat->dsym_846__GET_CODE_BUFFER_LIMIT.obj_len = 3; /*inistring dstr_847__GET_CODE_BUFFER_LIMIT*/ /*_._VALSTR___V1049*/ meltfptr[1048] = (melt_ptr_t) &meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT; meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT.val, "GET_CODE_BUFFER_LIMIT", sizeof (meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT.val)-1); meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT.val[21] = (char)0 ; meltcdat->dstr_847__GET_CODE_BUFFER_LIMIT.slen = 21 ; /*iniobj dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ /*uniqueobj*/ if (!/*_._VALDATA___V1050*/ meltfptr[1049]) /*_._VALDATA___V1050*/ meltfptr[1049] = (melt_ptr_t )&meltcdat->dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_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_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.obj_hash = 306152975; meltcdat->dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST.obj_len = 3; /*inistring dstr_849__MELT_TRANSLATE_RUN_MACRO*/ /*_._VALSTR___V1051*/ meltfptr[1050] = (melt_ptr_t) &meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO; meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO.val, "MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST", sizeof (meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO.val)-1); meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO.val[39] = (char)0 ; meltcdat->dstr_849__MELT_TRANSLATE_RUN_MACRO.slen = 39 ; /*iniobj dsym_850__PUT_CODE_BUFFER_LIMIT*/ /*uniqueobj*/ if (!/*_._VALDATA___V1052*/ meltfptr[1051]) /*_._VALDATA___V1052*/ meltfptr[1051] = (melt_ptr_t )&meltcdat->dsym_850__PUT_CODE_BUFFER_LIMIT; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_850__PUT_CODE_BUFFER_LIMIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_850__PUT_CODE_BUFFER_LIMIT", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_850__PUT_CODE_BUFFER_LIMIT.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_850__PUT_CODE_BUFFER_LIMIT.obj_hash = 553702523; meltcdat->dsym_850__PUT_CODE_BUFFER_LIMIT.obj_len = 3; /*inistring dstr_851__PUT_CODE_BUFFER_LIMIT*/ /*_._VALSTR___V1053*/ meltfptr[1052] = (melt_ptr_t) &meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT; meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT.val, "PUT_CODE_BUFFER_LIMIT", sizeof (meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT.val)-1); meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT.val[21] = (char)0 ; meltcdat->dstr_851__PUT_CODE_BUFFER_LIMIT.slen = 21 ; /*iniobj dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*uniqueobj*/ if (!/*_._VALDATA___V1054*/ meltfptr[1053]) /*_._VALDATA___V1054*/ meltfptr[1053] = (melt_ptr_t )&meltcdat->dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_hash = 768959791; meltcdat->dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_len = 3; /*inistring dstr_853__TRANSLATE_RUN_MELT_EXPRE*/ /*_._VALSTR___V1055*/ meltfptr[1054] = (melt_ptr_t) &meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE; meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE.val, "TRANSLATE_RUN_MELT_EXPRESSIONS", sizeof (meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE.val)-1); meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE.val[30] = (char)0 ; meltcdat->dstr_853__TRANSLATE_RUN_MELT_EXPRE.slen = 30 ; /*iniobj dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ /*uniqueobj*/ if (!/*_._VALDATA___V1056*/ meltfptr[1055]) /*_._VALDATA___V1056*/ meltfptr[1055] = (melt_ptr_t )&meltcdat->dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.obj_hash = 516929167; meltcdat->dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES.obj_len = 3; /*inistring dstr_855__TRANSLATE_TO_CC_MODULE_M*/ /*_._VALSTR___V1057*/ meltfptr[1056] = (melt_ptr_t) &meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M; meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M.val, "TRANSLATE_TO_CC_MODULE_MELT_SOURCES", sizeof (meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M.val)-1); meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M.val[35] = (char)0 ; meltcdat->dstr_855__TRANSLATE_TO_CC_MODULE_M.slen = 35 ; /*iniobj dsym_856__CLASS_SECONDARY_C_FILE*/ /*uniqueobj*/ if (!/*_._VALDATA___V1058*/ meltfptr[1057]) /*_._VALDATA___V1058*/ meltfptr[1057] = (melt_ptr_t )&meltcdat->dsym_856__CLASS_SECONDARY_C_FILE; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_856__CLASS_SECONDARY_C_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_856__CLASS_SECONDARY_C_FILE", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_856__CLASS_SECONDARY_C_FILE.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_856__CLASS_SECONDARY_C_FILE.obj_hash = 1020651793; meltcdat->dsym_856__CLASS_SECONDARY_C_FILE.obj_len = 3; /*inistring dstr_857__CLASS_SECONDARY_C_FILE*/ /*_._VALSTR___V1059*/ meltfptr[1058] = (melt_ptr_t) &meltcdat->dstr_857__CLASS_SECONDARY_C_FILE; meltcdat->dstr_857__CLASS_SECONDARY_C_FILE.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_857__CLASS_SECONDARY_C_FILE.val, "CLASS_SECONDARY_C_FILE", sizeof (meltcdat->dstr_857__CLASS_SECONDARY_C_FILE.val)-1); meltcdat->dstr_857__CLASS_SECONDARY_C_FILE.val[22] = (char)0 ; meltcdat->dstr_857__CLASS_SECONDARY_C_FILE.slen = 22 ; /*iniobj dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ /*uniqueobj*/ if (!/*_._VALDATA___V1060*/ meltfptr[1059]) /*_._VALDATA___V1060*/ meltfptr[1059] = (melt_ptr_t )&meltcdat->dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES; if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr isobj dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY(!melt_prohibit_garbcoll)) melt_assertmsg("iniobj check.discr objmagic dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES", ((meltobject_ptr_t) (((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))))->meltobj_magic == MELTOBMAG_OBJECT); meltcdat->dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES.meltobj_class = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(CLASS_SYMBOL)))); meltcdat->dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES.obj_hash = 241206510; meltcdat->dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES.obj_len = 3; /*inistring dstr_859__TRANSLATE_TO_C_MODULE_ME*/ /*_._VALSTR___V1061*/ meltfptr[1060] = (melt_ptr_t) &meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME; meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME.discr = (meltobject_ptr_t)(((melt_ptr_t)(MELT_PREDEF(DISCR_STRING)))); /*small inistring*/ strncpy(meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME.val, "TRANSLATE_TO_C_MODULE_MELT_SOURCES", sizeof (meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME.val)-1); meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME.val[34] = (char)0 ; meltcdat->dstr_859__TRANSLATE_TO_C_MODULE_ME.slen = 34 ; meltcdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ } /*end melt_initialize_module_meltdata_WARMELTmiOUTOBJ*/ #if MELT_HAVE_DEBUG > 0 const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_enabled[] = "MELT module warmelt-outobj have debug enabled"; #else /*!MELT_HAVE_DEBUG*/ const char meltmodule_WARMELTmiOUTOBJ__melt_have_debug_disabled[] = "MELT module warmelt-outobj 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:2253 /* start of frame for routine melt_start_this_module fromline 1752 */ /*startiniframdecl*/ /* end of frame for routine melt_start_this_module fromline 1756 */ debugeprintf("sizeof Melt_InitialFrame in melt_start_this_module=%d", (int) sizeof(Melt_InitialFrame)); /* classy initial frame melt_start_this_module fromline 1773*/ Melt_InitialFrame meltfram__ /*declfrastruct fromline 1780*/ /*classyinitroutinearg melt_start_this_module fromline 1819*/ #if MELT_HAVE_DEBUG > 0 /*classyinitroutfram fromline 1823:*/ (__FILE__, __LINE__) #endif /*MELT_HAVE_DEBUG fromline1825*/ ; #define meltframe meltfram__ /**initial routine prologue**/ /**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-outobj */ if (/*_._PREVENV___V4*/ meltfptr[3]) { /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-outobj") ; } 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-outobj 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___V203*/ meltfptr[202]) { #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___V203*/ meltfptr[202] = (melt_ptr_t) meltsy_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER; } /*endgetnamedsym HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER*/ /*^getnamedsymbol*/ /*getnamedsym:BUFFER_LIMIT_CONT*/ if (NULL == /*_._VALDATA___V205*/ meltfptr[204]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BUFFER_LIMIT_CONT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BUFFER_LIMIT_CONT = melthookproc_HOOK_NAMED_SYMBOL ("BUFFER_LIMIT_CONT", (long) MELT_GET); /*_._VALDATA___V205*/ meltfptr[204] = (melt_ptr_t) meltsy_BUFFER_LIMIT_CONT; } /*endgetnamedsym BUFFER_LIMIT_CONT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_REFERENCE*/ if (NULL == /*_._VALDATA___V207*/ meltfptr[206]) { #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___V207*/ meltfptr[206] = (melt_ptr_t) meltsy_CLASS_REFERENCE; } /*endgetnamedsym CLASS_REFERENCE*/ /*^getnamedkeyword*/ /*getnamedkeyw:TRUE*/ { melt_ptr_t kw_TRUE = melthookproc_HOOK_NAMED_KEYWORD ("TRUE", (long) MELT_GET); if (kw_TRUE) /*_._VALDATA___V211*/ meltfptr[210] = (melt_ptr_t) kw_TRUE; } /*^getnamedsymbol*/ /*getnamedsym:MELT_ASSERT_FAILURE_FUN*/ if (NULL == /*_._VALDATA___V215*/ meltfptr[214]) { #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___V215*/ meltfptr[214] = (melt_ptr_t) meltsy_MELT_ASSERT_FAILURE_FUN; } /*endgetnamedsym MELT_ASSERT_FAILURE_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NAMED*/ if (NULL == /*_._VALDATA___V217*/ meltfptr[216]) { #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___V217*/ meltfptr[216] = (melt_ptr_t) meltsy_CLASS_NAMED; } /*endgetnamedsym CLASS_NAMED*/ /*^getnamedsymbol*/ /*getnamedsym:ADD2OUT*/ if (NULL == /*_._VALDATA___V219*/ meltfptr[218]) { #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___V219*/ meltfptr[218] = (melt_ptr_t) meltsy_ADD2OUT; } /*endgetnamedsym ADD2OUT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LOCATED*/ if (NULL == /*_._VALDATA___V229*/ meltfptr[228]) { #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___V229*/ meltfptr[228] = (melt_ptr_t) meltsy_CLASS_LOCATED; } /*endgetnamedsym CLASS_LOCATED*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SEXPR*/ if (NULL == /*_._VALDATA___V231*/ meltfptr[230]) { #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___V231*/ meltfptr[230] = (melt_ptr_t) meltsy_CLASS_SEXPR; } /*endgetnamedsym CLASS_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:EXPAND_RESTLIST_AS_TUPLE*/ if (NULL == /*_._VALDATA___V233*/ meltfptr[232]) { #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___V233*/ meltfptr[232] = (melt_ptr_t) meltsy_EXPAND_RESTLIST_AS_TUPLE; } /*endgetnamedsym EXPAND_RESTLIST_AS_TUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:ERROR_AT*/ if (NULL == /*_._VALDATA___V235*/ meltfptr[234]) { #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___V235*/ meltfptr[234] = (melt_ptr_t) meltsy_ERROR_AT; } /*endgetnamedsym ERROR_AT*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_MAKE_SEXPR*/ if (NULL == /*_._VALDATA___V237*/ meltfptr[236]) { #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___V237*/ meltfptr[236] = (melt_ptr_t) meltsy_MELT_MAKE_SEXPR; } /*endgetnamedsym MELT_MAKE_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:HOOK_MELT_MAKE_LOCATION*/ if (NULL == /*_._VALDATA___V239*/ meltfptr[238]) { #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___V239*/ meltfptr[238] = (melt_ptr_t) meltsy_HOOK_MELT_MAKE_LOCATION; } /*endgetnamedsym HOOK_MELT_MAKE_LOCATION*/ /*^getnamedsymbol*/ /*getnamedsym:IF*/ if (NULL == /*_._VALDATA___V222*/ meltfptr[221]) { #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___V222*/ meltfptr[221] = (melt_ptr_t) meltsy_IF; } /*endgetnamedsym IF*/ /*^getnamedsymbol*/ /*getnamedsym:FLAGVAL_OUTPUT_DESCR_COMMENT*/ if (NULL == /*_._VALDATA___V224*/ meltfptr[223]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol FLAGVAL_OUTPUT_DESCR_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_FLAGVAL_OUTPUT_DESCR_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("FLAGVAL_OUTPUT_DESCR_COMMENT", (long) MELT_GET); /*_._VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) meltsy_FLAGVAL_OUTPUT_DESCR_COMMENT; } /*endgetnamedsym FLAGVAL_OUTPUT_DESCR_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:DO_OUTPUT_DESCRIPTIVE_COMMENT*/ if (NULL == /*_._VALDATA___V226*/ meltfptr[225]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DO_OUTPUT_DESCRIPTIVE_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DO_OUTPUT_DESCRIPTIVE_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("DO_OUTPUT_DESCRIPTIVE_COMMENT", (long) MELT_GET); /*_._VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) meltsy_DO_OUTPUT_DESCRIPTIVE_COMMENT; } /*endgetnamedsym DO_OUTPUT_DESCRIPTIVE_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_DEBUG_FUN*/ if (NULL == /*_._VALDATA___V245*/ meltfptr[244]) { #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___V245*/ meltfptr[244] = (melt_ptr_t) meltsy_MELT_DEBUG_FUN; } /*endgetnamedsym MELT_DEBUG_FUN*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_CONSTANT_INTEGER*/ if (NULL == /*_._VALDATA___V247*/ meltfptr[246]) { #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___V247*/ meltfptr[246] = (melt_ptr_t) meltsy_DISCR_CONSTANT_INTEGER; } /*endgetnamedsym DISCR_CONSTANT_INTEGER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ if (NULL == /*_._VALDATA___V252*/ meltfptr[251]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NORMAL_MODULE_VARIABLE_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NORMAL_MODULE_VARIABLE_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NORMAL_MODULE_VARIABLE_BINDING", (long) MELT_GET); /*_._VALDATA___V252*/ meltfptr[251] = (melt_ptr_t) meltsy_CLASS_NORMAL_MODULE_VARIABLE_BINDING; } /*endgetnamedsym CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_BINDING*/ if (NULL == /*_._VALDATA___V254*/ meltfptr[253]) { #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___V254*/ meltfptr[253] = (melt_ptr_t) meltsy_CLASS_ANY_BINDING; } /*endgetnamedsym CLASS_ANY_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLONED_SYMBOL*/ if (NULL == /*_._VALDATA___V256*/ meltfptr[255]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CLONED_SYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CLONED_SYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CLONED_SYMBOL", (long) MELT_GET); /*_._VALDATA___V256*/ meltfptr[255] = (melt_ptr_t) meltsy_CLASS_CLONED_SYMBOL; } /*endgetnamedsym CLASS_CLONED_SYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SYMBOL*/ if (NULL == /*_._VALDATA___V258*/ meltfptr[257]) { #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___V258*/ meltfptr[257] = (melt_ptr_t) meltsy_CLASS_SYMBOL; } /*endgetnamedsym CLASS_SYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_INITIALROUTINEOBJ*/ if (NULL == /*_._VALDATA___V263*/ meltfptr[262]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_INITIALROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INITIALROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INITIALROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V263*/ meltfptr[262] = (melt_ptr_t) meltsy_CLASS_INITIALROUTINEOBJ; } /*endgetnamedsym CLASS_INITIALROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:STRING4OUT*/ if (NULL == /*_._VALDATA___V265*/ meltfptr[264]) { #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___V265*/ meltfptr[264] = (melt_ptr_t) meltsy_STRING4OUT; } /*endgetnamedsym STRING4OUT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_VERBATIM_STRING*/ if (NULL == /*_._VALDATA___V267*/ meltfptr[266]) { #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___V267*/ meltfptr[266] = (melt_ptr_t) meltsy_DISCR_VERBATIM_STRING; } /*endgetnamedsym DISCR_VERBATIM_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MODULE_CONTEXT*/ if (NULL == /*_._VALDATA___V269*/ meltfptr[268]) { #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___V269*/ meltfptr[268] = (melt_ptr_t) meltsy_CLASS_ANY_MODULE_CONTEXT; } /*endgetnamedsym CLASS_ANY_MODULE_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:INSTALL_METHOD*/ if (NULL == /*_._VALDATA___V273*/ meltfptr[272]) { #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___V273*/ meltfptr[272] = (melt_ptr_t) meltsy_INSTALL_METHOD; } /*endgetnamedsym INSTALL_METHOD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ROOT*/ if (NULL == /*_._VALDATA___V275*/ meltfptr[274]) { #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___V275*/ meltfptr[274] = (melt_ptr_t) meltsy_CLASS_ROOT; } /*endgetnamedsym CLASS_ROOT*/ /*^getnamedsymbol*/ /*getnamedsym:OUTPUT_C_DECLINIT*/ if (NULL == /*_._VALDATA___V277*/ meltfptr[276]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OUTPUT_C_DECLINIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OUTPUT_C_DECLINIT = melthookproc_HOOK_NAMED_SYMBOL ("OUTPUT_C_DECLINIT", (long) MELT_GET); /*_._VALDATA___V277*/ meltfptr[276] = (melt_ptr_t) meltsy_OUTPUT_C_DECLINIT; } /*endgetnamedsym OUTPUT_C_DECLINIT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITELEM*/ if (NULL == /*_._VALDATA___V281*/ meltfptr[280]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITELEM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITELEM = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITELEM", (long) MELT_GET); /*_._VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) meltsy_CLASS_OBJINITELEM; } /*endgetnamedsym CLASS_OBJINITELEM*/ /*^getnamedsymbol*/ /*getnamedsym:OUTPUT_C_CODE*/ if (NULL == /*_._VALDATA___V283*/ meltfptr[282]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OUTPUT_C_CODE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OUTPUT_C_CODE = melthookproc_HOOK_NAMED_SYMBOL ("OUTPUT_C_CODE", (long) MELT_GET); /*_._VALDATA___V283*/ meltfptr[282] = (melt_ptr_t) meltsy_OUTPUT_C_CODE; } /*endgetnamedsym OUTPUT_C_CODE*/ /*^getnamedsymbol*/ /*getnamedsym:OUTPUT_C_INITIAL_FILL*/ if (NULL == /*_._VALDATA___V287*/ meltfptr[286]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OUTPUT_C_INITIAL_FILL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OUTPUT_C_INITIAL_FILL = melthookproc_HOOK_NAMED_SYMBOL ("OUTPUT_C_INITIAL_FILL", (long) MELT_GET); /*_._VALDATA___V287*/ meltfptr[286] = (melt_ptr_t) meltsy_OUTPUT_C_INITIAL_FILL; } /*endgetnamedsym OUTPUT_C_INITIAL_FILL*/ /*^getnamedsymbol*/ /*getnamedsym:OUTPUT_C_INITIAL_PREDEF*/ if (NULL == /*_._VALDATA___V291*/ meltfptr[290]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OUTPUT_C_INITIAL_PREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OUTPUT_C_INITIAL_PREDEF = melthookproc_HOOK_NAMED_SYMBOL ("OUTPUT_C_INITIAL_PREDEF", (long) MELT_GET); /*_._VALDATA___V291*/ meltfptr[290] = (melt_ptr_t) meltsy_OUTPUT_C_INITIAL_PREDEF; } /*endgetnamedsym OUTPUT_C_INITIAL_PREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPREDEF*/ if (NULL == /*_._VALDATA___V297*/ meltfptr[296]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPREDEF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPREDEF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPREDEF", (long) MELT_GET); /*_._VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) meltsy_CLASS_OBJPREDEF; } /*endgetnamedsym CLASS_OBJPREDEF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJNIL*/ if (NULL == /*_._VALDATA___V301*/ meltfptr[300]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJNIL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJNIL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJNIL", (long) MELT_GET); /*_._VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) meltsy_CLASS_OBJNIL; } /*endgetnamedsym CLASS_OBJNIL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJEXPANDPUREVAL*/ if (NULL == /*_._VALDATA___V311*/ meltfptr[310]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJEXPANDPUREVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJEXPANDPUREVAL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJEXPANDPUREVAL", (long) MELT_GET); /*_._VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) meltsy_CLASS_OBJEXPANDPUREVAL; } /*endgetnamedsym CLASS_OBJEXPANDPUREVAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJVALUE*/ if (NULL == /*_._VALDATA___V313*/ meltfptr[312]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJVALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJVALUE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJVALUE", (long) MELT_GET); /*_._VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) meltsy_CLASS_OBJVALUE; } /*endgetnamedsym CLASS_OBJVALUE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CTYPE*/ if (NULL == /*_._VALDATA___V315*/ meltfptr[314]) { #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___V315*/ meltfptr[314] = (melt_ptr_t) meltsy_CLASS_CTYPE; } /*endgetnamedsym CLASS_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VOID*/ if (NULL == /*_._VALDATA___V317*/ meltfptr[316]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CTYPE_VOID without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTYPE_VOID = melthookproc_HOOK_NAMED_SYMBOL ("CTYPE_VOID", (long) MELT_GET); /*_._VALDATA___V317*/ meltfptr[316] = (melt_ptr_t) meltsy_CTYPE_VOID; } /*endgetnamedsym CTYPE_VOID*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJHOOKNTH*/ if (NULL == /*_._VALDATA___V321*/ meltfptr[320]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJHOOKNTH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJHOOKNTH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJHOOKNTH", (long) MELT_GET); /*_._VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) meltsy_CLASS_OBJHOOKNTH; } /*endgetnamedsym CLASS_OBJHOOKNTH*/ /*^getnamedsymbol*/ /*getnamedsym:CTYPE_VALUE*/ if (NULL == /*_._VALDATA___V323*/ meltfptr[322]) { #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___V323*/ meltfptr[322] = (melt_ptr_t) meltsy_CTYPE_VALUE; } /*endgetnamedsym CTYPE_VALUE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJLOCV*/ if (NULL == /*_._VALDATA___V325*/ meltfptr[324]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJLOCV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJLOCV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJLOCV", (long) MELT_GET); /*_._VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) meltsy_CLASS_OBJLOCV; } /*endgetnamedsym CLASS_OBJLOCV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITOBJECT*/ if (NULL == /*_._VALDATA___V329*/ meltfptr[328]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITOBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITOBJECT", (long) MELT_GET); /*_._VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) meltsy_CLASS_OBJINITOBJECT; } /*endgetnamedsym CLASS_OBJINITOBJECT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_DATAINSTANCE*/ if (NULL == /*_._VALDATA___V333*/ meltfptr[332]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_DATAINSTANCE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_DATAINSTANCE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_DATAINSTANCE", (long) MELT_GET); /*_._VALDATA___V333*/ meltfptr[332] = (melt_ptr_t) meltsy_CLASS_NREP_DATAINSTANCE; } /*endgetnamedsym CLASS_NREP_DATAINSTANCE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CLASS*/ if (NULL == /*_._VALDATA___V335*/ meltfptr[334]) { #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___V335*/ meltfptr[334] = (melt_ptr_t) meltsy_CLASS_CLASS; } /*endgetnamedsym CLASS_CLASS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITUNIQUEOBJECT*/ if (NULL == /*_._VALDATA___V337*/ meltfptr[336]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITUNIQUEOBJECT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITUNIQUEOBJECT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITUNIQUEOBJECT", (long) MELT_GET); /*_._VALDATA___V337*/ meltfptr[336] = (melt_ptr_t) meltsy_CLASS_OBJINITUNIQUEOBJECT; } /*endgetnamedsym CLASS_OBJINITUNIQUEOBJECT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_NIL*/ if (NULL == /*_._VALDATA___V341*/ meltfptr[340]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_NIL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_NIL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_NIL", (long) MELT_GET); /*_._VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) meltsy_CLASS_NREP_NIL; } /*endgetnamedsym CLASS_NREP_NIL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITHOOK*/ if (NULL == /*_._VALDATA___V345*/ meltfptr[344]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITHOOK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITHOOK", (long) MELT_GET); /*_._VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) meltsy_CLASS_OBJINITHOOK; } /*endgetnamedsym CLASS_OBJINITHOOK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP*/ if (NULL == /*_._VALDATA___V347*/ meltfptr[346]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP", (long) MELT_GET); /*_._VALDATA___V347*/ meltfptr[346] = (melt_ptr_t) meltsy_CLASS_NREP; } /*endgetnamedsym CLASS_NREP*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITMULTIPLE*/ if (NULL == /*_._VALDATA___V351*/ meltfptr[350]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITMULTIPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITMULTIPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITMULTIPLE", (long) MELT_GET); /*_._VALDATA___V351*/ meltfptr[350] = (melt_ptr_t) meltsy_CLASS_OBJINITMULTIPLE; } /*endgetnamedsym CLASS_OBJINITMULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITCLOSURE*/ if (NULL == /*_._VALDATA___V357*/ meltfptr[356]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITCLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITCLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITCLOSURE", (long) MELT_GET); /*_._VALDATA___V357*/ meltfptr[356] = (melt_ptr_t) meltsy_CLASS_OBJINITCLOSURE; } /*endgetnamedsym CLASS_OBJINITCLOSURE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITROUTINE*/ if (NULL == /*_._VALDATA___V363*/ meltfptr[362]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITROUTINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITROUTINE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITROUTINE", (long) MELT_GET); /*_._VALDATA___V363*/ meltfptr[362] = (melt_ptr_t) meltsy_CLASS_OBJINITROUTINE; } /*endgetnamedsym CLASS_OBJINITROUTINE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_DATAROUTINE*/ if (NULL == /*_._VALDATA___V367*/ meltfptr[366]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_DATAROUTINE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_DATAROUTINE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_DATAROUTINE", (long) MELT_GET); /*_._VALDATA___V367*/ meltfptr[366] = (melt_ptr_t) meltsy_CLASS_NREP_DATAROUTINE; } /*endgetnamedsym CLASS_NREP_DATAROUTINE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_ROUTPROC*/ if (NULL == /*_._VALDATA___V369*/ meltfptr[368]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_ROUTPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_ROUTPROC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_ROUTPROC", (long) MELT_GET); /*_._VALDATA___V369*/ meltfptr[368] = (melt_ptr_t) meltsy_CLASS_NREP_ROUTPROC; } /*endgetnamedsym CLASS_NREP_ROUTPROC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_CLOSPROC*/ if (NULL == /*_._VALDATA___V375*/ meltfptr[374]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_CLOSPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_CLOSPROC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_CLOSPROC", (long) MELT_GET); /*_._VALDATA___V375*/ meltfptr[374] = (melt_ptr_t) meltsy_CLASS_NREP_CLOSPROC; } /*endgetnamedsym CLASS_NREP_CLOSPROC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITSTRING*/ if (NULL == /*_._VALDATA___V379*/ meltfptr[378]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITSTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITSTRING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITSTRING", (long) MELT_GET); /*_._VALDATA___V379*/ meltfptr[378] = (melt_ptr_t) meltsy_CLASS_OBJINITSTRING; } /*endgetnamedsym CLASS_OBJINITSTRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITBOXINTEGER*/ if (NULL == /*_._VALDATA___V385*/ meltfptr[384]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITBOXINTEGER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITBOXINTEGER = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITBOXINTEGER", (long) MELT_GET); /*_._VALDATA___V385*/ meltfptr[384] = (melt_ptr_t) meltsy_CLASS_OBJINITBOXINTEGER; } /*endgetnamedsym CLASS_OBJINITBOXINTEGER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITPAIR*/ if (NULL == /*_._VALDATA___V391*/ meltfptr[390]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITPAIR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITPAIR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITPAIR", (long) MELT_GET); /*_._VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) meltsy_CLASS_OBJINITPAIR; } /*endgetnamedsym CLASS_OBJINITPAIR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINITLIST*/ if (NULL == /*_._VALDATA___V397*/ meltfptr[396]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINITLIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINITLIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINITLIST", (long) MELT_GET); /*_._VALDATA___V397*/ meltfptr[396] = (melt_ptr_t) meltsy_CLASS_OBJINITLIST; } /*endgetnamedsym CLASS_OBJINITLIST*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_ANY_RECEIVER*/ if (NULL == /*_._VALDATA___V403*/ meltfptr[402]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_ANY_RECEIVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_ANY_RECEIVER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_ANY_RECEIVER", (long) MELT_GET); /*_._VALDATA___V403*/ meltfptr[402] = (melt_ptr_t) meltsy_DISCR_ANY_RECEIVER; } /*endgetnamedsym DISCR_ANY_RECEIVER*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_NULL_RECEIVER*/ if (NULL == /*_._VALDATA___V407*/ meltfptr[406]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR_NULL_RECEIVER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR_NULL_RECEIVER = melthookproc_HOOK_NAMED_SYMBOL ("DISCR_NULL_RECEIVER", (long) MELT_GET); /*_._VALDATA___V407*/ meltfptr[406] = (melt_ptr_t) meltsy_DISCR_NULL_RECEIVER; } /*endgetnamedsym DISCR_NULL_RECEIVER*/ /*^getnamedsymbol*/ /*getnamedsym:DISPLAY_DEBUG_MESSAGE*/ if (NULL == /*_._VALDATA___V411*/ meltfptr[410]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISPLAY_DEBUG_MESSAGE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISPLAY_DEBUG_MESSAGE = melthookproc_HOOK_NAMED_SYMBOL ("DISPLAY_DEBUG_MESSAGE", (long) MELT_GET); /*_._VALDATA___V411*/ meltfptr[410] = (melt_ptr_t) meltsy_DISPLAY_DEBUG_MESSAGE; } /*endgetnamedsym DISPLAY_DEBUG_MESSAGE*/ /*^getnamedsymbol*/ /*getnamedsym:PREVLOC_CONTAINER*/ if (NULL == /*_._VALDATA___V413*/ meltfptr[412]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PREVLOC_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PREVLOC_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("PREVLOC_CONTAINER", (long) MELT_GET); /*_._VALDATA___V413*/ meltfptr[412] = (melt_ptr_t) meltsy_PREVLOC_CONTAINER; } /*endgetnamedsym PREVLOC_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:PREVIMPLBUF_CONTAINER*/ if (NULL == /*_._VALDATA___V415*/ meltfptr[414]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PREVIMPLBUF_CONTAINER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PREVIMPLBUF_CONTAINER = melthookproc_HOOK_NAMED_SYMBOL ("PREVIMPLBUF_CONTAINER", (long) MELT_GET); /*_._VALDATA___V415*/ meltfptr[414] = (melt_ptr_t) meltsy_PREVIMPLBUF_CONTAINER; } /*endgetnamedsym PREVIMPLBUF_CONTAINER*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_INTEGER*/ if (NULL == /*_._VALDATA___V419*/ meltfptr[418]) { #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___V419*/ meltfptr[418] = (melt_ptr_t) meltsy_DISCR_INTEGER; } /*endgetnamedsym DISCR_INTEGER*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRING*/ if (NULL == /*_._VALDATA___V421*/ meltfptr[420]) { #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___V421*/ meltfptr[420] = (melt_ptr_t) meltsy_DISCR_STRING; } /*endgetnamedsym DISCR_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_INITIAL_EXTENSION_ROUTINEOBJ*/ if (NULL == /*_._VALDATA___V425*/ meltfptr[424]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_INITIAL_EXTENSION_ROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INITIAL_EXTENSION_ROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INITIAL_EXTENSION_ROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V425*/ meltfptr[424] = (melt_ptr_t) meltsy_CLASS_INITIAL_EXTENSION_ROUTINEOBJ; } /*endgetnamedsym CLASS_INITIAL_EXTENSION_ROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CTYPE_GTY*/ if (NULL == /*_._VALDATA___V427*/ meltfptr[426]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_CTYPE_GTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_CTYPE_GTY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_CTYPE_GTY", (long) MELT_GET); /*_._VALDATA___V427*/ meltfptr[426] = (melt_ptr_t) meltsy_CLASS_CTYPE_GTY; } /*endgetnamedsym CLASS_CTYPE_GTY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PROCROUTINEOBJ*/ if (NULL == /*_._VALDATA___V429*/ meltfptr[428]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PROCROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PROCROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PROCROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V429*/ meltfptr[428] = (melt_ptr_t) meltsy_CLASS_PROCROUTINEOBJ; } /*endgetnamedsym CLASS_PROCROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_HOOKROUTINEOBJ*/ if (NULL == /*_._VALDATA___V431*/ meltfptr[430]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_HOOKROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_HOOKROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_HOOKROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V431*/ meltfptr[430] = (melt_ptr_t) meltsy_CLASS_HOOKROUTINEOBJ; } /*endgetnamedsym CLASS_HOOKROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ROUTINEOBJ*/ if (NULL == /*_._VALDATA___V435*/ meltfptr[434]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_ROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_ROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_ROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V435*/ meltfptr[434] = (melt_ptr_t) meltsy_CLASS_ROUTINEOBJ; } /*endgetnamedsym CLASS_ROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:VARIADIC_INDEX_IDSTR*/ if (NULL == /*_._VALDATA___V440*/ meltfptr[439]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VARIADIC_INDEX_IDSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC_INDEX_IDSTR = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC_INDEX_IDSTR", (long) MELT_GET); /*_._VALDATA___V440*/ meltfptr[439] = (melt_ptr_t) meltsy_VARIADIC_INDEX_IDSTR; } /*endgetnamedsym VARIADIC_INDEX_IDSTR*/ /*^getnamedsymbol*/ /*getnamedsym:VARIADIC_LENGTH_IDSTR*/ if (NULL == /*_._VALDATA___V442*/ meltfptr[441]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol VARIADIC_LENGTH_IDSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_VARIADIC_LENGTH_IDSTR = melthookproc_HOOK_NAMED_SYMBOL ("VARIADIC_LENGTH_IDSTR", (long) MELT_GET); /*_._VALDATA___V442*/ meltfptr[441] = (melt_ptr_t) meltsy_VARIADIC_LENGTH_IDSTR; } /*endgetnamedsym VARIADIC_LENGTH_IDSTR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUREVALUE*/ if (NULL == /*_._VALDATA___V444*/ meltfptr[443]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUREVALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUREVALUE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUREVALUE", (long) MELT_GET); /*_._VALDATA___V444*/ meltfptr[443] = (melt_ptr_t) meltsy_CLASS_OBJPUREVALUE; } /*endgetnamedsym CLASS_OBJPUREVALUE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_INITIAL_MODULE_ROUTINEOBJ*/ if (NULL == /*_._VALDATA___V455*/ meltfptr[454]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_INITIAL_MODULE_ROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_INITIAL_MODULE_ROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_INITIAL_MODULE_ROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V455*/ meltfptr[454] = (melt_ptr_t) meltsy_CLASS_INITIAL_MODULE_ROUTINEOBJ; } /*endgetnamedsym CLASS_INITIAL_MODULE_ROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:WARNING_AT*/ if (NULL == /*_._VALDATA___V457*/ meltfptr[456]) { #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___V457*/ meltfptr[456] = (melt_ptr_t) meltsy_WARNING_AT; } /*endgetnamedsym WARNING_AT*/ /*^getnamedsymbol*/ /*getnamedsym:INFORM_AT*/ if (NULL == /*_._VALDATA___V459*/ meltfptr[458]) { #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___V459*/ meltfptr[458] = (melt_ptr_t) meltsy_INFORM_AT; } /*endgetnamedsym INFORM_AT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_LIST*/ if (NULL == /*_._VALDATA___V461*/ meltfptr[460]) { #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___V461*/ meltfptr[460] = (melt_ptr_t) meltsy_DISCR_LIST; } /*endgetnamedsym DISCR_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:LIST_TO_MULTIPLE*/ if (NULL == /*_._VALDATA___V463*/ meltfptr[462]) { #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___V463*/ meltfptr[462] = (melt_ptr_t) meltsy_LIST_TO_MULTIPLE; } /*endgetnamedsym LIST_TO_MULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MULTIPLE*/ if (NULL == /*_._VALDATA___V465*/ meltfptr[464]) { #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___V465*/ meltfptr[464] = (melt_ptr_t) meltsy_DISCR_MULTIPLE; } /*endgetnamedsym DISCR_MULTIPLE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_STRBUF*/ if (NULL == /*_._VALDATA___V467*/ meltfptr[466]) { #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___V467*/ meltfptr[466] = (melt_ptr_t) meltsy_DISCR_STRBUF; } /*endgetnamedsym DISCR_STRBUF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINSTR*/ if (NULL == /*_._VALDATA___V469*/ meltfptr[468]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINSTR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINSTR", (long) MELT_GET); /*_._VALDATA___V469*/ meltfptr[468] = (melt_ptr_t) meltsy_CLASS_OBJINSTR; } /*endgetnamedsym CLASS_OBJINSTR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_HOOKPROC*/ if (NULL == /*_._VALDATA___V473*/ meltfptr[472]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_HOOKPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_HOOKPROC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_HOOKPROC", (long) MELT_GET); /*_._VALDATA___V473*/ meltfptr[472] = (melt_ptr_t) meltsy_CLASS_NREP_HOOKPROC; } /*endgetnamedsym CLASS_NREP_HOOKPROC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCFORMAL*/ if (NULL == /*_._VALDATA___V475*/ meltfptr[474]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCFORMAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCFORMAL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCFORMAL", (long) MELT_GET); /*_._VALDATA___V475*/ meltfptr[474] = (melt_ptr_t) meltsy_CLASS_OBJCFORMAL; } /*endgetnamedsym CLASS_OBJCFORMAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGETARG*/ if (NULL == /*_._VALDATA___V484*/ meltfptr[483]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGETARG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGETARG = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGETARG", (long) MELT_GET); /*_._VALDATA___V484*/ meltfptr[483] = (melt_ptr_t) meltsy_CLASS_OBJGETARG; } /*endgetnamedsym CLASS_OBJGETARG*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FORMAL_BINDING*/ if (NULL == /*_._VALDATA___V486*/ meltfptr[485]) { #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___V486*/ meltfptr[485] = (melt_ptr_t) meltsy_CLASS_FORMAL_BINDING; } /*endgetnamedsym CLASS_FORMAL_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGETARGREST*/ if (NULL == /*_._VALDATA___V490*/ meltfptr[489]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGETARGREST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGETARGREST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGETARGREST", (long) MELT_GET); /*_._VALDATA___V490*/ meltfptr[489] = (melt_ptr_t) meltsy_CLASS_OBJGETARGREST; } /*endgetnamedsym CLASS_OBJGETARGREST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJFETCHMODVAR*/ if (NULL == /*_._VALDATA___V496*/ meltfptr[495]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJFETCHMODVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJFETCHMODVAR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJFETCHMODVAR", (long) MELT_GET); /*_._VALDATA___V496*/ meltfptr[495] = (melt_ptr_t) meltsy_CLASS_OBJFETCHMODVAR; } /*endgetnamedsym CLASS_OBJFETCHMODVAR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTMODVAR*/ if (NULL == /*_._VALDATA___V500*/ meltfptr[499]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTMODVAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTMODVAR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTMODVAR", (long) MELT_GET); /*_._VALDATA___V500*/ meltfptr[499] = (melt_ptr_t) meltsy_CLASS_OBJPUTMODVAR; } /*endgetnamedsym CLASS_OBJPUTMODVAR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTOUTARG*/ if (NULL == /*_._VALDATA___V504*/ meltfptr[503]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTOUTARG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTOUTARG = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTOUTARG", (long) MELT_GET); /*_._VALDATA___V504*/ meltfptr[503] = (melt_ptr_t) meltsy_CLASS_OBJPUTOUTARG; } /*endgetnamedsym CLASS_OBJPUTOUTARG*/ /*^getnamedsymbol*/ /*getnamedsym:CTYPE_LONG*/ if (NULL == /*_._VALDATA___V508*/ meltfptr[507]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CTYPE_LONG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTYPE_LONG = melthookproc_HOOK_NAMED_SYMBOL ("CTYPE_LONG", (long) MELT_GET); /*_._VALDATA___V508*/ meltfptr[507] = (melt_ptr_t) meltsy_CTYPE_LONG; } /*endgetnamedsym CTYPE_LONG*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCLOCCV*/ if (NULL == /*_._VALDATA___V512*/ meltfptr[511]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCLOCCV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCLOCCV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCLOCCV", (long) MELT_GET); /*_._VALDATA___V512*/ meltfptr[511] = (melt_ptr_t) meltsy_CLASS_OBJCLOCCV; } /*endgetnamedsym CLASS_OBJCLOCCV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCLOHOOKV*/ if (NULL == /*_._VALDATA___V516*/ meltfptr[515]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCLOHOOKV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCLOHOOKV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCLOHOOKV", (long) MELT_GET); /*_._VALDATA___V516*/ meltfptr[515] = (melt_ptr_t) meltsy_CLASS_OBJCLOHOOKV; } /*endgetnamedsym CLASS_OBJCLOHOOKV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCONSTV*/ if (NULL == /*_._VALDATA___V520*/ meltfptr[519]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCONSTV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCONSTV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCONSTV", (long) MELT_GET); /*_._VALDATA___V520*/ meltfptr[519] = (melt_ptr_t) meltsy_CLASS_OBJCONSTV; } /*endgetnamedsym CLASS_OBJCONSTV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPLAINBLOCK*/ if (NULL == /*_._VALDATA___V524*/ meltfptr[523]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPLAINBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPLAINBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPLAINBLOCK", (long) MELT_GET); /*_._VALDATA___V524*/ meltfptr[523] = (melt_ptr_t) meltsy_CLASS_OBJPLAINBLOCK; } /*endgetnamedsym CLASS_OBJPLAINBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCHECKSIGNAL*/ if (NULL == /*_._VALDATA___V528*/ meltfptr[527]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCHECKSIGNAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCHECKSIGNAL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCHECKSIGNAL", (long) MELT_GET); /*_._VALDATA___V528*/ meltfptr[527] = (melt_ptr_t) meltsy_CLASS_OBJCHECKSIGNAL; } /*endgetnamedsym CLASS_OBJCHECKSIGNAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJANYBLOCK*/ if (NULL == /*_._VALDATA___V532*/ meltfptr[531]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJANYBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJANYBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJANYBLOCK", (long) MELT_GET); /*_._VALDATA___V532*/ meltfptr[531] = (melt_ptr_t) meltsy_CLASS_OBJANYBLOCK; } /*endgetnamedsym CLASS_OBJANYBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJFLAG*/ if (NULL == /*_._VALDATA___V536*/ meltfptr[535]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJFLAG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJFLAG = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJFLAG", (long) MELT_GET); /*_._VALDATA___V536*/ meltfptr[535] = (melt_ptr_t) meltsy_CLASS_OBJFLAG; } /*endgetnamedsym CLASS_OBJFLAG*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJMATCHFLAGBLOCK*/ if (NULL == /*_._VALDATA___V540*/ meltfptr[539]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJMATCHFLAGBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJMATCHFLAGBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJMATCHFLAGBLOCK", (long) MELT_GET); /*_._VALDATA___V540*/ meltfptr[539] = (melt_ptr_t) meltsy_CLASS_OBJMATCHFLAGBLOCK; } /*endgetnamedsym CLASS_OBJMATCHFLAGBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJMULTIALLOCBLOCK*/ if (NULL == /*_._VALDATA___V544*/ meltfptr[543]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJMULTIALLOCBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJMULTIALLOCBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJMULTIALLOCBLOCK", (long) MELT_GET); /*_._VALDATA___V544*/ meltfptr[543] = (melt_ptr_t) meltsy_CLASS_OBJMULTIALLOCBLOCK; } /*endgetnamedsym CLASS_OBJMULTIALLOCBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCITERBLOCK*/ if (NULL == /*_._VALDATA___V548*/ meltfptr[547]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCITERBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCITERBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCITERBLOCK", (long) MELT_GET); /*_._VALDATA___V548*/ meltfptr[547] = (melt_ptr_t) meltsy_CLASS_OBJCITERBLOCK; } /*endgetnamedsym CLASS_OBJCITERBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CITERATOR*/ if (NULL == /*_._VALDATA___V550*/ meltfptr[549]) { #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___V550*/ meltfptr[549] = (melt_ptr_t) meltsy_CLASS_CITERATOR; } /*endgetnamedsym CLASS_CITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCOMMENTINSTR*/ if (NULL == /*_._VALDATA___V554*/ meltfptr[553]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCOMMENTINSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCOMMENTINSTR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCOMMENTINSTR", (long) MELT_GET); /*_._VALDATA___V554*/ meltfptr[553] = (melt_ptr_t) meltsy_CLASS_OBJCOMMENTINSTR; } /*endgetnamedsym CLASS_OBJCOMMENTINSTR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCOMMENTEDBLOCK*/ if (NULL == /*_._VALDATA___V558*/ meltfptr[557]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCOMMENTEDBLOCK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCOMMENTEDBLOCK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCOMMENTEDBLOCK", (long) MELT_GET); /*_._VALDATA___V558*/ meltfptr[557] = (melt_ptr_t) meltsy_CLASS_OBJCOMMENTEDBLOCK; } /*endgetnamedsym CLASS_OBJCOMMENTEDBLOCK*/ /*^getnamedsymbol*/ /*getnamedsym:LABELCOUNTREF*/ if (NULL == /*_._VALDATA___V560*/ meltfptr[559]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LABELCOUNTREF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LABELCOUNTREF = melthookproc_HOOK_NAMED_SYMBOL ("LABELCOUNTREF", (long) MELT_GET); /*_._VALDATA___V560*/ meltfptr[559] = (melt_ptr_t) meltsy_LABELCOUNTREF; } /*endgetnamedsym LABELCOUNTREF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJLABELINSTR*/ if (NULL == /*_._VALDATA___V566*/ meltfptr[565]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJLABELINSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJLABELINSTR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJLABELINSTR", (long) MELT_GET); /*_._VALDATA___V566*/ meltfptr[565] = (melt_ptr_t) meltsy_CLASS_OBJLABELINSTR; } /*endgetnamedsym CLASS_OBJLABELINSTR*/ /*^getnamedsymbol*/ /*getnamedsym:SET_CONTENT*/ if (NULL == /*_._VALDATA___V568*/ meltfptr[567]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SET_CONTENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SET_CONTENT = melthookproc_HOOK_NAMED_SYMBOL ("SET_CONTENT", (long) MELT_GET); /*_._VALDATA___V568*/ meltfptr[567] = (melt_ptr_t) meltsy_SET_CONTENT; } /*endgetnamedsym SET_CONTENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGOTOINSTR*/ if (NULL == /*_._VALDATA___V572*/ meltfptr[571]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGOTOINSTR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGOTOINSTR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGOTOINSTR", (long) MELT_GET); /*_._VALDATA___V572*/ meltfptr[571] = (melt_ptr_t) meltsy_CLASS_OBJGOTOINSTR; } /*endgetnamedsym CLASS_OBJGOTOINSTR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJLOOP*/ if (NULL == /*_._VALDATA___V578*/ meltfptr[577]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJLOOP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJLOOP = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJLOOP", (long) MELT_GET); /*_._VALDATA___V578*/ meltfptr[577] = (melt_ptr_t) meltsy_CLASS_OBJLOOP; } /*endgetnamedsym CLASS_OBJLOOP*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJEXIT*/ if (NULL == /*_._VALDATA___V582*/ meltfptr[581]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJEXIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJEXIT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJEXIT", (long) MELT_GET); /*_._VALDATA___V582*/ meltfptr[581] = (melt_ptr_t) meltsy_CLASS_OBJEXIT; } /*endgetnamedsym CLASS_OBJEXIT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJAGAIN*/ if (NULL == /*_._VALDATA___V586*/ meltfptr[585]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJAGAIN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJAGAIN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJAGAIN", (long) MELT_GET); /*_._VALDATA___V586*/ meltfptr[585] = (melt_ptr_t) meltsy_CLASS_OBJAGAIN; } /*endgetnamedsym CLASS_OBJAGAIN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCOMPUTE*/ if (NULL == /*_._VALDATA___V590*/ meltfptr[589]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCOMPUTE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCOMPUTE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCOMPUTE", (long) MELT_GET); /*_._VALDATA___V590*/ meltfptr[589] = (melt_ptr_t) meltsy_CLASS_OBJCOMPUTE; } /*endgetnamedsym CLASS_OBJCOMPUTE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCOND*/ if (NULL == /*_._VALDATA___V594*/ meltfptr[593]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCOND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCOND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCOND", (long) MELT_GET); /*_._VALDATA___V594*/ meltfptr[593] = (melt_ptr_t) meltsy_CLASS_OBJCOND; } /*endgetnamedsym CLASS_OBJCOND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCPPIF*/ if (NULL == /*_._VALDATA___V598*/ meltfptr[597]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCPPIF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCPPIF = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCPPIF", (long) MELT_GET); /*_._VALDATA___V598*/ meltfptr[597] = (melt_ptr_t) meltsy_CLASS_OBJCPPIF; } /*endgetnamedsym CLASS_OBJCPPIF*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINTERNSYMBOL*/ if (NULL == /*_._VALDATA___V602*/ meltfptr[601]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINTERNSYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINTERNSYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINTERNSYMBOL", (long) MELT_GET); /*_._VALDATA___V602*/ meltfptr[601] = (melt_ptr_t) meltsy_CLASS_OBJINTERNSYMBOL; } /*endgetnamedsym CLASS_OBJINTERNSYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_DATASYMBOL*/ if (NULL == /*_._VALDATA___V604*/ meltfptr[603]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_DATASYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_DATASYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_DATASYMBOL", (long) MELT_GET); /*_._VALDATA___V604*/ meltfptr[603] = (melt_ptr_t) meltsy_CLASS_NREP_DATASYMBOL; } /*endgetnamedsym CLASS_NREP_DATASYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJINTERNKEYWORD*/ if (NULL == /*_._VALDATA___V608*/ meltfptr[607]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJINTERNKEYWORD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJINTERNKEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJINTERNKEYWORD", (long) MELT_GET); /*_._VALDATA___V608*/ meltfptr[607] = (melt_ptr_t) meltsy_CLASS_OBJINTERNKEYWORD; } /*endgetnamedsym CLASS_OBJINTERNKEYWORD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_DATAKEYWORD*/ if (NULL == /*_._VALDATA___V610*/ meltfptr[609]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_DATAKEYWORD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_DATAKEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_DATAKEYWORD", (long) MELT_GET); /*_._VALDATA___V610*/ meltfptr[609] = (melt_ptr_t) meltsy_CLASS_NREP_DATAKEYWORD; } /*endgetnamedsym CLASS_NREP_DATAKEYWORD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGETNAMEDSYMBOL*/ if (NULL == /*_._VALDATA___V614*/ meltfptr[613]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGETNAMEDSYMBOL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGETNAMEDSYMBOL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGETNAMEDSYMBOL", (long) MELT_GET); /*_._VALDATA___V614*/ meltfptr[613] = (melt_ptr_t) meltsy_CLASS_OBJGETNAMEDSYMBOL; } /*endgetnamedsym CLASS_OBJGETNAMEDSYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGETNAMEDKEYWORD*/ if (NULL == /*_._VALDATA___V618*/ meltfptr[617]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGETNAMEDKEYWORD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGETNAMEDKEYWORD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGETNAMEDKEYWORD", (long) MELT_GET); /*_._VALDATA___V618*/ meltfptr[617] = (melt_ptr_t) meltsy_CLASS_OBJGETNAMEDKEYWORD; } /*endgetnamedsym CLASS_OBJGETNAMEDKEYWORD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJAPPLY*/ if (NULL == /*_._VALDATA___V622*/ meltfptr[621]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJAPPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJAPPLY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJAPPLY", (long) MELT_GET); /*_._VALDATA___V622*/ meltfptr[621] = (melt_ptr_t) meltsy_CLASS_OBJAPPLY; } /*endgetnamedsym CLASS_OBJAPPLY*/ /*^getnamedsymbol*/ /*getnamedsym:GET_CTYPE*/ if (NULL == /*_._VALDATA___V624*/ meltfptr[623]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GET_CTYPE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_CTYPE = melthookproc_HOOK_NAMED_SYMBOL ("GET_CTYPE", (long) MELT_GET); /*_._VALDATA___V624*/ meltfptr[623] = (melt_ptr_t) meltsy_GET_CTYPE; } /*endgetnamedsym GET_CTYPE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJMSEND*/ if (NULL == /*_._VALDATA___V628*/ meltfptr[627]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJMSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJMSEND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJMSEND", (long) MELT_GET); /*_._VALDATA___V628*/ meltfptr[627] = (melt_ptr_t) meltsy_CLASS_OBJMSEND; } /*endgetnamedsym CLASS_OBJMSEND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJMULTIAPPLY*/ if (NULL == /*_._VALDATA___V633*/ meltfptr[632]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJMULTIAPPLY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJMULTIAPPLY = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJMULTIAPPLY", (long) MELT_GET); /*_._VALDATA___V633*/ meltfptr[632] = (melt_ptr_t) meltsy_CLASS_OBJMULTIAPPLY; } /*endgetnamedsym CLASS_OBJMULTIAPPLY*/ /*^getnamedsymbol*/ /*getnamedsym:LIST_EVERY*/ if (NULL == /*_._VALDATA___V635*/ meltfptr[634]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LIST_EVERY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LIST_EVERY = melthookproc_HOOK_NAMED_SYMBOL ("LIST_EVERY", (long) MELT_GET); /*_._VALDATA___V635*/ meltfptr[634] = (melt_ptr_t) meltsy_LIST_EVERY; } /*endgetnamedsym LIST_EVERY*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJMULTIMSEND*/ if (NULL == /*_._VALDATA___V639*/ meltfptr[638]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJMULTIMSEND without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJMULTIMSEND = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJMULTIMSEND", (long) MELT_GET); /*_._VALDATA___V639*/ meltfptr[638] = (melt_ptr_t) meltsy_CLASS_OBJMULTIMSEND; } /*endgetnamedsym CLASS_OBJMULTIMSEND*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJCLEAR*/ if (NULL == /*_._VALDATA___V643*/ meltfptr[642]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJCLEAR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJCLEAR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJCLEAR", (long) MELT_GET); /*_._VALDATA___V643*/ meltfptr[642] = (melt_ptr_t) meltsy_CLASS_OBJCLEAR; } /*endgetnamedsym CLASS_OBJCLEAR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJRAWALLOCOBJ*/ if (NULL == /*_._VALDATA___V647*/ meltfptr[646]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJRAWALLOCOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJRAWALLOCOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJRAWALLOCOBJ", (long) MELT_GET); /*_._VALDATA___V647*/ meltfptr[646] = (melt_ptr_t) meltsy_CLASS_OBJRAWALLOCOBJ; } /*endgetnamedsym CLASS_OBJRAWALLOCOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJNEWCLOSURE*/ if (NULL == /*_._VALDATA___V651*/ meltfptr[650]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJNEWCLOSURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJNEWCLOSURE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJNEWCLOSURE", (long) MELT_GET); /*_._VALDATA___V651*/ meltfptr[650] = (melt_ptr_t) meltsy_CLASS_OBJNEWCLOSURE; } /*endgetnamedsym CLASS_OBJNEWCLOSURE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJTOUCH*/ if (NULL == /*_._VALDATA___V655*/ meltfptr[654]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJTOUCH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJTOUCH = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJTOUCH", (long) MELT_GET); /*_._VALDATA___V655*/ meltfptr[654] = (melt_ptr_t) meltsy_CLASS_OBJTOUCH; } /*endgetnamedsym CLASS_OBJTOUCH*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJDBGTRACEWRITEOBJ*/ if (NULL == /*_._VALDATA___V659*/ meltfptr[658]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJDBGTRACEWRITEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJDBGTRACEWRITEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJDBGTRACEWRITEOBJ", (long) MELT_GET); /*_._VALDATA___V659*/ meltfptr[658] = (melt_ptr_t) meltsy_CLASS_OBJDBGTRACEWRITEOBJ; } /*endgetnamedsym CLASS_OBJDBGTRACEWRITEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTUPLE*/ if (NULL == /*_._VALDATA___V663*/ meltfptr[662]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTUPLE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTUPLE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTUPLE", (long) MELT_GET); /*_._VALDATA___V663*/ meltfptr[662] = (melt_ptr_t) meltsy_CLASS_OBJPUTUPLE; } /*endgetnamedsym CLASS_OBJPUTUPLE*/ /*^getnamedsymbol*/ /*getnamedsym:OBJPUTPAIRHEAD_COUNTER*/ if (NULL == /*_._VALDATA___V665*/ meltfptr[664]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol OBJPUTPAIRHEAD_COUNTER without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_OBJPUTPAIRHEAD_COUNTER = melthookproc_HOOK_NAMED_SYMBOL ("OBJPUTPAIRHEAD_COUNTER", (long) MELT_GET); /*_._VALDATA___V665*/ meltfptr[664] = (melt_ptr_t) meltsy_OBJPUTPAIRHEAD_COUNTER; } /*endgetnamedsym OBJPUTPAIRHEAD_COUNTER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTPAIR*/ if (NULL == /*_._VALDATA___V671*/ meltfptr[670]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTPAIR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTPAIR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTPAIR", (long) MELT_GET); /*_._VALDATA___V671*/ meltfptr[670] = (melt_ptr_t) meltsy_CLASS_OBJPUTPAIR; } /*endgetnamedsym CLASS_OBJPUTPAIR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTPAIRHEAD*/ if (NULL == /*_._VALDATA___V673*/ meltfptr[672]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTPAIRHEAD without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTPAIRHEAD = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTPAIRHEAD", (long) MELT_GET); /*_._VALDATA___V673*/ meltfptr[672] = (melt_ptr_t) meltsy_CLASS_OBJPUTPAIRHEAD; } /*endgetnamedsym CLASS_OBJPUTPAIRHEAD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTPAIRTAIL*/ if (NULL == /*_._VALDATA___V677*/ meltfptr[676]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTPAIRTAIL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTPAIRTAIL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTPAIRTAIL", (long) MELT_GET); /*_._VALDATA___V677*/ meltfptr[676] = (melt_ptr_t) meltsy_CLASS_OBJPUTPAIRTAIL; } /*endgetnamedsym CLASS_OBJPUTPAIRTAIL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTLIST*/ if (NULL == /*_._VALDATA___V681*/ meltfptr[680]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTLIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTLIST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTLIST", (long) MELT_GET); /*_._VALDATA___V681*/ meltfptr[680] = (melt_ptr_t) meltsy_CLASS_OBJPUTLIST; } /*endgetnamedsym CLASS_OBJPUTLIST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJGETSLOT*/ if (NULL == /*_._VALDATA___V685*/ meltfptr[684]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJGETSLOT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJGETSLOT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJGETSLOT", (long) MELT_GET); /*_._VALDATA___V685*/ meltfptr[684] = (melt_ptr_t) meltsy_CLASS_OBJGETSLOT; } /*endgetnamedsym CLASS_OBJGETSLOT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIELD*/ if (NULL == /*_._VALDATA___V687*/ meltfptr[686]) { #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___V687*/ meltfptr[686] = (melt_ptr_t) meltsy_CLASS_FIELD; } /*endgetnamedsym CLASS_FIELD*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTSLOT*/ if (NULL == /*_._VALDATA___V691*/ meltfptr[690]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTSLOT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTSLOT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTSLOT", (long) MELT_GET); /*_._VALDATA___V691*/ meltfptr[690] = (melt_ptr_t) meltsy_CLASS_OBJPUTSLOT; } /*endgetnamedsym CLASS_OBJPUTSLOT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTCLOSUROUT*/ if (NULL == /*_._VALDATA___V695*/ meltfptr[694]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTCLOSUROUT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTCLOSUROUT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTCLOSUROUT", (long) MELT_GET); /*_._VALDATA___V695*/ meltfptr[694] = (melt_ptr_t) meltsy_CLASS_OBJPUTCLOSUROUT; } /*endgetnamedsym CLASS_OBJPUTCLOSUROUT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTCLOSEDV*/ if (NULL == /*_._VALDATA___V699*/ meltfptr[698]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTCLOSEDV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTCLOSEDV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTCLOSEDV", (long) MELT_GET); /*_._VALDATA___V699*/ meltfptr[698] = (melt_ptr_t) meltsy_CLASS_OBJPUTCLOSEDV; } /*endgetnamedsym CLASS_OBJPUTCLOSEDV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ if (NULL == /*_._VALDATA___V703*/ meltfptr[702]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTCLOSEDNOTNULLV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTCLOSEDNOTNULLV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTCLOSEDNOTNULLV", (long) MELT_GET); /*_._VALDATA___V703*/ meltfptr[702] = (melt_ptr_t) meltsy_CLASS_OBJPUTCLOSEDNOTNULLV; } /*endgetnamedsym CLASS_OBJPUTCLOSEDNOTNULLV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTROUTCONST*/ if (NULL == /*_._VALDATA___V707*/ meltfptr[706]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTROUTCONST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTROUTCONST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTROUTCONST", (long) MELT_GET); /*_._VALDATA___V707*/ meltfptr[706] = (melt_ptr_t) meltsy_CLASS_OBJPUTROUTCONST; } /*endgetnamedsym CLASS_OBJPUTROUTCONST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ if (NULL == /*_._VALDATA___V711*/ meltfptr[710]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTROUTCONSTNOTNULL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTROUTCONSTNOTNULL = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTROUTCONSTNOTNULL", (long) MELT_GET); /*_._VALDATA___V711*/ meltfptr[710] = (melt_ptr_t) meltsy_CLASS_OBJPUTROUTCONSTNOTNULL; } /*endgetnamedsym CLASS_OBJPUTROUTCONSTNOTNULL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTHOOKCONST*/ if (NULL == /*_._VALDATA___V715*/ meltfptr[714]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTHOOKCONST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTHOOKCONST = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTHOOKCONST", (long) MELT_GET); /*_._VALDATA___V715*/ meltfptr[714] = (melt_ptr_t) meltsy_CLASS_OBJPUTHOOKCONST; } /*endgetnamedsym CLASS_OBJPUTHOOKCONST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_BOUND_DATA*/ if (NULL == /*_._VALDATA___V717*/ meltfptr[716]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_BOUND_DATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_BOUND_DATA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_BOUND_DATA", (long) MELT_GET); /*_._VALDATA___V717*/ meltfptr[716] = (melt_ptr_t) meltsy_CLASS_NREP_BOUND_DATA; } /*endgetnamedsym CLASS_NREP_BOUND_DATA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTHOOKDATA*/ if (NULL == /*_._VALDATA___V721*/ meltfptr[720]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTHOOKDATA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTHOOKDATA = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTHOOKDATA", (long) MELT_GET); /*_._VALDATA___V721*/ meltfptr[720] = (melt_ptr_t) meltsy_CLASS_OBJPUTHOOKDATA; } /*endgetnamedsym CLASS_OBJPUTHOOKDATA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJPUTXTRARESULT*/ if (NULL == /*_._VALDATA___V725*/ meltfptr[724]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJPUTXTRARESULT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJPUTXTRARESULT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJPUTXTRARESULT", (long) MELT_GET); /*_._VALDATA___V725*/ meltfptr[724] = (melt_ptr_t) meltsy_CLASS_OBJPUTXTRARESULT; } /*endgetnamedsym CLASS_OBJPUTXTRARESULT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJEXPV*/ if (NULL == /*_._VALDATA___V729*/ meltfptr[728]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJEXPV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJEXPV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJEXPV", (long) MELT_GET); /*_._VALDATA___V729*/ meltfptr[728] = (melt_ptr_t) meltsy_CLASS_OBJEXPV; } /*endgetnamedsym CLASS_OBJEXPV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJLOCATEDEXPV*/ if (NULL == /*_._VALDATA___V733*/ meltfptr[732]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJLOCATEDEXPV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJLOCATEDEXPV = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJLOCATEDEXPV", (long) MELT_GET); /*_._VALDATA___V733*/ meltfptr[732] = (melt_ptr_t) meltsy_CLASS_OBJLOCATEDEXPV; } /*endgetnamedsym CLASS_OBJLOCATEDEXPV*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_OBJFINALRETURN*/ if (NULL == /*_._VALDATA___V743*/ meltfptr[742]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_OBJFINALRETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_OBJFINALRETURN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_OBJFINALRETURN", (long) MELT_GET); /*_._VALDATA___V743*/ meltfptr[742] = (melt_ptr_t) meltsy_CLASS_OBJFINALRETURN; } /*endgetnamedsym CLASS_OBJFINALRETURN*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_SORT*/ if (NULL == /*_._VALDATA___V747*/ meltfptr[746]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MULTIPLE_SORT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MULTIPLE_SORT = melthookproc_HOOK_NAMED_SYMBOL ("MULTIPLE_SORT", (long) MELT_GET); /*_._VALDATA___V747*/ meltfptr[746] = (melt_ptr_t) meltsy_MULTIPLE_SORT; } /*endgetnamedsym MULTIPLE_SORT*/ /*^getnamedsymbol*/ /*getnamedsym:COMPARE_NAMED_ALPHA*/ if (NULL == /*_._VALDATA___V749*/ meltfptr[748]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPARE_NAMED_ALPHA without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPARE_NAMED_ALPHA = melthookproc_HOOK_NAMED_SYMBOL ("COMPARE_NAMED_ALPHA", (long) MELT_GET); /*_._VALDATA___V749*/ meltfptr[748] = (melt_ptr_t) meltsy_COMPARE_NAMED_ALPHA; } /*endgetnamedsym COMPARE_NAMED_ALPHA*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SECONDARY_CC_FILE*/ if (NULL == /*_._VALDATA___V753*/ meltfptr[752]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SECONDARY_CC_FILE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SECONDARY_CC_FILE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SECONDARY_CC_FILE", (long) MELT_GET); /*_._VALDATA___V753*/ meltfptr[752] = (melt_ptr_t) meltsy_CLASS_SECONDARY_CC_FILE; } /*endgetnamedsym CLASS_SECONDARY_CC_FILE*/ /*^getnamedsymbol*/ /*getnamedsym:SECFIL_MODNAM*/ if (NULL == /*_._VALDATA___V767*/ meltfptr[766]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SECFIL_MODNAM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SECFIL_MODNAM = melthookproc_HOOK_NAMED_SYMBOL ("SECFIL_MODNAM", (long) MELT_GET); /*_._VALDATA___V767*/ meltfptr[766] = (melt_ptr_t) meltsy_SECFIL_MODNAM; } /*endgetnamedsym SECFIL_MODNAM*/ /*^getnamedsymbol*/ /*getnamedsym:SECFIL_PATH*/ if (NULL == /*_._VALDATA___V769*/ meltfptr[768]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SECFIL_PATH without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SECFIL_PATH = melthookproc_HOOK_NAMED_SYMBOL ("SECFIL_PATH", (long) MELT_GET); /*_._VALDATA___V769*/ meltfptr[768] = (melt_ptr_t) meltsy_SECFIL_PATH; } /*endgetnamedsym SECFIL_PATH*/ /*^getnamedsymbol*/ /*getnamedsym:SECFIL_DECLBUF*/ if (NULL == /*_._VALDATA___V771*/ meltfptr[770]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SECFIL_DECLBUF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SECFIL_DECLBUF = melthookproc_HOOK_NAMED_SYMBOL ("SECFIL_DECLBUF", (long) MELT_GET); /*_._VALDATA___V771*/ meltfptr[770] = (melt_ptr_t) meltsy_SECFIL_DECLBUF; } /*endgetnamedsym SECFIL_DECLBUF*/ /*^getnamedsymbol*/ /*getnamedsym:SECFIL_IMPLBUF*/ if (NULL == /*_._VALDATA___V773*/ meltfptr[772]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SECFIL_IMPLBUF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SECFIL_IMPLBUF = melthookproc_HOOK_NAMED_SYMBOL ("SECFIL_IMPLBUF", (long) MELT_GET); /*_._VALDATA___V773*/ meltfptr[772] = (melt_ptr_t) meltsy_SECFIL_IMPLBUF; } /*endgetnamedsym SECFIL_IMPLBUF*/ /*^getnamedsymbol*/ /*getnamedsym:GENERATED_CC_FILENAME*/ if (NULL == /*_._VALDATA___V775*/ meltfptr[774]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GENERATED_CC_FILENAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GENERATED_CC_FILENAME = melthookproc_HOOK_NAMED_SYMBOL ("GENERATED_CC_FILENAME", (long) MELT_GET); /*_._VALDATA___V775*/ meltfptr[774] = (melt_ptr_t) meltsy_GENERATED_CC_FILENAME; } /*endgetnamedsym GENERATED_CC_FILENAME*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR*/ if (NULL == /*_._VALDATA___V780*/ meltfptr[779]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DISCR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DISCR = melthookproc_HOOK_NAMED_SYMBOL ("DISCR", (long) MELT_GET); /*_._VALDATA___V780*/ meltfptr[779] = (melt_ptr_t) meltsy_DISCR; } /*endgetnamedsym DISCR*/ /*^getnamedsymbol*/ /*getnamedsym:BASE*/ if (NULL == /*_._VALDATA___V783*/ meltfptr[782]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BASE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BASE = melthookproc_HOOK_NAMED_SYMBOL ("BASE", (long) MELT_GET); /*_._VALDATA___V783*/ meltfptr[782] = (melt_ptr_t) meltsy_BASE; } /*endgetnamedsym BASE*/ /*^getnamedsymbol*/ /*getnamedsym:DIR*/ if (NULL == /*_._VALDATA___V786*/ meltfptr[785]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol DIR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_DIR = melthookproc_HOOK_NAMED_SYMBOL ("DIR", (long) MELT_GET); /*_._VALDATA___V786*/ meltfptr[785] = (melt_ptr_t) meltsy_DIR; } /*endgetnamedsym DIR*/ /*^getnamedsymbol*/ /*getnamedsym:NUM*/ if (NULL == /*_._VALDATA___V789*/ meltfptr[788]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol NUM without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NUM = melthookproc_HOOK_NAMED_SYMBOL ("NUM", (long) MELT_GET); /*_._VALDATA___V789*/ meltfptr[788] = (melt_ptr_t) meltsy_NUM; } /*endgetnamedsym NUM*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ if (NULL == /*_._VALDATA___V808*/ meltfptr[807]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_RUNNING_EXTENSION_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_RUNNING_EXTENSION_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_RUNNING_EXTENSION_MODULE_CONTEXT", (long) MELT_GET); /*_._VALDATA___V808*/ meltfptr[807] = (melt_ptr_t) meltsy_CLASS_RUNNING_EXTENSION_MODULE_CONTEXT; } /*endgetnamedsym CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:SYNTAX_TEST_GENERATOR*/ if (NULL == /*_._VALDATA___V810*/ meltfptr[809]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SYNTAX_TEST_GENERATOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SYNTAX_TEST_GENERATOR = melthookproc_HOOK_NAMED_SYMBOL ("SYNTAX_TEST_GENERATOR", (long) MELT_GET); /*_._VALDATA___V810*/ meltfptr[809] = (melt_ptr_t) meltsy_SYNTAX_TEST_GENERATOR; } /*endgetnamedsym SYNTAX_TEST_GENERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SELECTOR*/ if (NULL == /*_._VALDATA___V812*/ meltfptr[811]) { #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___V812*/ meltfptr[811] = (melt_ptr_t) meltsy_CLASS_SELECTOR; } /*endgetnamedsym CLASS_SELECTOR*/ /*^getnamedsymbol*/ /*getnamedsym:RECV*/ if (NULL == /*_._VALDATA___V814*/ meltfptr[813]) { #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___V814*/ meltfptr[813] = (melt_ptr_t) meltsy_RECV; } /*endgetnamedsym RECV*/ /*^getnamedsymbol*/ /*getnamedsym:GENDEV*/ if (NULL == /*_._VALDATA___V817*/ meltfptr[816]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GENDEV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GENDEV = melthookproc_HOOK_NAMED_SYMBOL ("GENDEV", (long) MELT_GET); /*_._VALDATA___V817*/ meltfptr[816] = (melt_ptr_t) meltsy_GENDEV; } /*endgetnamedsym GENDEV*/ /*^getnamedsymbol*/ /*getnamedsym:SBUF*/ if (NULL == /*_._VALDATA___V820*/ meltfptr[819]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol SBUF without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_SBUF = melthookproc_HOOK_NAMED_SYMBOL ("SBUF", (long) MELT_GET); /*_._VALDATA___V820*/ meltfptr[819] = (melt_ptr_t) meltsy_SBUF; } /*endgetnamedsym SBUF*/ /*^getnamedsymbol*/ /*getnamedsym:MODCTX*/ if (NULL == /*_._VALDATA___V823*/ meltfptr[822]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MODCTX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MODCTX = melthookproc_HOOK_NAMED_SYMBOL ("MODCTX", (long) MELT_GET); /*_._VALDATA___V823*/ meltfptr[822] = (melt_ptr_t) meltsy_MODCTX; } /*endgetnamedsym MODCTX*/ /*^getnamedsymbol*/ /*getnamedsym:IX*/ if (NULL == /*_._VALDATA___V826*/ meltfptr[825]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol IX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_IX = melthookproc_HOOK_NAMED_SYMBOL ("IX", (long) MELT_GET); /*_._VALDATA___V826*/ meltfptr[825] = (melt_ptr_t) meltsy_IX; } /*endgetnamedsym IX*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_GENERATOR_DEVICE*/ if (NULL == /*_._VALDATA___V834*/ meltfptr[833]) { #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___V834*/ meltfptr[833] = (melt_ptr_t) meltsy_CLASS_SOURCE_GENERATOR_DEVICE; } /*endgetnamedsym CLASS_SOURCE_GENERATOR_DEVICE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PRIMITIVE*/ if (NULL == /*_._VALDATA___V842*/ meltfptr[841]) { #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___V842*/ meltfptr[841] = (melt_ptr_t) meltsy_CLASS_PRIMITIVE; } /*endgetnamedsym CLASS_PRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFPRIMITIVE*/ if (NULL == /*_._VALDATA___V844*/ meltfptr[843]) { #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___V844*/ meltfptr[843] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFPRIMITIVE; } /*endgetnamedsym CLASS_SOURCE_DEFPRIMITIVE*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_OBJECTS*/ if (NULL == /*_._VALDATA___V846*/ meltfptr[845]) { #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___V846*/ meltfptr[845] = (melt_ptr_t) meltsy_DISCR_MAP_OBJECTS; } /*endgetnamedsym DISCR_MAP_OBJECTS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCITERATOR*/ if (NULL == /*_._VALDATA___V850*/ meltfptr[849]) { #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___V850*/ meltfptr[849] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCITERATOR; } /*endgetnamedsym CLASS_SOURCE_DEFCITERATOR*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_CMATCHER*/ if (NULL == /*_._VALDATA___V856*/ meltfptr[855]) { #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___V856*/ meltfptr[855] = (melt_ptr_t) meltsy_CLASS_CMATCHER; } /*endgetnamedsym CLASS_CMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ANY_MATCHER*/ if (NULL == /*_._VALDATA___V858*/ meltfptr[857]) { #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___V858*/ meltfptr[857] = (melt_ptr_t) meltsy_CLASS_ANY_MATCHER; } /*endgetnamedsym CLASS_ANY_MATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_DEFCMATCHER*/ if (NULL == /*_._VALDATA___V860*/ meltfptr[859]) { #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___V860*/ meltfptr[859] = (melt_ptr_t) meltsy_CLASS_SOURCE_DEFCMATCHER; } /*endgetnamedsym CLASS_SOURCE_DEFCMATCHER*/ /*^getnamedsymbol*/ /*getnamedsym:DEBUG_LESS*/ if (NULL == /*_._VALDATA___V867*/ meltfptr[866]) { #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___V867*/ meltfptr[866] = (melt_ptr_t) meltsy_DEBUG_LESS; } /*endgetnamedsym DEBUG_LESS*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMALIZATION_CONTEXT*/ if (NULL == /*_._VALDATA___V869*/ meltfptr[868]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NORMALIZATION_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NORMALIZATION_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NORMALIZATION_CONTEXT", (long) MELT_GET); /*_._VALDATA___V869*/ meltfptr[868] = (melt_ptr_t) meltsy_CLASS_NORMALIZATION_CONTEXT; } /*endgetnamedsym CLASS_NORMALIZATION_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V871*/ meltfptr[870]) { #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___V871*/ meltfptr[870] = (melt_ptr_t) meltsy_CLASS_ENVIRONMENT; } /*endgetnamedsym CLASS_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE*/ if (NULL == /*_._VALDATA___V873*/ meltfptr[872]) { #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___V873*/ meltfptr[872] = (melt_ptr_t) meltsy_CLASS_SOURCE; } /*endgetnamedsym CLASS_SOURCE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ if (NULL == /*_._VALDATA___V875*/ meltfptr[874]) { #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___V875*/ meltfptr[874] = (melt_ptr_t) meltsy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE; } /*endgetnamedsym CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_COMMENT*/ if (NULL == /*_._VALDATA___V877*/ meltfptr[876]) { #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___V877*/ meltfptr[876] = (melt_ptr_t) meltsy_CLASS_SOURCE_COMMENT; } /*endgetnamedsym CLASS_SOURCE_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:NORMAL_EXP*/ if (NULL == /*_._VALDATA___V879*/ meltfptr[878]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol NORMAL_EXP without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NORMAL_EXP = melthookproc_HOOK_NAMED_SYMBOL ("NORMAL_EXP", (long) MELT_GET); /*_._VALDATA___V879*/ meltfptr[878] = (melt_ptr_t) meltsy_NORMAL_EXP; } /*endgetnamedsym NORMAL_EXP*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NORMAL_LET_BINDING*/ if (NULL == /*_._VALDATA___V881*/ meltfptr[880]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NORMAL_LET_BINDING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NORMAL_LET_BINDING = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NORMAL_LET_BINDING", (long) MELT_GET); /*_._VALDATA___V881*/ meltfptr[880] = (melt_ptr_t) meltsy_CLASS_NORMAL_LET_BINDING; } /*endgetnamedsym CLASS_NORMAL_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_ANYPROC*/ if (NULL == /*_._VALDATA___V883*/ meltfptr[882]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_ANYPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_ANYPROC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_ANYPROC", (long) MELT_GET); /*_._VALDATA___V883*/ meltfptr[882] = (melt_ptr_t) meltsy_CLASS_NREP_ANYPROC; } /*endgetnamedsym CLASS_NREP_ANYPROC*/ /*^getnamedsymbol*/ /*getnamedsym:WRAP_NORMAL_LETSEQ*/ if (NULL == /*_._VALDATA___V885*/ meltfptr[884]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WRAP_NORMAL_LETSEQ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WRAP_NORMAL_LETSEQ = melthookproc_HOOK_NAMED_SYMBOL ("WRAP_NORMAL_LETSEQ", (long) MELT_GET); /*_._VALDATA___V885*/ meltfptr[884] = (melt_ptr_t) meltsy_WRAP_NORMAL_LETSEQ; } /*endgetnamedsym WRAP_NORMAL_LETSEQ*/ /*^getnamedsymbol*/ /*getnamedsym:WRAP_NORMAL_LET1*/ if (NULL == /*_._VALDATA___V887*/ meltfptr[886]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol WRAP_NORMAL_LET1 without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_WRAP_NORMAL_LET1 = melthookproc_HOOK_NAMED_SYMBOL ("WRAP_NORMAL_LET1", (long) MELT_GET); /*_._VALDATA___V887*/ meltfptr[886] = (melt_ptr_t) meltsy_WRAP_NORMAL_LET1; } /*endgetnamedsym WRAP_NORMAL_LET1*/ /*^getnamedsymbol*/ /*getnamedsym:LIST_APPEND2LIST*/ if (NULL == /*_._VALDATA___V889*/ meltfptr[888]) { #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___V889*/ meltfptr[888] = (melt_ptr_t) meltsy_LIST_APPEND2LIST; } /*endgetnamedsym LIST_APPEND2LIST*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_DATAHOOK*/ if (NULL == /*_._VALDATA___V893*/ meltfptr[892]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_DATAHOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_DATAHOOK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_DATAHOOK", (long) MELT_GET); /*_._VALDATA___V893*/ meltfptr[892] = (melt_ptr_t) meltsy_CLASS_NREP_DATAHOOK; } /*endgetnamedsym CLASS_NREP_DATAHOOK*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_INITPROC*/ if (NULL == /*_._VALDATA___V901*/ meltfptr[900]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_INITPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_INITPROC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_INITPROC", (long) MELT_GET); /*_._VALDATA___V901*/ meltfptr[900] = (melt_ptr_t) meltsy_CLASS_NREP_INITPROC; } /*endgetnamedsym CLASS_NREP_INITPROC*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE2OBJ_HOOK*/ if (NULL == /*_._VALDATA___V903*/ meltfptr[902]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE2OBJ_HOOK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE2OBJ_HOOK = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE2OBJ_HOOK", (long) MELT_GET); /*_._VALDATA___V903*/ meltfptr[902] = (melt_ptr_t) meltsy_COMPILE2OBJ_HOOK; } /*endgetnamedsym COMPILE2OBJ_HOOK*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE2OBJ_PROCEDURE*/ if (NULL == /*_._VALDATA___V905*/ meltfptr[904]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE2OBJ_PROCEDURE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE2OBJ_PROCEDURE = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE2OBJ_PROCEDURE", (long) MELT_GET); /*_._VALDATA___V905*/ meltfptr[904] = (melt_ptr_t) meltsy_COMPILE2OBJ_PROCEDURE; } /*endgetnamedsym COMPILE2OBJ_PROCEDURE*/ /*^getnamedsymbol*/ /*getnamedsym:NORMAL_IMPORT*/ if (NULL == /*_._VALDATA___V907*/ meltfptr[906]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol NORMAL_IMPORT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_NORMAL_IMPORT = melthookproc_HOOK_NAMED_SYMBOL ("NORMAL_IMPORT", (long) MELT_GET); /*_._VALDATA___V907*/ meltfptr[906] = (melt_ptr_t) meltsy_NORMAL_IMPORT; } /*endgetnamedsym NORMAL_IMPORT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_HOOK_DESCRIPTOR*/ if (NULL == /*_._VALDATA___V909*/ meltfptr[908]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_HOOK_DESCRIPTOR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_HOOK_DESCRIPTOR = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_HOOK_DESCRIPTOR", (long) MELT_GET); /*_._VALDATA___V909*/ meltfptr[908] = (melt_ptr_t) meltsy_CLASS_HOOK_DESCRIPTOR; } /*endgetnamedsym CLASS_HOOK_DESCRIPTOR*/ /*^getnamedsymbol*/ /*getnamedsym:SYMBOL_CNAME*/ if (NULL == /*_._VALDATA___V911*/ meltfptr[910]) { #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___V911*/ meltfptr[910] = (melt_ptr_t) meltsy_SYMBOL_CNAME; } /*endgetnamedsym SYMBOL_CNAME*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CHEADER*/ if (NULL == /*_._VALDATA___V913*/ meltfptr[912]) { #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___V913*/ meltfptr[912] = (melt_ptr_t) meltsy_CLASS_SOURCE_CHEADER; } /*endgetnamedsym CLASS_SOURCE_CHEADER*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CODE_STRING*/ if (NULL == /*_._VALDATA___V915*/ meltfptr[914]) { #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___V915*/ meltfptr[914] = (melt_ptr_t) meltsy_CLASS_SOURCE_CODE_STRING; } /*endgetnamedsym CLASS_SOURCE_CODE_STRING*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SOURCE_CIMPLEMENT*/ if (NULL == /*_._VALDATA___V917*/ meltfptr[916]) { #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___V917*/ meltfptr[916] = (melt_ptr_t) meltsy_CLASS_SOURCE_CIMPLEMENT; } /*endgetnamedsym CLASS_SOURCE_CIMPLEMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_PROTOROUTINEOBJ*/ if (NULL == /*_._VALDATA___V919*/ meltfptr[918]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_PROTOROUTINEOBJ without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_PROTOROUTINEOBJ = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_PROTOROUTINEOBJ", (long) MELT_GET); /*_._VALDATA___V919*/ meltfptr[918] = (melt_ptr_t) meltsy_CLASS_PROTOROUTINEOBJ; } /*endgetnamedsym CLASS_PROTOROUTINEOBJ*/ /*^getnamedsymbol*/ /*getnamedsym:DEBUG_MORE*/ if (NULL == /*_._VALDATA___V930*/ meltfptr[929]) { #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___V930*/ meltfptr[929] = (melt_ptr_t) meltsy_DEBUG_MORE; } /*endgetnamedsym DEBUG_MORE*/ /*^getnamedsymbol*/ /*getnamedsym:FRESH_ENV*/ if (NULL == /*_._VALDATA___V932*/ meltfptr[931]) { #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___V932*/ meltfptr[931] = (melt_ptr_t) meltsy_FRESH_ENV; } /*endgetnamedsym FRESH_ENV*/ /*^getnamedsymbol*/ /*getnamedsym:MACRO-ENVIRONMENT*/ if (NULL == /*_._VALDATA___V924*/ meltfptr[923]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MACRO-ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROmiENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("MACRO-ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V924*/ meltfptr[923] = (melt_ptr_t) meltsy_MACROmiENVIRONMENT; } /*endgetnamedsym MACRO-ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:BASE-ENVIRONMENT*/ if (NULL == /*_._VALDATA___V926*/ meltfptr[925]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BASE-ENVIRONMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BASEmiENVIRONMENT = melthookproc_HOOK_NAMED_SYMBOL ("BASE-ENVIRONMENT", (long) MELT_GET); /*_._VALDATA___V926*/ meltfptr[925] = (melt_ptr_t) meltsy_BASEmiENVIRONMENT; } /*endgetnamedsym BASE-ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_MODULE_CONTEXT*/ if (NULL == /*_._VALDATA___V934*/ meltfptr[933]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_MODULE_CONTEXT", (long) MELT_GET); /*_._VALDATA___V934*/ meltfptr[933] = (melt_ptr_t) meltsy_CLASS_MODULE_CONTEXT; } /*endgetnamedsym CLASS_MODULE_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:DISCR_MAP_STRINGS*/ if (NULL == /*_._VALDATA___V936*/ meltfptr[935]) { #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___V936*/ meltfptr[935] = (melt_ptr_t) meltsy_DISCR_MAP_STRINGS; } /*endgetnamedsym DISCR_MAP_STRINGS*/ /*^getnamedsymbol*/ /*getnamedsym:CREATE_NORMCONTEXT*/ if (NULL == /*_._VALDATA___V938*/ meltfptr[937]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CREATE_NORMCONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CREATE_NORMCONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CREATE_NORMCONTEXT", (long) MELT_GET); /*_._VALDATA___V938*/ meltfptr[937] = (melt_ptr_t) meltsy_CREATE_NORMCONTEXT; } /*endgetnamedsym CREATE_NORMCONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/ if (NULL == /*_._VALDATA___V940*/ meltfptr[939]) { #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___V940*/ meltfptr[939] = (melt_ptr_t) meltsy_MACROEXPAND_TOPLEVEL_LIST; } /*endgetnamedsym MACROEXPAND_TOPLEVEL_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:MACROEXPAND_1*/ if (NULL == /*_._VALDATA___V942*/ meltfptr[941]) { #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___V942*/ meltfptr[941] = (melt_ptr_t) meltsy_MACROEXPAND_1; } /*endgetnamedsym MACROEXPAND_1*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE2OBJ_INITPROC*/ if (NULL == /*_._VALDATA___V944*/ meltfptr[943]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE2OBJ_INITPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE2OBJ_INITPROC = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE2OBJ_INITPROC", (long) MELT_GET); /*_._VALDATA___V944*/ meltfptr[943] = (melt_ptr_t) meltsy_COMPILE2OBJ_INITPROC; } /*endgetnamedsym COMPILE2OBJ_INITPROC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_FIRST_MODULE_CONTEXT*/ if (NULL == /*_._VALDATA___V946*/ meltfptr[945]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_FIRST_MODULE_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_FIRST_MODULE_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_FIRST_MODULE_CONTEXT", (long) MELT_GET); /*_._VALDATA___V946*/ meltfptr[945] = (melt_ptr_t) meltsy_CLASS_FIRST_MODULE_CONTEXT; } /*endgetnamedsym CLASS_FIRST_MODULE_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:INITIAL_ENVIRONMENT*/ if (NULL == /*_._VALDATA___V957*/ meltfptr[956]) { #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___V957*/ meltfptr[956] = (melt_ptr_t) meltsy_INITIAL_ENVIRONMENT; } /*endgetnamedsym INITIAL_ENVIRONMENT*/ /*^getnamedsymbol*/ /*getnamedsym:MACRO-FIRST*/ if (NULL == /*_._VALDATA___V953*/ meltfptr[952]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MACRO-FIRST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROmiFIRST = melthookproc_HOOK_NAMED_SYMBOL ("MACRO-FIRST", (long) MELT_GET); /*_._VALDATA___V953*/ meltfptr[952] = (melt_ptr_t) meltsy_MACROmiFIRST; } /*endgetnamedsym MACRO-FIRST*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_RUN_EXTENSION*/ if (NULL == /*_._VALDATA___V959*/ meltfptr[958]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_RUN_EXTENSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_RUN_EXTENSION = melthookproc_HOOK_NAMED_SYMBOL ("MELT_RUN_EXTENSION", (long) MELT_GET); /*_._VALDATA___V959*/ meltfptr[958] = (melt_ptr_t) meltsy_MELT_RUN_EXTENSION; } /*endgetnamedsym MELT_RUN_EXTENSION*/ /*^getnamedsymbol*/ /*getnamedsym:BASENAME*/ if (NULL == /*_._VALDATA___V964*/ meltfptr[963]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol BASENAME without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_BASENAME = melthookproc_HOOK_NAMED_SYMBOL ("BASENAME", (long) MELT_GET); /*_._VALDATA___V964*/ meltfptr[963] = (melt_ptr_t) meltsy_BASENAME; } /*endgetnamedsym BASENAME*/ /*^getnamedsymbol*/ /*getnamedsym:ENV*/ if (NULL == /*_._VALDATA___V967*/ meltfptr[966]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol ENV without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_ENV = melthookproc_HOOK_NAMED_SYMBOL ("ENV", (long) MELT_GET); /*_._VALDATA___V967*/ meltfptr[966] = (melt_ptr_t) meltsy_ENV; } /*endgetnamedsym ENV*/ /*^getnamedsymbol*/ /*getnamedsym:LITVAL*/ if (NULL == /*_._VALDATA___V970*/ meltfptr[969]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LITVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LITVAL = melthookproc_HOOK_NAMED_SYMBOL ("LITVAL", (long) MELT_GET); /*_._VALDATA___V970*/ meltfptr[969] = (melt_ptr_t) meltsy_LITVAL; } /*endgetnamedsym LITVAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLONE_SYMBOL*/ if (NULL == /*_._VALDATA___V992*/ meltfptr[991]) { #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___V992*/ meltfptr[991] = (melt_ptr_t) meltsy_CLONE_SYMBOL; } /*endgetnamedsym CLONE_SYMBOL*/ /*^getnamedsymbol*/ /*getnamedsym:RETAUTOBOXVAL*/ if (NULL == /*_._VALDATA___V979*/ meltfptr[978]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol RETAUTOBOXVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_RETAUTOBOXVAL = melthookproc_HOOK_NAMED_SYMBOL ("RETAUTOBOXVAL", (long) MELT_GET); /*_._VALDATA___V979*/ meltfptr[978] = (melt_ptr_t) meltsy_RETAUTOBOXVAL; } /*endgetnamedsym RETAUTOBOXVAL*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_LOCSYMOCC*/ if (NULL == /*_._VALDATA___V994*/ meltfptr[993]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_LOCSYMOCC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_LOCSYMOCC = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_LOCSYMOCC", (long) MELT_GET); /*_._VALDATA___V994*/ meltfptr[993] = (melt_ptr_t) meltsy_CLASS_NREP_LOCSYMOCC; } /*endgetnamedsym CLASS_NREP_LOCSYMOCC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_RETURN*/ if (NULL == /*_._VALDATA___V996*/ meltfptr[995]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_RETURN without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_RETURN = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_RETURN", (long) MELT_GET); /*_._VALDATA___V996*/ meltfptr[995] = (melt_ptr_t) meltsy_CLASS_NREP_RETURN; } /*endgetnamedsym CLASS_NREP_RETURN*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LET_BINDING*/ if (NULL == /*_._VALDATA___V998*/ meltfptr[997]) { #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___V998*/ meltfptr[997] = (melt_ptr_t) meltsy_CLASS_LET_BINDING; } /*endgetnamedsym CLASS_LET_BINDING*/ /*^getnamedsymbol*/ /*getnamedsym:LONGAUTOBOX*/ if (NULL == /*_._VALDATA___V981*/ meltfptr[980]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol LONGAUTOBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_LONGAUTOBOX = melthookproc_HOOK_NAMED_SYMBOL ("LONGAUTOBOX", (long) MELT_GET); /*_._VALDATA___V981*/ meltfptr[980] = (melt_ptr_t) meltsy_LONGAUTOBOX; } /*endgetnamedsym LONGAUTOBOX*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_NREP_CHUNK*/ if (NULL == /*_._VALDATA___V1000*/ meltfptr[999]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_NREP_CHUNK without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_NREP_CHUNK = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_NREP_CHUNK", (long) MELT_GET); /*_._VALDATA___V1000*/ meltfptr[999] = (melt_ptr_t) meltsy_CLASS_NREP_CHUNK; } /*endgetnamedsym CLASS_NREP_CHUNK*/ /*^getnamedsymbol*/ /*getnamedsym:AUTOBOXLONG*/ if (NULL == /*_._VALDATA___V983*/ meltfptr[982]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AUTOBOXLONG without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AUTOBOXLONG = melthookproc_HOOK_NAMED_SYMBOL ("AUTOBOXLONG", (long) MELT_GET); /*_._VALDATA___V983*/ meltfptr[982] = (melt_ptr_t) meltsy_AUTOBOXLONG; } /*endgetnamedsym AUTOBOXLONG*/ /*^getnamedsymbol*/ /*getnamedsym:CTYPE_CSTRING*/ if (NULL == /*_._VALDATA___V1002*/ meltfptr[1001]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CTYPE_CSTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CTYPE_CSTRING = melthookproc_HOOK_NAMED_SYMBOL ("CTYPE_CSTRING", (long) MELT_GET); /*_._VALDATA___V1002*/ meltfptr[1001] = (melt_ptr_t) meltsy_CTYPE_CSTRING; } /*endgetnamedsym CTYPE_CSTRING*/ /*^getnamedsymbol*/ /*getnamedsym:STRINGAUTOBOX*/ if (NULL == /*_._VALDATA___V985*/ meltfptr[984]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol STRINGAUTOBOX without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_STRINGAUTOBOX = melthookproc_HOOK_NAMED_SYMBOL ("STRINGAUTOBOX", (long) MELT_GET); /*_._VALDATA___V985*/ meltfptr[984] = (melt_ptr_t) meltsy_STRINGAUTOBOX; } /*endgetnamedsym STRINGAUTOBOX*/ /*^getnamedsymbol*/ /*getnamedsym:AUTOBOXSTRING*/ if (NULL == /*_._VALDATA___V987*/ meltfptr[986]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AUTOBOXSTRING without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AUTOBOXSTRING = melthookproc_HOOK_NAMED_SYMBOL ("AUTOBOXSTRING", (long) MELT_GET); /*_._VALDATA___V987*/ meltfptr[986] = (melt_ptr_t) meltsy_AUTOBOXSTRING; } /*endgetnamedsym AUTOBOXSTRING*/ /*^getnamedsymbol*/ /*getnamedsym:AUTOBOXGTY*/ if (NULL == /*_._VALDATA___V989*/ meltfptr[988]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol AUTOBOXGTY without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_AUTOBOXGTY = melthookproc_HOOK_NAMED_SYMBOL ("AUTOBOXGTY", (long) MELT_GET); /*_._VALDATA___V989*/ meltfptr[988] = (melt_ptr_t) meltsy_AUTOBOXGTY; } /*endgetnamedsym AUTOBOXGTY*/ /*^getnamedsymbol*/ /*getnamedsym:MACRO-EXTENSION*/ if (NULL == /*_._VALDATA___V1006*/ meltfptr[1005]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MACRO-EXTENSION without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MACROmiEXTENSION = melthookproc_HOOK_NAMED_SYMBOL ("MACRO-EXTENSION", (long) MELT_GET); /*_._VALDATA___V1006*/ meltfptr[1005] = (melt_ptr_t) meltsy_MACROmiEXTENSION; } /*endgetnamedsym MACRO-EXTENSION*/ /*^getnamedsymbol*/ /*getnamedsym:CREATE_NORMAL_EXTENDING_CONTEXT*/ if (NULL == /*_._VALDATA___V1017*/ meltfptr[1016]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CREATE_NORMAL_EXTENDING_CONTEXT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CREATE_NORMAL_EXTENDING_CONTEXT = melthookproc_HOOK_NAMED_SYMBOL ("CREATE_NORMAL_EXTENDING_CONTEXT", (long) MELT_GET); /*_._VALDATA___V1017*/ meltfptr[1016] = (melt_ptr_t) meltsy_CREATE_NORMAL_EXTENDING_CONTEXT; } /*endgetnamedsym CREATE_NORMAL_EXTENDING_CONTEXT*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE2OBJ_INITEXTENDPROC*/ if (NULL == /*_._VALDATA___V1019*/ meltfptr[1018]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE2OBJ_INITEXTENDPROC without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE2OBJ_INITEXTENDPROC = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE2OBJ_INITEXTENDPROC", (long) MELT_GET); /*_._VALDATA___V1019*/ meltfptr[1018] = (melt_ptr_t) meltsy_COMPILE2OBJ_INITEXTENDPROC; } /*endgetnamedsym COMPILE2OBJ_INITEXTENDPROC*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_LITERAL_VALUE*/ if (NULL == /*_._VALDATA___V1021*/ meltfptr[1020]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_LITERAL_VALUE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_LITERAL_VALUE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_LITERAL_VALUE", (long) MELT_GET); /*_._VALDATA___V1021*/ meltfptr[1020] = (melt_ptr_t) meltsy_CLASS_LITERAL_VALUE; } /*endgetnamedsym CLASS_LITERAL_VALUE*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ if (NULL == /*_._VALDATA___V1028*/ meltfptr[1027]) { #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___V1028*/ meltfptr[1027] = (melt_ptr_t) meltsy_MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS; } /*endgetnamedsym MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ /*^getnamedsymbol*/ /*getnamedsym:MULTIPLE_TO_LIST*/ if (NULL == /*_._VALDATA___V1036*/ meltfptr[1035]) { #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___V1036*/ meltfptr[1035] = (melt_ptr_t) meltsy_MULTIPLE_TO_LIST; } /*endgetnamedsym MULTIPLE_TO_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE_LIST_SEXPR*/ if (NULL == /*_._VALDATA___V1040*/ meltfptr[1039]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE_LIST_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_LIST_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_LIST_SEXPR", (long) MELT_GET); /*_._VALDATA___V1040*/ meltfptr[1039] = (melt_ptr_t) meltsy_COMPILE_LIST_SEXPR; } /*endgetnamedsym COMPILE_LIST_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ if (NULL == /*_._VALDATA___V1042*/ meltfptr[1041]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR = melthookproc_HOOK_NAMED_SYMBOL ("COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR", (long) MELT_GET); /*_._VALDATA___V1042*/ meltfptr[1041] = (melt_ptr_t) meltsy_COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR; } /*endgetnamedsym COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ /*^getnamedsymbol*/ /*getnamedsym:EVAL*/ if (NULL == /*_._VALDATA___V1044*/ meltfptr[1043]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol EVAL without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_EVAL = melthookproc_HOOK_NAMED_SYMBOL ("EVAL", (long) MELT_GET); /*_._VALDATA___V1044*/ meltfptr[1043] = (melt_ptr_t) meltsy_EVAL; } /*endgetnamedsym EVAL*/ /*^getnamedsymbol*/ /*getnamedsym:GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ if (NULL == /*_._VALDATA___V1046*/ meltfptr[1045]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT = melthookproc_HOOK_NAMED_SYMBOL ("GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", (long) MELT_GET); /*_._VALDATA___V1046*/ meltfptr[1045] = (melt_ptr_t) meltsy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; } /*endgetnamedsym GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*^getnamedsymbol*/ /*getnamedsym:GET_CODE_BUFFER_LIMIT*/ if (NULL == /*_._VALDATA___V1048*/ meltfptr[1047]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol GET_CODE_BUFFER_LIMIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_GET_CODE_BUFFER_LIMIT = melthookproc_HOOK_NAMED_SYMBOL ("GET_CODE_BUFFER_LIMIT", (long) MELT_GET); /*_._VALDATA___V1048*/ meltfptr[1047] = (melt_ptr_t) meltsy_GET_CODE_BUFFER_LIMIT; } /*endgetnamedsym GET_CODE_BUFFER_LIMIT*/ /*^getnamedsymbol*/ /*getnamedsym:MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ if (NULL == /*_._VALDATA___V1050*/ meltfptr[1049]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST = melthookproc_HOOK_NAMED_SYMBOL ("MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST", (long) MELT_GET); /*_._VALDATA___V1050*/ meltfptr[1049] = (melt_ptr_t) meltsy_MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST; } /*endgetnamedsym MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ /*^getnamedsymbol*/ /*getnamedsym:PUT_CODE_BUFFER_LIMIT*/ if (NULL == /*_._VALDATA___V1052*/ meltfptr[1051]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol PUT_CODE_BUFFER_LIMIT without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_PUT_CODE_BUFFER_LIMIT = melthookproc_HOOK_NAMED_SYMBOL ("PUT_CODE_BUFFER_LIMIT", (long) MELT_GET); /*_._VALDATA___V1052*/ meltfptr[1051] = (melt_ptr_t) meltsy_PUT_CODE_BUFFER_LIMIT; } /*endgetnamedsym PUT_CODE_BUFFER_LIMIT*/ /*^getnamedsymbol*/ /*getnamedsym:TRANSLATE_RUN_MELT_EXPRESSIONS*/ if (NULL == /*_._VALDATA___V1054*/ meltfptr[1053]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol TRANSLATE_RUN_MELT_EXPRESSIONS without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATE_RUN_MELT_EXPRESSIONS = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATE_RUN_MELT_EXPRESSIONS", (long) MELT_GET); /*_._VALDATA___V1054*/ meltfptr[1053] = (melt_ptr_t) meltsy_TRANSLATE_RUN_MELT_EXPRESSIONS; } /*endgetnamedsym TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*^getnamedsymbol*/ /*getnamedsym:TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ if (NULL == /*_._VALDATA___V1056*/ meltfptr[1055]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol TRANSLATE_TO_CC_MODULE_MELT_SOURCES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATE_TO_CC_MODULE_MELT_SOURCES = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATE_TO_CC_MODULE_MELT_SOURCES", (long) MELT_GET); /*_._VALDATA___V1056*/ meltfptr[1055] = (melt_ptr_t) meltsy_TRANSLATE_TO_CC_MODULE_MELT_SOURCES; } /*endgetnamedsym TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ /*^getnamedsymbol*/ /*getnamedsym:CLASS_SECONDARY_C_FILE*/ if (NULL == /*_._VALDATA___V1058*/ meltfptr[1057]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol CLASS_SECONDARY_C_FILE without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_CLASS_SECONDARY_C_FILE = melthookproc_HOOK_NAMED_SYMBOL ("CLASS_SECONDARY_C_FILE", (long) MELT_GET); /*_._VALDATA___V1058*/ meltfptr[1057] = (melt_ptr_t) meltsy_CLASS_SECONDARY_C_FILE; } /*endgetnamedsym CLASS_SECONDARY_C_FILE*/ /*^getnamedsymbol*/ /*getnamedsym:TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ if (NULL == /*_._VALDATA___V1060*/ meltfptr[1059]) { #if !MELT_HAS_INITIAL_ENVIRONMENT #error MELT getting named symbol TRANSLATE_TO_C_MODULE_MELT_SOURCES without initial environment #endif /*!MELT_HAS_INITIAL_ENVIRONMENT*/ melt_ptr_t meltsy_TRANSLATE_TO_C_MODULE_MELT_SOURCES = melthookproc_HOOK_NAMED_SYMBOL ("TRANSLATE_TO_C_MODULE_MELT_SOURCES", (long) MELT_GET); /*_._VALDATA___V1060*/ meltfptr[1059] = (melt_ptr_t) meltsy_TRANSLATE_TO_C_MODULE_MELT_SOURCES; } /*endgetnamedsym TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ /*^comment*/ /**COMMENT: before getting imported values thru hook **/; MELT_LOCATION("warmelt-outobj.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-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:41:/ compute"); /*_.CLASS_REFERENCE__V6*/ meltfptr[5] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_REFERENCE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:53:/ compute"); /*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_ASSERT_FAILURE_FUN", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:55:/ compute"); /*_.CLASS_NAMED__V8*/ meltfptr[7] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NAMED", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:58:/ compute"); /*_.ADD2OUT__V9*/ meltfptr[8] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ADD2OUT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:64:/ compute"); /*_.CLASS_LOCATED__V10*/ meltfptr[9] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LOCATED", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:65:/ compute"); /*_.CLASS_SEXPR__V11*/ meltfptr[10] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SEXPR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:66:/ compute"); /*_.EXPAND_RESTLIST_AS_TUPLE__V12*/ meltfptr[11] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "EXPAND_RESTLIST_AS_TUPLE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:71:/ compute"); /*_.ERROR_AT__V13*/ meltfptr[12] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "ERROR_AT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:73:/ compute"); /*_.MELT_MAKE_SEXPR__V14*/ meltfptr[13] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_MAKE_SEXPR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.HOOK_MELT_MAKE_LOCATION__V15*/ meltfptr[14] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "HOOK_MELT_MAKE_LOCATION", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:88:/ compute"); /*_.MELT_DEBUG_FUN__V16*/ meltfptr[15] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_DEBUG_FUN", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:92:/ compute"); /*_.DISCR_CONSTANT_INTEGER__V17*/ meltfptr[16] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_CONSTANT_INTEGER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:109:/ compute"); /*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NORMAL_MODULE_VARIABLE_BINDING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:110:/ compute"); /*_.CLASS_ANY_BINDING__V19*/ meltfptr[18] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_BINDING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:113:/ compute"); /*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLONED_SYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:121:/ compute"); /*_.CLASS_SYMBOL__V21*/ meltfptr[20] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:138:/ compute"); /*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INITIALROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:139:/ compute"); /*_.STRING4OUT__V23*/ meltfptr[22] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "STRING4OUT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_VERBATIM_STRING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:141:/ compute"); /*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MODULE_CONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:163:/ compute"); /*_.INSTALL_METHOD__V26*/ meltfptr[25] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INSTALL_METHOD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.CLASS_ROOT__V27*/ meltfptr[26] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ROOT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "OUTPUT_C_DECLINIT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:167:/ compute"); /*_.CLASS_OBJINITELEM__V29*/ meltfptr[28] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITELEM", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:173:/ compute"); /*_.OUTPUT_C_CODE__V30*/ meltfptr[29] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "OUTPUT_C_CODE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:194:/ compute"); /*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "OUTPUT_C_INITIAL_FILL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:202:/ compute"); /*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "OUTPUT_C_INITIAL_PREDEF", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:232:/ compute"); /*_.CLASS_OBJPREDEF__V33*/ meltfptr[32] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPREDEF", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:240:/ compute"); /*_.CLASS_OBJNIL__V34*/ meltfptr[33] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJNIL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:247:/ compute"); /*_.CLASS_OBJEXPANDPUREVAL__V35*/ meltfptr[34] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJEXPANDPUREVAL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:251:/ compute"); /*_.CLASS_OBJVALUE__V36*/ meltfptr[35] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJVALUE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:254:/ compute"); /*_.CLASS_CTYPE__V37*/ meltfptr[36] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:257:/ compute"); /*_.CTYPE_VOID__V38*/ meltfptr[37] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_VOID", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:336:/ compute"); /*_.CLASS_OBJHOOKNTH__V39*/ meltfptr[38] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJHOOKNTH", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:337:/ compute"); /*_.CTYPE_VALUE__V40*/ meltfptr[39] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_VALUE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:341:/ compute"); /*_.CLASS_OBJLOCV__V41*/ meltfptr[40] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJLOCV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:374:/ compute"); /*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITOBJECT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:392:/ compute"); /*_.CLASS_NREP_DATAINSTANCE__V43*/ meltfptr[42] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_DATAINSTANCE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:400:/ compute"); /*_.CLASS_CLASS__V44*/ meltfptr[43] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CLASS", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:443:/ compute"); /*_.CLASS_OBJINITUNIQUEOBJECT__V45*/ meltfptr[44] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITUNIQUEOBJECT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:546:/ compute"); /*_.CLASS_NREP_NIL__V46*/ meltfptr[45] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_NIL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:624:/ compute"); /*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITHOOK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:633:/ compute"); /*_.CLASS_NREP__V48*/ meltfptr[47] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:687:/ compute"); /*_.CLASS_OBJINITMULTIPLE__V49*/ meltfptr[48] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITMULTIPLE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:742:/ compute"); /*_.CLASS_OBJINITCLOSURE__V50*/ meltfptr[49] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITCLOSURE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:812:/ compute"); /*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITROUTINE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:851:/ compute"); /*_.CLASS_NREP_DATAROUTINE__V52*/ meltfptr[51] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_DATAROUTINE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:858:/ compute"); /*_.CLASS_NREP_ROUTPROC__V53*/ meltfptr[52] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_ROUTPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:940:/ compute"); /*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_CLOSPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:996:/ compute"); /*_.CLASS_OBJINITSTRING__V55*/ meltfptr[54] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITSTRING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1204:/ compute"); /*_.CLASS_OBJINITBOXINTEGER__V56*/ meltfptr[55] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITBOXINTEGER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1264:/ compute"); /*_.CLASS_OBJINITPAIR__V57*/ meltfptr[56] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITPAIR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1314:/ compute"); /*_.CLASS_OBJINITLIST__V58*/ meltfptr[57] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINITLIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1368:/ compute"); /*_.DISCR_ANY_RECEIVER__V59*/ meltfptr[58] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_ANY_RECEIVER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1377:/ compute"); /*_.DISCR_NULL_RECEIVER__V60*/ meltfptr[59] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_NULL_RECEIVER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1382:/ compute"); /*_.DISPLAY_DEBUG_MESSAGE__V61*/ meltfptr[60] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISPLAY_DEBUG_MESSAGE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1447:/ compute"); /*_.DISCR_INTEGER__V62*/ meltfptr[61] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_INTEGER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1452:/ compute"); /*_.DISCR_STRING__V63*/ meltfptr[62] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1548:/ compute"); /*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INITIAL_EXTENSION_ROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1611:/ compute"); /*_.CLASS_CTYPE_GTY__V65*/ meltfptr[64] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CTYPE_GTY", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1659:/ compute"); /*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PROCROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1668:/ compute"); /*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_HOOKROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1709:/ compute"); /*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1895:/ compute"); /*_.VARIADIC_INDEX_IDSTR__V69*/ meltfptr[68] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "VARIADIC_INDEX_IDSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1896:/ compute"); /*_.VARIADIC_LENGTH_IDSTR__V70*/ meltfptr[69] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "VARIADIC_LENGTH_IDSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:1964:/ compute"); /*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUREVALUE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2106:/ compute"); /*_.CLASS_INITIAL_MODULE_ROUTINEOBJ__V72*/ meltfptr[71] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_INITIAL_MODULE_ROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2143:/ compute"); /*_.WARNING_AT__V73*/ meltfptr[72] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "WARNING_AT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2145:/ compute"); /*_.INFORM_AT__V74*/ meltfptr[73] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INFORM_AT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2287:/ compute"); /*_.DISCR_LIST__V75*/ meltfptr[74] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_LIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2295:/ compute"); /*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_TO_MULTIPLE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.DISCR_MULTIPLE__V77*/ meltfptr[76] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MULTIPLE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2306:/ compute"); /*_.DISCR_STRBUF__V78*/ meltfptr[77] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_STRBUF", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2315:/ compute"); /*_.CLASS_OBJINSTR__V79*/ meltfptr[78] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2457:/ compute"); /*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_HOOKPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2460:/ compute"); /*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCFORMAL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2825:/ compute"); /*_.CLASS_OBJGETARG__V82*/ meltfptr[81] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGETARG", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2832:/ compute"); /*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FORMAL_BINDING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2891:/ compute"); /*_.CLASS_OBJGETARGREST__V84*/ meltfptr[83] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGETARGREST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:2991:/ compute"); /*_.CLASS_OBJFETCHMODVAR__V85*/ meltfptr[84] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJFETCHMODVAR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3006:/ compute"); /*_.CLASS_OBJPUTMODVAR__V86*/ meltfptr[85] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTMODVAR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3027:/ compute"); /*_.CLASS_OBJPUTOUTARG__V87*/ meltfptr[86] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTOUTARG", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3066:/ compute"); /*_.CTYPE_LONG__V88*/ meltfptr[87] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_LONG", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3084:/ compute"); /*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCLOCCV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3104:/ compute"); /*_.CLASS_OBJCLOHOOKV__V90*/ meltfptr[89] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCLOHOOKV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3124:/ compute"); /*_.CLASS_OBJCONSTV__V91*/ meltfptr[90] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCONSTV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3152:/ compute"); /*_.CLASS_OBJPLAINBLOCK__V92*/ meltfptr[91] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPLAINBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3178:/ compute"); /*_.CLASS_OBJCHECKSIGNAL__V93*/ meltfptr[92] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCHECKSIGNAL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3191:/ compute"); /*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJANYBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3218:/ compute"); /*_.CLASS_OBJFLAG__V95*/ meltfptr[94] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJFLAG", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3230:/ compute"); /*_.CLASS_OBJMATCHFLAGBLOCK__V96*/ meltfptr[95] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJMATCHFLAGBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3281:/ compute"); /*_.CLASS_OBJMULTIALLOCBLOCK__V97*/ meltfptr[96] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJMULTIALLOCBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3352:/ compute"); /*_.CLASS_OBJCITERBLOCK__V98*/ meltfptr[97] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCITERBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3361:/ compute"); /*_.CLASS_CITERATOR__V99*/ meltfptr[98] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CITERATOR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3407:/ compute"); /*_.CLASS_OBJCOMMENTINSTR__V100*/ meltfptr[99] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCOMMENTINSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3428:/ compute"); /*_.CLASS_OBJCOMMENTEDBLOCK__V101*/ meltfptr[100] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCOMMENTEDBLOCK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3467:/ compute"); /*_.CLASS_OBJLABELINSTR__V102*/ meltfptr[101] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJLABELINSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3474:/ compute"); /*_.SET_CONTENT__V103*/ meltfptr[102] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "SET_CONTENT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3501:/ compute"); /*_.CLASS_OBJGOTOINSTR__V104*/ meltfptr[103] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGOTOINSTR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3531:/ compute"); /*_.CLASS_OBJLOOP__V105*/ meltfptr[104] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJLOOP", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3588:/ compute"); /*_.CLASS_OBJEXIT__V106*/ meltfptr[105] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJEXIT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3608:/ compute"); /*_.CLASS_OBJAGAIN__V107*/ meltfptr[106] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJAGAIN", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3627:/ compute"); /*_.CLASS_OBJCOMPUTE__V108*/ meltfptr[107] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCOMPUTE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3674:/ compute"); /*_.CLASS_OBJCOND__V109*/ meltfptr[108] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCOND", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3714:/ compute"); /*_.CLASS_OBJCPPIF__V110*/ meltfptr[109] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCPPIF", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3747:/ compute"); /*_.CLASS_OBJINTERNSYMBOL__V111*/ meltfptr[110] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINTERNSYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3754:/ compute"); /*_.CLASS_NREP_DATASYMBOL__V112*/ meltfptr[111] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_DATASYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3772:/ compute"); /*_.CLASS_OBJINTERNKEYWORD__V113*/ meltfptr[112] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJINTERNKEYWORD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3778:/ compute"); /*_.CLASS_NREP_DATAKEYWORD__V114*/ meltfptr[113] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_DATAKEYWORD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3796:/ compute"); /*_.CLASS_OBJGETNAMEDSYMBOL__V115*/ meltfptr[114] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGETNAMEDSYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3847:/ compute"); /*_.CLASS_OBJGETNAMEDKEYWORD__V116*/ meltfptr[115] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGETNAMEDKEYWORD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3884:/ compute"); /*_.CLASS_OBJAPPLY__V117*/ meltfptr[116] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJAPPLY", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3911:/ compute"); /*_.GET_CTYPE__V118*/ meltfptr[117] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "GET_CTYPE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:3998:/ compute"); /*_.CLASS_OBJMSEND__V119*/ meltfptr[118] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJMSEND", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4097:/ compute"); /*_.CLASS_OBJMULTIAPPLY__V120*/ meltfptr[119] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJMULTIAPPLY", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4221:/ compute"); /*_.LIST_EVERY__V121*/ meltfptr[120] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_EVERY", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4257:/ compute"); /*_.CLASS_OBJMULTIMSEND__V122*/ meltfptr[121] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJMULTIMSEND", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4407:/ compute"); /*_.CLASS_OBJCLEAR__V123*/ meltfptr[122] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJCLEAR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4424:/ compute"); /*_.CLASS_OBJRAWALLOCOBJ__V124*/ meltfptr[123] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJRAWALLOCOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4463:/ compute"); /*_.CLASS_OBJNEWCLOSURE__V125*/ meltfptr[124] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJNEWCLOSURE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4497:/ compute"); /*_.CLASS_OBJTOUCH__V126*/ meltfptr[125] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJTOUCH", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4522:/ compute"); /*_.CLASS_OBJDBGTRACEWRITEOBJ__V127*/ meltfptr[126] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJDBGTRACEWRITEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4542:/ compute"); /*_.CLASS_OBJPUTUPLE__V128*/ meltfptr[127] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTUPLE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4618:/ compute"); /*_.CLASS_OBJPUTPAIR__V129*/ meltfptr[128] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTPAIR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4619:/ compute"); /*_.CLASS_OBJPUTPAIRHEAD__V130*/ meltfptr[129] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTPAIRHEAD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4648:/ compute"); /*_.CLASS_OBJPUTPAIRTAIL__V131*/ meltfptr[130] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTPAIRTAIL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4673:/ compute"); /*_.CLASS_OBJPUTLIST__V132*/ meltfptr[131] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTLIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4703:/ compute"); /*_.CLASS_OBJGETSLOT__V133*/ meltfptr[132] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJGETSLOT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4710:/ compute"); /*_.CLASS_FIELD__V134*/ meltfptr[133] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_FIELD", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4743:/ compute"); /*_.CLASS_OBJPUTSLOT__V135*/ meltfptr[134] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTSLOT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4820:/ compute"); /*_.CLASS_OBJPUTCLOSUROUT__V136*/ meltfptr[135] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTCLOSUROUT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4865:/ compute"); /*_.CLASS_OBJPUTCLOSEDV__V137*/ meltfptr[136] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTCLOSEDV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4903:/ compute"); /*_.CLASS_OBJPUTCLOSEDNOTNULLV__V138*/ meltfptr[137] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTCLOSEDNOTNULLV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4944:/ compute"); /*_.CLASS_OBJPUTROUTCONST__V139*/ meltfptr[138] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTROUTCONST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:4984:/ compute"); /*_.CLASS_OBJPUTROUTCONSTNOTNULL__V140*/ meltfptr[139] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTROUTCONSTNOTNULL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5020:/ compute"); /*_.CLASS_OBJPUTHOOKCONST__V141*/ meltfptr[140] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTHOOKCONST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5026:/ compute"); /*_.CLASS_NREP_BOUND_DATA__V142*/ meltfptr[141] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_BOUND_DATA", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5065:/ compute"); /*_.CLASS_OBJPUTHOOKDATA__V143*/ meltfptr[142] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTHOOKDATA", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5094:/ compute"); /*_.CLASS_OBJPUTXTRARESULT__V144*/ meltfptr[143] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJPUTXTRARESULT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5137:/ compute"); /*_.CLASS_OBJEXPV__V145*/ meltfptr[144] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJEXPV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5155:/ compute"); /*_.CLASS_OBJLOCATEDEXPV__V146*/ meltfptr[145] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJLOCATEDEXPV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5227:/ compute"); /*_.CLASS_OBJFINALRETURN__V147*/ meltfptr[146] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_OBJFINALRETURN", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5251:/ compute"); /*_.MULTIPLE_SORT__V148*/ meltfptr[147] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_SORT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.COMPARE_NAMED_ALPHA__V149*/ meltfptr[148] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPARE_NAMED_ALPHA", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5395:/ compute"); /*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_RUNNING_EXTENSION_MODULE_CONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5786:/ compute"); /*_.CLASS_SELECTOR__V151*/ meltfptr[150] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SELECTOR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5806:/ compute"); /*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_GENERATOR_DEVICE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5867:/ compute"); /*_.CLASS_PRIMITIVE__V153*/ meltfptr[152] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PRIMITIVE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5876:/ compute"); /*_.CLASS_SOURCE_DEFPRIMITIVE__V154*/ meltfptr[153] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFPRIMITIVE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5879:/ compute"); /*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_OBJECTS", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5946:/ compute"); /*_.CLASS_SOURCE_DEFCITERATOR__V156*/ meltfptr[155] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFCITERATOR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:5995:/ compute"); /*_.CLASS_CMATCHER__V157*/ meltfptr[156] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_CMATCHER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6003:/ compute"); /*_.CLASS_ANY_MATCHER__V158*/ meltfptr[157] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ANY_MATCHER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6010:/ compute"); /*_.CLASS_SOURCE_DEFCMATCHER__V159*/ meltfptr[158] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_DEFCMATCHER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6149:/ compute"); /*_.DEBUG_LESS__V160*/ meltfptr[159] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_LESS", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6158:/ compute"); /*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NORMALIZATION_CONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6159:/ compute"); /*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_ENVIRONMENT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6164:/ compute"); /*_.CLASS_SOURCE__V163*/ meltfptr[162] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6169:/ compute"); /*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE__V164*/ meltfptr[163] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6194:/ compute"); /*_.CLASS_SOURCE_COMMENT__V165*/ meltfptr[164] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_COMMENT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6231:/ compute"); /*_.NORMAL_EXP__V166*/ meltfptr[165] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "NORMAL_EXP", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6239:/ compute"); /*_.CLASS_NORMAL_LET_BINDING__V167*/ meltfptr[166] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NORMAL_LET_BINDING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6247:/ compute"); /*_.CLASS_NREP_ANYPROC__V168*/ meltfptr[167] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_ANYPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6252:/ compute"); /*_.WRAP_NORMAL_LETSEQ__V169*/ meltfptr[168] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "WRAP_NORMAL_LETSEQ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6257:/ compute"); /*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "WRAP_NORMAL_LET1", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6262:/ compute"); /*_.LIST_APPEND2LIST__V171*/ meltfptr[170] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "LIST_APPEND2LIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6300:/ compute"); /*_.CLASS_NREP_DATAHOOK__V172*/ meltfptr[171] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_DATAHOOK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6489:/ compute"); /*_.CLASS_NREP_INITPROC__V173*/ meltfptr[172] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_INITPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6539:/ compute"); /*_.COMPILE2OBJ_HOOK__V174*/ meltfptr[173] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE2OBJ_HOOK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6548:/ compute"); /*_.COMPILE2OBJ_PROCEDURE__V175*/ meltfptr[174] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE2OBJ_PROCEDURE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6594:/ compute"); /*_.NORMAL_IMPORT__V176*/ meltfptr[175] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "NORMAL_IMPORT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6791:/ compute"); /*_.CLASS_HOOK_DESCRIPTOR__V177*/ meltfptr[176] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_HOOK_DESCRIPTOR", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6804:/ compute"); /*_.SYMBOL_CNAME__V178*/ meltfptr[177] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "SYMBOL_CNAME", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6830:/ compute"); /*_.CLASS_SOURCE_CHEADER__V179*/ meltfptr[178] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_CHEADER", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6833:/ compute"); /*_.CLASS_SOURCE_CODE_STRING__V180*/ meltfptr[179] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_CODE_STRING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6855:/ compute"); /*_.CLASS_SOURCE_CIMPLEMENT__V181*/ meltfptr[180] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_SOURCE_CIMPLEMENT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:6892:/ compute"); /*_.CLASS_PROTOROUTINEOBJ__V182*/ meltfptr[181] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_PROTOROUTINEOBJ", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7136:/ compute"); /*_.DEBUG_MORE__V183*/ meltfptr[182] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DEBUG_MORE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7153:/ compute"); /*_.FRESH_ENV__V184*/ meltfptr[183] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "FRESH_ENV", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7156:/ compute"); /*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_MODULE_CONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7158:/ compute"); /*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "DISCR_MAP_STRINGS", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7182:/ compute"); /*_.CREATE_NORMCONTEXT__V187*/ meltfptr[186] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CREATE_NORMCONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7191:/ compute"); /*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MACROEXPAND_TOPLEVEL_LIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /*^compute*/ /*_.MACROEXPAND_1__V189*/ meltfptr[188] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MACROEXPAND_1", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7198:/ compute"); /*_.COMPILE2OBJ_INITPROC__V190*/ meltfptr[189] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE2OBJ_INITPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7236:/ compute"); /*_.INITIAL_ENVIRONMENT__V191*/ meltfptr[190] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "INITIAL_ENVIRONMENT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7292:/ compute"); /*_.CLONE_SYMBOL__V192*/ meltfptr[191] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLONE_SYMBOL", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7299:/ compute"); /*_.CLASS_NREP_LOCSYMOCC__V193*/ meltfptr[192] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_LOCSYMOCC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7310:/ compute"); /*_.CLASS_NREP_RETURN__V194*/ meltfptr[193] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_RETURN", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7315:/ compute"); /*_.CLASS_LET_BINDING__V195*/ meltfptr[194] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LET_BINDING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7334:/ compute"); /*_.CLASS_NREP_CHUNK__V196*/ meltfptr[195] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_NREP_CHUNK", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7369:/ compute"); /*_.CTYPE_CSTRING__V197*/ meltfptr[196] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CTYPE_CSTRING", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7584:/ compute"); /*_.CREATE_NORMAL_EXTENDING_CONTEXT__V198*/ meltfptr[197] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CREATE_NORMAL_EXTENDING_CONTEXT", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7727:/ compute"); /*_.COMPILE2OBJ_INITEXTENDPROC__V199*/ meltfptr[198] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "COMPILE2OBJ_INITEXTENDPROC", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7756:/ compute"); /*_.CLASS_LITERAL_VALUE__V200*/ meltfptr[199] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "CLASS_LITERAL_VALUE", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:7941:/ compute"); /*_.MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS__V201*/ meltfptr[200] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; MELT_LOCATION("warmelt-outobj.melt:8049:/ compute"); /*_.MULTIPLE_TO_LIST__V202*/ meltfptr[201] = /*hookcall*/ melthook_HOOK_SYMBOL_IMPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_SYMBOL_IMPORTER))), "MULTIPLE_TO_LIST", "warmelt-outobj", /*_._PREVENV___V4*/ meltfptr[3]) ; /**COMMENT: after getting imported values **/; /**initial routine cdata initializer**/ memset(meltpredefinited, 0, sizeof(meltpredefinited)); melt_initialize_module_meltdata_WARMELTmiOUTOBJ (&meltfram__, meltpredefinited); /**initial routine body**/ debugeprintf (" in initialization of warmelt-outobj thru 23 chunk routines with frame @%p of %d bytes", /*fromline 2338*/ (void*)&meltfram__, (int) sizeof(meltfram__)); melt_debuggc_eprintf ("initialization of warmelt-outobj thru 23 chunks, frame @%p of %d bytes", (void*)&meltfram__, (int) sizeof(meltfram__)); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_0 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_1 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_2 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_3 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_4 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_5 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_6 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_7 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_8 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_9 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_10 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_11 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_12 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_13 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_14 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_15 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_16 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_17 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_18 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_19 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_20 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_21 (&meltfram__, meltpredefinited); meltmod__WARMELTmiOUTOBJ__initialmeltchunk_22 (&meltfram__, meltpredefinited);; goto meltlabend_rout; meltlabend_rout: ; { /* return out of initial fromline 2371 */ melt_ptr_t retval = /*_._RETINIT___V1*/ meltfptr[0]; debugeprintf ("returning @%p from initial routine of warmelt-outobj", (void*)retval); /*fromline 2379*/ return retval; } #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /* end melt_start_this_module fromline 2391 */ void meltmod__WARMELTmiOUTOBJ__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___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_1__HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V203*/ meltfptr[202])))); ((meltobject_ptr_t)(/*_._VALDATA___V203*/ meltfptr[202]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V204*/ meltfptr[203]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V203*/ meltfptr[202]); melt_dbgtrace_written_object (/*_._VALDATA___V203*/ meltfptr[202], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_3__BUFFER_LIMIT_CONT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V205*/ meltfptr[204])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_3__BUFFER_LIMIT_CONT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V205*/ meltfptr[204])))); ((meltobject_ptr_t)(/*_._VALDATA___V205*/ meltfptr[204]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V206*/ meltfptr[205]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V205*/ meltfptr[204]); melt_dbgtrace_written_object (/*_._VALDATA___V205*/ meltfptr[204], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_5__CLASS_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V207*/ meltfptr[206])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_5__CLASS_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V207*/ meltfptr[206])))); ((meltobject_ptr_t)(/*_._VALDATA___V207*/ meltfptr[206]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V208*/ meltfptr[207]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V207*/ meltfptr[206]); melt_dbgtrace_written_object (/*_._VALDATA___V207*/ meltfptr[206], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:41:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_7__BUFFER_LIMIT_CONT @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_7__BUFFER_LIMIT_CONT @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208])))); ((meltobject_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALBXINT___V210*/ meltfptr[209]); MELT_LOCATION("warmelt-outobj.melt:41:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:41:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V209*/ meltfptr[208], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_9__TRUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_9__TRUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210])))); ((meltobject_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V212*/ meltfptr[211]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V211*/ meltfptr[210]); melt_dbgtrace_written_object (/*_._VALDATA___V211*/ meltfptr[210], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:52:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V213*/ meltfptr[212])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V213*/ meltfptr[212])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:52:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V213*/ meltfptr[212])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT#1", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V213*/ meltfptr[212])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:52:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V213*/ meltfptr[212])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_11__DO_OUTPUT_DESCRIPTIVE_COMMENT#2", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V213*/ meltfptr[212])->tabval[2] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:52:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V213*/ meltfptr[212]); /*putclosurout#2*/ melt_assertmsg("putclosrout#2 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#2 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V213*/ meltfptr[212])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V214*/ meltfptr[213])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V213*/ meltfptr[212]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V214*/ meltfptr[213]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_13__MELT_ASSERT_FAILURE_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V215*/ meltfptr[214])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_13__MELT_ASSERT_FAILURE_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V215*/ meltfptr[214])))); ((meltobject_ptr_t)(/*_._VALDATA___V215*/ meltfptr[214]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V216*/ meltfptr[215]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V215*/ meltfptr[214]); melt_dbgtrace_written_object (/*_._VALDATA___V215*/ meltfptr[214], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_15__CLASS_NAMED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V217*/ meltfptr[216])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_15__CLASS_NAMED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V217*/ meltfptr[216])))); ((meltobject_ptr_t)(/*_._VALDATA___V217*/ meltfptr[216]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V218*/ meltfptr[217]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V217*/ meltfptr[216]); melt_dbgtrace_written_object (/*_._VALDATA___V217*/ meltfptr[216], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_17__ADD2OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_17__ADD2OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t)(/*_._VALDATA___V219*/ meltfptr[218]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V220*/ meltfptr[219]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V219*/ meltfptr[218]); melt_dbgtrace_written_object (/*_._VALDATA___V219*/ meltfptr[218], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#0", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[0] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#1", NULL != (/*_.CLASS_SEXPR__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SEXPR__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#2", NULL != (/*_.EXPAND_RESTLIST_AS_TUPLE__V12*/ meltfptr[11])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[2] = (melt_ptr_t)(/*_.EXPAND_RESTLIST_AS_TUPLE__V12*/ meltfptr[11]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#3", NULL != (/*_.ERROR_AT__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[3] = (melt_ptr_t)(/*_.ERROR_AT__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#4", NULL != (/*_.MELT_MAKE_SEXPR__V14*/ meltfptr[13])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[4] = (melt_ptr_t)(/*_.MELT_MAKE_SEXPR__V14*/ meltfptr[13]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#5", NULL != (/*_.HOOK_MELT_MAKE_LOCATION__V15*/ meltfptr[14])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[5] = (melt_ptr_t)(/*_.HOOK_MELT_MAKE_LOCATION__V15*/ meltfptr[14]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_33__IF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_33__IF @#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-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#6", NULL != (/*_._VALDATA___V222*/ meltfptr[221])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_35__FLAGVAL_OUTPUT_DESCR_COMMENT @#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-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#7", NULL != (/*_._VALDATA___V224*/ meltfptr[223])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_37__DO_OUTPUT_DESCRIPTIVE_COMMENT @#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-outobj.melt:63:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_19__OUTPUT_DESCRIPTIVE_COMMENT#8", NULL != (/*_._VALDATA___V226*/ meltfptr[225])); ((meltroutine_ptr_t)/*_._VALROUT___V221*/ meltfptr[220])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225]); MELT_LOCATION("warmelt-outobj.melt:63:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V221*/ meltfptr[220]); /*putclosurout#3*/ melt_assertmsg("putclosrout#3 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V228*/ meltfptr[227])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#3 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V221*/ meltfptr[220])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V228*/ meltfptr[227])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V221*/ meltfptr[220]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V228*/ meltfptr[227]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_21__CLASS_LOCATED @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V229*/ meltfptr[228])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_21__CLASS_LOCATED @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V229*/ meltfptr[228])))); ((meltobject_ptr_t)(/*_._VALDATA___V229*/ meltfptr[228]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V230*/ meltfptr[229]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V229*/ meltfptr[228]); melt_dbgtrace_written_object (/*_._VALDATA___V229*/ meltfptr[228], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_23__CLASS_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V231*/ meltfptr[230])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_23__CLASS_SEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V231*/ meltfptr[230])))); ((meltobject_ptr_t)(/*_._VALDATA___V231*/ meltfptr[230]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V232*/ meltfptr[231]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V231*/ meltfptr[230]); melt_dbgtrace_written_object (/*_._VALDATA___V231*/ meltfptr[230], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_25__EXPAND_RESTLIST_AS_TUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_25__EXPAND_RESTLIST_AS_TUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V233*/ meltfptr[232])))); ((meltobject_ptr_t)(/*_._VALDATA___V233*/ meltfptr[232]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V234*/ meltfptr[233]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V233*/ meltfptr[232]); melt_dbgtrace_written_object (/*_._VALDATA___V233*/ meltfptr[232], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_27__ERROR_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V235*/ meltfptr[234])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_27__ERROR_AT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V235*/ meltfptr[234])))); ((meltobject_ptr_t)(/*_._VALDATA___V235*/ meltfptr[234]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V236*/ meltfptr[235]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V235*/ meltfptr[234]); melt_dbgtrace_written_object (/*_._VALDATA___V235*/ meltfptr[234], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_29__MELT_MAKE_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V237*/ meltfptr[236])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_29__MELT_MAKE_SEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V237*/ meltfptr[236])))); ((meltobject_ptr_t)(/*_._VALDATA___V237*/ meltfptr[236]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V238*/ meltfptr[237]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V237*/ meltfptr[236]); melt_dbgtrace_written_object (/*_._VALDATA___V237*/ meltfptr[236], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_31__HOOK_MELT_MAKE_LOCATION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V239*/ meltfptr[238])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_31__HOOK_MELT_MAKE_LOCATION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V239*/ meltfptr[238])))); ((meltobject_ptr_t)(/*_._VALDATA___V239*/ meltfptr[238]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V240*/ meltfptr[239]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V239*/ meltfptr[238]); melt_dbgtrace_written_object (/*_._VALDATA___V239*/ meltfptr[238], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:78:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V241*/ meltfptr[240])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:78:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_39__GET_CODE_BUFFER_LIMIT#1", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V241*/ meltfptr[240])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:78:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V241*/ meltfptr[240]); /*putclosurout#4*/ melt_assertmsg("putclosrout#4 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V242*/ meltfptr[241])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#4 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V241*/ meltfptr[240])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V242*/ meltfptr[241])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V241*/ meltfptr[240]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V242*/ meltfptr[241]); MELT_LOCATION("warmelt-outobj.melt:83:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__PUT_CODE_BUFFER_LIMIT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V243*/ meltfptr[242])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:83:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__PUT_CODE_BUFFER_LIMIT#1", NULL != (/*_.DISCR_CONSTANT_INTEGER__V17*/ meltfptr[16])); ((meltroutine_ptr_t)/*_._VALROUT___V243*/ meltfptr[242])->tabval[1] = (melt_ptr_t)(/*_.DISCR_CONSTANT_INTEGER__V17*/ meltfptr[16]); MELT_LOCATION("warmelt-outobj.melt:83:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V243*/ meltfptr[242])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:83:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_41__PUT_CODE_BUFFER_LIMIT#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V243*/ meltfptr[242])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:83:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V243*/ meltfptr[242]); /*putclosurout#5*/ melt_assertmsg("putclosrout#5 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V244*/ meltfptr[243])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#5 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V244*/ meltfptr[243])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V243*/ meltfptr[242]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V244*/ meltfptr[243]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_43__MELT_DEBUG_FUN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V245*/ meltfptr[244])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_43__MELT_DEBUG_FUN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V245*/ meltfptr[244])))); ((meltobject_ptr_t)(/*_._VALDATA___V245*/ meltfptr[244]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V246*/ meltfptr[245]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V245*/ meltfptr[244]); melt_dbgtrace_written_object (/*_._VALDATA___V245*/ meltfptr[244], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_45__DISCR_CONSTANT_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V247*/ meltfptr[246])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_45__DISCR_CONSTANT_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V247*/ meltfptr[246])))); ((meltobject_ptr_t)(/*_._VALDATA___V247*/ meltfptr[246]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V248*/ meltfptr[247]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V247*/ meltfptr[246]); melt_dbgtrace_written_object (/*_._VALDATA___V247*/ meltfptr[246], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#1", NULL != (/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#2", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#3", NULL != (/*_._VALROUT___V250*/ meltfptr[249])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[3] = (melt_ptr_t)(/*_._VALROUT___V250*/ meltfptr[249]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#4", NULL != (/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#5", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#7", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_47__OUT_ENUMIX_MODVARBIND#8", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V249*/ meltfptr[248])->tabval[8] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:107:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V249*/ meltfptr[248]); /*putclosurout#6*/ melt_assertmsg("putclosrout#6 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V251*/ meltfptr[250])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#6 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V249*/ meltfptr[248])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V251*/ meltfptr[250])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V249*/ meltfptr[248]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V251*/ meltfptr[250]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_49__CLASS_NORMAL_MODULE_VARIABLE_BINDING @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_51__CLASS_ANY_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_51__CLASS_ANY_BINDING @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_54__CLASS_CLONED_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_54__CLASS_CLONED_SYMBOL @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_56__CLASS_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_56__CLASS_SYMBOL @#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-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#1", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#3", NULL != (/*_.STRING4OUT__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[3] = (melt_ptr_t)(/*_.STRING4OUT__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#4", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#5", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[5] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#6", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[6] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:140:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_66__LAMBDA_#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V261*/ meltfptr[260])->tabval[0] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-outobj.melt:140:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V261*/ meltfptr[260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_66__LAMBDA_#1", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V261*/ meltfptr[260])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:140:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V261*/ meltfptr[260]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_58__INITIAL_CLASSY_FRAME_NAME#7", NULL != (/*_._VALROUT___V261*/ meltfptr[260])); ((meltroutine_ptr_t)/*_._VALROUT___V260*/ meltfptr[259])->tabval[7] = (melt_ptr_t)(/*_._VALROUT___V261*/ meltfptr[260]); MELT_LOCATION("warmelt-outobj.melt:136:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V260*/ meltfptr[259]); /*putclosurout#7*/ melt_assertmsg("putclosrout#7 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#7 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V260*/ meltfptr[259])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V262*/ meltfptr[261])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V260*/ meltfptr[259]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V262*/ meltfptr[261]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_60__CLASS_INITIALROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_60__CLASS_INITIALROUTINEOBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V263*/ meltfptr[262])))); ((meltobject_ptr_t)(/*_._VALDATA___V263*/ meltfptr[262]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V264*/ meltfptr[263]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V263*/ meltfptr[262]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_0*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_1 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; melt_dbgtrace_written_object (/*_._VALDATA___V263*/ meltfptr[262], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_62__STRING4OUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_62__STRING4OUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V265*/ meltfptr[264])))); ((meltobject_ptr_t)(/*_._VALDATA___V265*/ meltfptr[264]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V266*/ meltfptr[265]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V265*/ meltfptr[264]); melt_dbgtrace_written_object (/*_._VALDATA___V265*/ meltfptr[264], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_64__DISCR_VERBATIM_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V267*/ meltfptr[266])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_64__DISCR_VERBATIM_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V267*/ meltfptr[266])))); ((meltobject_ptr_t)(/*_._VALDATA___V267*/ meltfptr[266]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V268*/ meltfptr[267]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V267*/ meltfptr[266]); melt_dbgtrace_written_object (/*_._VALDATA___V267*/ meltfptr[266], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_67__CLASS_ANY_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_67__CLASS_ANY_MODULE_CONTEXT @#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"); MELT_LOCATION("warmelt-outobj.melt:155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__OUTDECLINIT_ROOT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V271*/ meltfptr[270])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__OUTDECLINIT_ROOT#1", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V271*/ meltfptr[270])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:155:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_69__OUTDECLINIT_ROOT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V271*/ meltfptr[270])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:155:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V271*/ meltfptr[270]); /*putclosurout#8*/ melt_assertmsg("putclosrout#8 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V272*/ meltfptr[271])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#8 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V271*/ meltfptr[270])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V272*/ meltfptr[271])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V271*/ meltfptr[270]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V272*/ meltfptr[271]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_71__INSTALL_METHOD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_71__INSTALL_METHOD @#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_73__CLASS_ROOT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_73__CLASS_ROOT @#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_75__OUTPUT_C_DECLINIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_75__OUTPUT_C_DECLINIT @#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"); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__OUTPUCOD_OBJINIELEM#0", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__OUTPUCOD_OBJINIELEM#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__OUTPUCOD_OBJINIELEM#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__OUTPUCOD_OBJINIELEM#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_77__OUTPUCOD_OBJINIELEM#6", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V279*/ meltfptr[278])->tabval[6] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:166:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V279*/ meltfptr[278]); /*putclosurout#9*/ melt_assertmsg("putclosrout#9 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V280*/ meltfptr[279])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#9 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V279*/ meltfptr[278])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V280*/ meltfptr[279])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V279*/ meltfptr[278]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V280*/ meltfptr[279]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_79__CLASS_OBJINITELEM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V281*/ meltfptr[280])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_79__CLASS_OBJINITELEM @#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_81__OUTPUT_C_CODE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_81__OUTPUT_C_CODE @#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"); MELT_LOCATION("warmelt-outobj.melt:190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_83__OUTCINITFILL_ROOT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V285*/ meltfptr[284])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_83__OUTCINITFILL_ROOT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V285*/ meltfptr[284])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:190:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V285*/ meltfptr[284]); /*putclosurout#10*/ melt_assertmsg("putclosrout#10 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V286*/ meltfptr[285])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#10 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V286*/ meltfptr[285])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V285*/ meltfptr[284]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V286*/ meltfptr[285]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_85__OUTPUT_C_INITIAL_FILL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V287*/ meltfptr[286])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_85__OUTPUT_C_INITIAL_FILL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V287*/ meltfptr[286])))); ((meltobject_ptr_t)(/*_._VALDATA___V287*/ meltfptr[286]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V288*/ meltfptr[287]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V287*/ meltfptr[286]); melt_dbgtrace_written_object (/*_._VALDATA___V287*/ meltfptr[286], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:198:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_87__OUTCINITPREDEF_ROOT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V289*/ meltfptr[288])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:198:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V289*/ meltfptr[288]); /*putclosurout#11*/ melt_assertmsg("putclosrout#11 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V290*/ meltfptr[289])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#11 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V290*/ meltfptr[289])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V289*/ meltfptr[288]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V290*/ meltfptr[289]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_89__OUTPUT_C_INITIAL_PREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_89__OUTPUT_C_INITIAL_PREDEF @#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"); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_91__OUTPUT_PREDEF#0", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V293*/ meltfptr[292])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_91__OUTPUT_PREDEF#1", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V293*/ meltfptr[292])->tabval[1] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_91__OUTPUT_PREDEF#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V293*/ meltfptr[292])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V293*/ meltfptr[292])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_91__OUTPUT_PREDEF#4", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V293*/ meltfptr[292])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:205:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V293*/ meltfptr[292]); /*putclosurout#12*/ melt_assertmsg("putclosrout#12 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V294*/ meltfptr[293])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#12 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V293*/ meltfptr[292])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V294*/ meltfptr[293])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V293*/ meltfptr[292]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V294*/ meltfptr[293]); MELT_LOCATION("warmelt-outobj.melt:231:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__OUTPUCOD_PREDEF#0", NULL != (/*_.CLASS_OBJPREDEF__V33*/ meltfptr[32])); ((meltroutine_ptr_t)/*_._VALROUT___V295*/ meltfptr[294])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPREDEF__V33*/ meltfptr[32]); MELT_LOCATION("warmelt-outobj.melt:231:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_93__OUTPUCOD_PREDEF#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V295*/ meltfptr[294])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:231:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V294*/ meltfptr[293]); ((meltroutine_ptr_t)/*_._VALROUT___V295*/ meltfptr[294])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V294*/ meltfptr[293]); MELT_LOCATION("warmelt-outobj.melt:231:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V295*/ meltfptr[294]); /*putclosurout#13*/ melt_assertmsg("putclosrout#13 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V296*/ meltfptr[295])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#13 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V296*/ meltfptr[295])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V295*/ meltfptr[294]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V296*/ meltfptr[295]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_95__CLASS_OBJPREDEF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V297*/ meltfptr[296])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_95__CLASS_OBJPREDEF @#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"); MELT_LOCATION("warmelt-outobj.melt:239:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_97__OUTPUCOD_NIL#0", NULL != (/*_.CLASS_OBJNIL__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V299*/ meltfptr[298])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-outobj.melt:239:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_97__OUTPUCOD_NIL#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V299*/ meltfptr[298])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:239:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V299*/ meltfptr[298]); /*putclosurout#14*/ melt_assertmsg("putclosrout#14 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V300*/ meltfptr[299])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#14 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V299*/ meltfptr[298])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V300*/ meltfptr[299])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V299*/ meltfptr[298]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V300*/ meltfptr[299]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_99__CLASS_OBJNIL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_99__CLASS_OBJNIL @#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"); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#1", NULL != (/*_.CLASS_OBJEXPANDPUREVAL__V35*/ meltfptr[34])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJEXPANDPUREVAL__V35*/ meltfptr[34]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#3", NULL != (/*_.CLASS_OBJVALUE__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#4", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#6", NULL != (/*_.CTYPE_VOID__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[6] = (melt_ptr_t)(/*_.CTYPE_VOID__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-outobj.melt:1440:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-outobj.melt:1440:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V306*/ meltfptr[305], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-outobj.melt:1441:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-outobj.melt:1441:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V307*/ meltfptr[306], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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___V307*/ meltfptr[306]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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_219__OUTPUT_LOCATION#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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_219__OUTPUT_LOCATION#4", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[4] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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_219__OUTPUT_LOCATION#5", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[5] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1393:/ 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_205__OUTPUT_RAW_LOCATION#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1393:/ 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___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1393:/ 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_205__OUTPUT_RAW_LOCATION#2", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1393:/ 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_205__OUTPUT_RAW_LOCATION#3", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V309*/ meltfptr[308])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1393:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V309*/ meltfptr[308]); /*putclosurout#15*/ melt_assertmsg("putclosrout#15 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#15 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V309*/ meltfptr[308])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V308*/ meltfptr[307])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V309*/ meltfptr[308]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:1459:/ 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___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V305*/ meltfptr[304])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:1459:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V305*/ meltfptr[304]); /*putclosurout#16*/ melt_assertmsg("putclosrout#16 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#16 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V305*/ meltfptr[304])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V304*/ meltfptr[303])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V305*/ meltfptr[304]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#8", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_101__OUTPUCOD_OBJEXPANDPUREVAL#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V303*/ meltfptr[302])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:245:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V303*/ meltfptr[302]); /*putclosurout#17*/ melt_assertmsg("putclosrout#17 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V310*/ meltfptr[309])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#17 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V303*/ meltfptr[302])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V310*/ meltfptr[309])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V303*/ meltfptr[302]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V310*/ meltfptr[309]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_103__CLASS_OBJEXPANDPUREVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_103__CLASS_OBJEXPANDPUREVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V311*/ meltfptr[310])))); ((meltobject_ptr_t)(/*_._VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V312*/ meltfptr[311]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V311*/ meltfptr[310]); melt_dbgtrace_written_object (/*_._VALDATA___V311*/ meltfptr[310], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_105__CLASS_OBJVALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_105__CLASS_OBJVALUE @#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_107__CLASS_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_107__CLASS_CTYPE @#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_109__CTYPE_VOID @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_109__CTYPE_VOID @#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"); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_1*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_2 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#1", NULL != (/*_.CLASS_OBJHOOKNTH__V39*/ meltfptr[38])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJHOOKNTH__V39*/ meltfptr[38]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#3", NULL != (/*_.CLASS_OBJVALUE__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#4", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#6", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#7", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#8", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_111__OUTPUCOD_OBJHOOKNTH#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V319*/ meltfptr[318])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:334:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V319*/ meltfptr[318]); /*putclosurout#18*/ melt_assertmsg("putclosrout#18 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V320*/ meltfptr[319])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#18 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V319*/ meltfptr[318])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V320*/ meltfptr[319])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V319*/ meltfptr[318]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V320*/ meltfptr[319]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_113__CLASS_OBJHOOKNTH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_113__CLASS_OBJHOOKNTH @#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_115__CTYPE_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V323*/ meltfptr[322])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_115__CTYPE_VALUE @#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_117__CLASS_OBJLOCV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_117__CLASS_OBJLOCV @#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"); /*putclosurout#19*/ melt_assertmsg("putclosrout#19 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V328*/ meltfptr[327])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#19 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V328*/ meltfptr[327])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V327*/ meltfptr[326]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V328*/ meltfptr[327]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_121__CLASS_OBJINITOBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_121__CLASS_OBJINITOBJECT @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V329*/ meltfptr[328]); melt_dbgtrace_written_object (/*_._VALDATA___V329*/ meltfptr[328], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#1", NULL != (/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#3", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V43*/ meltfptr[42])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#4", NULL != (/*_.CLASS_CLASS__V44*/ meltfptr[43])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CLASS__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V294*/ meltfptr[293]); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V294*/ meltfptr[293]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#7", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#8", NULL != (/*_.CLASS_OBJINITUNIQUEOBJECT__V45*/ meltfptr[44])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[8] = (melt_ptr_t)(/*_.CLASS_OBJINITUNIQUEOBJECT__V45*/ meltfptr[44]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#9", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[9] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_123__OUTCINITFILL_OBJINITOBJECT#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V331*/ meltfptr[330])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:379:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V331*/ meltfptr[330]); /*putclosurout#20*/ melt_assertmsg("putclosrout#20 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V332*/ meltfptr[331])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#20 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V331*/ meltfptr[330])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V332*/ meltfptr[331])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V331*/ meltfptr[330]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V332*/ meltfptr[331]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_125__CLASS_NREP_DATAINSTANCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V333*/ meltfptr[332])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_125__CLASS_NREP_DATAINSTANCE @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_127__CLASS_CLASS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_127__CLASS_CLASS @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V335*/ meltfptr[334]); melt_dbgtrace_written_object (/*_._VALDATA___V335*/ meltfptr[334], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_129__CLASS_OBJINITUNIQUEOBJECT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_129__CLASS_OBJINITUNIQUEOBJECT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336])))); ((meltobject_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V338*/ meltfptr[337]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V337*/ meltfptr[336]); melt_dbgtrace_written_object (/*_._VALDATA___V337*/ meltfptr[336], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#1", NULL != (/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#3", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V43*/ meltfptr[42])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V43*/ meltfptr[42]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#4", NULL != (/*_.CLASS_NREP_NIL__V46*/ meltfptr[45])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_131__OUTCINITPREDEF_OBJINITOBJECT#8", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V339*/ meltfptr[338])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:532:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V339*/ meltfptr[338]); /*putclosurout#21*/ melt_assertmsg("putclosrout#21 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V340*/ meltfptr[339])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#21 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V339*/ meltfptr[338])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V340*/ meltfptr[339])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V339*/ meltfptr[338]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V340*/ meltfptr[339]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_133__CLASS_NREP_NIL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_133__CLASS_NREP_NIL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340])))); ((meltobject_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V342*/ meltfptr[341]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V341*/ meltfptr[340]); melt_dbgtrace_written_object (/*_._VALDATA___V341*/ meltfptr[340], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#1", NULL != (/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#3", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#4", NULL != (/*_.CLASS_NREP__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#7", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_135__OUTCINITPREDEF_OBJINITHOOK#8", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V343*/ meltfptr[342])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:622:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V343*/ meltfptr[342]); /*putclosurout#22*/ melt_assertmsg("putclosrout#22 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V344*/ meltfptr[343])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#22 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V343*/ meltfptr[342])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V344*/ meltfptr[343])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V343*/ meltfptr[342]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V344*/ meltfptr[343]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_137__CLASS_OBJINITHOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_137__CLASS_OBJINITHOOK @#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_139__CLASS_NREP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_139__CLASS_NREP @#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"); /*putclosurout#23*/ melt_assertmsg("putclosrout#23 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V350*/ meltfptr[349])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#23 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V349*/ meltfptr[348])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V350*/ meltfptr[349])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V349*/ meltfptr[348]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V350*/ meltfptr[349]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_143__CLASS_OBJINITMULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V351*/ meltfptr[350])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_143__CLASS_OBJINITMULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V351*/ meltfptr[350])))); ((meltobject_ptr_t)(/*_._VALDATA___V351*/ meltfptr[350]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V352*/ meltfptr[351]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V351*/ meltfptr[350]); melt_dbgtrace_written_object (/*_._VALDATA___V351*/ meltfptr[350], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_145__OUTCINITFILL_OBJINITMULTIPLE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_145__OUTCINITFILL_OBJINITMULTIPLE#1", NULL != (/*_.CLASS_OBJINITMULTIPLE__V49*/ meltfptr[48])); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V49*/ meltfptr[48]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_145__OUTCINITFILL_OBJINITMULTIPLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_145__OUTCINITFILL_OBJINITMULTIPLE#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_145__OUTCINITFILL_OBJINITMULTIPLE#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V353*/ meltfptr[352])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:690:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V353*/ meltfptr[352]); /*putclosurout#24*/ melt_assertmsg("putclosrout#24 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V354*/ meltfptr[353])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#24 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V354*/ meltfptr[353])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V353*/ meltfptr[352]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V354*/ meltfptr[353]); /*putclosurout#25*/ melt_assertmsg("putclosrout#25 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V356*/ meltfptr[355])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#25 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V355*/ meltfptr[354])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V356*/ meltfptr[355])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V355*/ meltfptr[354]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V356*/ meltfptr[355]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_149__CLASS_OBJINITCLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_149__CLASS_OBJINITCLOSURE @#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"); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__OUTCINITFILL_OBJINITCLOSURE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__OUTCINITFILL_OBJINITCLOSURE#1", NULL != (/*_.CLASS_OBJINITCLOSURE__V50*/ meltfptr[49])); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V50*/ meltfptr[49]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__OUTCINITFILL_OBJINITCLOSURE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__OUTCINITFILL_OBJINITCLOSURE#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_151__OUTCINITFILL_OBJINITCLOSURE#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V359*/ meltfptr[358])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:744:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V359*/ meltfptr[358]); /*putclosurout#26*/ melt_assertmsg("putclosrout#26 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V360*/ meltfptr[359])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#26 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V359*/ meltfptr[358])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V360*/ meltfptr[359])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V359*/ meltfptr[358]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V360*/ meltfptr[359]); /*putclosurout#27*/ melt_assertmsg("putclosrout#27 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V362*/ meltfptr[361])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#27 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V361*/ meltfptr[360])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V362*/ meltfptr[361])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V361*/ meltfptr[360]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V362*/ meltfptr[361]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_155__CLASS_OBJINITROUTINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_155__CLASS_OBJINITROUTINE @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V363*/ meltfptr[362]); melt_dbgtrace_written_object (/*_._VALDATA___V363*/ meltfptr[362], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#1", NULL != (/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#4", NULL != (/*_.CLASS_NREP_DATAROUTINE__V52*/ meltfptr[51])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V52*/ meltfptr[51]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#5", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#6", NULL != (/*_.CLASS_NREP_ROUTPROC__V53*/ meltfptr[52])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V53*/ meltfptr[52]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_157__OUTCINITFILL_OBJINITROUTINE#8", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V365*/ meltfptr[364])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:815:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V365*/ meltfptr[364]); /*putclosurout#28*/ melt_assertmsg("putclosrout#28 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V366*/ meltfptr[365])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#28 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V365*/ meltfptr[364])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V366*/ meltfptr[365])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V365*/ meltfptr[364]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_2*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_3 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V366*/ meltfptr[365]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_159__CLASS_NREP_DATAROUTINE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_159__CLASS_NREP_DATAROUTINE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366])))); ((meltobject_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V368*/ meltfptr[367]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V367*/ meltfptr[366]); melt_dbgtrace_written_object (/*_._VALDATA___V367*/ meltfptr[366], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_161__CLASS_NREP_ROUTPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_161__CLASS_NREP_ROUTPROC @#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"); MELT_LOCATION("warmelt-outobj.melt:914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_163__OUTDECLINIT_OBJINITHOOK#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V371*/ meltfptr[370])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_163__OUTDECLINIT_OBJINITHOOK#1", NULL != (/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V371*/ meltfptr[370])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-outobj.melt:914:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_163__OUTDECLINIT_OBJINITHOOK#2", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V371*/ meltfptr[370])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:914:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V371*/ meltfptr[370]); /*putclosurout#29*/ melt_assertmsg("putclosrout#29 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V372*/ meltfptr[371])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#29 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V372*/ meltfptr[371])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V371*/ meltfptr[370]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V372*/ meltfptr[371]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#1", NULL != (/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#3", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#4", NULL != (/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#5", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_165__OUTCINITFILL_OBJINITHOOK#6", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V373*/ meltfptr[372])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:927:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V373*/ meltfptr[372]); /*putclosurout#30*/ melt_assertmsg("putclosrout#30 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V374*/ meltfptr[373])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#30 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V373*/ meltfptr[372])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V374*/ meltfptr[373])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V373*/ meltfptr[372]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V374*/ meltfptr[373]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_167__CLASS_NREP_CLOSPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_167__CLASS_NREP_CLOSPROC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374])))); ((meltobject_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V376*/ meltfptr[375]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V375*/ meltfptr[374]); melt_dbgtrace_written_object (/*_._VALDATA___V375*/ meltfptr[374], "new static instance"); /*putclosurout#31*/ melt_assertmsg("putclosrout#31 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V378*/ meltfptr[377])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#31 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V377*/ meltfptr[376])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V378*/ meltfptr[377])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V377*/ meltfptr[376]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V378*/ meltfptr[377]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_171__CLASS_OBJINITSTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_171__CLASS_OBJINITSTRING @#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"); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#1", NULL != (/*_.CLASS_OBJINITSTRING__V55*/ meltfptr[54])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V55*/ meltfptr[54]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_173__OUTCINITFILL_OBJINITSTRING#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V381*/ meltfptr[380])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:999:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V381*/ meltfptr[380]); /*putclosurout#32*/ melt_assertmsg("putclosrout#32 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V382*/ meltfptr[381])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#32 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V381*/ meltfptr[380])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V382*/ meltfptr[381])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V381*/ meltfptr[380]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V382*/ meltfptr[381]); /*putclosurout#33*/ melt_assertmsg("putclosrout#33 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V384*/ meltfptr[383])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#33 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V383*/ meltfptr[382])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V384*/ meltfptr[383])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V383*/ meltfptr[382]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V384*/ meltfptr[383]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_177__CLASS_OBJINITBOXINTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_177__CLASS_OBJINITBOXINTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384])))); ((meltobject_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V386*/ meltfptr[385]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V385*/ meltfptr[384]); melt_dbgtrace_written_object (/*_._VALDATA___V385*/ meltfptr[384], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER#1", NULL != (/*_.CLASS_OBJINITBOXINTEGER__V56*/ meltfptr[55])); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V56*/ meltfptr[55]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_179__OUTCINITFILL_OBJINITBOXEDINTEGER#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V387*/ meltfptr[386])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1207:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V387*/ meltfptr[386]); /*putclosurout#34*/ melt_assertmsg("putclosrout#34 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V388*/ meltfptr[387])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#34 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V387*/ meltfptr[386])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V388*/ meltfptr[387])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V387*/ meltfptr[386]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V388*/ meltfptr[387]); /*putclosurout#35*/ melt_assertmsg("putclosrout#35 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V390*/ meltfptr[389])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#35 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V389*/ meltfptr[388])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V390*/ meltfptr[389])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V389*/ meltfptr[388]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V390*/ meltfptr[389]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_183__CLASS_OBJINITPAIR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_183__CLASS_OBJINITPAIR @#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"); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__OUTCINITFILL_OBJINITPAIR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__OUTCINITFILL_OBJINITPAIR#1", NULL != (/*_.CLASS_OBJINITPAIR__V57*/ meltfptr[56])); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITPAIR__V57*/ meltfptr[56]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__OUTCINITFILL_OBJINITPAIR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__OUTCINITFILL_OBJINITPAIR#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_185__OUTCINITFILL_OBJINITPAIR#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V393*/ meltfptr[392])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1267:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V393*/ meltfptr[392]); /*putclosurout#36*/ melt_assertmsg("putclosrout#36 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V394*/ meltfptr[393])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#36 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V393*/ meltfptr[392])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V394*/ meltfptr[393])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V393*/ meltfptr[392]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V394*/ meltfptr[393]); /*putclosurout#37*/ melt_assertmsg("putclosrout#37 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V396*/ meltfptr[395])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#37 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V395*/ meltfptr[394])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V396*/ meltfptr[395])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V395*/ meltfptr[394]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V396*/ meltfptr[395]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_189__CLASS_OBJINITLIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_189__CLASS_OBJINITLIST @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V397*/ meltfptr[396]); melt_dbgtrace_written_object (/*_._VALDATA___V397*/ meltfptr[396], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__OUTCINITFILL_OBJINITLIST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__OUTCINITFILL_OBJINITLIST#1", NULL != (/*_.CLASS_OBJINITLIST__V58*/ meltfptr[57])); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJINITLIST__V58*/ meltfptr[57]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__OUTCINITFILL_OBJINITLIST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__OUTCINITFILL_OBJINITLIST#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_191__OUTCINITFILL_OBJINITLIST#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V399*/ meltfptr[398])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1317:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V399*/ meltfptr[398]); /*putclosurout#38*/ melt_assertmsg("putclosrout#38 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V400*/ meltfptr[399])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#38 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V399*/ meltfptr[398])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V400*/ meltfptr[399])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V399*/ meltfptr[398]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V400*/ meltfptr[399]); MELT_LOCATION("warmelt-outobj.melt:1359:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V401*/ meltfptr[400])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__OUTPUCOD_ANYDISCR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V401*/ meltfptr[400])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1359:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V401*/ meltfptr[400])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_193__OUTPUCOD_ANYDISCR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V401*/ meltfptr[400])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1359:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V401*/ meltfptr[400]); /*putclosurout#39*/ melt_assertmsg("putclosrout#39 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V402*/ meltfptr[401])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#39 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V401*/ meltfptr[400])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V402*/ meltfptr[401])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V401*/ meltfptr[400]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V402*/ meltfptr[401]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_195__DISCR_ANY_RECEIVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_195__DISCR_ANY_RECEIVER @#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"); MELT_LOCATION("warmelt-outobj.melt:1372:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V405*/ meltfptr[404])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V405*/ meltfptr[404])->tabval[0] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:1372:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V405*/ meltfptr[404])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_197__OUTPUCOD_NULL#1", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V405*/ meltfptr[404])->tabval[1] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:1372:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V405*/ meltfptr[404]); /*putclosurout#40*/ melt_assertmsg("putclosrout#40 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V406*/ meltfptr[405])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#40 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V405*/ meltfptr[404])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V406*/ meltfptr[405])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V405*/ meltfptr[404]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V406*/ meltfptr[405]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_199__DISCR_NULL_RECEIVER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_199__DISCR_NULL_RECEIVER @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V407*/ meltfptr[406]); melt_dbgtrace_written_object (/*_._VALDATA___V407*/ meltfptr[406], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1380:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V409*/ meltfptr[408])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_201__OUTPUCOD_CATCHALL_ROOT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V409*/ meltfptr[408])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1380:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V409*/ meltfptr[408])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_201__OUTPUCOD_CATCHALL_ROOT#1", NULL != (/*_.DISPLAY_DEBUG_MESSAGE__V61*/ meltfptr[60])); ((meltroutine_ptr_t)/*_._VALROUT___V409*/ meltfptr[408])->tabval[1] = (melt_ptr_t)(/*_.DISPLAY_DEBUG_MESSAGE__V61*/ meltfptr[60]); MELT_LOCATION("warmelt-outobj.melt:1380:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V409*/ meltfptr[408])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_201__OUTPUCOD_CATCHALL_ROOT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V409*/ meltfptr[408])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1380:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V409*/ meltfptr[408]); /*putclosurout#41*/ melt_assertmsg("putclosrout#41 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V410*/ meltfptr[409])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#41 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V409*/ meltfptr[408])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V410*/ meltfptr[409])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V409*/ meltfptr[408]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V410*/ meltfptr[409]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_203__DISPLAY_DEBUG_MESSAGE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V411*/ meltfptr[410])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_203__DISPLAY_DEBUG_MESSAGE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V411*/ meltfptr[410])))); ((meltobject_ptr_t)(/*_._VALDATA___V411*/ meltfptr[410]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V412*/ meltfptr[411]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V411*/ meltfptr[410]); melt_dbgtrace_written_object (/*_._VALDATA___V411*/ meltfptr[410], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_207__PREVLOC_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_207__PREVLOC_CONTAINER @#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_210__PREVIMPLBUF_CONTAINER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_210__PREVIMPLBUF_CONTAINER @#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-outobj.melt:1444:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V417*/ meltfptr[416])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_213__LINE_AND_FILE_OF_LOCATION#0", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V417*/ meltfptr[416])->tabval[0] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:1444:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V417*/ meltfptr[416])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_213__LINE_AND_FILE_OF_LOCATION#1", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V417*/ meltfptr[416])->tabval[1] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:1444:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V417*/ meltfptr[416]); /*putclosurout#42*/ melt_assertmsg("putclosrout#42 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V418*/ meltfptr[417])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#42 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V417*/ meltfptr[416])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V418*/ meltfptr[417])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V417*/ meltfptr[416]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V418*/ meltfptr[417]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_215__DISCR_INTEGER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_215__DISCR_INTEGER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V419*/ meltfptr[418])))); ((meltobject_ptr_t)(/*_._VALDATA___V419*/ meltfptr[418]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V420*/ meltfptr[419]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V419*/ meltfptr[418]); melt_dbgtrace_written_object (/*_._VALDATA___V419*/ meltfptr[418], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_217__DISCR_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V421*/ meltfptr[420])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_217__DISCR_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V421*/ meltfptr[420])))); ((meltobject_ptr_t)(/*_._VALDATA___V421*/ meltfptr[420]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V422*/ meltfptr[421]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V421*/ meltfptr[420]); melt_dbgtrace_written_object (/*_._VALDATA___V421*/ meltfptr[420], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#1", NULL != (/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#2", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[2] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_3*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_4 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#3", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#4", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V262*/ meltfptr[261]); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#6", NULL != (/*_.STRING4OUT__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[6] = (melt_ptr_t)(/*_.STRING4OUT__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#7", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#8", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[8] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#9", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[9] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#10", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[10] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#11", NULL != (/*_.CLASS_CTYPE_GTY__V65*/ meltfptr[64])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[11] = (melt_ptr_t)(/*_.CLASS_CTYPE_GTY__V65*/ meltfptr[64]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#12", NULL != (/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[12] = (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_221__OUTPUT_CURFRAME_DECLSTRUCT#13", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V423*/ meltfptr[422])->tabval[13] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:1538:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V423*/ meltfptr[422]); /*putclosurout#43*/ melt_assertmsg("putclosrout#43 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V424*/ meltfptr[423])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#43 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V423*/ meltfptr[422])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V424*/ meltfptr[423])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V423*/ meltfptr[422]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V424*/ meltfptr[423]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_223__CLASS_INITIAL_EXTENSION_ROUTINEOBJ @#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_225__CLASS_CTYPE_GTY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_225__CLASS_CTYPE_GTY @#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_227__CLASS_PROCROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_227__CLASS_PROCROUTINEOBJ @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_229__CLASS_HOOKROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_229__CLASS_HOOKROUTINEOBJ @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V431*/ meltfptr[430]); melt_dbgtrace_written_object (/*_._VALDATA___V431*/ meltfptr[430], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#1", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#3", NULL != (/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[3] = (melt_ptr_t)(/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#4", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[4] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#5", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[5] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#7", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[7] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#8", NULL != (/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[8] = (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V262*/ meltfptr[261]); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_231__OUTPUT_CURFRAME_DECLSTRUCT_INIT#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V433*/ meltfptr[432])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1705:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V433*/ meltfptr[432]); /*putclosurout#44*/ melt_assertmsg("putclosrout#44 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V434*/ meltfptr[433])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#44 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V433*/ meltfptr[432])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V434*/ meltfptr[433])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V433*/ meltfptr[432]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V434*/ meltfptr[433]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_233__CLASS_ROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V435*/ meltfptr[434])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_233__CLASS_ROUTINEOBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V435*/ meltfptr[434])))); ((meltobject_ptr_t)(/*_._VALDATA___V435*/ meltfptr[434]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V436*/ meltfptr[435]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V435*/ meltfptr[434]); melt_dbgtrace_written_object (/*_._VALDATA___V435*/ meltfptr[434], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#0", NULL != (/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[0] = (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#2", NULL != (/*_._VALSTR___V438*/ meltfptr[437])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[2] = (melt_ptr_t)(/*_._VALSTR___V438*/ meltfptr[437]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#4", NULL != (/*_.VARIADIC_INDEX_IDSTR__V69*/ meltfptr[68])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[4] = (melt_ptr_t)(/*_.VARIADIC_INDEX_IDSTR__V69*/ meltfptr[68]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#5", NULL != (/*_.VARIADIC_LENGTH_IDSTR__V70*/ meltfptr[69])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[5] = (melt_ptr_t)(/*_.VARIADIC_LENGTH_IDSTR__V70*/ meltfptr[69]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V434*/ meltfptr[433]); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V434*/ meltfptr[433]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V424*/ meltfptr[423]); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#12", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[12] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_235__OUTPUCOD_PROCROUTINE#13", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V437*/ meltfptr[436])->tabval[13] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:1844:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V437*/ meltfptr[436]); /*putclosurout#45*/ melt_assertmsg("putclosrout#45 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V439*/ meltfptr[438])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#45 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V437*/ meltfptr[436])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V439*/ meltfptr[438])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V437*/ meltfptr[436]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V439*/ meltfptr[438]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_238__VARIADIC_INDEX_IDSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V440*/ meltfptr[439])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_238__VARIADIC_INDEX_IDSTR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V440*/ meltfptr[439])))); ((meltobject_ptr_t)(/*_._VALDATA___V440*/ meltfptr[439]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V441*/ meltfptr[440]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V440*/ meltfptr[439]); melt_dbgtrace_written_object (/*_._VALDATA___V440*/ meltfptr[439], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_240__VARIADIC_LENGTH_IDSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V442*/ meltfptr[441])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_240__VARIADIC_LENGTH_IDSTR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V442*/ meltfptr[441])))); ((meltobject_ptr_t)(/*_._VALDATA___V442*/ meltfptr[441]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V443*/ meltfptr[442]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V442*/ meltfptr[441]); melt_dbgtrace_written_object (/*_._VALDATA___V442*/ meltfptr[441], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_242__CLASS_OBJPUREVALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V444*/ meltfptr[443])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_242__CLASS_OBJPUREVALUE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V444*/ meltfptr[443])))); ((meltobject_ptr_t)(/*_._VALDATA___V444*/ meltfptr[443]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V445*/ meltfptr[444]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V444*/ meltfptr[443]); melt_dbgtrace_written_object (/*_._VALDATA___V444*/ meltfptr[443], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__OUTPUT_CURFRAME_CDAT_STRUCT#0", NULL != (/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V446*/ meltfptr[445])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V446*/ meltfptr[445])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__OUTPUT_CURFRAME_CDAT_STRUCT#2", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V446*/ meltfptr[445])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__OUTPUT_CURFRAME_CDAT_STRUCT#3", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V446*/ meltfptr[445])->tabval[3] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_244__OUTPUT_CURFRAME_CDAT_STRUCT#4", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V446*/ meltfptr[445])->tabval[4] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2030:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V446*/ meltfptr[445]); /*putclosurout#46*/ melt_assertmsg("putclosrout#46 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V447*/ meltfptr[446])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#46 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V447*/ meltfptr[446])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V446*/ meltfptr[445]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V447*/ meltfptr[446]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#0", NULL != (/*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[0] = (melt_ptr_t)(/*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#1", NULL != (/*_._VALSTR___V449*/ meltfptr[448])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[1] = (melt_ptr_t)(/*_._VALSTR___V449*/ meltfptr[448]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#2", NULL != (/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#3", NULL != (/*_._VALSTR___V450*/ meltfptr[449])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[3] = (melt_ptr_t)(/*_._VALSTR___V450*/ meltfptr[449]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#6", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[6] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_246__OUTPUT_CURFRAME_CDAT_FILL#7", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V448*/ meltfptr[447])->tabval[7] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2055:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V448*/ meltfptr[447]); /*putclosurout#47*/ melt_assertmsg("putclosrout#47 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V451*/ meltfptr[450])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#47 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V448*/ meltfptr[447])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V451*/ meltfptr[450])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V448*/ meltfptr[447]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V451*/ meltfptr[450]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#1", NULL != (/*_.CLASS_INITIAL_MODULE_ROUTINEOBJ__V72*/ meltfptr[71])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_MODULE_ROUTINEOBJ__V72*/ meltfptr[71]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#3", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#4", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#5", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#6", NULL != (/*_.WARNING_AT__V73*/ meltfptr[72])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[6] = (melt_ptr_t)(/*_.WARNING_AT__V73*/ meltfptr[72]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#7", NULL != (/*_.INFORM_AT__V74*/ meltfptr[73])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[7] = (melt_ptr_t)(/*_.INFORM_AT__V74*/ meltfptr[73]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V262*/ meltfptr[261]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V424*/ meltfptr[423]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V447*/ meltfptr[446]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V447*/ meltfptr[446]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V451*/ meltfptr[450]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V451*/ meltfptr[450]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V434*/ meltfptr[433]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V434*/ meltfptr[433]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#13", NULL != (/*_._VALROUT___V453*/ meltfptr[452])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[13] = (melt_ptr_t)(/*_._VALROUT___V453*/ meltfptr[452]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#14", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[14] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#15", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[15] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#16", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[16] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#17", NULL != (/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[17] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#18", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[18] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#19", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[19] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V306*/ meltfptr[305]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V306*/ meltfptr[305]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V307*/ meltfptr[306]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[21] = (melt_ptr_t)(/*_._VALDATA___V307*/ meltfptr[306]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#22", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[22] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[24] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_INITIALMODULEROUTINE#25", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V452*/ meltfptr[451])->tabval[25] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2102:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V452*/ meltfptr[451]); /*putclosurout#48*/ melt_assertmsg("putclosrout#48 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V454*/ meltfptr[453])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#48 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V454*/ meltfptr[453])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V452*/ meltfptr[451]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V454*/ meltfptr[453]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_252__CLASS_INITIAL_MODULE_ROUTINEOBJ @#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_254__WARNING_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_254__WARNING_AT @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_256__INFORM_AT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_256__INFORM_AT @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V459*/ meltfptr[458]); melt_dbgtrace_written_object (/*_._VALDATA___V459*/ meltfptr[458], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_259__DISCR_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V461*/ meltfptr[460])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_259__DISCR_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V461*/ meltfptr[460])))); ((meltobject_ptr_t)(/*_._VALDATA___V461*/ meltfptr[460]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V462*/ meltfptr[461]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_4*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_5 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V461*/ meltfptr[460]); melt_dbgtrace_written_object (/*_._VALDATA___V461*/ meltfptr[460], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_261__LIST_TO_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_261__LIST_TO_MULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462])))); ((meltobject_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V464*/ meltfptr[463]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V463*/ meltfptr[462]); melt_dbgtrace_written_object (/*_._VALDATA___V463*/ meltfptr[462], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_263__DISCR_MULTIPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_263__DISCR_MULTIPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V465*/ meltfptr[464])))); ((meltobject_ptr_t)(/*_._VALDATA___V465*/ meltfptr[464]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V466*/ meltfptr[465]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V465*/ meltfptr[464]); melt_dbgtrace_written_object (/*_._VALDATA___V465*/ meltfptr[464], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_265__DISCR_STRBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_265__DISCR_STRBUF @#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_267__CLASS_OBJINSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_267__CLASS_OBJINSTR @#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"); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#1", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[1] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#3", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#4", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#5", NULL != (/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#6", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[6] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#7", NULL != (/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#8", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_269__OUTPUT_CENTRALDECL_HOOKROUTINE#9", NULL != (/*_.CLASS_OBJVALUE__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V471*/ meltfptr[470])->tabval[9] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-outobj.melt:2450:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V471*/ meltfptr[470]); /*putclosurout#49*/ melt_assertmsg("putclosrout#49 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V472*/ meltfptr[471])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#49 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V471*/ meltfptr[470])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V472*/ meltfptr[471])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V471*/ meltfptr[470]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V472*/ meltfptr[471]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_271__CLASS_NREP_HOOKPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_271__CLASS_NREP_HOOKPROC @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V473*/ meltfptr[472]); melt_dbgtrace_written_object (/*_._VALDATA___V473*/ meltfptr[472], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_273__CLASS_OBJCFORMAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_273__CLASS_OBJCFORMAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474])))); ((meltobject_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V476*/ meltfptr[475]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V475*/ meltfptr[474]); melt_dbgtrace_written_object (/*_._VALDATA___V475*/ meltfptr[474], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#1", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[1] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#3", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#4", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#5", NULL != (/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#6", NULL != (/*_.CLASS_OBJVALUE__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#7", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#8", NULL != (/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[8] = (melt_ptr_t)(/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#9", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[9] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V472*/ meltfptr[471]); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V472*/ meltfptr[471]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V424*/ meltfptr[423]); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#12", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[12] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#13", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[13] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[14] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_275__OUTPUCOD_HOOKROUTINE#15", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V477*/ meltfptr[476])->tabval[15] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2508:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V477*/ meltfptr[476]); /*putclosurout#50*/ melt_assertmsg("putclosrout#50 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V478*/ meltfptr[477])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#50 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V477*/ meltfptr[476])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V478*/ meltfptr[477])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V477*/ meltfptr[476]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V478*/ meltfptr[477]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#1", NULL != (/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[1] = (melt_ptr_t)(/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#3", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#4", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[4] = (melt_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V22*/ meltfptr[21]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#5", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#6", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[6] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#7", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#8", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[8] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#9", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[9] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V424*/ meltfptr[423]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V424*/ meltfptr[423]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V262*/ meltfptr[261]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V434*/ meltfptr[433]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V434*/ meltfptr[433]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#13", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[13] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2740:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_279__LAMBDA_#0", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V480*/ meltfptr[479])->tabval[0] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2740:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V480*/ meltfptr[479]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#14", NULL != (/*_._VALROUT___V480*/ meltfptr[479])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[14] = (melt_ptr_t)(/*_._VALROUT___V480*/ meltfptr[479]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V447*/ meltfptr[446]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V447*/ meltfptr[446]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#16", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[16] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#17", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[17] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V451*/ meltfptr[450]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[18] = (melt_ptr_t)(/*_._VALCLO___V451*/ meltfptr[450]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#19", NULL != (/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[19] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#20", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[20] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_INITIALEXTENSIONROUTINE#21", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[21] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V479*/ meltfptr[478])->tabval[22] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:2665:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V479*/ meltfptr[478]); /*putclosurout#51*/ melt_assertmsg("putclosrout#51 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V481*/ meltfptr[480])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#51 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V479*/ meltfptr[478])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V481*/ meltfptr[480])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V479*/ meltfptr[478]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V481*/ meltfptr[480]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#0", NULL != (/*_.CLASS_OBJGETARG__V82*/ meltfptr[81])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETARG__V82*/ meltfptr[81]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#2", NULL != (/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#4", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#5", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#7", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#8", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[8] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_280__OUTPUCOD_GETARG#10", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V482*/ meltfptr[481])->tabval[10] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2824:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V482*/ meltfptr[481]); /*putclosurout#52*/ melt_assertmsg("putclosrout#52 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V483*/ meltfptr[482])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#52 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V482*/ meltfptr[481])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V483*/ meltfptr[482])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V482*/ meltfptr[481]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V483*/ meltfptr[482]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_282__CLASS_OBJGETARG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V484*/ meltfptr[483])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_282__CLASS_OBJGETARG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V484*/ meltfptr[483])))); ((meltobject_ptr_t)(/*_._VALDATA___V484*/ meltfptr[483]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V485*/ meltfptr[484]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V484*/ meltfptr[483]); melt_dbgtrace_written_object (/*_._VALDATA___V484*/ meltfptr[483], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_284__CLASS_FORMAL_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V486*/ meltfptr[485])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_284__CLASS_FORMAL_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V486*/ meltfptr[485])))); ((meltobject_ptr_t)(/*_._VALDATA___V486*/ meltfptr[485]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V487*/ meltfptr[486]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V486*/ meltfptr[485]); melt_dbgtrace_written_object (/*_._VALDATA___V486*/ meltfptr[485], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#0", NULL != (/*_.CLASS_OBJGETARGREST__V84*/ meltfptr[83])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETARGREST__V84*/ meltfptr[83]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#2", NULL != (/*_.VARIADIC_INDEX_IDSTR__V69*/ meltfptr[68])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[2] = (melt_ptr_t)(/*_.VARIADIC_INDEX_IDSTR__V69*/ meltfptr[68]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#3", NULL != (/*_.VARIADIC_LENGTH_IDSTR__V70*/ meltfptr[69])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[3] = (melt_ptr_t)(/*_.VARIADIC_LENGTH_IDSTR__V70*/ meltfptr[69]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#4", NULL != (/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[4] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#6", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#7", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#9", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[9] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#10", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_GETARGREST#12", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V488*/ meltfptr[487])->tabval[12] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:2890:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V488*/ meltfptr[487]); /*putclosurout#53*/ melt_assertmsg("putclosrout#53 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V489*/ meltfptr[488])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#53 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V489*/ meltfptr[488])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V488*/ meltfptr[487]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V489*/ meltfptr[488]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_288__CLASS_OBJGETARGREST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V490*/ meltfptr[489])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_288__CLASS_OBJGETARGREST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V490*/ meltfptr[489])))); ((meltobject_ptr_t)(/*_._VALDATA___V490*/ meltfptr[489]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V491*/ meltfptr[490]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V490*/ meltfptr[489]); melt_dbgtrace_written_object (/*_._VALDATA___V490*/ meltfptr[489], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:2974:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V492*/ meltfptr[491])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__OUTPUCOD_OBJCFORMAL#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V492*/ meltfptr[491])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2974:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V492*/ meltfptr[491])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__OUTPUCOD_OBJCFORMAL#1", NULL != (/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V492*/ meltfptr[491])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-outobj.melt:2974:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V492*/ meltfptr[491])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_290__OUTPUCOD_OBJCFORMAL#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V492*/ meltfptr[491])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2974:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V492*/ meltfptr[491])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V492*/ meltfptr[491])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:2974:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V492*/ meltfptr[491]); /*putclosurout#54*/ melt_assertmsg("putclosrout#54 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V493*/ meltfptr[492])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#54 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V492*/ meltfptr[491])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V493*/ meltfptr[492])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V492*/ meltfptr[491]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V493*/ meltfptr[492]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__OUTPUCOD_OBJFETCHMODVAR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__OUTPUCOD_OBJFETCHMODVAR#1", NULL != (/*_.CLASS_OBJFETCHMODVAR__V85*/ meltfptr[84])); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJFETCHMODVAR__V85*/ meltfptr[84]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_5*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_6 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__OUTPUCOD_OBJFETCHMODVAR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__OUTPUCOD_OBJFETCHMODVAR#4", NULL != (/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_292__OUTPUCOD_OBJFETCHMODVAR#5", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V251*/ meltfptr[250]); ((meltroutine_ptr_t)/*_._VALROUT___V494*/ meltfptr[493])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V251*/ meltfptr[250]); MELT_LOCATION("warmelt-outobj.melt:2989:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V494*/ meltfptr[493]); /*putclosurout#55*/ melt_assertmsg("putclosrout#55 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V495*/ meltfptr[494])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#55 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V494*/ meltfptr[493])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V495*/ meltfptr[494])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V494*/ meltfptr[493]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V495*/ meltfptr[494]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_294__CLASS_OBJFETCHMODVAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V496*/ meltfptr[495])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_294__CLASS_OBJFETCHMODVAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V496*/ meltfptr[495])))); ((meltobject_ptr_t)(/*_._VALDATA___V496*/ meltfptr[495]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V497*/ meltfptr[496]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V496*/ meltfptr[495]); melt_dbgtrace_written_object (/*_._VALDATA___V496*/ meltfptr[495], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#1", NULL != (/*_.CLASS_OBJPUTMODVAR__V86*/ meltfptr[85])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTMODVAR__V86*/ meltfptr[85]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#3", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#4", NULL != (/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V251*/ meltfptr[250]); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V251*/ meltfptr[250]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_296__OUTPUCOD_OBJPUTMODVAR#8", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V498*/ meltfptr[497])->tabval[8] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3004:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V498*/ meltfptr[497]); /*putclosurout#56*/ melt_assertmsg("putclosrout#56 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V499*/ meltfptr[498])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#56 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V499*/ meltfptr[498])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V498*/ meltfptr[497]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V499*/ meltfptr[498]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_298__CLASS_OBJPUTMODVAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V500*/ meltfptr[499])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_298__CLASS_OBJPUTMODVAR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V500*/ meltfptr[499])))); ((meltobject_ptr_t)(/*_._VALDATA___V500*/ meltfptr[499]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V501*/ meltfptr[500]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V500*/ meltfptr[499]); melt_dbgtrace_written_object (/*_._VALDATA___V500*/ meltfptr[499], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#1", NULL != (/*_.CLASS_OBJPUTOUTARG__V87*/ meltfptr[86])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTOUTARG__V87*/ meltfptr[86]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#3", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#4", NULL != (/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#5", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[5] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#7", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_300__OUTPUCOD_OBJPUTOUTARG#8", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V502*/ meltfptr[501])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3025:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V502*/ meltfptr[501]); /*putclosurout#57*/ melt_assertmsg("putclosrout#57 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V503*/ meltfptr[502])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#57 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V503*/ meltfptr[502])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V502*/ meltfptr[501]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V503*/ meltfptr[502]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_302__CLASS_OBJPUTOUTARG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_302__CLASS_OBJPUTOUTARG @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V504*/ meltfptr[503]); melt_dbgtrace_written_object (/*_._VALDATA___V504*/ meltfptr[503], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_304__OUTPUCOD_OBJLOCV#0", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_304__OUTPUCOD_OBJLOCV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_304__OUTPUCOD_OBJLOCV#3", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_304__OUTPUCOD_OBJLOCV#4", NULL != (/*_.CTYPE_LONG__V88*/ meltfptr[87])); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[4] = (melt_ptr_t)(/*_.CTYPE_LONG__V88*/ meltfptr[87]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_304__OUTPUCOD_OBJLOCV#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V506*/ meltfptr[505])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3051:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V506*/ meltfptr[505]); /*putclosurout#58*/ melt_assertmsg("putclosrout#58 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V507*/ meltfptr[506])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#58 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V507*/ meltfptr[506])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V506*/ meltfptr[505]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V507*/ meltfptr[506]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_306__CTYPE_LONG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V508*/ meltfptr[507])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_306__CTYPE_LONG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V508*/ meltfptr[507])))); ((meltobject_ptr_t)(/*_._VALDATA___V508*/ meltfptr[507]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V509*/ meltfptr[508]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V508*/ meltfptr[507]); melt_dbgtrace_written_object (/*_._VALDATA___V508*/ meltfptr[507], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJCLOCCV#0", NULL != (/*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88])); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJCLOCCV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJCLOCCV#2", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_308__OUTPUCOD_OBJCLOCCV#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V510*/ meltfptr[509])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3083:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V510*/ meltfptr[509]); /*putclosurout#59*/ melt_assertmsg("putclosrout#59 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V511*/ meltfptr[510])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#59 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V510*/ meltfptr[509])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V511*/ meltfptr[510])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V510*/ meltfptr[509]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V511*/ meltfptr[510]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_310__CLASS_OBJCLOCCV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V512*/ meltfptr[511])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_310__CLASS_OBJCLOCCV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V512*/ meltfptr[511])))); ((meltobject_ptr_t)(/*_._VALDATA___V512*/ meltfptr[511]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V513*/ meltfptr[512]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V512*/ meltfptr[511]); melt_dbgtrace_written_object (/*_._VALDATA___V512*/ meltfptr[511], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJCLOHOOKV#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJCLOHOOKV#1", NULL != (/*_.CLASS_OBJCLOHOOKV__V90*/ meltfptr[89])); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJCLOHOOKV__V90*/ meltfptr[89]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJCLOHOOKV#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJCLOHOOKV#3", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJCLOHOOKV#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V514*/ meltfptr[513])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3102:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V514*/ meltfptr[513]); /*putclosurout#60*/ melt_assertmsg("putclosrout#60 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V515*/ meltfptr[514])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#60 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V515*/ meltfptr[514])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V514*/ meltfptr[513]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V515*/ meltfptr[514]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_314__CLASS_OBJCLOHOOKV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V516*/ meltfptr[515])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_314__CLASS_OBJCLOHOOKV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V516*/ meltfptr[515])))); ((meltobject_ptr_t)(/*_._VALDATA___V516*/ meltfptr[515]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V517*/ meltfptr[516]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V516*/ meltfptr[515]); melt_dbgtrace_written_object (/*_._VALDATA___V516*/ meltfptr[515], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJCONSTV#0", NULL != (/*_.CLASS_OBJCONSTV__V91*/ meltfptr[90])); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCONSTV__V91*/ meltfptr[90]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJCONSTV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJCONSTV#2", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[2] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJCONSTV#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V518*/ meltfptr[517])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3123:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V518*/ meltfptr[517]); /*putclosurout#61*/ melt_assertmsg("putclosrout#61 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V519*/ meltfptr[518])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#61 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V518*/ meltfptr[517])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V519*/ meltfptr[518])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V518*/ meltfptr[517]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V519*/ meltfptr[518]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_318__CLASS_OBJCONSTV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V520*/ meltfptr[519])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_318__CLASS_OBJCONSTV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V520*/ meltfptr[519])))); ((meltobject_ptr_t)(/*_._VALDATA___V520*/ meltfptr[519]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V521*/ meltfptr[520]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V520*/ meltfptr[519]); melt_dbgtrace_written_object (/*_._VALDATA___V520*/ meltfptr[519], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST#1", NULL != (/*_.CLASS_OBJPLAINBLOCK__V92*/ meltfptr[91])); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPLAINBLOCK__V92*/ meltfptr[91]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); /*putclosurout#62*/ melt_assertmsg("putclosrout#62 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#62 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V523*/ meltfptr[522])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V522*/ meltfptr[521]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST#4", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V522*/ meltfptr[521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_320__OUTPUT_CODE_INSTRUCTIONS_LIST#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V522*/ meltfptr[521])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3143:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V522*/ meltfptr[521]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_322__CLASS_OBJPLAINBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V524*/ meltfptr[523])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_322__CLASS_OBJPLAINBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V524*/ meltfptr[523])))); ((meltobject_ptr_t)(/*_._VALDATA___V524*/ meltfptr[523]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V525*/ meltfptr[524]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V524*/ meltfptr[523]); melt_dbgtrace_written_object (/*_._VALDATA___V524*/ meltfptr[523], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3177:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V526*/ meltfptr[525])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJCHECKSIGNAL#0", NULL != (/*_.CLASS_OBJCHECKSIGNAL__V93*/ meltfptr[92])); ((meltroutine_ptr_t)/*_._VALROUT___V526*/ meltfptr[525])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCHECKSIGNAL__V93*/ meltfptr[92]); MELT_LOCATION("warmelt-outobj.melt:3177:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V526*/ meltfptr[525])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJCHECKSIGNAL#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V526*/ meltfptr[525])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3177:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V526*/ meltfptr[525])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V526*/ meltfptr[525])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:3177:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V526*/ meltfptr[525])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJCHECKSIGNAL#3", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V526*/ meltfptr[525])->tabval[3] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3177:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V526*/ meltfptr[525]); /*putclosurout#63*/ melt_assertmsg("putclosrout#63 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V527*/ meltfptr[526])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#63 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V526*/ meltfptr[525])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V527*/ meltfptr[526])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V526*/ meltfptr[525]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V527*/ meltfptr[526]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_326__CLASS_OBJCHECKSIGNAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_326__CLASS_OBJCHECKSIGNAL @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V528*/ meltfptr[527]); melt_dbgtrace_written_object (/*_._VALDATA___V528*/ meltfptr[527], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJANYBLOCK#0", NULL != (/*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93])); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJANYBLOCK#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJANYBLOCK#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJANYBLOCK#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V530*/ meltfptr[529])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3190:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V530*/ meltfptr[529]); /*putclosurout#64*/ melt_assertmsg("putclosrout#64 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V531*/ meltfptr[530])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#64 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V530*/ meltfptr[529])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V531*/ meltfptr[530])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V530*/ meltfptr[529]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V531*/ meltfptr[530]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_330__CLASS_OBJANYBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_330__CLASS_OBJANYBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V532*/ meltfptr[531])))); ((meltobject_ptr_t)(/*_._VALDATA___V532*/ meltfptr[531]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V533*/ meltfptr[532]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V532*/ meltfptr[531]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_6*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_7 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; melt_dbgtrace_written_object (/*_._VALDATA___V532*/ meltfptr[531], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJFLAG#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V534*/ meltfptr[533])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJFLAG#1", NULL != (/*_.CLASS_OBJFLAG__V95*/ meltfptr[94])); ((meltroutine_ptr_t)/*_._VALROUT___V534*/ meltfptr[533])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJFLAG__V95*/ meltfptr[94]); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJFLAG#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V534*/ meltfptr[533])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V534*/ meltfptr[533])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJFLAG#4", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V534*/ meltfptr[533])->tabval[4] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3216:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V534*/ meltfptr[533]); /*putclosurout#65*/ melt_assertmsg("putclosrout#65 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V535*/ meltfptr[534])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#65 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V534*/ meltfptr[533])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V535*/ meltfptr[534])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V534*/ meltfptr[533]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V535*/ meltfptr[534]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_334__CLASS_OBJFLAG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V536*/ meltfptr[535])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_334__CLASS_OBJFLAG @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V536*/ meltfptr[535])))); ((meltobject_ptr_t)(/*_._VALDATA___V536*/ meltfptr[535]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V537*/ meltfptr[536]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V536*/ meltfptr[535]); melt_dbgtrace_written_object (/*_._VALDATA___V536*/ meltfptr[535], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#1", NULL != (/*_.CLASS_OBJMATCHFLAGBLOCK__V96*/ meltfptr[95])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJMATCHFLAGBLOCK__V96*/ meltfptr[95]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#3", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#4", NULL != (/*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#6", NULL != (/*_.CLASS_OBJFLAG__V95*/ meltfptr[94])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJFLAG__V95*/ meltfptr[94]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJMATCHFLAGBLOCK#7", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V538*/ meltfptr[537])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3228:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V538*/ meltfptr[537]); /*putclosurout#66*/ melt_assertmsg("putclosrout#66 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V539*/ meltfptr[538])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#66 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V538*/ meltfptr[537])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V539*/ meltfptr[538])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V538*/ meltfptr[537]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V539*/ meltfptr[538]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_338__CLASS_OBJMATCHFLAGBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V540*/ meltfptr[539])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_338__CLASS_OBJMATCHFLAGBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V540*/ meltfptr[539])))); ((meltobject_ptr_t)(/*_._VALDATA___V540*/ meltfptr[539]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V541*/ meltfptr[540]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V540*/ meltfptr[539]); melt_dbgtrace_written_object (/*_._VALDATA___V540*/ meltfptr[539], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#0", NULL != (/*_.CLASS_OBJMULTIALLOCBLOCK__V97*/ meltfptr[96])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMULTIALLOCBLOCK__V97*/ meltfptr[96]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#3", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#4", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[4] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#6", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#7", NULL != (/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#9", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[9] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_340__OUTPUCOD_OBJMULTIALLOCBLOCK#10", NULL != (/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30])); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V542*/ meltfptr[541])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3280:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V542*/ meltfptr[541]); /*putclosurout#67*/ melt_assertmsg("putclosrout#67 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V543*/ meltfptr[542])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#67 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V543*/ meltfptr[542])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V542*/ meltfptr[541]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V543*/ meltfptr[542]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_342__CLASS_OBJMULTIALLOCBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V544*/ meltfptr[543])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_342__CLASS_OBJMULTIALLOCBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V544*/ meltfptr[543])))); ((meltobject_ptr_t)(/*_._VALDATA___V544*/ meltfptr[543]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V545*/ meltfptr[544]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V544*/ meltfptr[543]); melt_dbgtrace_written_object (/*_._VALDATA___V544*/ meltfptr[543], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#0", NULL != (/*_.CLASS_OBJCITERBLOCK__V98*/ meltfptr[97])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V98*/ meltfptr[97]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#3", NULL != (/*_.CLASS_CITERATOR__V99*/ meltfptr[98])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V99*/ meltfptr[98]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_344__OUTPUCOD_OBJCITERBLOCK#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V546*/ meltfptr[545])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3351:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V546*/ meltfptr[545]); /*putclosurout#68*/ melt_assertmsg("putclosrout#68 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V547*/ meltfptr[546])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#68 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V546*/ meltfptr[545])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V547*/ meltfptr[546])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V546*/ meltfptr[545]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V547*/ meltfptr[546]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_346__CLASS_OBJCITERBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V548*/ meltfptr[547])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_346__CLASS_OBJCITERBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V548*/ meltfptr[547])))); ((meltobject_ptr_t)(/*_._VALDATA___V548*/ meltfptr[547]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V549*/ meltfptr[548]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V548*/ meltfptr[547]); melt_dbgtrace_written_object (/*_._VALDATA___V548*/ meltfptr[547], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_348__CLASS_CITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V550*/ meltfptr[549])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_348__CLASS_CITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V550*/ meltfptr[549])))); ((meltobject_ptr_t)(/*_._VALDATA___V550*/ meltfptr[549]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V551*/ meltfptr[550]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V550*/ meltfptr[549]); melt_dbgtrace_written_object (/*_._VALDATA___V550*/ meltfptr[549], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_OBJCOMMENTINSTR#0", NULL != (/*_.CLASS_OBJCOMMENTINSTR__V100*/ meltfptr[99])); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V100*/ meltfptr[99]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_OBJCOMMENTINSTR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_OBJCOMMENTINSTR#2", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_OBJCOMMENTINSTR#3", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_OBJCOMMENTINSTR#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V552*/ meltfptr[551])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3406:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V552*/ meltfptr[551]); /*putclosurout#69*/ melt_assertmsg("putclosrout#69 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V553*/ meltfptr[552])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#69 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V553*/ meltfptr[552])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V552*/ meltfptr[551]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V553*/ meltfptr[552]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_352__CLASS_OBJCOMMENTINSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V554*/ meltfptr[553])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_352__CLASS_OBJCOMMENTINSTR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V554*/ meltfptr[553])))); ((meltobject_ptr_t)(/*_._VALDATA___V554*/ meltfptr[553]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V555*/ meltfptr[554]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V554*/ meltfptr[553]); melt_dbgtrace_written_object (/*_._VALDATA___V554*/ meltfptr[553], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#0", NULL != (/*_.CLASS_OBJCOMMENTEDBLOCK__V101*/ meltfptr[100])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V101*/ meltfptr[100]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#4", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#5", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V523*/ meltfptr[522]); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V523*/ meltfptr[522]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_OBJCOMMENTEDBLOCK#8", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V556*/ meltfptr[555])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3427:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V556*/ meltfptr[555]); /*putclosurout#70*/ melt_assertmsg("putclosrout#70 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V557*/ meltfptr[556])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#70 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V556*/ meltfptr[555])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V557*/ meltfptr[556])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V556*/ meltfptr[555]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V557*/ meltfptr[556]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_356__CLASS_OBJCOMMENTEDBLOCK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V558*/ meltfptr[557])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_356__CLASS_OBJCOMMENTEDBLOCK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V558*/ meltfptr[557])))); ((meltobject_ptr_t)(/*_._VALDATA___V558*/ meltfptr[557]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V559*/ meltfptr[558]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V558*/ meltfptr[557]); melt_dbgtrace_written_object (/*_._VALDATA___V558*/ meltfptr[557], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_358__LABELCOUNTREF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_358__LABELCOUNTREF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559])))); ((meltobject_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V561*/ meltfptr[560]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V560*/ meltfptr[559]); melt_dbgtrace_written_object (/*_._VALDATA___V560*/ meltfptr[559], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3464:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_360__LABELCOUNTREF @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V562*/ meltfptr[561])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_360__LABELCOUNTREF @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V562*/ meltfptr[561])))); ((meltobject_ptr_t)(/*_._VALDATA___V562*/ meltfptr[561]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALBXINT___V563*/ meltfptr[562]); MELT_LOCATION("warmelt-outobj.melt:3464:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V562*/ meltfptr[561]); MELT_LOCATION("warmelt-outobj.melt:3464:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V562*/ meltfptr[561], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#1", NULL != (/*_.CLASS_OBJLABELINSTR__V102*/ meltfptr[101])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJLABELINSTR__V102*/ meltfptr[101]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V562*/ meltfptr[561]); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V562*/ meltfptr[561]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#4", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#5", NULL != (/*_.SET_CONTENT__V103*/ meltfptr[102])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[5] = (melt_ptr_t)(/*_.SET_CONTENT__V103*/ meltfptr[102]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#6", NULL != (/*_.STRING4OUT__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[6] = (melt_ptr_t)(/*_.STRING4OUT__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#7", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[9] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_362__OUTPUCOD_OBJLABELINSTR#10", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V564*/ meltfptr[563])->tabval[10] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3465:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V564*/ meltfptr[563]); /*putclosurout#71*/ melt_assertmsg("putclosrout#71 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V565*/ meltfptr[564])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#71 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V564*/ meltfptr[563])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V565*/ meltfptr[564])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V564*/ meltfptr[563]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V565*/ meltfptr[564]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_364__CLASS_OBJLABELINSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_364__CLASS_OBJLABELINSTR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V566*/ meltfptr[565]); melt_dbgtrace_written_object (/*_._VALDATA___V566*/ meltfptr[565], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_366__SET_CONTENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V568*/ meltfptr[567])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_366__SET_CONTENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V568*/ meltfptr[567])))); ((meltobject_ptr_t)(/*_._VALDATA___V568*/ meltfptr[567]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V569*/ meltfptr[568]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V568*/ meltfptr[567]); melt_dbgtrace_written_object (/*_._VALDATA___V568*/ meltfptr[567], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_368__OUTPUCOD_OBJGOTOINSTR#0", NULL != (/*_.CLASS_OBJGOTOINSTR__V104*/ meltfptr[103])); ((meltroutine_ptr_t)/*_._VALROUT___V570*/ meltfptr[569])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V104*/ meltfptr[103]); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_368__OUTPUCOD_OBJGOTOINSTR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V570*/ meltfptr[569])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V570*/ meltfptr[569])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V570*/ meltfptr[569])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_368__OUTPUCOD_OBJGOTOINSTR#4", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V570*/ meltfptr[569])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3500:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V570*/ meltfptr[569]); /*putclosurout#72*/ melt_assertmsg("putclosrout#72 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V571*/ meltfptr[570])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#72 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V570*/ meltfptr[569])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V571*/ meltfptr[570])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V570*/ meltfptr[569]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V571*/ meltfptr[570]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_370__CLASS_OBJGOTOINSTR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V572*/ meltfptr[571])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_370__CLASS_OBJGOTOINSTR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V572*/ meltfptr[571])))); ((meltobject_ptr_t)(/*_._VALDATA___V572*/ meltfptr[571]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V573*/ meltfptr[572]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V572*/ meltfptr[571]); melt_dbgtrace_written_object (/*_._VALDATA___V572*/ meltfptr[571], "new static instance"); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_7*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_8 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:3517:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V574*/ meltfptr[573])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_372__ADD2SBUF_CLONSYM#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V574*/ meltfptr[573])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3517:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V574*/ meltfptr[573])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_372__ADD2SBUF_CLONSYM#1", NULL != (/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V574*/ meltfptr[573])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-outobj.melt:3517:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V574*/ meltfptr[573])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V574*/ meltfptr[573])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3517:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V574*/ meltfptr[573])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_372__ADD2SBUF_CLONSYM#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V574*/ meltfptr[573])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3517:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V574*/ meltfptr[573]); /*putclosurout#73*/ melt_assertmsg("putclosrout#73 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V575*/ meltfptr[574])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#73 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V574*/ meltfptr[573])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V575*/ meltfptr[574])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V574*/ meltfptr[573]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#0", NULL != (/*_.CLASS_OBJLOOP__V105*/ meltfptr[104])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJLOOP__V105*/ meltfptr[104]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#3", NULL != (/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[3] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V575*/ meltfptr[574]); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#6", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#7", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_374__OUTPUCOD_OBJLOOP#9", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V576*/ meltfptr[575])->tabval[9] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3530:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V576*/ meltfptr[575]); /*putclosurout#74*/ melt_assertmsg("putclosrout#74 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V577*/ meltfptr[576])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#74 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V576*/ meltfptr[575])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V577*/ meltfptr[576])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V576*/ meltfptr[575]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V577*/ meltfptr[576]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_376__CLASS_OBJLOOP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V578*/ meltfptr[577])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_376__CLASS_OBJLOOP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V578*/ meltfptr[577])))); ((meltobject_ptr_t)(/*_._VALDATA___V578*/ meltfptr[577]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V579*/ meltfptr[578]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V578*/ meltfptr[577]); melt_dbgtrace_written_object (/*_._VALDATA___V578*/ meltfptr[577], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_378__OUTPUCOD_OBJEXIT#0", NULL != (/*_.CLASS_OBJEXIT__V106*/ meltfptr[105])); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJEXIT__V106*/ meltfptr[105]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_378__OUTPUCOD_OBJEXIT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_378__OUTPUCOD_OBJEXIT#2", NULL != (/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V575*/ meltfptr[574]); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_378__OUTPUCOD_OBJEXIT#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V580*/ meltfptr[579])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3587:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V580*/ meltfptr[579]); /*putclosurout#75*/ melt_assertmsg("putclosrout#75 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V581*/ meltfptr[580])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#75 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V580*/ meltfptr[579])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V581*/ meltfptr[580])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V580*/ meltfptr[579]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V581*/ meltfptr[580]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_380__CLASS_OBJEXIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V582*/ meltfptr[581])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_380__CLASS_OBJEXIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V582*/ meltfptr[581])))); ((meltobject_ptr_t)(/*_._VALDATA___V582*/ meltfptr[581]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V583*/ meltfptr[582]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V582*/ meltfptr[581]); melt_dbgtrace_written_object (/*_._VALDATA___V582*/ meltfptr[581], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_382__OUTPUCOD_OBJAGAIN#0", NULL != (/*_.CLASS_OBJAGAIN__V107*/ meltfptr[106])); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJAGAIN__V107*/ meltfptr[106]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_382__OUTPUCOD_OBJAGAIN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_382__OUTPUCOD_OBJAGAIN#2", NULL != (/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19])); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CLONED_SYMBOL__V20*/ meltfptr[19]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V575*/ meltfptr[574]); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V575*/ meltfptr[574]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_382__OUTPUCOD_OBJAGAIN#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V584*/ meltfptr[583])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3607:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V584*/ meltfptr[583]); /*putclosurout#76*/ melt_assertmsg("putclosrout#76 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V585*/ meltfptr[584])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#76 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V584*/ meltfptr[583])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V585*/ meltfptr[584])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V584*/ meltfptr[583]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V585*/ meltfptr[584]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_384__CLASS_OBJAGAIN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V586*/ meltfptr[585])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_384__CLASS_OBJAGAIN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V586*/ meltfptr[585])))); ((meltobject_ptr_t)(/*_._VALDATA___V586*/ meltfptr[585]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V587*/ meltfptr[586]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V586*/ meltfptr[585]); melt_dbgtrace_written_object (/*_._VALDATA___V586*/ meltfptr[585], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUCOD_OBJCOMPUTE#0", NULL != (/*_.CLASS_OBJCOMPUTE__V108*/ meltfptr[107])); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOMPUTE__V108*/ meltfptr[107]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUCOD_OBJCOMPUTE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUCOD_OBJCOMPUTE#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUCOD_OBJCOMPUTE#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_386__OUTPUCOD_OBJCOMPUTE#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V588*/ meltfptr[587])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3626:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V588*/ meltfptr[587]); /*putclosurout#77*/ melt_assertmsg("putclosrout#77 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V589*/ meltfptr[588])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#77 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V588*/ meltfptr[587])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V589*/ meltfptr[588])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V588*/ meltfptr[587]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V589*/ meltfptr[588]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_388__CLASS_OBJCOMPUTE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V590*/ meltfptr[589])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_388__CLASS_OBJCOMPUTE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V590*/ meltfptr[589])))); ((meltobject_ptr_t)(/*_._VALDATA___V590*/ meltfptr[589]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V591*/ meltfptr[590]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V590*/ meltfptr[589]); melt_dbgtrace_written_object (/*_._VALDATA___V590*/ meltfptr[589], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__OUTPUCOD_OBJCOND#0", NULL != (/*_.CLASS_OBJCOND__V109*/ meltfptr[108])); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCOND__V109*/ meltfptr[108]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__OUTPUCOD_OBJCOND#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__OUTPUCOD_OBJCOND#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__OUTPUCOD_OBJCOND#4", NULL != (/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70])); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJPUREVALUE__V71*/ meltfptr[70]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_390__OUTPUCOD_OBJCOND#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V592*/ meltfptr[591])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3673:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V592*/ meltfptr[591]); /*putclosurout#78*/ melt_assertmsg("putclosrout#78 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V593*/ meltfptr[592])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#78 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V592*/ meltfptr[591])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V593*/ meltfptr[592])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V592*/ meltfptr[591]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V593*/ meltfptr[592]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_392__CLASS_OBJCOND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V594*/ meltfptr[593])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_392__CLASS_OBJCOND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V594*/ meltfptr[593])))); ((meltobject_ptr_t)(/*_._VALDATA___V594*/ meltfptr[593]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V595*/ meltfptr[594]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V594*/ meltfptr[593]); melt_dbgtrace_written_object (/*_._VALDATA___V594*/ meltfptr[593], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_394__OUTPUCOD_OBJCPPIF#0", NULL != (/*_.CLASS_OBJCPPIF__V110*/ meltfptr[109])); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCPPIF__V110*/ meltfptr[109]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_394__OUTPUCOD_OBJCPPIF#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_394__OUTPUCOD_OBJCPPIF#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_394__OUTPUCOD_OBJCPPIF#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V596*/ meltfptr[595])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3713:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V596*/ meltfptr[595]); /*putclosurout#79*/ melt_assertmsg("putclosrout#79 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V597*/ meltfptr[596])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#79 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V596*/ meltfptr[595])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V597*/ meltfptr[596])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V596*/ meltfptr[595]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V597*/ meltfptr[596]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_396__CLASS_OBJCPPIF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_396__CLASS_OBJCPPIF @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V598*/ meltfptr[597]); melt_dbgtrace_written_object (/*_._VALDATA___V598*/ meltfptr[597], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#0", NULL != (/*_.CLASS_OBJINTERNSYMBOL__V111*/ meltfptr[110])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V111*/ meltfptr[110]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V112*/ meltfptr[111])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V112*/ meltfptr[111]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_398__OUTPUCOD_OBJINTERNSYMBOL#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V600*/ meltfptr[599])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3746:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V600*/ meltfptr[599]); /*putclosurout#80*/ melt_assertmsg("putclosrout#80 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V601*/ meltfptr[600])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#80 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V600*/ meltfptr[599])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V601*/ meltfptr[600])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V600*/ meltfptr[599]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V601*/ meltfptr[600]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_400__CLASS_OBJINTERNSYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V602*/ meltfptr[601])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_400__CLASS_OBJINTERNSYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V602*/ meltfptr[601])))); ((meltobject_ptr_t)(/*_._VALDATA___V602*/ meltfptr[601]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V603*/ meltfptr[602]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V602*/ meltfptr[601]); melt_dbgtrace_written_object (/*_._VALDATA___V602*/ meltfptr[601], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_402__CLASS_NREP_DATASYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V604*/ meltfptr[603])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_402__CLASS_NREP_DATASYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V604*/ meltfptr[603])))); ((meltobject_ptr_t)(/*_._VALDATA___V604*/ meltfptr[603]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V605*/ meltfptr[604]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V604*/ meltfptr[603]); melt_dbgtrace_written_object (/*_._VALDATA___V604*/ meltfptr[603], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_404__OUTPUCOD_OBJINTERNKEYWORD#0", NULL != (/*_.CLASS_OBJINTERNKEYWORD__V113*/ meltfptr[112])); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V113*/ meltfptr[112]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_404__OUTPUCOD_OBJINTERNKEYWORD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_404__OUTPUCOD_OBJINTERNKEYWORD#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V114*/ meltfptr[113])); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V114*/ meltfptr[113]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_404__OUTPUCOD_OBJINTERNKEYWORD#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_404__OUTPUCOD_OBJINTERNKEYWORD#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V606*/ meltfptr[605])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3771:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V606*/ meltfptr[605]); /*putclosurout#81*/ melt_assertmsg("putclosrout#81 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V607*/ meltfptr[606])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#81 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V606*/ meltfptr[605])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V607*/ meltfptr[606])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V606*/ meltfptr[605]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V607*/ meltfptr[606]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_406__CLASS_OBJINTERNKEYWORD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V608*/ meltfptr[607])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_406__CLASS_OBJINTERNKEYWORD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V608*/ meltfptr[607])))); ((meltobject_ptr_t)(/*_._VALDATA___V608*/ meltfptr[607]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V609*/ meltfptr[608]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V608*/ meltfptr[607]); melt_dbgtrace_written_object (/*_._VALDATA___V608*/ meltfptr[607], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_408__CLASS_NREP_DATAKEYWORD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V610*/ meltfptr[609])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_408__CLASS_NREP_DATAKEYWORD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V610*/ meltfptr[609])))); ((meltobject_ptr_t)(/*_._VALDATA___V610*/ meltfptr[609]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V611*/ meltfptr[610]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V610*/ meltfptr[609]); melt_dbgtrace_written_object (/*_._VALDATA___V610*/ meltfptr[609], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#0", NULL != (/*_.CLASS_OBJGETNAMEDSYMBOL__V115*/ meltfptr[114])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V115*/ meltfptr[114]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V112*/ meltfptr[111])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V112*/ meltfptr[111]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_8*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_9 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#6", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[6] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_410__OUTPUCOD_OBJGETNAMEDSYMBOL#8", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V612*/ meltfptr[611])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3795:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V612*/ meltfptr[611]); /*putclosurout#82*/ melt_assertmsg("putclosrout#82 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V613*/ meltfptr[612])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#82 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V612*/ meltfptr[611])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V613*/ meltfptr[612])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V612*/ meltfptr[611]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V613*/ meltfptr[612]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_412__CLASS_OBJGETNAMEDSYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_412__CLASS_OBJGETNAMEDSYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V614*/ meltfptr[613])))); ((meltobject_ptr_t)(/*_._VALDATA___V614*/ meltfptr[613]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V615*/ meltfptr[614]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V614*/ meltfptr[613]); melt_dbgtrace_written_object (/*_._VALDATA___V614*/ meltfptr[613], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#0", NULL != (/*_.CLASS_OBJGETNAMEDKEYWORD__V116*/ meltfptr[115])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V116*/ meltfptr[115]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#2", NULL != (/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#3", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V114*/ meltfptr[113])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V114*/ meltfptr[113]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#6", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_414__OUTPUCOD_OBJGETNAMEDKEYWORD#8", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V616*/ meltfptr[615])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3846:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V616*/ meltfptr[615]); /*putclosurout#83*/ melt_assertmsg("putclosrout#83 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V617*/ meltfptr[616])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#83 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V616*/ meltfptr[615])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V617*/ meltfptr[616])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V616*/ meltfptr[615]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V617*/ meltfptr[616]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_416__CLASS_OBJGETNAMEDKEYWORD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V618*/ meltfptr[617])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_416__CLASS_OBJGETNAMEDKEYWORD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V618*/ meltfptr[617])))); ((meltobject_ptr_t)(/*_._VALDATA___V618*/ meltfptr[617]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V619*/ meltfptr[618]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V618*/ meltfptr[617]); melt_dbgtrace_written_object (/*_._VALDATA___V618*/ meltfptr[617], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#0", NULL != (/*_.CLASS_OBJAPPLY__V117*/ meltfptr[116])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJAPPLY__V117*/ meltfptr[116]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#2", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#6", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#7", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[7] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#8", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#9", NULL != (/*_.CLASS_OBJNIL__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[9] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#10", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[10] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#11", NULL != (/*_.CLASS_OBJLOCV__V41*/ meltfptr[40])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[11] = (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#12", NULL != (/*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[12] = (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#13", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[13] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#14", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[14] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#15", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[15] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#16", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[16] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_418__OUTPUCOD_OBJAPPLY#18", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V620*/ meltfptr[619])->tabval[18] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3883:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V620*/ meltfptr[619]); /*putclosurout#84*/ melt_assertmsg("putclosrout#84 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V621*/ meltfptr[620])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#84 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V620*/ meltfptr[619])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V621*/ meltfptr[620])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V620*/ meltfptr[619]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V621*/ meltfptr[620]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_420__CLASS_OBJAPPLY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V622*/ meltfptr[621])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_420__CLASS_OBJAPPLY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V622*/ meltfptr[621])))); ((meltobject_ptr_t)(/*_._VALDATA___V622*/ meltfptr[621]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V623*/ meltfptr[622]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V622*/ meltfptr[621]); melt_dbgtrace_written_object (/*_._VALDATA___V622*/ meltfptr[621], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_422__GET_CTYPE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V624*/ meltfptr[623])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_422__GET_CTYPE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V624*/ meltfptr[623])))); ((meltobject_ptr_t)(/*_._VALDATA___V624*/ meltfptr[623]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V625*/ meltfptr[624]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V624*/ meltfptr[623]); melt_dbgtrace_written_object (/*_._VALDATA___V624*/ meltfptr[623], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#0", NULL != (/*_.CLASS_OBJMSEND__V119*/ meltfptr[118])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMSEND__V119*/ meltfptr[118]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#2", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#6", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[6] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#7", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#8", NULL != (/*_.CLASS_OBJNIL__V34*/ meltfptr[33])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[8] = (melt_ptr_t)(/*_.CLASS_OBJNIL__V34*/ meltfptr[33]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#9", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[9] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#10", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[11] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_424__OUTPUCOD_OBJMSEND#12", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V626*/ meltfptr[625])->tabval[12] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:3997:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V626*/ meltfptr[625]); /*putclosurout#85*/ melt_assertmsg("putclosrout#85 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V627*/ meltfptr[626])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#85 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V626*/ meltfptr[625])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V627*/ meltfptr[626])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V626*/ meltfptr[625]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V627*/ meltfptr[626]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_426__CLASS_OBJMSEND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V628*/ meltfptr[627])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_426__CLASS_OBJMSEND @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V628*/ meltfptr[627])))); ((meltobject_ptr_t)(/*_._VALDATA___V628*/ meltfptr[627]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V629*/ meltfptr[628]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V628*/ meltfptr[627]); melt_dbgtrace_written_object (/*_._VALDATA___V628*/ meltfptr[627], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#0", NULL != (/*_.CLASS_OBJMULTIAPPLY__V120*/ meltfptr[119])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V120*/ meltfptr[119]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#2", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#6", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[6] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#7", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#8", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#12", NULL != (/*_.LIST_EVERY__V121*/ meltfptr[120])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[12] = (melt_ptr_t)(/*_.LIST_EVERY__V121*/ meltfptr[120]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_428__OUTPUCOD_OBJMULTIAPPLY#13", NULL != (/*_._VALROUT___V631*/ meltfptr[630])); ((meltroutine_ptr_t)/*_._VALROUT___V630*/ meltfptr[629])->tabval[13] = (melt_ptr_t)(/*_._VALROUT___V631*/ meltfptr[630]); MELT_LOCATION("warmelt-outobj.melt:4096:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V630*/ meltfptr[629]); /*putclosurout#86*/ melt_assertmsg("putclosrout#86 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V632*/ meltfptr[631])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#86 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V630*/ meltfptr[629])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V632*/ meltfptr[631])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V630*/ meltfptr[629]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V632*/ meltfptr[631]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_430__CLASS_OBJMULTIAPPLY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V633*/ meltfptr[632])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_430__CLASS_OBJMULTIAPPLY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V633*/ meltfptr[632])))); ((meltobject_ptr_t)(/*_._VALDATA___V633*/ meltfptr[632]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V634*/ meltfptr[633]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V633*/ meltfptr[632]); melt_dbgtrace_written_object (/*_._VALDATA___V633*/ meltfptr[632], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_432__LIST_EVERY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V635*/ meltfptr[634])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_432__LIST_EVERY @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V635*/ meltfptr[634])))); ((meltobject_ptr_t)(/*_._VALDATA___V635*/ meltfptr[634]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V636*/ meltfptr[635]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V635*/ meltfptr[634]); melt_dbgtrace_written_object (/*_._VALDATA___V635*/ meltfptr[634], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#0", NULL != (/*_.CLASS_OBJMULTIMSEND__V122*/ meltfptr[121])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V122*/ meltfptr[121]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#2", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[2] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#3", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[3] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#6", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[6] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#7", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#8", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_435__OUTPUCOD_OBJMULTIMSEND#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V637*/ meltfptr[636])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4256:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V637*/ meltfptr[636]); /*putclosurout#87*/ melt_assertmsg("putclosrout#87 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V638*/ meltfptr[637])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#87 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V637*/ meltfptr[636])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V638*/ meltfptr[637])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V637*/ meltfptr[636]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V638*/ meltfptr[637]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_437__CLASS_OBJMULTIMSEND @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_437__CLASS_OBJMULTIMSEND @#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"); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__OUTPUCOD_OBJCLEAR#0", NULL != (/*_.CLASS_OBJCLEAR__V123*/ meltfptr[122])); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJCLEAR__V123*/ meltfptr[122]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__OUTPUCOD_OBJCLEAR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__OUTPUCOD_OBJCLEAR#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_439__OUTPUCOD_OBJCLEAR#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V641*/ meltfptr[640])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4406:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V641*/ meltfptr[640]); /*putclosurout#88*/ melt_assertmsg("putclosrout#88 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V642*/ meltfptr[641])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#88 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V641*/ meltfptr[640])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V642*/ meltfptr[641])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V641*/ meltfptr[640]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V642*/ meltfptr[641]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_441__CLASS_OBJCLEAR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_441__CLASS_OBJCLEAR @#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-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#0", NULL != (/*_.CLASS_OBJRAWALLOCOBJ__V124*/ meltfptr[123])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V124*/ meltfptr[123]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_9*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_10 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#3", NULL != (/*_.CLASS_OBJVALUE__V36*/ meltfptr[35])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJVALUE__V36*/ meltfptr[35]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#6", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[6] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_443__OUTPUCOD_OBJRAWALLOCOBJ#8", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V645*/ meltfptr[644])->tabval[8] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4423:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V645*/ meltfptr[644]); /*putclosurout#89*/ melt_assertmsg("putclosrout#89 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V646*/ meltfptr[645])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#89 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V645*/ meltfptr[644])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V646*/ meltfptr[645])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V645*/ meltfptr[644]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V646*/ meltfptr[645]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_445__CLASS_OBJRAWALLOCOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V647*/ meltfptr[646])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_445__CLASS_OBJRAWALLOCOBJ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V647*/ meltfptr[646])))); ((meltobject_ptr_t)(/*_._VALDATA___V647*/ meltfptr[646]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V648*/ meltfptr[647]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V647*/ meltfptr[646]); melt_dbgtrace_written_object (/*_._VALDATA___V647*/ meltfptr[646], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_447__OUTPUCOD_OBJNEWCLOSURE#0", NULL != (/*_.CLASS_OBJNEWCLOSURE__V125*/ meltfptr[124])); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V125*/ meltfptr[124]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_447__OUTPUCOD_OBJNEWCLOSURE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_447__OUTPUCOD_OBJNEWCLOSURE#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_447__OUTPUCOD_OBJNEWCLOSURE#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_447__OUTPUCOD_OBJNEWCLOSURE#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V649*/ meltfptr[648])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4462:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V649*/ meltfptr[648]); /*putclosurout#90*/ melt_assertmsg("putclosrout#90 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V650*/ meltfptr[649])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#90 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V649*/ meltfptr[648])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V650*/ meltfptr[649])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V649*/ meltfptr[648]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V650*/ meltfptr[649]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_449__CLASS_OBJNEWCLOSURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_449__CLASS_OBJNEWCLOSURE @#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"); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_451__OUTPUCOD_OBJTOUCH#0", NULL != (/*_.CLASS_OBJTOUCH__V126*/ meltfptr[125])); ((meltroutine_ptr_t)/*_._VALROUT___V653*/ meltfptr[652])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJTOUCH__V126*/ meltfptr[125]); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_451__OUTPUCOD_OBJTOUCH#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V653*/ meltfptr[652])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V653*/ meltfptr[652])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V653*/ meltfptr[652])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_451__OUTPUCOD_OBJTOUCH#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V653*/ meltfptr[652])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4496:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V653*/ meltfptr[652]); /*putclosurout#91*/ melt_assertmsg("putclosrout#91 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V654*/ meltfptr[653])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#91 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V653*/ meltfptr[652])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V654*/ meltfptr[653])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V653*/ meltfptr[652]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V654*/ meltfptr[653]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_453__CLASS_OBJTOUCH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_453__CLASS_OBJTOUCH @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V655*/ meltfptr[654]); melt_dbgtrace_written_object (/*_._VALDATA___V655*/ meltfptr[654], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V657*/ meltfptr[656])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_455__OUTPUCOD_DBGTRACEWRITEOBJ#0", NULL != (/*_.CLASS_OBJDBGTRACEWRITEOBJ__V127*/ meltfptr[126])); ((meltroutine_ptr_t)/*_._VALROUT___V657*/ meltfptr[656])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJDBGTRACEWRITEOBJ__V127*/ meltfptr[126]); MELT_LOCATION("warmelt-outobj.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V657*/ meltfptr[656])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_455__OUTPUCOD_DBGTRACEWRITEOBJ#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V657*/ meltfptr[656])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4521:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V657*/ meltfptr[656])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V657*/ meltfptr[656])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4521:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V657*/ meltfptr[656])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_455__OUTPUCOD_DBGTRACEWRITEOBJ#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V657*/ meltfptr[656])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4521:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V657*/ meltfptr[656]); /*putclosurout#92*/ melt_assertmsg("putclosrout#92 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V658*/ meltfptr[657])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#92 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V657*/ meltfptr[656])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V658*/ meltfptr[657])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V657*/ meltfptr[656]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V658*/ meltfptr[657]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_457__CLASS_OBJDBGTRACEWRITEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_457__CLASS_OBJDBGTRACEWRITEOBJ @#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-outobj.melt:4541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_459__OUTPUCOD_OBJPUTUPLE#0", NULL != (/*_.CLASS_OBJPUTUPLE__V128*/ meltfptr[127])); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTUPLE__V128*/ meltfptr[127]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_459__OUTPUCOD_OBJPUTUPLE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V418*/ meltfptr[417]); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V418*/ meltfptr[417]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_459__OUTPUCOD_OBJPUTUPLE#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_459__OUTPUCOD_OBJPUTUPLE#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V661*/ meltfptr[660])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4541:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V661*/ meltfptr[660]); /*putclosurout#93*/ melt_assertmsg("putclosrout#93 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V662*/ meltfptr[661])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#93 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V661*/ meltfptr[660])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V662*/ meltfptr[661])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V661*/ meltfptr[660]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V662*/ meltfptr[661]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_461__CLASS_OBJPUTUPLE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V663*/ meltfptr[662])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_461__CLASS_OBJPUTUPLE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V663*/ meltfptr[662])))); ((meltobject_ptr_t)(/*_._VALDATA___V663*/ meltfptr[662]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V664*/ meltfptr[663]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V663*/ meltfptr[662]); melt_dbgtrace_written_object (/*_._VALDATA___V663*/ meltfptr[662], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_463__OBJPUTPAIRHEAD_COUNTER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V665*/ meltfptr[664])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_463__OBJPUTPAIRHEAD_COUNTER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V665*/ meltfptr[664])))); ((meltobject_ptr_t)(/*_._VALDATA___V665*/ meltfptr[664]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V666*/ meltfptr[665]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V665*/ meltfptr[664]); melt_dbgtrace_written_object (/*_._VALDATA___V665*/ meltfptr[664], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4614:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_465__OBJPUTPAIRHEAD_COUNTER @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_465__OBJPUTPAIRHEAD_COUNTER @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666])))); ((meltobject_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALBXINT___V668*/ meltfptr[667]); MELT_LOCATION("warmelt-outobj.melt:4614:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V667*/ meltfptr[666]); MELT_LOCATION("warmelt-outobj.melt:4614:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V667*/ meltfptr[666], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_467__OUTPUCOD_OBJPUTPAIRHEAD#0", NULL != (/*_.CLASS_OBJPUTPAIR__V129*/ meltfptr[128])); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTPAIR__V129*/ meltfptr[128]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_467__OUTPUCOD_OBJPUTPAIRHEAD#1", NULL != (/*_.CLASS_OBJPUTPAIRHEAD__V130*/ meltfptr[129])); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTPAIRHEAD__V130*/ meltfptr[129]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V667*/ meltfptr[666]); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V667*/ meltfptr[666]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_467__OUTPUCOD_OBJPUTPAIRHEAD#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_467__OUTPUCOD_OBJPUTPAIRHEAD#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_467__OUTPUCOD_OBJPUTPAIRHEAD#7", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V669*/ meltfptr[668])->tabval[7] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4616:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V669*/ meltfptr[668]); /*putclosurout#94*/ melt_assertmsg("putclosrout#94 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V670*/ meltfptr[669])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#94 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V669*/ meltfptr[668])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V670*/ meltfptr[669])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V669*/ meltfptr[668]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V670*/ meltfptr[669]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_469__CLASS_OBJPUTPAIR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_469__CLASS_OBJPUTPAIR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V671*/ meltfptr[670]); melt_dbgtrace_written_object (/*_._VALDATA___V671*/ meltfptr[670], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_471__CLASS_OBJPUTPAIRHEAD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V673*/ meltfptr[672])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_471__CLASS_OBJPUTPAIRHEAD @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V673*/ meltfptr[672])))); ((meltobject_ptr_t)(/*_._VALDATA___V673*/ meltfptr[672]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V674*/ meltfptr[673]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V673*/ meltfptr[672]); melt_dbgtrace_written_object (/*_._VALDATA___V673*/ meltfptr[672], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_473__OUTPUCOD_OBJPUTPAIRTAIL#0", NULL != (/*_.CLASS_OBJPUTPAIR__V129*/ meltfptr[128])); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTPAIR__V129*/ meltfptr[128]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_473__OUTPUCOD_OBJPUTPAIRTAIL#1", NULL != (/*_.CLASS_OBJPUTPAIRTAIL__V131*/ meltfptr[130])); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTPAIRTAIL__V131*/ meltfptr[130]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_473__OUTPUCOD_OBJPUTPAIRTAIL#3", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[3] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_473__OUTPUCOD_OBJPUTPAIRTAIL#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_473__OUTPUCOD_OBJPUTPAIRTAIL#6", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V675*/ meltfptr[674])->tabval[6] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4645:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V675*/ meltfptr[674]); /*putclosurout#95*/ melt_assertmsg("putclosrout#95 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V676*/ meltfptr[675])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#95 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V675*/ meltfptr[674])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V676*/ meltfptr[675])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V675*/ meltfptr[674]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V676*/ meltfptr[675]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_475__CLASS_OBJPUTPAIRTAIL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V677*/ meltfptr[676])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_475__CLASS_OBJPUTPAIRTAIL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V677*/ meltfptr[676])))); ((meltobject_ptr_t)(/*_._VALDATA___V677*/ meltfptr[676]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V678*/ meltfptr[677]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V677*/ meltfptr[676]); melt_dbgtrace_written_object (/*_._VALDATA___V677*/ meltfptr[676], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_477__OUTPUCOD_OBJPUTLIST#0", NULL != (/*_.CLASS_OBJPUTLIST__V132*/ meltfptr[131])); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTLIST__V132*/ meltfptr[131]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_477__OUTPUCOD_OBJPUTLIST#2", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[2] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_477__OUTPUCOD_OBJPUTLIST#4", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_477__OUTPUCOD_OBJPUTLIST#5", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V679*/ meltfptr[678])->tabval[5] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4671:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V679*/ meltfptr[678]); /*putclosurout#96*/ melt_assertmsg("putclosrout#96 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V680*/ meltfptr[679])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#96 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V679*/ meltfptr[678])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V680*/ meltfptr[679])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V679*/ meltfptr[678]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V680*/ meltfptr[679]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_479__CLASS_OBJPUTLIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_479__CLASS_OBJPUTLIST @#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"); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#0", NULL != (/*_.CLASS_OBJGETSLOT__V133*/ meltfptr[132])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJGETSLOT__V133*/ meltfptr[132]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#3", NULL != (/*_.CLASS_FIELD__V134*/ meltfptr[133])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[3] = (melt_ptr_t)(/*_.CLASS_FIELD__V134*/ meltfptr[133]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_481__OUTPUCOD_OBJGETSLOT#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V683*/ meltfptr[682])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4702:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V683*/ meltfptr[682]); /*putclosurout#97*/ melt_assertmsg("putclosrout#97 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V684*/ meltfptr[683])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#97 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V683*/ meltfptr[682])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V684*/ meltfptr[683])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V683*/ meltfptr[682]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V684*/ meltfptr[683]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_483__CLASS_OBJGETSLOT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_483__CLASS_OBJGETSLOT @#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_485__CLASS_FIELD @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_485__CLASS_FIELD @#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-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#1", NULL != (/*_.CLASS_OBJPUTSLOT__V135*/ meltfptr[134])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTSLOT__V135*/ meltfptr[134]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_10*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_11 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#4", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#5", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#7", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[7] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#8", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[8] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#9", NULL != (/*_.CLASS_NREP__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NREP__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#11", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[11] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#12", NULL != (/*_.CLASS_FIELD__V134*/ meltfptr[133])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[12] = (melt_ptr_t)(/*_.CLASS_FIELD__V134*/ meltfptr[133]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[13] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_487__OUTPUCOD_OBJPUTSLOT#14", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V689*/ meltfptr[688])->tabval[14] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4741:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V689*/ meltfptr[688]); /*putclosurout#98*/ melt_assertmsg("putclosrout#98 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V690*/ meltfptr[689])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#98 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V689*/ meltfptr[688])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V690*/ meltfptr[689])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V689*/ meltfptr[688]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V690*/ meltfptr[689]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_489__CLASS_OBJPUTSLOT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V691*/ meltfptr[690])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_489__CLASS_OBJPUTSLOT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V691*/ meltfptr[690])))); ((meltobject_ptr_t)(/*_._VALDATA___V691*/ meltfptr[690]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V692*/ meltfptr[691]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V691*/ meltfptr[690]); melt_dbgtrace_written_object (/*_._VALDATA___V691*/ meltfptr[690], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_491__OUTPUCOD_OBJPUTCLOSUROUT#0", NULL != (/*_.CLASS_OBJPUTCLOSUROUT__V136*/ meltfptr[135])); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V136*/ meltfptr[135]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_491__OUTPUCOD_OBJPUTCLOSUROUT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_491__OUTPUCOD_OBJPUTCLOSUROUT#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_491__OUTPUCOD_OBJPUTCLOSUROUT#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V693*/ meltfptr[692])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4819:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V693*/ meltfptr[692]); /*putclosurout#99*/ melt_assertmsg("putclosrout#99 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V694*/ meltfptr[693])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#99 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V693*/ meltfptr[692])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V694*/ meltfptr[693])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V693*/ meltfptr[692]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V694*/ meltfptr[693]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_493__CLASS_OBJPUTCLOSUROUT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V695*/ meltfptr[694])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_493__CLASS_OBJPUTCLOSUROUT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V695*/ meltfptr[694])))); ((meltobject_ptr_t)(/*_._VALDATA___V695*/ meltfptr[694]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V696*/ meltfptr[695]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V695*/ meltfptr[694]); melt_dbgtrace_written_object (/*_._VALDATA___V695*/ meltfptr[694], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_495__OUTPUCOD_OBJPUTCLOSEDV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDV__V137*/ meltfptr[136])); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V137*/ meltfptr[136]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_495__OUTPUCOD_OBJPUTCLOSEDV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_495__OUTPUCOD_OBJPUTCLOSEDV#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_495__OUTPUCOD_OBJPUTCLOSEDV#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V697*/ meltfptr[696])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4864:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V697*/ meltfptr[696]); /*putclosurout#100*/ melt_assertmsg("putclosrout#100 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V698*/ meltfptr[697])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#100 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V697*/ meltfptr[696])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V698*/ meltfptr[697])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V697*/ meltfptr[696]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V698*/ meltfptr[697]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_497__CLASS_OBJPUTCLOSEDV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_497__CLASS_OBJPUTCLOSEDV @#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"); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V138*/ meltfptr[137])); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V138*/ meltfptr[137]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_499__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V701*/ meltfptr[700])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4902:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V701*/ meltfptr[700]); /*putclosurout#101*/ melt_assertmsg("putclosrout#101 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V702*/ meltfptr[701])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#101 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V701*/ meltfptr[700])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V702*/ meltfptr[701])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V701*/ meltfptr[700]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V702*/ meltfptr[701]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_501__CLASS_OBJPUTCLOSEDNOTNULLV @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V703*/ meltfptr[702]); melt_dbgtrace_written_object (/*_._VALDATA___V703*/ meltfptr[702], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_503__OUTPUCOD_OBJPUTROUTCONST#0", NULL != (/*_.CLASS_OBJPUTROUTCONST__V139*/ meltfptr[138])); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V139*/ meltfptr[138]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_503__OUTPUCOD_OBJPUTROUTCONST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_503__OUTPUCOD_OBJPUTROUTCONST#2", NULL != (/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50])); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[2] = (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_503__OUTPUCOD_OBJPUTROUTCONST#5", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[5] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_503__OUTPUCOD_OBJPUTROUTCONST#7", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V705*/ meltfptr[704])->tabval[7] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4943:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V705*/ meltfptr[704]); /*putclosurout#102*/ melt_assertmsg("putclosrout#102 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V706*/ meltfptr[705])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#102 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V705*/ meltfptr[704])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V706*/ meltfptr[705])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V705*/ meltfptr[704]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V706*/ meltfptr[705]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_505__CLASS_OBJPUTROUTCONST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_505__CLASS_OBJPUTROUTCONST @#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-outobj.melt:4983:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#0", NULL != (/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V140*/ meltfptr[139])); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V140*/ meltfptr[139]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_507__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V709*/ meltfptr[708])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:4983:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V709*/ meltfptr[708]); /*putclosurout#103*/ melt_assertmsg("putclosrout#103 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V710*/ meltfptr[709])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#103 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V709*/ meltfptr[708])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V710*/ meltfptr[709])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V709*/ meltfptr[708]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V710*/ meltfptr[709]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V711*/ meltfptr[710])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_509__CLASS_OBJPUTROUTCONSTNOTNULL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V711*/ meltfptr[710])))); ((meltobject_ptr_t)(/*_._VALDATA___V711*/ meltfptr[710]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V712*/ meltfptr[711]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V711*/ meltfptr[710]); melt_dbgtrace_written_object (/*_._VALDATA___V711*/ meltfptr[710], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#1", NULL != (/*_.CLASS_OBJPUTHOOKCONST__V141*/ meltfptr[140])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTHOOKCONST__V141*/ meltfptr[140]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#3", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#4", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#5", NULL != (/*_.CLASS_NREP_BOUND_DATA__V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_BOUND_DATA__V142*/ meltfptr[141]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#8", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[8] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_511__OUTPUCOD_OBJPUTHOOKCONST#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V713*/ meltfptr[712])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:5018:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V713*/ meltfptr[712]); /*putclosurout#104*/ melt_assertmsg("putclosrout#104 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V714*/ meltfptr[713])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#104 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V713*/ meltfptr[712])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V714*/ meltfptr[713])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V713*/ meltfptr[712]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V714*/ meltfptr[713]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_513__CLASS_OBJPUTHOOKCONST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_513__CLASS_OBJPUTHOOKCONST @#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_515__CLASS_NREP_BOUND_DATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_515__CLASS_NREP_BOUND_DATA @#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-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#1", NULL != (/*_.CLASS_OBJPUTHOOKDATA__V143*/ meltfptr[142])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJPUTHOOKDATA__V143*/ meltfptr[142]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#3", NULL != (/*_.CLASS_OBJINSTR__V79*/ meltfptr[78])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[3] = (melt_ptr_t)(/*_.CLASS_OBJINSTR__V79*/ meltfptr[78]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#4", NULL != (/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[4] = (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#5", NULL != (/*_.CLASS_NREP_BOUND_DATA__V142*/ meltfptr[141])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_BOUND_DATA__V142*/ meltfptr[141]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#6", NULL != (/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[6] = (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[8] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#9", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[9] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_517__OUTPUCOD_OBJPUTHOOKDATA#10", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V719*/ meltfptr[718])->tabval[10] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:5063:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V719*/ meltfptr[718]); /*putclosurout#105*/ melt_assertmsg("putclosrout#105 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V720*/ meltfptr[719])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#105 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V719*/ meltfptr[718])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V720*/ meltfptr[719])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V719*/ meltfptr[718]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V720*/ meltfptr[719]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_519__CLASS_OBJPUTHOOKDATA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V721*/ meltfptr[720])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_519__CLASS_OBJPUTHOOKDATA @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V721*/ meltfptr[720])))); ((meltobject_ptr_t)(/*_._VALDATA___V721*/ meltfptr[720]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V722*/ meltfptr[721]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V721*/ meltfptr[720]); melt_dbgtrace_written_object (/*_._VALDATA___V721*/ meltfptr[720], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#0", NULL != (/*_.CLASS_OBJPUTXTRARESULT__V144*/ meltfptr[143])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V144*/ meltfptr[143]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#2", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[2] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#5", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[5] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#6", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[6] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#7", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_11*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_12 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#8", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[8] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#9", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[9] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[10] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_521__OUTPUCOD_OBJPUTXTRARESULT#11", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V723*/ meltfptr[722])->tabval[11] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5093:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V723*/ meltfptr[722]); /*putclosurout#106*/ melt_assertmsg("putclosrout#106 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V724*/ meltfptr[723])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#106 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V723*/ meltfptr[722])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V724*/ meltfptr[723])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V723*/ meltfptr[722]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V724*/ meltfptr[723]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_523__CLASS_OBJPUTXTRARESULT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_523__CLASS_OBJPUTXTRARESULT @#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"); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_525__OUTPUCOD_OBJEXPV#0", NULL != (/*_.CLASS_OBJEXPV__V145*/ meltfptr[144])); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJEXPV__V145*/ meltfptr[144]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_525__OUTPUCOD_OBJEXPV#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_525__OUTPUCOD_OBJEXPV#2", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[2] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_525__OUTPUCOD_OBJEXPV#4", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[4] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_525__OUTPUCOD_OBJEXPV#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V727*/ meltfptr[726])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5136:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V727*/ meltfptr[726]); /*putclosurout#107*/ melt_assertmsg("putclosrout#107 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V728*/ meltfptr[727])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#107 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V727*/ meltfptr[726])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V728*/ meltfptr[727])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V727*/ meltfptr[726]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V728*/ meltfptr[727]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_527__CLASS_OBJEXPV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_527__CLASS_OBJEXPV @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V729*/ meltfptr[728]); melt_dbgtrace_written_object (/*_._VALDATA___V729*/ meltfptr[728], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#1", NULL != (/*_.CLASS_OBJLOCATEDEXPV__V146*/ meltfptr[145])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[1] = (melt_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V146*/ meltfptr[145]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#3", NULL != (/*_.CTYPE_VOID__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[3] = (melt_ptr_t)(/*_.CTYPE_VOID__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#7", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[7] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[8] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_529__OUTPUCOD_OBJLOCATEDEXPV#9", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V731*/ meltfptr[730])->tabval[9] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5153:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V731*/ meltfptr[730]); /*putclosurout#108*/ melt_assertmsg("putclosrout#108 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V732*/ meltfptr[731])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#108 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V731*/ meltfptr[730])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V732*/ meltfptr[731])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V731*/ meltfptr[730]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V732*/ meltfptr[731]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_531__CLASS_OBJLOCATEDEXPV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V733*/ meltfptr[732])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_531__CLASS_OBJLOCATEDEXPV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V733*/ meltfptr[732])))); ((meltobject_ptr_t)(/*_._VALDATA___V733*/ meltfptr[732]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V734*/ meltfptr[733]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V733*/ meltfptr[732]); melt_dbgtrace_written_object (/*_._VALDATA___V733*/ meltfptr[732], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5195:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V735*/ meltfptr[734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_533__OUTPUCOD_VERBATIMSTRING#0", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V735*/ meltfptr[734])->tabval[0] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:5195:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V735*/ meltfptr[734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_533__OUTPUCOD_VERBATIMSTRING#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V735*/ meltfptr[734])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5195:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V735*/ meltfptr[734])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V735*/ meltfptr[734])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5195:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V735*/ meltfptr[734])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_533__OUTPUCOD_VERBATIMSTRING#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V735*/ meltfptr[734])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5195:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V735*/ meltfptr[734]); /*putclosurout#109*/ melt_assertmsg("putclosrout#109 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V736*/ meltfptr[735])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#109 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V735*/ meltfptr[734])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V736*/ meltfptr[735])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V735*/ meltfptr[734]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V736*/ meltfptr[735]); MELT_LOCATION("warmelt-outobj.melt:5206:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V737*/ meltfptr[736])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_535__OUTPUCOD_STRING#0", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V737*/ meltfptr[736])->tabval[0] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:5206:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V737*/ meltfptr[736])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_535__OUTPUCOD_STRING#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V737*/ meltfptr[736])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5206:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V737*/ meltfptr[736])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V737*/ meltfptr[736])->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5206:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V737*/ meltfptr[736])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_535__OUTPUCOD_STRING#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V737*/ meltfptr[736])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5206:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V737*/ meltfptr[736]); /*putclosurout#110*/ melt_assertmsg("putclosrout#110 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V738*/ meltfptr[737])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#110 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V737*/ meltfptr[736])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V738*/ meltfptr[737])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V737*/ meltfptr[736]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V738*/ meltfptr[737]); MELT_LOCATION("warmelt-outobj.melt:5219:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V739*/ meltfptr[738])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_537__OUTPUCOD_INTEGER#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V739*/ meltfptr[738])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5219:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V739*/ meltfptr[738]); /*putclosurout#111*/ melt_assertmsg("putclosrout#111 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V740*/ meltfptr[739])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#111 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V739*/ meltfptr[738])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V740*/ meltfptr[739])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V739*/ meltfptr[738]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V740*/ meltfptr[739]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_539__OUTPUCOD_FINALRETURN#0", NULL != (/*_.CLASS_OBJFINALRETURN__V147*/ meltfptr[146])); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[0] = (melt_ptr_t)(/*_.CLASS_OBJFINALRETURN__V147*/ meltfptr[146]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_539__OUTPUCOD_FINALRETURN#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V304*/ meltfptr[303]); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V304*/ meltfptr[303]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V214*/ meltfptr[213]); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[3] = (melt_ptr_t)(/*_._VALCLO___V214*/ meltfptr[213]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_539__OUTPUCOD_FINALRETURN#5", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V741*/ meltfptr[740])->tabval[5] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5226:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V741*/ meltfptr[740]); /*putclosurout#112*/ melt_assertmsg("putclosrout#112 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V742*/ meltfptr[741])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#112 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V741*/ meltfptr[740])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V742*/ meltfptr[741])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V741*/ meltfptr[740]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V742*/ meltfptr[741]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_541__CLASS_OBJFINALRETURN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V743*/ meltfptr[742])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_541__CLASS_OBJFINALRETURN @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V743*/ meltfptr[742])))); ((meltobject_ptr_t)(/*_._VALDATA___V743*/ meltfptr[742]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V744*/ meltfptr[743]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V743*/ meltfptr[742]); melt_dbgtrace_written_object (/*_._VALDATA___V743*/ meltfptr[742], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#0", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[0] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#1", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[1] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#3", NULL != (/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[3] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#4", NULL != (/*_.MULTIPLE_SORT__V148*/ meltfptr[147])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[4] = (melt_ptr_t)(/*_.MULTIPLE_SORT__V148*/ meltfptr[147]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#5", NULL != (/*_.COMPARE_NAMED_ALPHA__V149*/ meltfptr[148])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[5] = (melt_ptr_t)(/*_.COMPARE_NAMED_ALPHA__V149*/ meltfptr[148]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_543__SORTED_NAMED_DICT_TUPLE#6", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V745*/ meltfptr[744])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:5240:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V745*/ meltfptr[744]); /*putclosurout#113*/ melt_assertmsg("putclosrout#113 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V746*/ meltfptr[745])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#113 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V745*/ meltfptr[744])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V746*/ meltfptr[745])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V745*/ meltfptr[744]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V746*/ meltfptr[745]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_545__MULTIPLE_SORT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_545__MULTIPLE_SORT @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_547__COMPARE_NAMED_ALPHA @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_547__COMPARE_NAMED_ALPHA @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V749*/ meltfptr[748]); melt_dbgtrace_written_object (/*_._VALDATA___V749*/ meltfptr[748], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#0", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V746*/ meltfptr[745]); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[2] = (melt_ptr_t)(/*_._VALCLO___V746*/ meltfptr[745]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#3", NULL != (/*_.CLASS_FIELD__V134*/ meltfptr[133])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[3] = (melt_ptr_t)(/*_.CLASS_FIELD__V134*/ meltfptr[133]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#4", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_549__OUTPUT_EXPORTED_OFFSETS#7", NULL != (/*_.CLASS_CLASS__V44*/ meltfptr[43])); ((meltroutine_ptr_t)/*_._VALROUT___V751*/ meltfptr[750])->tabval[7] = (melt_ptr_t)(/*_.CLASS_CLASS__V44*/ meltfptr[43]); MELT_LOCATION("warmelt-outobj.melt:5256:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V751*/ meltfptr[750]); /*putclosurout#114*/ melt_assertmsg("putclosrout#114 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V752*/ meltfptr[751])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#114 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V751*/ meltfptr[750])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V752*/ meltfptr[751])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V751*/ meltfptr[750]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V752*/ meltfptr[751]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_551__CLASS_SECONDARY_CC_FILE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V753*/ meltfptr[752])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_551__CLASS_SECONDARY_CC_FILE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V753*/ meltfptr[752])))); ((meltobject_ptr_t)(/*_._VALDATA___V753*/ meltfptr[752]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V754*/ meltfptr[753]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V753*/ meltfptr[752]); melt_dbgtrace_written_object (/*_._VALDATA___V753*/ meltfptr[752], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#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]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_ROOT__V27*/ meltfptr[26]); /*putupl#36*/ melt_assertmsg("putupl #36 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V757*/ meltfptr[756]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #36 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V757*/ meltfptr[756])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V757*/ meltfptr[756]))->tabval[0] = (melt_ptr_t)(/*_.CLASS_ROOT__V27*/ meltfptr[26]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V757*/ meltfptr[756]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V757*/ meltfptr[756]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_559__SECFIL_MODNAM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_559__SECFIL_MODNAM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757])))); ((meltobject_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V759*/ meltfptr[758]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_559__SECFIL_MODNAM @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_559__SECFIL_MODNAM @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757])))); ((meltobject_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V758*/ meltfptr[757]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V758*/ meltfptr[757], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_563__SECFIL_PATH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_563__SECFIL_PATH @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759])))); ((meltobject_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V761*/ meltfptr[760]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_563__SECFIL_PATH @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_563__SECFIL_PATH @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759])))); ((meltobject_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V760*/ meltfptr[759]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V760*/ meltfptr[759], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__SECFIL_DECLBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__SECFIL_DECLBUF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761])))); ((meltobject_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V763*/ meltfptr[762]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_567__SECFIL_DECLBUF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_567__SECFIL_DECLBUF @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761])))); ((meltobject_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V762*/ meltfptr[761]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V762*/ meltfptr[761], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_571__SECFIL_IMPLBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_571__SECFIL_IMPLBUF @#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-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_571__SECFIL_IMPLBUF @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_571__SECFIL_IMPLBUF @#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___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V764*/ meltfptr[763]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V764*/ meltfptr[763], "new static instance"); /*putupl#37*/ melt_assertmsg("putupl #37 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #37 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V758*/ meltfptr[757]); /*putupl#38*/ melt_assertmsg("putupl #38 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #38 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V760*/ meltfptr[759]); /*putupl#39*/ melt_assertmsg("putupl #39 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #39 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V762*/ meltfptr[761]); /*putupl#40*/ melt_assertmsg("putupl #40 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #40 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V766*/ meltfptr[765]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V764*/ meltfptr[763]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V766*/ meltfptr[765]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_553__CLASS_SECONDARY_CC_FILE @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V766*/ meltfptr[765]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5318:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V755*/ meltfptr[754], "new static instance"); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_12*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_13 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_557__SECFIL_MODNAM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V767*/ meltfptr[766])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_557__SECFIL_MODNAM @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V767*/ meltfptr[766])))); ((meltobject_ptr_t)(/*_._VALDATA___V767*/ meltfptr[766]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V768*/ meltfptr[767]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V767*/ meltfptr[766]); melt_dbgtrace_written_object (/*_._VALDATA___V767*/ meltfptr[766], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_561__SECFIL_PATH @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_561__SECFIL_PATH @#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_565__SECFIL_DECLBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_565__SECFIL_DECLBUF @#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_569__SECFIL_IMPLBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_569__SECFIL_IMPLBUF @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_573__GENERATED_CC_FILENAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_573__GENERATED_CC_FILENAME @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V775*/ meltfptr[774]); melt_dbgtrace_written_object (/*_._VALDATA___V775*/ meltfptr[774], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_575__GENERATED_CC_FILENAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_575__GENERATED_CC_FILENAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V778*/ meltfptr[777]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_578__DISCR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_578__DISCR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V780*/ meltfptr[779]); melt_dbgtrace_written_object (/*_._VALDATA___V780*/ meltfptr[779], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_580 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_580 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778])))); ((meltobject_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V780*/ meltfptr[779]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_580 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_580 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778])))); ((meltobject_ptr_t)(/*_._VALDATA___V779*/ meltfptr[778]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V779*/ meltfptr[778]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V779*/ meltfptr[778], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_581__BASE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_581__BASE @#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"); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_583 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_583 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781])))); ((meltobject_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V783*/ meltfptr[782]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_583 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_583 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781])))); ((meltobject_ptr_t)(/*_._VALDATA___V782*/ meltfptr[781]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V782*/ meltfptr[781]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V782*/ meltfptr[781], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_584__DIR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V786*/ meltfptr[785])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_584__DIR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V786*/ meltfptr[785])))); ((meltobject_ptr_t)(/*_._VALDATA___V786*/ meltfptr[785]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V787*/ meltfptr[786]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V786*/ meltfptr[785]); melt_dbgtrace_written_object (/*_._VALDATA___V786*/ meltfptr[785], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_586 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_586 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])))); ((meltobject_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V786*/ meltfptr[785]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_586 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V785*/ meltfptr[784])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_586 @#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)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V785*/ meltfptr[784]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V785*/ meltfptr[784], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_587__NUM @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_587__NUM @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V789*/ meltfptr[788]); melt_dbgtrace_written_object (/*_._VALDATA___V789*/ meltfptr[788], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_589 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_589 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V789*/ meltfptr[788]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_589 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_589 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t)(/*_._VALDATA___V788*/ meltfptr[787]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG)))); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V788*/ meltfptr[787]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V788*/ meltfptr[787], "new static instance"); /*putupl#41*/ melt_assertmsg("putupl #41 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #41 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)(/*_._VALDATA___V779*/ meltfptr[778]); /*putupl#42*/ melt_assertmsg("putupl #42 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #42 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)(/*_._VALDATA___V782*/ meltfptr[781]); /*putupl#43*/ melt_assertmsg("putupl #43 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #43 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)(/*_._VALDATA___V785*/ meltfptr[784]); /*putupl#44*/ melt_assertmsg("putupl #44 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V791*/ meltfptr[790]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #44 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)(/*_._VALDATA___V788*/ meltfptr[787]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V791*/ meltfptr[790]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_575__GENERATED_CC_FILENAME @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_575__GENERATED_CC_FILENAME @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALTUP___V791*/ meltfptr[790]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_575__GENERATED_CC_FILENAME @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_575__GENERATED_CC_FILENAME @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776]))->obj_vartab[3] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl#45*/ melt_assertmsg("putupl #45 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #45 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V792*/ meltfptr[791]); /*putupl#46*/ melt_assertmsg("putupl #46 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #46 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779]); /*putupl#47*/ melt_assertmsg("putupl #47 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #47 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[2] = (melt_ptr_t)(/*_._VALSTR___V793*/ meltfptr[792]); /*putupl#48*/ melt_assertmsg("putupl #48 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #48 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782]); /*putupl#49*/ melt_assertmsg("putupl #49 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #49 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[4] = (melt_ptr_t)(/*_._VALSTR___V794*/ meltfptr[793]); /*putupl#50*/ melt_assertmsg("putupl #50 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #50 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V786*/ meltfptr[785]); /*putupl#51*/ melt_assertmsg("putupl #51 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #51 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[6] = (melt_ptr_t)(/*_._VALSTR___V795*/ meltfptr[794]); /*putupl#52*/ melt_assertmsg("putupl #52 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #52 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788]); /*putupl#53*/ melt_assertmsg("putupl #53 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #53 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V797*/ meltfptr[796]))->tabval[8] = (melt_ptr_t)(/*_._VALSTR___V796*/ meltfptr[795]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V797*/ meltfptr[796]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_575__GENERATED_CC_FILENAME @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_575__GENERATED_CC_FILENAME @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t)(/*_._VALDATA___V777*/ meltfptr[776]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALTUP___V797*/ meltfptr[796]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V777*/ meltfptr[776]); MELT_LOCATION("warmelt-outobj.melt:5327:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V777*/ meltfptr[776], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__NTH_SECUNDARY_FILE#0", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V798*/ meltfptr[797])->tabval[0] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__NTH_SECUNDARY_FILE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V798*/ meltfptr[797])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__NTH_SECUNDARY_FILE#2", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V798*/ meltfptr[797])->tabval[2] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_596__NTH_SECUNDARY_FILE#3", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V798*/ meltfptr[797])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V755*/ meltfptr[754]); ((meltroutine_ptr_t)/*_._VALROUT___V798*/ meltfptr[797])->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5335:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V798*/ meltfptr[797]); /*putclosurout#115*/ melt_assertmsg("putclosrout#115 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V799*/ meltfptr[798])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#115 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V798*/ meltfptr[797])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V799*/ meltfptr[798])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V798*/ meltfptr[797]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V799*/ meltfptr[798]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#2", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#3", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#4", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[4] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#5", NULL != (/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[5] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#6", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[6] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#7", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[7] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#8", NULL != (/*_.STRING4OUT__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[8] = (melt_ptr_t)(/*_.STRING4OUT__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#9", NULL != (/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[9] = (melt_ptr_t)(/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#10", NULL != (/*_._VALSTR___V801*/ meltfptr[800])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[10] = (melt_ptr_t)(/*_._VALSTR___V801*/ meltfptr[800]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#11", NULL != (/*_._VALSTR___V802*/ meltfptr[801])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[11] = (melt_ptr_t)(/*_._VALSTR___V802*/ meltfptr[801]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#12", NULL != (/*_._VALSTR___V803*/ meltfptr[802])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[12] = (melt_ptr_t)(/*_._VALSTR___V803*/ meltfptr[802]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#13", NULL != (/*_._VALSTR___V804*/ meltfptr[803])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[13] = (melt_ptr_t)(/*_._VALSTR___V804*/ meltfptr[803]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#14", NULL != (/*_._VALSTR___V805*/ meltfptr[804])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[14] = (melt_ptr_t)(/*_._VALSTR___V805*/ meltfptr[804]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#15", NULL != (/*_._VALSTR___V806*/ meltfptr[805])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[15] = (melt_ptr_t)(/*_._VALSTR___V806*/ meltfptr[805]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_598__OUTPUT_MELT_DESCRIPTOR#16", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[16] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V755*/ meltfptr[754]); ((meltroutine_ptr_t)/*_._VALROUT___V800*/ meltfptr[799])->tabval[17] = (melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:5369:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V800*/ meltfptr[799]); /*putclosurout#116*/ melt_assertmsg("putclosrout#116 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V807*/ meltfptr[806])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#116 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V800*/ meltfptr[799])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V807*/ meltfptr[806])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V800*/ meltfptr[799]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V807*/ meltfptr[806]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V808*/ meltfptr[807])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_600__CLASS_RUNNING_EXTENSION_MODULE_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V808*/ meltfptr[807])))); ((meltobject_ptr_t)(/*_._VALDATA___V808*/ meltfptr[807]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V809*/ meltfptr[808]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V808*/ meltfptr[807]); melt_dbgtrace_written_object (/*_._VALDATA___V808*/ meltfptr[807], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_608__SYNTAX_TEST_GENERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_608__SYNTAX_TEST_GENERATOR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V810*/ meltfptr[809]); melt_dbgtrace_written_object (/*_._VALDATA___V810*/ meltfptr[809], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_610__CLASS_SELECTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_610__CLASS_SELECTOR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V812*/ meltfptr[811]); melt_dbgtrace_written_object (/*_._VALDATA___V812*/ meltfptr[811], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_612__RECV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_612__RECV @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V814*/ meltfptr[813]); melt_dbgtrace_written_object (/*_._VALDATA___V814*/ meltfptr[813], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_614 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_614 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])))); ((meltobject_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V814*/ meltfptr[813]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_614 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_614 @#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)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V816*/ meltfptr[815]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V816*/ meltfptr[815], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_615__GENDEV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V817*/ meltfptr[816])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_615__GENDEV @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V817*/ meltfptr[816])))); ((meltobject_ptr_t)(/*_._VALDATA___V817*/ meltfptr[816]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V818*/ meltfptr[817]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V817*/ meltfptr[816]); melt_dbgtrace_written_object (/*_._VALDATA___V817*/ meltfptr[816], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_617 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_617 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818])))); ((meltobject_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V817*/ meltfptr[816]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_617 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_617 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818])))); ((meltobject_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V819*/ meltfptr[818]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V819*/ meltfptr[818], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_618__SBUF @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V820*/ meltfptr[819])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_618__SBUF @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V820*/ meltfptr[819])))); ((meltobject_ptr_t)(/*_._VALDATA___V820*/ meltfptr[819]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V821*/ meltfptr[820]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V820*/ meltfptr[819]); melt_dbgtrace_written_object (/*_._VALDATA___V820*/ meltfptr[819], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_620 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_620 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821])))); ((meltobject_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V820*/ meltfptr[819]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_620 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_620 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821])))); ((meltobject_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V822*/ meltfptr[821]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V822*/ meltfptr[821], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_621__MODCTX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_621__MODCTX @#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"); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_623 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_623 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])))); ((meltobject_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V823*/ meltfptr[822]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_623 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_623 @#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)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_13*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_14 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V825*/ meltfptr[824]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V825*/ meltfptr[824], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_624__IX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V826*/ meltfptr[825])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_624__IX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V826*/ meltfptr[825])))); ((meltobject_ptr_t)(/*_._VALDATA___V826*/ meltfptr[825]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V827*/ meltfptr[826]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V826*/ meltfptr[825]); melt_dbgtrace_written_object (/*_._VALDATA___V826*/ meltfptr[825], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_626 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_626 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827])))); ((meltobject_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V826*/ meltfptr[825]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_626 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_626 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827])))); ((meltobject_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_LONG)))); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V828*/ meltfptr[827]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V828*/ meltfptr[827], "new static instance"); /*putupl#54*/ melt_assertmsg("putupl #54 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #54 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V816*/ meltfptr[815]); /*putupl#55*/ melt_assertmsg("putupl #55 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #55 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V819*/ meltfptr[818]); /*putupl#56*/ melt_assertmsg("putupl #56 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #56 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V822*/ meltfptr[821]); /*putupl#57*/ melt_assertmsg("putupl #57 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #57 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V825*/ meltfptr[824]); /*putupl#58*/ melt_assertmsg("putupl #58 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #58 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V829*/ meltfptr[828]))->tabval[4] = (melt_ptr_t)(/*_._VALDATA___V828*/ meltfptr[827]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V829*/ meltfptr[828]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_628__SYNTAX_TEST_GENERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V830*/ meltfptr[829])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_628__SYNTAX_TEST_GENERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V830*/ meltfptr[829])))); ((meltobject_ptr_t)(/*_._VALDATA___V830*/ meltfptr[829]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V831*/ meltfptr[830]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V830*/ meltfptr[829]); MELT_LOCATION("warmelt-outobj.melt:5786:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V830*/ meltfptr[829], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#0", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[0] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#1", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[1] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#2", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[2] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#3", NULL != (/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#4", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[4] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_630__SYNTESTGEN_ANY#5", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V832*/ meltfptr[831])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5795:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V832*/ meltfptr[831]); /*putclosurout#117*/ melt_assertmsg("putclosrout#117 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V833*/ meltfptr[832])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#117 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V832*/ meltfptr[831])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V833*/ meltfptr[832])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V832*/ meltfptr[831]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V833*/ meltfptr[832]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_632__CLASS_SOURCE_GENERATOR_DEVICE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V834*/ meltfptr[833])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_632__CLASS_SOURCE_GENERATOR_DEVICE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V834*/ meltfptr[833])))); ((meltobject_ptr_t)(/*_._VALDATA___V834*/ meltfptr[833]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V835*/ meltfptr[834]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V834*/ meltfptr[833]); melt_dbgtrace_written_object (/*_._VALDATA___V834*/ meltfptr[833], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#2", NULL != (/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[2] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#3", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#4", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#5", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[5] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#7", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[7] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_634__SUBSTITUTE_FORMALS_FOR_SYNTEST#8", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V836*/ meltfptr[835])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:5815:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V836*/ meltfptr[835]); /*putclosurout#118*/ melt_assertmsg("putclosrout#118 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V837*/ meltfptr[836])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#118 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V836*/ meltfptr[835])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V837*/ meltfptr[836])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V836*/ meltfptr[835]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V837*/ meltfptr[836]); MELT_LOCATION("warmelt-outobj.melt:5841:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V838*/ meltfptr[837])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__EXPAND_TUPLE_FOR_SYNTEST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V838*/ meltfptr[837])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5841:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V838*/ meltfptr[837])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__EXPAND_TUPLE_FOR_SYNTEST#1", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V838*/ meltfptr[837])->tabval[1] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5841:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V838*/ meltfptr[837])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_636__EXPAND_TUPLE_FOR_SYNTEST#2", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V838*/ meltfptr[837])->tabval[2] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5841:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V838*/ meltfptr[837]); /*putclosurout#119*/ melt_assertmsg("putclosrout#119 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V839*/ meltfptr[838])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#119 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V838*/ meltfptr[837])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V839*/ meltfptr[838])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V838*/ meltfptr[837]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V839*/ meltfptr[838]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#1", NULL != (/*_.CLASS_PRIMITIVE__V153*/ meltfptr[152])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[1] = (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V153*/ meltfptr[152]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#3", NULL != (/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#4", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#5", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#7", NULL != (/*_.CLASS_SOURCE_DEFPRIMITIVE__V154*/ meltfptr[153])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[7] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFPRIMITIVE__V154*/ meltfptr[153]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#8", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#9", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[9] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V837*/ meltfptr[836]); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V837*/ meltfptr[836]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#11", NULL != (/*_.CTYPE_VOID__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[11] = (melt_ptr_t)(/*_.CTYPE_VOID__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_638__SYNTESTGEN_PRIMITIVE#12", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[12] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V839*/ meltfptr[838]); ((meltroutine_ptr_t)/*_._VALROUT___V840*/ meltfptr[839])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V839*/ meltfptr[838]); MELT_LOCATION("warmelt-outobj.melt:5865:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V840*/ meltfptr[839]); /*putclosurout#120*/ melt_assertmsg("putclosrout#120 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V841*/ meltfptr[840])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#120 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V840*/ meltfptr[839])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V841*/ meltfptr[840])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V840*/ meltfptr[839]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V841*/ meltfptr[840]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_640__CLASS_PRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V842*/ meltfptr[841])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_640__CLASS_PRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V842*/ meltfptr[841])))); ((meltobject_ptr_t)(/*_._VALDATA___V842*/ meltfptr[841]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V843*/ meltfptr[842]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V842*/ meltfptr[841]); melt_dbgtrace_written_object (/*_._VALDATA___V842*/ meltfptr[841], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_642__CLASS_SOURCE_DEFPRIMITIVE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V844*/ meltfptr[843])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_642__CLASS_SOURCE_DEFPRIMITIVE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V844*/ meltfptr[843])))); ((meltobject_ptr_t)(/*_._VALDATA___V844*/ meltfptr[843]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V845*/ meltfptr[844]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V844*/ meltfptr[843]); melt_dbgtrace_written_object (/*_._VALDATA___V844*/ meltfptr[843], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_644__DISCR_MAP_OBJECTS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V846*/ meltfptr[845])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_644__DISCR_MAP_OBJECTS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V846*/ meltfptr[845])))); ((meltobject_ptr_t)(/*_._VALDATA___V846*/ meltfptr[845]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V847*/ meltfptr[846]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V846*/ meltfptr[845]); melt_dbgtrace_written_object (/*_._VALDATA___V846*/ meltfptr[845], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#1", NULL != (/*_.CLASS_CITERATOR__V99*/ meltfptr[98])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CITERATOR__V99*/ meltfptr[98]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#3", NULL != (/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#4", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#5", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#7", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[7] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#8", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[8] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#9", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[9] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#10", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[10] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#11", NULL != (/*_.CLASS_SOURCE_DEFCITERATOR__V156*/ meltfptr[155])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[11] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCITERATOR__V156*/ meltfptr[155]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V837*/ meltfptr[836]); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V837*/ meltfptr[836]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V839*/ meltfptr[838]); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V839*/ meltfptr[838]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_646__SYNTESTGEN_CITERATOR#15", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V848*/ meltfptr[847])->tabval[15] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:5925:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V848*/ meltfptr[847]); /*putclosurout#121*/ melt_assertmsg("putclosrout#121 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V849*/ meltfptr[848])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#121 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V848*/ meltfptr[847])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V849*/ meltfptr[848])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V848*/ meltfptr[847]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V849*/ meltfptr[848]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_648__CLASS_SOURCE_DEFCITERATOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V850*/ meltfptr[849])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_648__CLASS_SOURCE_DEFCITERATOR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V850*/ meltfptr[849])))); ((meltobject_ptr_t)(/*_._VALDATA___V850*/ meltfptr[849]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V851*/ meltfptr[850]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V850*/ meltfptr[849]); melt_dbgtrace_written_object (/*_._VALDATA___V850*/ meltfptr[849], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#1", NULL != (/*_.CLASS_CMATCHER__V157*/ meltfptr[156])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[1] = (melt_ptr_t)(/*_.CLASS_CMATCHER__V157*/ meltfptr[156]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#3", NULL != (/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[3] = (melt_ptr_t)(/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#4", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#5", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[5] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#6", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#7", NULL != (/*_.CLASS_ANY_MATCHER__V158*/ meltfptr[157])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[7] = (melt_ptr_t)(/*_.CLASS_ANY_MATCHER__V158*/ meltfptr[157]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#8", NULL != (/*_.CLASS_SOURCE_DEFCMATCHER__V159*/ meltfptr[158])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SOURCE_DEFCMATCHER__V159*/ meltfptr[158]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#9", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[9] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#10", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[10] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#11", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[11] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#12", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[12] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V837*/ meltfptr[836]); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V837*/ meltfptr[836]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[14] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V839*/ meltfptr[838]); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[15] = (melt_ptr_t)(/*_._VALCLO___V839*/ meltfptr[838]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#16", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[16] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#17", NULL != (/*_._VALSTR___V853*/ meltfptr[852])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[17] = (melt_ptr_t)(/*_._VALSTR___V853*/ meltfptr[852]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_650__SYNTESTGEN_CMATCHER#18", NULL != (/*_._VALSTR___V854*/ meltfptr[853])); ((meltroutine_ptr_t)/*_._VALROUT___V852*/ meltfptr[851])->tabval[18] = (melt_ptr_t)(/*_._VALSTR___V854*/ meltfptr[853]); MELT_LOCATION("warmelt-outobj.melt:5993:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V852*/ meltfptr[851]); /*putclosurout#122*/ melt_assertmsg("putclosrout#122 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V855*/ meltfptr[854])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#122 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V852*/ meltfptr[851])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V855*/ meltfptr[854])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V852*/ meltfptr[851]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V855*/ meltfptr[854]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_652__CLASS_CMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_652__CLASS_CMATCHER @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V856*/ meltfptr[855]); melt_dbgtrace_written_object (/*_._VALDATA___V856*/ meltfptr[855], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_654__CLASS_ANY_MATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_654__CLASS_ANY_MATCHER @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V858*/ meltfptr[857]); melt_dbgtrace_written_object (/*_._VALDATA___V858*/ meltfptr[857], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_656__CLASS_SOURCE_DEFCMATCHER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_656__CLASS_SOURCE_DEFCMATCHER @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V860*/ meltfptr[859]); melt_dbgtrace_written_object (/*_._VALDATA___V860*/ meltfptr[859], "new static instance"); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_14*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_15 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#2", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#3", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#4", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[4] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#5", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[5] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_660__EMIT_SYNTAX_TESTING_ROUTINE#6", NULL != (/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151])); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE_GENERATOR_DEVICE__V152*/ meltfptr[151]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V830*/ meltfptr[829]); ((meltroutine_ptr_t)/*_._VALROUT___V862*/ meltfptr[861])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V830*/ meltfptr[829]); MELT_LOCATION("warmelt-outobj.melt:6078:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V862*/ meltfptr[861]); /*putclosurout#123*/ melt_assertmsg("putclosrout#123 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V863*/ meltfptr[862])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#123 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V862*/ meltfptr[861])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V863*/ meltfptr[862])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V862*/ meltfptr[861]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V863*/ meltfptr[862]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#1", NULL != (/*_.DEBUG_LESS__V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V160*/ meltfptr[159]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#3", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#4", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#5", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[5] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#6", NULL != (/*_.CLASS_SOURCE__V163*/ meltfptr[162])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SOURCE__V163*/ meltfptr[162]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#7", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[7] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#8", NULL != (/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE__V164*/ meltfptr[163])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[8] = (melt_ptr_t)(/*_.CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE__V164*/ meltfptr[163]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#9", NULL != (/*_._VALSTR___V865*/ meltfptr[864])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[9] = (melt_ptr_t)(/*_._VALSTR___V865*/ meltfptr[864]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#10", NULL != (/*_.CLASS_SOURCE_COMMENT__V165*/ meltfptr[164])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[10] = (melt_ptr_t)(/*_.CLASS_SOURCE_COMMENT__V165*/ meltfptr[164]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#11", NULL != (/*_.NORMAL_EXP__V166*/ meltfptr[165])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[11] = (melt_ptr_t)(/*_.NORMAL_EXP__V166*/ meltfptr[165]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#12", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V167*/ meltfptr[166])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V167*/ meltfptr[166]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#13", NULL != (/*_.CLASS_NREP_ANYPROC__V168*/ meltfptr[167])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V168*/ meltfptr[167]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#14", NULL != (/*_.WRAP_NORMAL_LETSEQ__V169*/ meltfptr[168])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[14] = (melt_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V169*/ meltfptr[168]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#15", NULL != (/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[15] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_662__GIVE_NORMALIZED_MACROEXPANDED_LIST#16", NULL != (/*_.LIST_APPEND2LIST__V171*/ meltfptr[170])); ((meltroutine_ptr_t)/*_._VALROUT___V864*/ meltfptr[863])->tabval[16] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V171*/ meltfptr[170]); MELT_LOCATION("warmelt-outobj.melt:6148:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V864*/ meltfptr[863]); /*putclosurout#124*/ melt_assertmsg("putclosrout#124 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V866*/ meltfptr[865])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#124 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V864*/ meltfptr[863])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V866*/ meltfptr[865])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V864*/ meltfptr[863]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V866*/ meltfptr[865]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_664__DEBUG_LESS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_664__DEBUG_LESS @#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_666__CLASS_NORMALIZATION_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_666__CLASS_NORMALIZATION_CONTEXT @#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_668__CLASS_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_668__CLASS_ENVIRONMENT @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_670__CLASS_SOURCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_670__CLASS_SOURCE @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V873*/ meltfptr[872]); melt_dbgtrace_written_object (/*_._VALDATA___V873*/ meltfptr[872], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V875*/ meltfptr[874])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_672__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V875*/ meltfptr[874])))); ((meltobject_ptr_t)(/*_._VALDATA___V875*/ meltfptr[874]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V876*/ meltfptr[875]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V875*/ meltfptr[874]); melt_dbgtrace_written_object (/*_._VALDATA___V875*/ meltfptr[874], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_675__CLASS_SOURCE_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_675__CLASS_SOURCE_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V877*/ meltfptr[876])))); ((meltobject_ptr_t)(/*_._VALDATA___V877*/ meltfptr[876]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V878*/ meltfptr[877]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V877*/ meltfptr[876]); melt_dbgtrace_written_object (/*_._VALDATA___V877*/ meltfptr[876], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_677__NORMAL_EXP @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V879*/ meltfptr[878])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_677__NORMAL_EXP @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V879*/ meltfptr[878])))); ((meltobject_ptr_t)(/*_._VALDATA___V879*/ meltfptr[878]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V880*/ meltfptr[879]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V879*/ meltfptr[878]); melt_dbgtrace_written_object (/*_._VALDATA___V879*/ meltfptr[878], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_679__CLASS_NORMAL_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V881*/ meltfptr[880])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_679__CLASS_NORMAL_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V881*/ meltfptr[880])))); ((meltobject_ptr_t)(/*_._VALDATA___V881*/ meltfptr[880]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V882*/ meltfptr[881]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V881*/ meltfptr[880]); melt_dbgtrace_written_object (/*_._VALDATA___V881*/ meltfptr[880], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_681__CLASS_NREP_ANYPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V883*/ meltfptr[882])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_681__CLASS_NREP_ANYPROC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V883*/ meltfptr[882])))); ((meltobject_ptr_t)(/*_._VALDATA___V883*/ meltfptr[882]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V884*/ meltfptr[883]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V883*/ meltfptr[882]); melt_dbgtrace_written_object (/*_._VALDATA___V883*/ meltfptr[882], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_683__WRAP_NORMAL_LETSEQ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V885*/ meltfptr[884])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_683__WRAP_NORMAL_LETSEQ @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V885*/ meltfptr[884])))); ((meltobject_ptr_t)(/*_._VALDATA___V885*/ meltfptr[884]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V886*/ meltfptr[885]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V885*/ meltfptr[884]); melt_dbgtrace_written_object (/*_._VALDATA___V885*/ meltfptr[884], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_685__WRAP_NORMAL_LET1 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_685__WRAP_NORMAL_LET1 @#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_687__LIST_APPEND2LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_687__LIST_APPEND2LIST @#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"); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#1", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[1] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#2", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[2] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#4", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#5", NULL != (/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[5] = (melt_ptr_t)(/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#6", NULL != (/*_.CLASS_NREP_DATAHOOK__V172*/ meltfptr[171])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_DATAHOOK__V172*/ meltfptr[171]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#7", NULL != (/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP_CLOSPROC__V54*/ meltfptr[53]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#8", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[8] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#9", NULL != (/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[9] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#10", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[10] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_689__OUTPUT_HOOKS_WITH_MODVAR#11", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[11] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V251*/ meltfptr[250]); ((meltroutine_ptr_t)/*_._VALROUT___V891*/ meltfptr[890])->tabval[12] = (melt_ptr_t)(/*_._VALCLO___V251*/ meltfptr[250]); MELT_LOCATION("warmelt-outobj.melt:6286:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V891*/ meltfptr[890]); /*putclosurout#125*/ melt_assertmsg("putclosrout#125 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V892*/ meltfptr[891])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#125 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V891*/ meltfptr[890])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V892*/ meltfptr[891])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V891*/ meltfptr[890]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V892*/ meltfptr[891]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_691__CLASS_NREP_DATAHOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_691__CLASS_NREP_DATAHOOK @#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"); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#2", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#3", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#4", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#5", NULL != (/*_.DISCR_STRBUF__V78*/ meltfptr[77])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[5] = (melt_ptr_t)(/*_.DISCR_STRBUF__V78*/ meltfptr[77]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V866*/ meltfptr[865]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V866*/ meltfptr[865]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#7", NULL != (/*_.CLASS_NREP_INITPROC__V173*/ meltfptr[172])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP_INITPROC__V173*/ meltfptr[172]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#8", NULL != (/*_.CLASS_NREP_ANYPROC__V168*/ meltfptr[167])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NREP_ANYPROC__V168*/ meltfptr[167]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#9", NULL != (/*_._VALSTR___V896*/ meltfptr[895])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[9] = (melt_ptr_t)(/*_._VALSTR___V896*/ meltfptr[895]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#10", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[10] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#11", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#12", NULL != (/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[12] = (melt_ptr_t)(/*_.CLASS_NREP_HOOKPROC__V80*/ meltfptr[79]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#13", NULL != (/*_.COMPILE2OBJ_HOOK__V174*/ meltfptr[173])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[13] = (melt_ptr_t)(/*_.COMPILE2OBJ_HOOK__V174*/ meltfptr[173]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#14", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V175*/ meltfptr[174])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[14] = (melt_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V175*/ meltfptr[174]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#15", NULL != (/*_._VALSTR___V897*/ meltfptr[896])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[15] = (melt_ptr_t)(/*_._VALSTR___V897*/ meltfptr[896]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#16", NULL != (/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[16] = (melt_ptr_t)(/*_.LIST_TO_MULTIPLE__V76*/ meltfptr[75]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#17", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[17] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#18", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[18] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#19", NULL != (/*_.NORMAL_IMPORT__V176*/ meltfptr[175])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[19] = (melt_ptr_t)(/*_.NORMAL_IMPORT__V176*/ meltfptr[175]); MELT_LOCATION("warmelt-outobj.melt:6592:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V898*/ meltfptr[897])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_703__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V898*/ meltfptr[897])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:6592:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V898*/ meltfptr[897])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_703__LAMBDA_#1", NULL != (/*_.NORMAL_IMPORT__V176*/ meltfptr[175])); ((meltroutine_ptr_t)/*_._VALROUT___V898*/ meltfptr[897])->tabval[1] = (melt_ptr_t)(/*_.NORMAL_IMPORT__V176*/ meltfptr[175]); MELT_LOCATION("warmelt-outobj.melt:6592:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V898*/ meltfptr[897]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#20", NULL != (/*_._VALROUT___V898*/ meltfptr[897])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[20] = (melt_ptr_t)(/*_._VALROUT___V898*/ meltfptr[897]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#21", NULL != (/*_.ADD2OUT__V9*/ meltfptr[8])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[21] = (melt_ptr_t)(/*_.ADD2OUT__V9*/ meltfptr[8]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#22", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[22] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V262*/ meltfptr[261]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[23] = (melt_ptr_t)(/*_._VALCLO___V262*/ meltfptr[261]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#24", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[24] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#25", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[25] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#26", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[26] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#27", NULL != (/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[27] = (melt_ptr_t)(/*_.CLASS_NORMAL_MODULE_VARIABLE_BINDING__V18*/ meltfptr[17]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V251*/ meltfptr[250]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[28] = (melt_ptr_t)(/*_._VALCLO___V251*/ meltfptr[250]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V746*/ meltfptr[745]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[29] = (melt_ptr_t)(/*_._VALCLO___V746*/ meltfptr[745]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#30", NULL != (/*_.CLASS_HOOK_DESCRIPTOR__V177*/ meltfptr[176])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[30] = (melt_ptr_t)(/*_.CLASS_HOOK_DESCRIPTOR__V177*/ meltfptr[176]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#31", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[31] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#32", NULL != (/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[32] = (melt_ptr_t)(/*_.CLASS_FORMAL_BINDING__V83*/ meltfptr[82]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#33", NULL != (/*_.SYMBOL_CNAME__V178*/ meltfptr[177])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[33] = (melt_ptr_t)(/*_.SYMBOL_CNAME__V178*/ meltfptr[177]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#34", NULL != (/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[34] = (melt_ptr_t)(/*_.CLASS_ANY_BINDING__V19*/ meltfptr[18]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#35", NULL != (/*_.CLASS_SOURCE_CHEADER__V179*/ meltfptr[178])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[35] = (melt_ptr_t)(/*_.CLASS_SOURCE_CHEADER__V179*/ meltfptr[178]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#36", NULL != (/*_.CLASS_LOCATED__V10*/ meltfptr[9])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[36] = (melt_ptr_t)(/*_.CLASS_LOCATED__V10*/ meltfptr[9]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#37", NULL != (/*_.CLASS_SOURCE_CODE_STRING__V180*/ meltfptr[179])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[37] = (melt_ptr_t)(/*_.CLASS_SOURCE_CODE_STRING__V180*/ meltfptr[179]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V308*/ meltfptr[307]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[38] = (melt_ptr_t)(/*_._VALCLO___V308*/ meltfptr[307]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_15*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_16 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#39", NULL != (/*_.CLASS_SOURCE_CIMPLEMENT__V181*/ meltfptr[180])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[39] = (melt_ptr_t)(/*_.CLASS_SOURCE_CIMPLEMENT__V181*/ meltfptr[180]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#40", NULL != (/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[40] = (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#41", NULL != (/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[41] = (melt_ptr_t)(/*_.CLASS_ROUTINEOBJ__V68*/ meltfptr[67]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#42", NULL != (/*_.CLASS_NREP_DATAHOOK__V172*/ meltfptr[171])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[42] = (melt_ptr_t)(/*_.CLASS_NREP_DATAHOOK__V172*/ meltfptr[171]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#43", NULL != (/*_.CLASS_PROTOROUTINEOBJ__V182*/ meltfptr[181])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[43] = (melt_ptr_t)(/*_.CLASS_PROTOROUTINEOBJ__V182*/ meltfptr[181]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V799*/ meltfptr[798]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[44] = (melt_ptr_t)(/*_._VALCLO___V799*/ meltfptr[798]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V755*/ meltfptr[754]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[45] = (melt_ptr_t)(/*_._VALDATA___V755*/ meltfptr[754]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#46", NULL != (/*_.OUTPUT_C_CODE__V30*/ meltfptr[29])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[46] = (melt_ptr_t)(/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V863*/ meltfptr[862]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[47] = (melt_ptr_t)(/*_._VALCLO___V863*/ meltfptr[862]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V752*/ meltfptr[751]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[48] = (melt_ptr_t)(/*_._VALCLO___V752*/ meltfptr[751]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V892*/ meltfptr[891]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[49] = (melt_ptr_t)(/*_._VALCLO___V892*/ meltfptr[891]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#50", NULL != (/*_.ERROR_AT__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[50] = (melt_ptr_t)(/*_.ERROR_AT__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V209*/ meltfptr[208]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[51] = (melt_ptr_t)(/*_._VALDATA___V209*/ meltfptr[208]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#52", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[52] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V807*/ meltfptr[806]); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[53] = (melt_ptr_t)(/*_._VALCLO___V807*/ meltfptr[806]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_693__TRANSLATE_MACROEXPANDED_LIST#54", NULL != (/*_._VALSTR___V899*/ meltfptr[898])); ((meltroutine_ptr_t)/*_._VALROUT___V895*/ meltfptr[894])->tabval[54] = (melt_ptr_t)(/*_._VALSTR___V899*/ meltfptr[898]); MELT_LOCATION("warmelt-outobj.melt:6423:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V895*/ meltfptr[894]); /*putclosurout#126*/ melt_assertmsg("putclosrout#126 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V900*/ meltfptr[899])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#126 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V895*/ meltfptr[894])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V900*/ meltfptr[899])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V895*/ meltfptr[894]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V900*/ meltfptr[899]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_695__CLASS_NREP_INITPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V901*/ meltfptr[900])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_695__CLASS_NREP_INITPROC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V901*/ meltfptr[900])))); ((meltobject_ptr_t)(/*_._VALDATA___V901*/ meltfptr[900]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V902*/ meltfptr[901]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V901*/ meltfptr[900]); melt_dbgtrace_written_object (/*_._VALDATA___V901*/ meltfptr[900], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_698__COMPILE2OBJ_HOOK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V903*/ meltfptr[902])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_698__COMPILE2OBJ_HOOK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V903*/ meltfptr[902])))); ((meltobject_ptr_t)(/*_._VALDATA___V903*/ meltfptr[902]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V904*/ meltfptr[903]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V903*/ meltfptr[902]); melt_dbgtrace_written_object (/*_._VALDATA___V903*/ meltfptr[902], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_700__COMPILE2OBJ_PROCEDURE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_700__COMPILE2OBJ_PROCEDURE @#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_704__NORMAL_IMPORT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_704__NORMAL_IMPORT @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_706__CLASS_HOOK_DESCRIPTOR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_706__CLASS_HOOK_DESCRIPTOR @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V909*/ meltfptr[908]); melt_dbgtrace_written_object (/*_._VALDATA___V909*/ meltfptr[908], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_708__SYMBOL_CNAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V911*/ meltfptr[910])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_708__SYMBOL_CNAME @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V911*/ meltfptr[910])))); ((meltobject_ptr_t)(/*_._VALDATA___V911*/ meltfptr[910]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V912*/ meltfptr[911]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V911*/ meltfptr[910]); melt_dbgtrace_written_object (/*_._VALDATA___V911*/ meltfptr[910], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_710__CLASS_SOURCE_CHEADER @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V913*/ meltfptr[912])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_710__CLASS_SOURCE_CHEADER @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V913*/ meltfptr[912])))); ((meltobject_ptr_t)(/*_._VALDATA___V913*/ meltfptr[912]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V914*/ meltfptr[913]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V913*/ meltfptr[912]); melt_dbgtrace_written_object (/*_._VALDATA___V913*/ meltfptr[912], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_712__CLASS_SOURCE_CODE_STRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_712__CLASS_SOURCE_CODE_STRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V915*/ meltfptr[914])))); ((meltobject_ptr_t)(/*_._VALDATA___V915*/ meltfptr[914]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V916*/ meltfptr[915]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V915*/ meltfptr[914]); melt_dbgtrace_written_object (/*_._VALDATA___V915*/ meltfptr[914], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_714__CLASS_SOURCE_CIMPLEMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V917*/ meltfptr[916])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_714__CLASS_SOURCE_CIMPLEMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V917*/ meltfptr[916])))); ((meltobject_ptr_t)(/*_._VALDATA___V917*/ meltfptr[916]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V918*/ meltfptr[917]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V917*/ meltfptr[916]); melt_dbgtrace_written_object (/*_._VALDATA___V917*/ meltfptr[916], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_716__CLASS_PROTOROUTINEOBJ @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_716__CLASS_PROTOROUTINEOBJ @#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"); /*putclosurout#127*/ melt_assertmsg("putclosrout#127 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V922*/ meltfptr[921])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#127 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V921*/ meltfptr[920])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V922*/ meltfptr[921])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V921*/ meltfptr[920]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V922*/ meltfptr[921]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#1", NULL != (/*_.DEBUG_MORE__V183*/ meltfptr[182])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MORE__V183*/ meltfptr[182]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#3", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[3] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#4", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[4] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#5", NULL != (/*_.FRESH_ENV__V184*/ meltfptr[183])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[5] = (melt_ptr_t)(/*_.FRESH_ENV__V184*/ meltfptr[183]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_727__MACROmiENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V924*/ meltfptr[923])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_727__MACROmiENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V924*/ meltfptr[923])))); ((meltobject_ptr_t)(/*_._VALDATA___V924*/ meltfptr[923]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V925*/ meltfptr[924]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V924*/ meltfptr[923]); melt_dbgtrace_written_object (/*_._VALDATA___V924*/ meltfptr[923], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#6", NULL != (/*_._VALDATA___V924*/ meltfptr[923])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V924*/ meltfptr[923]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_729__BASEmiENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V926*/ meltfptr[925])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_729__BASEmiENVIRONMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V926*/ meltfptr[925])))); ((meltobject_ptr_t)(/*_._VALDATA___V926*/ meltfptr[925]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V927*/ meltfptr[926]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V926*/ meltfptr[925]); melt_dbgtrace_written_object (/*_._VALDATA___V926*/ meltfptr[925], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#7", NULL != (/*_._VALDATA___V926*/ meltfptr[925])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V926*/ meltfptr[925]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#8", NULL != (/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[8] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#9", NULL != (/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[9] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#10", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[10] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#11", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[11] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#12", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[12] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V922*/ meltfptr[921]); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[13] = (melt_ptr_t)(/*_._VALCLO___V922*/ meltfptr[921]); MELT_LOCATION("warmelt-outobj.melt:7172:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V928*/ meltfptr[927])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_735__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V928*/ meltfptr[927])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7172:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V928*/ meltfptr[927])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V922*/ meltfptr[921]); ((meltroutine_ptr_t)/*_._VALROUT___V928*/ meltfptr[927])->tabval[1] = (melt_ptr_t)(/*_._VALCLO___V922*/ meltfptr[921]); MELT_LOCATION("warmelt-outobj.melt:7172:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V928*/ meltfptr[927]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#14", NULL != (/*_._VALROUT___V928*/ meltfptr[927])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[14] = (melt_ptr_t)(/*_._VALROUT___V928*/ meltfptr[927]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#15", NULL != (/*_.CREATE_NORMCONTEXT__V187*/ meltfptr[186])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[15] = (melt_ptr_t)(/*_.CREATE_NORMCONTEXT__V187*/ meltfptr[186]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#16", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[16] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#17", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[17] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#18", NULL != (/*_.MACROEXPAND_1__V189*/ meltfptr[188])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[18] = (melt_ptr_t)(/*_.MACROEXPAND_1__V189*/ meltfptr[188]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#19", NULL != (/*_.DEBUG_LESS__V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[19] = (melt_ptr_t)(/*_.DEBUG_LESS__V160*/ meltfptr[159]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V900*/ meltfptr[899]); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[20] = (melt_ptr_t)(/*_._VALCLO___V900*/ meltfptr[899]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_721__COMPILE_LIST_SEXPR#21", NULL != (/*_.COMPILE2OBJ_INITPROC__V190*/ meltfptr[189])); ((meltroutine_ptr_t)/*_._VALROUT___V923*/ meltfptr[922])->tabval[21] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V190*/ meltfptr[189]); MELT_LOCATION("warmelt-outobj.melt:7135:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V923*/ meltfptr[922]); /*putclosurout#128*/ melt_assertmsg("putclosrout#128 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V929*/ meltfptr[928])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#128 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V923*/ meltfptr[922])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V929*/ meltfptr[928])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V923*/ meltfptr[922]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V929*/ meltfptr[928]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_723__DEBUG_MORE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_723__DEBUG_MORE @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V930*/ meltfptr[929]); melt_dbgtrace_written_object (/*_._VALDATA___V930*/ meltfptr[929], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_725__FRESH_ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_725__FRESH_ENV @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V932*/ meltfptr[931]); melt_dbgtrace_written_object (/*_._VALDATA___V932*/ meltfptr[931], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_731__CLASS_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_731__CLASS_MODULE_CONTEXT @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V934*/ meltfptr[933]); melt_dbgtrace_written_object (/*_._VALDATA___V934*/ meltfptr[933], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_733__DISCR_MAP_STRINGS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_733__DISCR_MAP_STRINGS @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V936*/ meltfptr[935]); melt_dbgtrace_written_object (/*_._VALDATA___V936*/ meltfptr[935], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_736__CREATE_NORMCONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V938*/ meltfptr[937])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_736__CREATE_NORMCONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V938*/ meltfptr[937])))); ((meltobject_ptr_t)(/*_._VALDATA___V938*/ meltfptr[937]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V939*/ meltfptr[938]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V938*/ meltfptr[937]); melt_dbgtrace_written_object (/*_._VALDATA___V938*/ meltfptr[937], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_738__MACROEXPAND_TOPLEVEL_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V940*/ meltfptr[939])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_738__MACROEXPAND_TOPLEVEL_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V940*/ meltfptr[939])))); ((meltobject_ptr_t)(/*_._VALDATA___V940*/ meltfptr[939]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V941*/ meltfptr[940]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V940*/ meltfptr[939]); melt_dbgtrace_written_object (/*_._VALDATA___V940*/ meltfptr[939], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_740__MACROEXPAND_1 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V942*/ meltfptr[941])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_740__MACROEXPAND_1 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V942*/ meltfptr[941])))); ((meltobject_ptr_t)(/*_._VALDATA___V942*/ meltfptr[941]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V943*/ meltfptr[942]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V942*/ meltfptr[941]); melt_dbgtrace_written_object (/*_._VALDATA___V942*/ meltfptr[941], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_742__COMPILE2OBJ_INITPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V944*/ meltfptr[943])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_742__COMPILE2OBJ_INITPROC @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V944*/ meltfptr[943])))); ((meltobject_ptr_t)(/*_._VALDATA___V944*/ meltfptr[943]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V945*/ meltfptr[944]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V944*/ meltfptr[943]); melt_dbgtrace_written_object (/*_._VALDATA___V944*/ meltfptr[943], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_744__CLASS_FIRST_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_744__CLASS_FIRST_MODULE_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V946*/ meltfptr[945])))); ((meltobject_ptr_t)(/*_._VALDATA___V946*/ meltfptr[945]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V947*/ meltfptr[946]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V946*/ meltfptr[945]); melt_dbgtrace_written_object (/*_._VALDATA___V946*/ meltfptr[945], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])))); ((meltobject_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V949*/ meltfptr[948]); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])))); ((meltobject_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947]))->obj_vartab[4] = (melt_ptr_t)( /*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]); /*putupl#59*/ melt_assertmsg("putupl #59 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #59 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))->tabval[0] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),5))), (0)))); /*putupl#60*/ melt_assertmsg("putupl #60 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #60 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))->tabval[1] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),5))), (1)))); /*putupl#61*/ melt_assertmsg("putupl #61 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #61 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))->tabval[2] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),5))), (2)))); /*putupl#62*/ melt_assertmsg("putupl #62 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #62 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V950*/ meltfptr[949]))->tabval[3] = (melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V950*/ meltfptr[949]); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#5", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#5", (5>=0 && 5< melt_object_length((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])))); ((meltobject_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947]))->obj_vartab[5] = (melt_ptr_t)( /*_._VALTUP___V950*/ meltfptr[949]); /*putupl#63*/ melt_assertmsg("putupl #63 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #63 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_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (0)))); /*putupl#64*/ melt_assertmsg("putupl #64 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #64 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_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (1)))); /*putupl#65*/ melt_assertmsg("putupl #65 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #65 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_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (2)))); /*putupl#66*/ melt_assertmsg("putupl #66 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #66 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)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (3)))); /*putupl#67*/ melt_assertmsg("putupl #67 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #67 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)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (4)))); /*putupl#68*/ melt_assertmsg("putupl #68 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #68 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)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (5)))); /*putupl#69*/ melt_assertmsg("putupl #69 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #69 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)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (6)))); /*putupl#70*/ melt_assertmsg("putupl #70 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #70 checkoff", (7>=0 && 7< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[7] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (7)))); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_16*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_17 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#71*/ melt_assertmsg("putupl #71 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #71 checkoff", (8>=0 && 8< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[8] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (8)))); /*putupl#72*/ melt_assertmsg("putupl #72 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #72 checkoff", (9>=0 && 9< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[9] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (9)))); /*putupl#73*/ melt_assertmsg("putupl #73 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #73 checkoff", (10>=0 && 10< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[10] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (10)))); /*putupl#74*/ melt_assertmsg("putupl #74 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #74 checkoff", (11>=0 && 11< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[11] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (11)))); /*putupl#75*/ melt_assertmsg("putupl #75 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #75 checkoff", (12>=0 && 12< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[12] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (12)))); /*putupl#76*/ melt_assertmsg("putupl #76 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #76 checkoff", (13>=0 && 13< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[13] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (13)))); /*putupl#77*/ melt_assertmsg("putupl #77 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #77 checkoff", (14>=0 && 14< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[14] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (14)))); /*putupl#78*/ melt_assertmsg("putupl #78 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #78 checkoff", (15>=0 && 15< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[15] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (15)))); /*putupl#79*/ melt_assertmsg("putupl #79 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #79 checkoff", (16>=0 && 16< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[16] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (16)))); /*putupl#80*/ melt_assertmsg("putupl #80 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #80 checkoff", (17>=0 && 17< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[17] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (17)))); /*putupl#81*/ melt_assertmsg("putupl #81 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #81 checkoff", (18>=0 && 18< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[18] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (18)))); /*putupl#82*/ melt_assertmsg("putupl #82 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #82 checkoff", (19>=0 && 19< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[19] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (19)))); /*putupl#83*/ melt_assertmsg("putupl #83 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #83 checkoff", (20>=0 && 20< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[20] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (20)))); /*putupl#84*/ melt_assertmsg("putupl #84 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #84 checkoff", (21>=0 && 21< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V951*/ meltfptr[950]))->tabval[21] = (melt_ptr_t)(/*multacc*/(melt_multiple_nth((/*fieldacc*/(melt_field_object((melt_ptr_t)(/*_.CLASS_MODULE_CONTEXT__V185*/ meltfptr[184]),6))), (21)))); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V951*/ meltfptr[950]); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#6", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_746__CLASS_FIRST_MODULE_CONTEXT @#6", (6>=0 && 6< melt_object_length((melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947])))); ((meltobject_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947]))->obj_vartab[6] = (melt_ptr_t)( /*_._VALTUP___V951*/ meltfptr[950]); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V948*/ meltfptr[947]); MELT_LOCATION("warmelt-outobj.melt:7206:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V948*/ meltfptr[947], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#1", NULL != (/*_.DEBUG_LESS__V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V160*/ meltfptr[159]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#3", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[3] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#4", NULL != (/*_.FRESH_ENV__V184*/ meltfptr[183])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[4] = (melt_ptr_t)(/*_.FRESH_ENV__V184*/ meltfptr[183]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#5", NULL != (/*_.INITIAL_ENVIRONMENT__V191*/ meltfptr[190])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[5] = (melt_ptr_t)(/*_.INITIAL_ENVIRONMENT__V191*/ meltfptr[190]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_754__MACROmiFIRST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V953*/ meltfptr[952])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_754__MACROmiFIRST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V953*/ meltfptr[952])))); ((meltobject_ptr_t)(/*_._VALDATA___V953*/ meltfptr[952]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V954*/ meltfptr[953]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V953*/ meltfptr[952]); melt_dbgtrace_written_object (/*_._VALDATA___V953*/ meltfptr[952], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#6", NULL != (/*_._VALDATA___V953*/ meltfptr[952])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[6] = (melt_ptr_t)(/*_._VALDATA___V953*/ meltfptr[952]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALDATA___V948*/ meltfptr[947]); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[7] = (melt_ptr_t)(/*_._VALDATA___V948*/ meltfptr[947]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#8", NULL != (/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[8] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#9", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[9] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#10", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[10] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V922*/ meltfptr[921]); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[11] = (melt_ptr_t)(/*_._VALCLO___V922*/ meltfptr[921]); MELT_LOCATION("warmelt-outobj.melt:7252:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V955*/ meltfptr[954])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V922*/ meltfptr[921]); ((meltroutine_ptr_t)/*_._VALROUT___V955*/ meltfptr[954])->tabval[0] = (melt_ptr_t)(/*_._VALCLO___V922*/ meltfptr[921]); MELT_LOCATION("warmelt-outobj.melt:7252:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V955*/ meltfptr[954]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#12", NULL != (/*_._VALROUT___V955*/ meltfptr[954])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[12] = (melt_ptr_t)(/*_._VALROUT___V955*/ meltfptr[954]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#13", NULL != (/*_.CREATE_NORMCONTEXT__V187*/ meltfptr[186])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[13] = (melt_ptr_t)(/*_.CREATE_NORMCONTEXT__V187*/ meltfptr[186]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#14", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[14] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#15", NULL != (/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[15] = (melt_ptr_t)(/*_.CLASS_NORMALIZATION_CONTEXT__V161*/ meltfptr[160]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#16", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[16] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#17", NULL != (/*_.MACROEXPAND_1__V189*/ meltfptr[188])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[17] = (melt_ptr_t)(/*_.MACROEXPAND_1__V189*/ meltfptr[188]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#18", NULL != (/*_.INFORM_AT__V74*/ meltfptr[73])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[18] = (melt_ptr_t)(/*_.INFORM_AT__V74*/ meltfptr[73]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V900*/ meltfptr[899]); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[19] = (melt_ptr_t)(/*_._VALCLO___V900*/ meltfptr[899]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_750__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR#20", NULL != (/*_.COMPILE2OBJ_INITPROC__V190*/ meltfptr[189])); ((meltroutine_ptr_t)/*_._VALROUT___V952*/ meltfptr[951])->tabval[20] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V190*/ meltfptr[189]); MELT_LOCATION("warmelt-outobj.melt:7213:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V952*/ meltfptr[951]); /*putclosurout#129*/ melt_assertmsg("putclosrout#129 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V956*/ meltfptr[955])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#129 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V952*/ meltfptr[951])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V956*/ meltfptr[955])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V952*/ meltfptr[951]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V956*/ meltfptr[955]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_752__INITIAL_ENVIRONMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_752__INITIAL_ENVIRONMENT @#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"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_757__MELT_RUN_EXTENSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_757__MELT_RUN_EXTENSION @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V959*/ meltfptr[958]); melt_dbgtrace_written_object (/*_._VALDATA___V959*/ meltfptr[958], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_759__MELT_RUN_EXTENSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_759__MELT_RUN_EXTENSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])))); ((meltobject_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V962*/ meltfptr[961]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_762__BASENAME @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_762__BASENAME @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V964*/ meltfptr[963]); melt_dbgtrace_written_object (/*_._VALDATA___V964*/ meltfptr[963], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_764 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_764 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962])))); ((meltobject_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V964*/ meltfptr[963]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_764 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_764 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962])))); ((meltobject_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V963*/ meltfptr[962]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V963*/ meltfptr[962], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_765__ENV @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_765__ENV @#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"); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_767 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_767 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965])))); ((meltobject_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V967*/ meltfptr[966]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_767 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_767 @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965])))); ((meltobject_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965]))->obj_vartab[1] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V966*/ meltfptr[965]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V966*/ meltfptr[965], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_768__LITVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V970*/ meltfptr[969])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_768__LITVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V970*/ meltfptr[969])))); ((meltobject_ptr_t)(/*_._VALDATA___V970*/ meltfptr[969]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V971*/ meltfptr[970]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V970*/ meltfptr[969]); melt_dbgtrace_written_object (/*_._VALDATA___V970*/ meltfptr[969], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_770 @#0", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_770 @#0", (0>=0 && 0< melt_object_length((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])))); ((meltobject_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968]))->obj_vartab[0] = (melt_ptr_t)( /*_._VALDATA___V970*/ meltfptr[969]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_770 @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_770 @#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)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V969*/ meltfptr[968]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V969*/ meltfptr[968], "new static instance"); /*putupl#85*/ melt_assertmsg("putupl #85 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #85 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))->tabval[0] = (melt_ptr_t)(/*_._VALDATA___V963*/ meltfptr[962]); /*putupl#86*/ melt_assertmsg("putupl #86 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #86 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V966*/ meltfptr[965]); /*putupl#87*/ melt_assertmsg("putupl #87 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #87 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V972*/ meltfptr[971]))->tabval[2] = (melt_ptr_t)(/*_._VALDATA___V969*/ meltfptr[968]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V972*/ meltfptr[971]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_759__MELT_RUN_EXTENSION @#2", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_759__MELT_RUN_EXTENSION @#2", (2>=0 && 2< melt_object_length((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])))); ((meltobject_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960]))->obj_vartab[2] = (melt_ptr_t)( /*_._VALTUP___V972*/ meltfptr[971]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_759__MELT_RUN_EXTENSION @#3", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_759__MELT_RUN_EXTENSION @#3", (3>=0 && 3< melt_object_length((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])))); ((meltobject_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960]))->obj_vartab[3] = (melt_ptr_t)( ((melt_ptr_t)(MELT_PREDEF(CTYPE_VALUE)))); /*putupl#88*/ melt_assertmsg("putupl #88 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #88 checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[0] = (melt_ptr_t)(/*_._VALSTR___V973*/ meltfptr[972]); /*putupl#89*/ melt_assertmsg("putupl #89 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #89 checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963]); /*putupl#90*/ melt_assertmsg("putupl #90 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #90 checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[2] = (melt_ptr_t)(/*_._VALSTR___V974*/ meltfptr[973]); /*putupl#91*/ melt_assertmsg("putupl #91 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #91 checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[3] = (melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966]); /*putupl#92*/ melt_assertmsg("putupl #92 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #92 checkoff", (4>=0 && 4< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[4] = (melt_ptr_t)(/*_._VALSTR___V975*/ meltfptr[974]); /*putupl#93*/ melt_assertmsg("putupl #93 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #93 checkoff", (5>=0 && 5< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V970*/ meltfptr[969]); /*putupl#94*/ melt_assertmsg("putupl #94 checktup", melt_magic_discr((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))== MELTOBMAG_MULTIPLE); melt_assertmsg("putupl #94 checkoff", (6>=0 && 6< melt_multiple_length((melt_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976])))); ((meltmultiple_ptr_t)(/*_._VALTUP___V977*/ meltfptr[976]))->tabval[6] = (melt_ptr_t)(/*_._VALSTR___V976*/ meltfptr[975]); /*touch:_INITUP_*/ meltgc_touch(/*_._VALTUP___V977*/ meltfptr[976]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^putslot*/ /*putslot*/ melt_assertmsg("checkobj putslot ~dobj_759__MELT_RUN_EXTENSION @#4", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dobj_759__MELT_RUN_EXTENSION @#4", (4>=0 && 4< melt_object_length((melt_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960])))); ((meltobject_ptr_t)(/*_._VALDATA___V961*/ meltfptr[960]))->obj_vartab[4] = (melt_ptr_t)( /*_._VALTUP___V977*/ meltfptr[976]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touch*/ /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V961*/ meltfptr[960]); MELT_LOCATION("warmelt-outobj.melt:7278:/ initchunk"); /*^touchobj*/ melt_dbgtrace_written_object (/*_._VALDATA___V961*/ meltfptr[960], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#1", NULL != (/*_.DEBUG_LESS__V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_LESS__V160*/ meltfptr[159]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#2", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[2] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#4", NULL != (/*_.CLONE_SYMBOL__V192*/ meltfptr[191])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[4] = (melt_ptr_t)(/*_.CLONE_SYMBOL__V192*/ meltfptr[191]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_780__RETAUTOBOXVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V979*/ meltfptr[978])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_780__RETAUTOBOXVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V979*/ meltfptr[978])))); ((meltobject_ptr_t)(/*_._VALDATA___V979*/ meltfptr[978]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V980*/ meltfptr[979]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V979*/ meltfptr[978]); melt_dbgtrace_written_object (/*_._VALDATA___V979*/ meltfptr[978], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#5", NULL != (/*_._VALDATA___V979*/ meltfptr[978])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[5] = (melt_ptr_t)(/*_._VALDATA___V979*/ meltfptr[978]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#6", NULL != (/*_.CLASS_NORMAL_LET_BINDING__V167*/ meltfptr[166])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NORMAL_LET_BINDING__V167*/ meltfptr[166]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#7", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[7] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#8", NULL != (/*_.CLASS_NREP_LOCSYMOCC__V193*/ meltfptr[192])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NREP_LOCSYMOCC__V193*/ meltfptr[192]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#9", NULL != (/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#10", NULL != (/*_.CLASS_LET_BINDING__V195*/ meltfptr[194])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[10] = (melt_ptr_t)(/*_.CLASS_LET_BINDING__V195*/ meltfptr[194]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#11", NULL != (/*_.CTYPE_LONG__V88*/ meltfptr[87])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[11] = (melt_ptr_t)(/*_.CTYPE_LONG__V88*/ meltfptr[87]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_788__LONGAUTOBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V981*/ meltfptr[980])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_788__LONGAUTOBOX @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V981*/ meltfptr[980])))); ((meltobject_ptr_t)(/*_._VALDATA___V981*/ meltfptr[980]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V982*/ meltfptr[981]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V981*/ meltfptr[980]); melt_dbgtrace_written_object (/*_._VALDATA___V981*/ meltfptr[980], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#12", NULL != (/*_._VALDATA___V981*/ meltfptr[980])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[12] = (melt_ptr_t)(/*_._VALDATA___V981*/ meltfptr[980]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#13", NULL != (/*_.CLASS_NREP_CHUNK__V196*/ meltfptr[195])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[13] = (melt_ptr_t)(/*_.CLASS_NREP_CHUNK__V196*/ meltfptr[195]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#14", NULL != (/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[14] = (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_792__AUTOBOXLONG @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_792__AUTOBOXLONG @#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"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#15", NULL != (/*_._VALDATA___V983*/ meltfptr[982])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[15] = (melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#16", NULL != (/*_.CTYPE_VOID__V38*/ meltfptr[37])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[16] = (melt_ptr_t)(/*_.CTYPE_VOID__V38*/ meltfptr[37]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#17", NULL != (/*_.CLASS_NREP_NIL__V46*/ meltfptr[45])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[17] = (melt_ptr_t)(/*_.CLASS_NREP_NIL__V46*/ meltfptr[45]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#18", NULL != (/*_.CTYPE_CSTRING__V197*/ meltfptr[196])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[18] = (melt_ptr_t)(/*_.CTYPE_CSTRING__V197*/ meltfptr[196]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_796__STRINGAUTOBOX @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_796__STRINGAUTOBOX @#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"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#19", NULL != (/*_._VALDATA___V985*/ meltfptr[984])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[19] = (melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_798__AUTOBOXSTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_798__AUTOBOXSTRING @#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"); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#20", NULL != (/*_._VALDATA___V987*/ meltfptr[986])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[20] = (melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_17*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_18 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#21", NULL != (/*_.CLASS_CTYPE_GTY__V65*/ meltfptr[64])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[21] = (melt_ptr_t)(/*_.CLASS_CTYPE_GTY__V65*/ meltfptr[64]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#22", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[22] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#23", NULL != (/*_.STRING4OUT__V23*/ meltfptr[22])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[23] = (melt_ptr_t)(/*_.STRING4OUT__V23*/ meltfptr[22]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#24", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[24] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_800__AUTOBOXGTY @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_800__AUTOBOXGTY @#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-outobj.melt:7288:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_776__AUTOBOX_NORMAL_RETURN#25", NULL != (/*_._VALDATA___V989*/ meltfptr[988])); ((meltroutine_ptr_t)/*_._VALROUT___V978*/ meltfptr[977])->tabval[25] = (melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988]); MELT_LOCATION("warmelt-outobj.melt:7288:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V978*/ meltfptr[977]); /*putclosurout#130*/ melt_assertmsg("putclosrout#130 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V991*/ meltfptr[990])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#130 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V978*/ meltfptr[977])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V991*/ meltfptr[990])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V978*/ meltfptr[977]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V991*/ meltfptr[990]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_778__CLONE_SYMBOL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V992*/ meltfptr[991])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_778__CLONE_SYMBOL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V992*/ meltfptr[991])))); ((meltobject_ptr_t)(/*_._VALDATA___V992*/ meltfptr[991]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V993*/ meltfptr[992]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V992*/ meltfptr[991]); melt_dbgtrace_written_object (/*_._VALDATA___V992*/ meltfptr[991], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_782__CLASS_NREP_LOCSYMOCC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_782__CLASS_NREP_LOCSYMOCC @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V994*/ meltfptr[993]); melt_dbgtrace_written_object (/*_._VALDATA___V994*/ meltfptr[993], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_784__CLASS_NREP_RETURN @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_784__CLASS_NREP_RETURN @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V996*/ meltfptr[995]); melt_dbgtrace_written_object (/*_._VALDATA___V996*/ meltfptr[995], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_786__CLASS_LET_BINDING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V998*/ meltfptr[997])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_786__CLASS_LET_BINDING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V998*/ meltfptr[997])))); ((meltobject_ptr_t)(/*_._VALDATA___V998*/ meltfptr[997]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V999*/ meltfptr[998]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V998*/ meltfptr[997]); melt_dbgtrace_written_object (/*_._VALDATA___V998*/ meltfptr[997], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_790__CLASS_NREP_CHUNK @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1000*/ meltfptr[999])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_790__CLASS_NREP_CHUNK @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1000*/ meltfptr[999])))); ((meltobject_ptr_t)(/*_._VALDATA___V1000*/ meltfptr[999]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1001*/ meltfptr[1000]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1000*/ meltfptr[999]); melt_dbgtrace_written_object (/*_._VALDATA___V1000*/ meltfptr[999], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_794__CTYPE_CSTRING @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1002*/ meltfptr[1001])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_794__CTYPE_CSTRING @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1002*/ meltfptr[1001])))); ((meltobject_ptr_t)(/*_._VALDATA___V1002*/ meltfptr[1001]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1003*/ meltfptr[1002]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1002*/ meltfptr[1001]); melt_dbgtrace_written_object (/*_._VALDATA___V1002*/ meltfptr[1001], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#1", NULL != (/*_.DEBUG_MORE__V183*/ meltfptr[182])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[1] = (melt_ptr_t)(/*_.DEBUG_MORE__V183*/ meltfptr[182]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#2", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#3", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[3] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#4", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[4] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#5", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[5] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1005*/ meltfptr[1004])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_804__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1005*/ meltfptr[1004])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1005*/ meltfptr[1004])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_804__LAMBDA_#1", NULL != (/*_._VALDATA___V211*/ meltfptr[210])); ((meltroutine_ptr_t)/*_._VALROUT___V1005*/ meltfptr[1004])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210]); MELT_LOCATION("warmelt-outobj.melt:7529:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1005*/ meltfptr[1004])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_804__LAMBDA_#2", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1005*/ meltfptr[1004])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7529:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1005*/ meltfptr[1004]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#7", NULL != (/*_._VALROUT___V1005*/ meltfptr[1004])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[7] = (melt_ptr_t)(/*_._VALROUT___V1005*/ meltfptr[1004]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#8", NULL != (/*_.FRESH_ENV__V184*/ meltfptr[183])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[8] = (melt_ptr_t)(/*_.FRESH_ENV__V184*/ meltfptr[183]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_805__MACROmiEXTENSION @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_805__MACROmiEXTENSION @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005])))); ((meltobject_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1007*/ meltfptr[1006]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1006*/ meltfptr[1005]); melt_dbgtrace_written_object (/*_._VALDATA___V1006*/ meltfptr[1005], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#9", NULL != (/*_._VALDATA___V1006*/ meltfptr[1005])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#10", NULL != (/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[10] = (melt_ptr_t)(/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#11", NULL != (/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#12", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#13", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[13] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#14", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[14] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#15", NULL != (/*_.CREATE_NORMAL_EXTENDING_CONTEXT__V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[15] = (melt_ptr_t)(/*_.CREATE_NORMAL_EXTENDING_CONTEXT__V198*/ meltfptr[197]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#16", NULL != (/*_.CLASS_SEXPR__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[16] = (melt_ptr_t)(/*_.CLASS_SEXPR__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#17", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[17] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#18", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[18] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#19", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[19] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_809__LAMBDA_#0", NULL != (/*_.CLASS_SEXPR__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1008*/ meltfptr[1007])->tabval[0] = (melt_ptr_t)(/*_.CLASS_SEXPR__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_809__LAMBDA_#1", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1008*/ meltfptr[1007])->tabval[1] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_809__LAMBDA_#2", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1008*/ meltfptr[1007])->tabval[2] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_809__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1008*/ meltfptr[1007])->tabval[3] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_809__LAMBDA_#4", NULL != (/*_._VALSTR___V1009*/ meltfptr[1008])); ((meltroutine_ptr_t)/*_._VALROUT___V1008*/ meltfptr[1007])->tabval[4] = (melt_ptr_t)(/*_._VALSTR___V1009*/ meltfptr[1008]); MELT_LOCATION("warmelt-outobj.melt:7589:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1008*/ meltfptr[1007]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#20", NULL != (/*_._VALROUT___V1008*/ meltfptr[1007])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[20] = (melt_ptr_t)(/*_._VALROUT___V1008*/ meltfptr[1007]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#21", NULL != (/*_.CLASS_SEXPR__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[21] = (melt_ptr_t)(/*_.CLASS_SEXPR__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#22", NULL != (/*_._VALSTR___V1010*/ meltfptr[1009])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[22] = (melt_ptr_t)(/*_._VALSTR___V1010*/ meltfptr[1009]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#23", NULL != (/*_._VALSTR___V1011*/ meltfptr[1010])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[23] = (melt_ptr_t)(/*_._VALSTR___V1011*/ meltfptr[1010]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#24", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[24] = (melt_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V188*/ meltfptr[187]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#25", NULL != (/*_.MACROEXPAND_1__V189*/ meltfptr[188])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[25] = (melt_ptr_t)(/*_.MACROEXPAND_1__V189*/ meltfptr[188]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#26", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[26] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#27", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[27] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#28", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[28] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#29", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[29] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#30", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[30] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#31", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[31] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#32", NULL != (/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[32] = (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#33", NULL != (/*_.CLASS_NREP__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[33] = (melt_ptr_t)(/*_.CLASS_NREP__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#34", NULL != (/*_.WARNING_AT__V73*/ meltfptr[72])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[34] = (melt_ptr_t)(/*_.WARNING_AT__V73*/ meltfptr[72]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#35", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[35] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V991*/ meltfptr[990]); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[36] = (melt_ptr_t)(/*_._VALCLO___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#37", NULL != (/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[37] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#1", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[1] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#3", NULL != (/*_.GET_CTYPE__V118*/ meltfptr[117])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[3] = (melt_ptr_t)(/*_.GET_CTYPE__V118*/ meltfptr[117]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#4", NULL != (/*_.CLASS_CTYPE__V37*/ meltfptr[36])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[4] = (melt_ptr_t)(/*_.CLASS_CTYPE__V37*/ meltfptr[36]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#5", NULL != (/*_.CTYPE_VALUE__V40*/ meltfptr[39])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[5] = (melt_ptr_t)(/*_.CTYPE_VALUE__V40*/ meltfptr[39]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#6", NULL != (/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[6] = (melt_ptr_t)(/*_.CLASS_NREP_RETURN__V194*/ meltfptr[193]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#7", NULL != (/*_.CLASS_NREP__V48*/ meltfptr[47])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[7] = (melt_ptr_t)(/*_.CLASS_NREP__V48*/ meltfptr[47]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#8", NULL != (/*_.WARNING_AT__V73*/ meltfptr[72])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[8] = (melt_ptr_t)(/*_.WARNING_AT__V73*/ meltfptr[72]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#9", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[9] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V991*/ meltfptr[990]); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[10] = (melt_ptr_t)(/*_._VALCLO___V991*/ meltfptr[990]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_813__LAMBDA_#11", NULL != (/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169])); ((meltroutine_ptr_t)/*_._VALROUT___V1012*/ meltfptr[1011])->tabval[11] = (melt_ptr_t)(/*_.WRAP_NORMAL_LET1__V170*/ meltfptr[169]); MELT_LOCATION("warmelt-outobj.melt:7655:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1012*/ meltfptr[1011]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#38", NULL != (/*_._VALROUT___V1012*/ meltfptr[1011])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[38] = (melt_ptr_t)(/*_._VALROUT___V1012*/ meltfptr[1011]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#39", NULL != (/*_._VALSTR___V1013*/ meltfptr[1012])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[39] = (melt_ptr_t)(/*_._VALSTR___V1013*/ meltfptr[1012]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#40", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[40] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V900*/ meltfptr[899]); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[41] = (melt_ptr_t)(/*_._VALCLO___V900*/ meltfptr[899]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#42", NULL != (/*_.COMPILE2OBJ_INITEXTENDPROC__V199*/ meltfptr[198])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[42] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITEXTENDPROC__V199*/ meltfptr[198]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#43", NULL != (/*_._VALSTR___V1014*/ meltfptr[1013])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[43] = (melt_ptr_t)(/*_._VALSTR___V1014*/ meltfptr[1013]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#44", NULL != (/*_._VALSTR___V1015*/ meltfptr[1014])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[44] = (melt_ptr_t)(/*_._VALSTR___V1015*/ meltfptr[1014]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#45", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[45] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#46", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[46] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_802__TRANSLATE_RUN_MELT_EXPRESSIONS#47", NULL != (/*_.CLASS_LITERAL_VALUE__V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V1004*/ meltfptr[1003])->tabval[47] = (melt_ptr_t)(/*_.CLASS_LITERAL_VALUE__V200*/ meltfptr[199]); MELT_LOCATION("warmelt-outobj.melt:7468:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1004*/ meltfptr[1003]); /*putclosurout#131*/ melt_assertmsg("putclosrout#131 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1016*/ meltfptr[1015])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#131 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1004*/ meltfptr[1003])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1016*/ meltfptr[1015])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1004*/ meltfptr[1003]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1016*/ meltfptr[1015]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1017*/ meltfptr[1016])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_807__CREATE_NORMAL_EXTENDING_CONTEXT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1017*/ meltfptr[1016])))); ((meltobject_ptr_t)(/*_._VALDATA___V1017*/ meltfptr[1016]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1018*/ meltfptr[1017]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1017*/ meltfptr[1016]); melt_dbgtrace_written_object (/*_._VALDATA___V1017*/ meltfptr[1016], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_815__COMPILE2OBJ_INITEXTENDPROC @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_815__COMPILE2OBJ_INITEXTENDPROC @#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_819__CLASS_LITERAL_VALUE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_819__CLASS_LITERAL_VALUE @#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"); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#1", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#3", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[3] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#4", NULL != (/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[4] = (melt_ptr_t)(/*_.CLASS_ANY_MODULE_CONTEXT__V25*/ meltfptr[24]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#5", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[5] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#6", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[6] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7833:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1024*/ meltfptr[1023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_823__LAMBDA_#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1024*/ meltfptr[1023])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7833:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1024*/ meltfptr[1023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_823__LAMBDA_#1", NULL != (/*_._VALDATA___V211*/ meltfptr[210])); ((meltroutine_ptr_t)/*_._VALROUT___V1024*/ meltfptr[1023])->tabval[1] = (melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210]); MELT_LOCATION("warmelt-outobj.melt:7833:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1024*/ meltfptr[1023])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_823__LAMBDA_#2", NULL != (/*_.CLASS_REFERENCE__V6*/ meltfptr[5])); ((meltroutine_ptr_t)/*_._VALROUT___V1024*/ meltfptr[1023])->tabval[2] = (melt_ptr_t)(/*_.CLASS_REFERENCE__V6*/ meltfptr[5]); MELT_LOCATION("warmelt-outobj.melt:7833:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1024*/ meltfptr[1023]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#7", NULL != (/*_._VALROUT___V1024*/ meltfptr[1023])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[7] = (melt_ptr_t)(/*_._VALROUT___V1024*/ meltfptr[1023]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#8", NULL != (/*_.FRESH_ENV__V184*/ meltfptr[183])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[8] = (melt_ptr_t)(/*_.FRESH_ENV__V184*/ meltfptr[183]); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_18*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_19 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#9", NULL != (/*_._VALDATA___V1006*/ meltfptr[1005])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[9] = (melt_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#10", NULL != (/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[10] = (melt_ptr_t)(/*_.CLASS_RUNNING_EXTENSION_MODULE_CONTEXT__V150*/ meltfptr[149]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#11", NULL != (/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[11] = (melt_ptr_t)(/*_.DISCR_MAP_STRINGS__V186*/ meltfptr[185]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#12", NULL != (/*_.DISCR_INTEGER__V62*/ meltfptr[61])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[12] = (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#13", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[13] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#14", NULL != (/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[14] = (melt_ptr_t)(/*_.DISCR_MAP_OBJECTS__V155*/ meltfptr[154]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#15", NULL != (/*_.CREATE_NORMAL_EXTENDING_CONTEXT__V198*/ meltfptr[197])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[15] = (melt_ptr_t)(/*_.CREATE_NORMAL_EXTENDING_CONTEXT__V198*/ meltfptr[197]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#16", NULL != (/*_.DEBUG_LESS__V160*/ meltfptr[159])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[16] = (melt_ptr_t)(/*_.DEBUG_LESS__V160*/ meltfptr[159]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#17", NULL != (/*_.DISCR_STRING__V63*/ meltfptr[62])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[17] = (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V900*/ meltfptr[899]); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[18] = (melt_ptr_t)(/*_._VALCLO___V900*/ meltfptr[899]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#19", NULL != (/*_.COMPILE2OBJ_INITEXTENDPROC__V199*/ meltfptr[198])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[19] = (melt_ptr_t)(/*_.COMPILE2OBJ_INITEXTENDPROC__V199*/ meltfptr[198]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#20", NULL != (/*_._VALSTR___V1025*/ meltfptr[1024])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[20] = (melt_ptr_t)(/*_._VALSTR___V1025*/ meltfptr[1024]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#21", NULL != (/*_._VALSTR___V1026*/ meltfptr[1025])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[21] = (melt_ptr_t)(/*_._VALSTR___V1026*/ meltfptr[1025]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#22", NULL != (/*_.DISCR_MULTIPLE__V77*/ meltfptr[76])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[22] = (melt_ptr_t)(/*_.DISCR_MULTIPLE__V77*/ meltfptr[76]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#23", NULL != (/*_.CLASS_LITERAL_VALUE__V200*/ meltfptr[199])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[23] = (melt_ptr_t)(/*_.CLASS_LITERAL_VALUE__V200*/ meltfptr[199]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_821__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST#24", NULL != (/*_.DEBUG_MORE__V183*/ meltfptr[182])); ((meltroutine_ptr_t)/*_._VALROUT___V1023*/ meltfptr[1022])->tabval[24] = (melt_ptr_t)(/*_.DEBUG_MORE__V183*/ meltfptr[182]); MELT_LOCATION("warmelt-outobj.melt:7777:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1023*/ meltfptr[1022]); /*putclosurout#132*/ melt_assertmsg("putclosrout#132 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1027*/ meltfptr[1026])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#132 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1023*/ meltfptr[1022])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1027*/ meltfptr[1026])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1023*/ meltfptr[1022]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1027*/ meltfptr[1026]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1028*/ meltfptr[1027])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_826__MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1028*/ meltfptr[1027])))); ((meltobject_ptr_t)(/*_._VALDATA___V1028*/ meltfptr[1027]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1029*/ meltfptr[1028]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1028*/ meltfptr[1027]); melt_dbgtrace_written_object (/*_._VALDATA___V1028*/ meltfptr[1027], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#1", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[1] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#2", NULL != (/*_.INFORM_AT__V74*/ meltfptr[73])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[2] = (melt_ptr_t)(/*_.INFORM_AT__V74*/ meltfptr[73]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#3", NULL != (/*_.LIST_APPEND2LIST__V171*/ meltfptr[170])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[3] = (melt_ptr_t)(/*_.LIST_APPEND2LIST__V171*/ meltfptr[170]); /*putclosurout#133*/ melt_assertmsg("putclosrout#133 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1031*/ meltfptr[1030])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#133 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1031*/ meltfptr[1030])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1030*/ meltfptr[1029]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[4] = (melt_ptr_t)(/*_._VALCLO___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#5", NULL != (/*_.CLASS_SYMBOL__V21*/ meltfptr[20])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[5] = (melt_ptr_t)(/*_.CLASS_SYMBOL__V21*/ meltfptr[20]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#6", NULL != (/*_.CLASS_SEXPR__V11*/ meltfptr[10])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[6] = (melt_ptr_t)(/*_.CLASS_SEXPR__V11*/ meltfptr[10]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#7", NULL != (/*_.ERROR_AT__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[7] = (melt_ptr_t)(/*_.ERROR_AT__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1030*/ meltfptr[1029])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_828__READ_MELT_EXPRESSIONS#8", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1030*/ meltfptr[1029])->tabval[8] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:7946:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1030*/ meltfptr[1029]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES#1", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[1] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES#2", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[2] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES#3", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[3] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_830__TRANSLATE_TO_CC_MODULE_MELT_SOURCES#4", NULL != (/*_.ERROR_AT__V13*/ meltfptr[12])); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[4] = (melt_ptr_t)(/*_.ERROR_AT__V13*/ meltfptr[12]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1031*/ meltfptr[1030]); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[5] = (melt_ptr_t)(/*_._VALCLO___V1031*/ meltfptr[1030]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V929*/ meltfptr[928]); ((meltroutine_ptr_t)/*_._VALROUT___V1032*/ meltfptr[1031])->tabval[6] = (melt_ptr_t)(/*_._VALCLO___V929*/ meltfptr[928]); MELT_LOCATION("warmelt-outobj.melt:7984:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1032*/ meltfptr[1031]); /*putclosurout#134*/ melt_assertmsg("putclosrout#134 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1033*/ meltfptr[1032])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#134 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1032*/ meltfptr[1031])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1033*/ meltfptr[1032])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1032*/ meltfptr[1031]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1033*/ meltfptr[1032]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#0", NULL != (/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[0] = (melt_ptr_t)(/*_.MELT_DEBUG_FUN__V16*/ meltfptr[15]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#1", NULL != (/*_._PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[1] = (melt_ptr_t)(/*_._PREVENV___V4*/ meltfptr[3]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#2", NULL != (/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[2] = (melt_ptr_t)(/*_.CLASS_ENVIRONMENT__V162*/ meltfptr[161]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#3", NULL != (/*_.WARNING_AT__V73*/ meltfptr[72])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[3] = (melt_ptr_t)(/*_.WARNING_AT__V73*/ meltfptr[72]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#4", NULL != (/*_.CLASS_NAMED__V8*/ meltfptr[7])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[4] = (melt_ptr_t)(/*_.CLASS_NAMED__V8*/ meltfptr[7]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#5", NULL != (/*_.MULTIPLE_TO_LIST__V202*/ meltfptr[201])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[5] = (melt_ptr_t)(/*_.MULTIPLE_TO_LIST__V202*/ meltfptr[201]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_832__EVAL#6", NULL != (/*_.DISCR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[6] = (melt_ptr_t)(/*_.DISCR_LIST__V75*/ meltfptr[74]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^putroutconstnotnull*/ /*putroutconstnotnull*/ melt_assertmsg("putroutconstnotnull checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); melt_assertmsg("putroutconstnotnull notnullconst", NULL != /*_._VALCLO___V1016*/ meltfptr[1015]); ((meltroutine_ptr_t)/*_._VALROUT___V1034*/ meltfptr[1033])->tabval[7] = (melt_ptr_t)(/*_._VALCLO___V1016*/ meltfptr[1015]); MELT_LOCATION("warmelt-outobj.melt:8030:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1034*/ meltfptr[1033]); /*putclosurout#135*/ melt_assertmsg("putclosrout#135 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1035*/ meltfptr[1034])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#135 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1034*/ meltfptr[1033])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1035*/ meltfptr[1034])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1034*/ meltfptr[1033]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1035*/ meltfptr[1034]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_834__MULTIPLE_TO_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_834__MULTIPLE_TO_LIST @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1036*/ meltfptr[1035]); melt_dbgtrace_written_object (/*_._VALDATA___V1036*/ meltfptr[1035], "new static instance"); MELT_LOCATION("warmelt-outobj.melt:8062:/ initchunk"); /*^putroutconst*/ /*putroutconst*/ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg("putroutconst checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1038*/ meltfptr[1037])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg("putroutconst constnull.drout_836__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT#0", NULL != (/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6])); ((meltroutine_ptr_t)/*_._VALROUT___V1038*/ meltfptr[1037])->tabval[0] = (melt_ptr_t)(/*_.MELT_ASSERT_FAILURE_FUN__V7*/ meltfptr[6]); MELT_LOCATION("warmelt-outobj.melt:8062:/ initchunk"); /*^touch*/ /*touch:_IROUTVAL_*/ meltgc_touch(/*_._VALROUT___V1038*/ meltfptr[1037]); /*putclosurout#136*/ melt_assertmsg("putclosrout#136 checkclo", melt_magic_discr((melt_ptr_t)(/*_._VALCLO___V1039*/ meltfptr[1038])) == MELTOBMAG_CLOSURE); melt_assertmsg("putclosrout#136 checkrout", melt_magic_discr((melt_ptr_t)(/*_._VALROUT___V1038*/ meltfptr[1037])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t)/*_._VALCLO___V1039*/ meltfptr[1038])->rout = (meltroutine_ptr_t) (/*_._VALROUT___V1038*/ meltfptr[1037]); /*touch:_DATACLOSURE_*/ meltgc_touch(/*_._VALCLO___V1039*/ meltfptr[1038]); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_838__COMPILE_LIST_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1040*/ meltfptr[1039])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_838__COMPILE_LIST_SEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1040*/ meltfptr[1039])))); ((meltobject_ptr_t)(/*_._VALDATA___V1040*/ meltfptr[1039]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1041*/ meltfptr[1040]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1040*/ meltfptr[1039]); melt_dbgtrace_written_object (/*_._VALDATA___V1040*/ meltfptr[1039], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1042*/ meltfptr[1041])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_840__COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1042*/ meltfptr[1041])))); ((meltobject_ptr_t)(/*_._VALDATA___V1042*/ meltfptr[1041]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1043*/ meltfptr[1042]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1042*/ meltfptr[1041]); melt_dbgtrace_written_object (/*_._VALDATA___V1042*/ meltfptr[1041], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_842__EVAL @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1044*/ meltfptr[1043])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_842__EVAL @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1044*/ meltfptr[1043])))); ((meltobject_ptr_t)(/*_._VALDATA___V1044*/ meltfptr[1043]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1045*/ meltfptr[1044]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1044*/ meltfptr[1043]); melt_dbgtrace_written_object (/*_._VALDATA___V1044*/ meltfptr[1043], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1046*/ meltfptr[1045])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_844__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1046*/ meltfptr[1045])))); ((meltobject_ptr_t)(/*_._VALDATA___V1046*/ meltfptr[1045]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1047*/ meltfptr[1046]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1046*/ meltfptr[1045]); melt_dbgtrace_written_object (/*_._VALDATA___V1046*/ meltfptr[1045], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_846__GET_CODE_BUFFER_LIMIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_846__GET_CODE_BUFFER_LIMIT @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1048*/ meltfptr[1047]); melt_dbgtrace_written_object (/*_._VALDATA___V1048*/ meltfptr[1047], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1050*/ meltfptr[1049])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_848__MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1050*/ meltfptr[1049])))); ((meltobject_ptr_t)(/*_._VALDATA___V1050*/ meltfptr[1049]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1051*/ meltfptr[1050]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1050*/ meltfptr[1049]); melt_dbgtrace_written_object (/*_._VALDATA___V1050*/ meltfptr[1049], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_850__PUT_CODE_BUFFER_LIMIT @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1052*/ meltfptr[1051])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_850__PUT_CODE_BUFFER_LIMIT @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1052*/ meltfptr[1051])))); ((meltobject_ptr_t)(/*_._VALDATA___V1052*/ meltfptr[1051]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1053*/ meltfptr[1052]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1052*/ meltfptr[1051]); melt_dbgtrace_written_object (/*_._VALDATA___V1052*/ meltfptr[1051], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1054*/ meltfptr[1053])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_852__TRANSLATE_RUN_MELT_EXPRESSIONS @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1054*/ meltfptr[1053])))); ((meltobject_ptr_t)(/*_._VALDATA___V1054*/ meltfptr[1053]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1055*/ meltfptr[1054]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1054*/ meltfptr[1053]); melt_dbgtrace_written_object (/*_._VALDATA___V1054*/ meltfptr[1053], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_854__TRANSLATE_TO_CC_MODULE_MELT_SOURCES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1056*/ meltfptr[1055])))); ((meltobject_ptr_t)(/*_._VALDATA___V1056*/ meltfptr[1055]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1057*/ meltfptr[1056]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1056*/ meltfptr[1055]); melt_dbgtrace_written_object (/*_._VALDATA___V1056*/ meltfptr[1055], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_856__CLASS_SECONDARY_C_FILE @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_856__CLASS_SECONDARY_C_FILE @#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]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1058*/ meltfptr[1057]); melt_dbgtrace_written_object (/*_._VALDATA___V1058*/ meltfptr[1057], "new static instance"); /*putslot*/ melt_assertmsg("checkobj putslot ~dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES @#1", melt_magic_discr((melt_ptr_t)(/*_._VALDATA___V1060*/ meltfptr[1059])) == MELTOBMAG_OBJECT); melt_assertmsg("checkoff putslot ~dsym_858__TRANSLATE_TO_C_MODULE_MELT_SOURCES @#1", (1>=0 && 1< melt_object_length((melt_ptr_t)(/*_._VALDATA___V1060*/ meltfptr[1059])))); ((meltobject_ptr_t)(/*_._VALDATA___V1060*/ meltfptr[1059]))->obj_vartab[1] = (melt_ptr_t)( /*_._VALSTR___V1061*/ meltfptr[1060]); /*touch:_VALUEDATA_*/ meltgc_touch(/*_._VALDATA___V1060*/ meltfptr[1059]); melt_dbgtrace_written_object (/*_._VALDATA___V1060*/ meltfptr[1059], "new static instance"); /**COMMENT: before toplevel body **/; MELT_LOCATION("warmelt-outobj.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 735118409 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) /*then*/ { /*^cond.then*/ /*_.OR___V1062*/ meltfptr[1061] = /*quasi.cur.mod.env.ref cur.mod.env.cont : at very start*/ /* check quasi.cur.mod.env.ref 735118409 */ (/*_._CONTENV___V2*/ meltfptr[1]) ;; } else { MELT_LOCATION("warmelt-outobj.melt:3:/ cond.else"); /*^block*/ /*anyblock*/ { /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V1063*/ meltfptr[1062] = /*hookcall*/ melthook_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V5*/ meltfptr[4], /*_._PREVENV___V4*/ meltfptr[3], "warmelt-outobj") ;; /*^compute*/ /*_.OR___V1062*/ meltfptr[1061] = /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V1063*/ meltfptr[1062];; /*epilog*/ MELT_LOCATION("warmelt-outobj.melt:3:/ clear"); /*clear*/ /*_.HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER__V1063*/ meltfptr[1062] = 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___V1062*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:46:/ initchunk"); /*^block*/ /*anyblock*/ { /*^quasiblock*/ /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument( "out-descr-comment");; { MELT_LOCATION("warmelt-outobj.melt:48:/ locexp"); /* OUTDESC_CHK__1 */ if (/*_?*/ meltfram__.loc_CSTRING__o0 && /*_?*/ meltfram__.loc_CSTRING__o0[0] != 'N' && /*_?*/ meltfram__.loc_CSTRING__o0[0] != 'n' && /*_?*/ meltfram__.loc_CSTRING__o0[0] != '0') /*^block*/ /*anyblock*/ { MELT_LOCATION("warmelt-outobj.melt:50:/ putmodvar"); melt_module_var_put (meltmodvarix_FLAGVAL_OUTPUT_DESCR_COMMENT_symb, (melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210])); ; { /*^locexp*/ /*void*/(void)0; } ; /*^quasiblock*/ /*epilog*/ } ; /* end OUTDESC_CHK__1 */; } ; MELT_LOCATION("warmelt-outobj.melt:46:/ clear"); /*clear*/ /*_?*/ meltfram__.loc_CSTRING__o0 = 0 ; /*epilog*/ } MELT_LOCATION("warmelt-outobj.melt:163:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V272*/ meltfptr[271]; /*_.INSTALL_METHOD__V1064*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_ROOT__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1064*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:188:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V280*/ meltfptr[279]; /*_.INSTALL_METHOD__V1065*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITELEM__V29*/ meltfptr[28]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1065*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:194:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V286*/ meltfptr[285]; /*_.INSTALL_METHOD__V1066*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_ROOT__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1066*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:202:/ 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*) &/*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V290*/ meltfptr[289]; /*_.INSTALL_METHOD__V1067*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_ROOT__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1067*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:236:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V296*/ meltfptr[295]; /*_.INSTALL_METHOD__V1068*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPREDEF__V33*/ meltfptr[32]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1068*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:242:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V300*/ meltfptr[299]; /*_.INSTALL_METHOD__V1069*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJNIL__V34*/ meltfptr[33]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1069*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:329:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V310*/ meltfptr[309]; /*_.INSTALL_METHOD__V1070*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJEXPANDPUREVAL__V35*/ meltfptr[34]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1070*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:362:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V320*/ meltfptr[319]; /*_.INSTALL_METHOD__V1071*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJHOOKNTH__V39*/ meltfptr[38]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1071*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:374:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V328*/ meltfptr[327]; /*_.INSTALL_METHOD__V1072*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1072*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:527:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V332*/ meltfptr[331]; /*_.INSTALL_METHOD__V1073*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1073*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:619:/ 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*) &/*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V340*/ meltfptr[339]; /*_.INSTALL_METHOD__V1074*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITOBJECT__V42*/ meltfptr[41]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1074*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:676:/ 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*) &/*_.OUTPUT_C_INITIAL_PREDEF__V32*/ meltfptr[31]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V344*/ meltfptr[343]; /*_.INSTALL_METHOD__V1075*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1075*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:687:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V350*/ meltfptr[349]; /*_.INSTALL_METHOD__V1076*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V49*/ meltfptr[48]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1076*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:733:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V354*/ meltfptr[353]; /*_.INSTALL_METHOD__V1077*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V49*/ meltfptr[48]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1077*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:742:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V356*/ meltfptr[355]; /*_.INSTALL_METHOD__V1078*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1078*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:802:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V360*/ meltfptr[359]; /*_.INSTALL_METHOD__V1079*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V50*/ meltfptr[49]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1079*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:812:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V362*/ meltfptr[361]; /*_.INSTALL_METHOD__V1080*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1080*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:909:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V366*/ meltfptr[365]; /*_.INSTALL_METHOD__V1081*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITROUTINE__V51*/ meltfptr[50]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1081*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:922:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V372*/ meltfptr[371]; /*_.INSTALL_METHOD__V1082*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1082*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:984:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V374*/ meltfptr[373]; /*_.INSTALL_METHOD__V1083*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITHOOK__V47*/ meltfptr[46]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1083*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:996:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V378*/ meltfptr[377]; /*_.INSTALL_METHOD__V1084*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V55*/ meltfptr[54]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1084*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1195:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V382*/ meltfptr[381]; /*_.INSTALL_METHOD__V1085*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITSTRING__V55*/ meltfptr[54]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1085*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1204:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V384*/ meltfptr[383]; /*_.INSTALL_METHOD__V1086*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1086*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1253:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V388*/ meltfptr[387]; /*_.INSTALL_METHOD__V1087*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITBOXINTEGER__V56*/ meltfptr[55]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1087*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1264:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V390*/ meltfptr[389]; /*_.INSTALL_METHOD__V1088*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITPAIR__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1088*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1305:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V394*/ meltfptr[393]; /*_.INSTALL_METHOD__V1089*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITPAIR__V57*/ meltfptr[56]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1089*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1314:/ 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*) &/*_.OUTPUT_C_DECLINIT__V28*/ meltfptr[27]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V396*/ meltfptr[395]; /*_.INSTALL_METHOD__V1090*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITLIST__V58*/ meltfptr[57]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1090*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1356:/ 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*) &/*_.OUTPUT_C_INITIAL_FILL__V31*/ meltfptr[30]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V400*/ meltfptr[399]; /*_.INSTALL_METHOD__V1091*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINITLIST__V58*/ meltfptr[57]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1091*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1368:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V402*/ meltfptr[401]; /*_.INSTALL_METHOD__V1092*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V59*/ meltfptr[58]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1092*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:1377:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V406*/ meltfptr[405]; /*_.INSTALL_METHOD__V1093*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_NULL_RECEIVER__V60*/ meltfptr[59]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1093*/ meltfptr[1061] = 0 ; } #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_19*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_20 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION("warmelt-outobj.melt:1388:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V410*/ meltfptr[409]; /*_.INSTALL_METHOD__V1094*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_ROOT__V27*/ meltfptr[26]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1094*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2024:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V439*/ meltfptr[438]; /*_.INSTALL_METHOD__V1095*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V66*/ meltfptr[65]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1095*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2444:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V454*/ meltfptr[453]; /*_.INSTALL_METHOD__V1096*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_INITIAL_MODULE_ROUTINEOBJ__V72*/ meltfptr[71]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1096*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2660:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V478*/ meltfptr[477]; /*_.INSTALL_METHOD__V1097*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_HOOKROUTINEOBJ__V67*/ meltfptr[66]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1097*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2815:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V481*/ meltfptr[480]; /*_.INSTALL_METHOD__V1098*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_INITIAL_EXTENSION_ROUTINEOBJ__V64*/ meltfptr[63]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1098*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2886:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V483*/ meltfptr[482]; /*_.INSTALL_METHOD__V1099*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGETARG__V82*/ meltfptr[81]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1099*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2969:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V489*/ meltfptr[488]; /*_.INSTALL_METHOD__V1100*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGETARGREST__V84*/ meltfptr[83]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1100*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:2985:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V493*/ meltfptr[492]; /*_.INSTALL_METHOD__V1101*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCFORMAL__V81*/ meltfptr[80]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1101*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3001:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V495*/ meltfptr[494]; /*_.INSTALL_METHOD__V1102*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJFETCHMODVAR__V85*/ meltfptr[84]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1102*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3022:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V499*/ meltfptr[498]; /*_.INSTALL_METHOD__V1103*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTMODVAR__V86*/ meltfptr[85]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1103*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3047:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V503*/ meltfptr[502]; /*_.INSTALL_METHOD__V1104*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTOUTARG__V87*/ meltfptr[86]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1104*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3079:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V507*/ meltfptr[506]; /*_.INSTALL_METHOD__V1105*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJLOCV__V41*/ meltfptr[40]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1105*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3098:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V511*/ meltfptr[510]; /*_.INSTALL_METHOD__V1106*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCLOCCV__V89*/ meltfptr[88]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1106*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3118:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V515*/ meltfptr[514]; /*_.INSTALL_METHOD__V1107*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCLOHOOKV__V90*/ meltfptr[89]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1107*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3139:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V519*/ meltfptr[518]; /*_.INSTALL_METHOD__V1108*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCONSTV__V91*/ meltfptr[90]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1108*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3187:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V527*/ meltfptr[526]; /*_.INSTALL_METHOD__V1109*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCHECKSIGNAL__V93*/ meltfptr[92]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1109*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3212:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V531*/ meltfptr[530]; /*_.INSTALL_METHOD__V1110*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJANYBLOCK__V94*/ meltfptr[93]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1110*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3225:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V535*/ meltfptr[534]; /*_.INSTALL_METHOD__V1111*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJFLAG__V95*/ meltfptr[94]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1111*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3277:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V539*/ meltfptr[538]; /*_.INSTALL_METHOD__V1112*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJMATCHFLAGBLOCK__V96*/ meltfptr[95]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1112*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3348:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V543*/ meltfptr[542]; /*_.INSTALL_METHOD__V1113*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJMULTIALLOCBLOCK__V97*/ meltfptr[96]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1113*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3403:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V547*/ meltfptr[546]; /*_.INSTALL_METHOD__V1114*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1114*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3423:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V553*/ meltfptr[552]; /*_.INSTALL_METHOD__V1115*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V100*/ meltfptr[99]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1115*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3459:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V557*/ meltfptr[556]; /*_.INSTALL_METHOD__V1116*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V101*/ meltfptr[100]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1116*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3495:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V565*/ meltfptr[564]; /*_.INSTALL_METHOD__V1117*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJLABELINSTR__V102*/ meltfptr[101]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1117*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3513:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V571*/ meltfptr[570]; /*_.INSTALL_METHOD__V1118*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGOTOINSTR__V104*/ meltfptr[103]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1118*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3583:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V577*/ meltfptr[576]; /*_.INSTALL_METHOD__V1119*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJLOOP__V105*/ meltfptr[104]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1119*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3603:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V581*/ meltfptr[580]; /*_.INSTALL_METHOD__V1120*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJEXIT__V106*/ meltfptr[105]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1120*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3623:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V585*/ meltfptr[584]; /*_.INSTALL_METHOD__V1121*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJAGAIN__V107*/ meltfptr[106]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1121*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3669:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V589*/ meltfptr[588]; /*_.INSTALL_METHOD__V1122*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCOMPUTE__V108*/ meltfptr[107]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1122*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3709:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V593*/ meltfptr[592]; /*_.INSTALL_METHOD__V1123*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCOND__V109*/ meltfptr[108]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1123*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3743:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V597*/ meltfptr[596]; /*_.INSTALL_METHOD__V1124*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCPPIF__V110*/ meltfptr[109]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1124*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3768:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V601*/ meltfptr[600]; /*_.INSTALL_METHOD__V1125*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V111*/ meltfptr[110]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1125*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3792:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V607*/ meltfptr[606]; /*_.INSTALL_METHOD__V1126*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V113*/ meltfptr[112]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1126*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3843:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V613*/ meltfptr[612]; /*_.INSTALL_METHOD__V1127*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V115*/ meltfptr[114]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1127*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3879:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V617*/ meltfptr[616]; /*_.INSTALL_METHOD__V1128*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1128*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:3993:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V621*/ meltfptr[620]; /*_.INSTALL_METHOD__V1129*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJAPPLY__V117*/ meltfptr[116]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1129*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4091:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V627*/ meltfptr[626]; /*_.INSTALL_METHOD__V1130*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJMSEND__V119*/ meltfptr[118]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1130*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4250:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V632*/ meltfptr[631]; /*_.INSTALL_METHOD__V1131*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V120*/ meltfptr[119]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1131*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4401:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V638*/ meltfptr[637]; /*_.INSTALL_METHOD__V1132*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V122*/ meltfptr[121]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1132*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4420:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V642*/ meltfptr[641]; /*_.INSTALL_METHOD__V1133*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJCLEAR__V123*/ meltfptr[122]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1133*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4458:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V646*/ meltfptr[645]; /*_.INSTALL_METHOD__V1134*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V124*/ meltfptr[123]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1134*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4493:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V650*/ meltfptr[649]; /*_.INSTALL_METHOD__V1135*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V125*/ meltfptr[124]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1135*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4516:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V654*/ meltfptr[653]; /*_.INSTALL_METHOD__V1136*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJTOUCH__V126*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1136*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4537:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V658*/ meltfptr[657]; /*_.INSTALL_METHOD__V1137*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJDBGTRACEWRITEOBJ__V127*/ meltfptr[126]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1137*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4611:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V662*/ meltfptr[661]; /*_.INSTALL_METHOD__V1138*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTUPLE__V128*/ meltfptr[127]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1138*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4642:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V670*/ meltfptr[669]; /*_.INSTALL_METHOD__V1139*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTPAIRHEAD__V130*/ meltfptr[129]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1139*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4668:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V676*/ meltfptr[675]; /*_.INSTALL_METHOD__V1140*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTPAIRTAIL__V131*/ meltfptr[130]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1140*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4699:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V680*/ meltfptr[679]; /*_.INSTALL_METHOD__V1141*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTLIST__V132*/ meltfptr[131]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1141*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4736:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V684*/ meltfptr[683]; /*_.INSTALL_METHOD__V1142*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJGETSLOT__V133*/ meltfptr[132]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1142*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4815:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V690*/ meltfptr[689]; /*_.INSTALL_METHOD__V1143*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTSLOT__V135*/ meltfptr[134]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1143*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4861:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V694*/ meltfptr[693]; /*_.INSTALL_METHOD__V1144*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V136*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1144*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4898:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V698*/ meltfptr[697]; /*_.INSTALL_METHOD__V1145*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V137*/ meltfptr[136]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1145*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4939:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V702*/ meltfptr[701]; /*_.INSTALL_METHOD__V1146*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V138*/ meltfptr[137]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1146*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:4980:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V706*/ meltfptr[705]; /*_.INSTALL_METHOD__V1147*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V139*/ meltfptr[138]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1147*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5015:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V710*/ meltfptr[709]; /*_.INSTALL_METHOD__V1148*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V140*/ meltfptr[139]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1148*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5059:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V714*/ meltfptr[713]; /*_.INSTALL_METHOD__V1149*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTHOOKCONST__V141*/ meltfptr[140]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1149*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5089:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V720*/ meltfptr[719]; /*_.INSTALL_METHOD__V1150*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTHOOKDATA__V143*/ meltfptr[142]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1150*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5132:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V724*/ meltfptr[723]; /*_.INSTALL_METHOD__V1151*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V144*/ meltfptr[143]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1151*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5150:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V728*/ meltfptr[727]; /*_.INSTALL_METHOD__V1152*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJEXPV__V145*/ meltfptr[144]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1152*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5191:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V732*/ meltfptr[731]; /*_.INSTALL_METHOD__V1153*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V146*/ meltfptr[145]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1153*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5201:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V736*/ meltfptr[735]; /*_.INSTALL_METHOD__V1154*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_VERBATIM_STRING__V24*/ meltfptr[23]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1154*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5214:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V738*/ meltfptr[737]; /*_.INSTALL_METHOD__V1155*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_STRING__V63*/ meltfptr[62]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1155*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5223:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V740*/ meltfptr[739]; /*_.INSTALL_METHOD__V1156*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_INTEGER__V62*/ meltfptr[61]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1156*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5236:/ 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*) &/*_.OUTPUT_C_CODE__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V742*/ meltfptr[741]; /*_.INSTALL_METHOD__V1157*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_OBJFINALRETURN__V147*/ meltfptr[146]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1157*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5811:/ 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___V830*/ meltfptr[829]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V833*/ meltfptr[832]; /*_.INSTALL_METHOD__V1158*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.DISCR_ANY_RECEIVER__V59*/ meltfptr[58]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1158*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5918:/ 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___V830*/ meltfptr[829]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V841*/ meltfptr[840]; /*_.INSTALL_METHOD__V1159*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_PRIMITIVE__V153*/ meltfptr[152]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1159*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:5989:/ 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___V830*/ meltfptr[829]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V849*/ meltfptr[848]; /*_.INSTALL_METHOD__V1160*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_CITERATOR__V99*/ meltfptr[98]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1160*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:6075:/ 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___V830*/ meltfptr[829]; /*^apply.arg*/ argtab[1].meltbp_aptr = (melt_ptr_t*) &/*_._VALCLO___V855*/ meltfptr[854]; /*_.INSTALL_METHOD__V1161*/ meltfptr[1061] = melt_apply ((meltclosure_ptr_t)(/*_.INSTALL_METHOD__V26*/ meltfptr[25]), (melt_ptr_t)(/*_.CLASS_CMATCHER__V157*/ meltfptr[156]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.INSTALL_METHOD__V1161*/ meltfptr[1061] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:7941:/ initchunk"); /*^block*/ /*anyblock*/ { MELT_CHECK_SIGNAL(); ; /*^apply*/ /*apply*/ { /*_.MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS__V1162*/ meltfptr[1062] = melt_apply ((meltclosure_ptr_t)(/*_.MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS__V201*/ meltfptr[200]), (melt_ptr_t)(/*_._VALCLO___V1027*/ meltfptr[1026]), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; /*epilog*/ /*^clear*/ /*clear*/ /*_.MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS__V1162*/ meltfptr[1062] = 0 ; } MELT_LOCATION("warmelt-outobj.melt:8120:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1040*/ meltfptr[1039], /*_._VALCLO___V929*/ meltfptr[928], /*quasi.cur.mod.env.ref norm.exp.val : COMPILE_LIST_SEXPR*/ /* check quasi.cur.mod.env.ref 965227980 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1042*/ meltfptr[1041], /*_._VALCLO___V956*/ meltfptr[955], /*quasi.cur.mod.env.ref norm.exp.val : COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ /* check quasi.cur.mod.env.ref 623386374 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1044*/ meltfptr[1043], /*_._VALCLO___V1035*/ meltfptr[1034], /*quasi.cur.mod.env.ref norm.exp.val : EVAL*/ /* check quasi.cur.mod.env.ref 522133416 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1046*/ meltfptr[1045], /*_._VALCLO___V1039*/ meltfptr[1038], /*quasi.cur.mod.env.ref norm.exp.val : GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /* check quasi.cur.mod.env.ref 654819409 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1048*/ meltfptr[1047], /*_._VALCLO___V242*/ meltfptr[241], /*quasi.cur.mod.env.ref norm.exp.val : GET_CODE_BUFFER_LIMIT*/ /* check quasi.cur.mod.env.ref 16922067 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1050*/ meltfptr[1049], /*_._VALCLO___V1027*/ meltfptr[1026], /*quasi.cur.mod.env.ref norm.exp.val : MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ /* check quasi.cur.mod.env.ref 1044184381 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1052*/ meltfptr[1051], /*_._VALCLO___V244*/ meltfptr[243], /*quasi.cur.mod.env.ref norm.exp.val : PUT_CODE_BUFFER_LIMIT*/ /* check quasi.cur.mod.env.ref 392736356 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V810*/ meltfptr[809], /*_._VALDATA___V830*/ meltfptr[829], /*quasi.cur.mod.env.ref norm.exp.val : SYNTAX_TEST_GENERATOR*/ /* check quasi.cur.mod.env.ref 991594128 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1054*/ meltfptr[1053], /*_._VALCLO___V1016*/ meltfptr[1015], /*quasi.cur.mod.env.ref norm.exp.val : TRANSLATE_RUN_MELT_EXPRESSIONS*/ /* check quasi.cur.mod.env.ref 666133949 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1056*/ meltfptr[1055], /*_._VALCLO___V1033*/ meltfptr[1032], /*quasi.cur.mod.env.ref norm.exp.val : TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ /* check quasi.cur.mod.env.ref 254693216 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-outobj.melt:8133:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V753*/ meltfptr[752], /*_._VALDATA___V755*/ meltfptr[754], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SECONDARY_CC_FILE*/ /* check quasi.cur.mod.env.ref 404884803 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V767*/ meltfptr[766], /*_._VALDATA___V758*/ meltfptr[757], /*quasi.cur.mod.env.ref norm.exp.val : SECFIL_MODNAM*/ /* check quasi.cur.mod.env.ref 765551771 */ (/*_._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___V760*/ meltfptr[759], /*quasi.cur.mod.env.ref norm.exp.val : SECFIL_PATH*/ /* check quasi.cur.mod.env.ref 437917050 */ (/*_._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___V762*/ meltfptr[761], /*quasi.cur.mod.env.ref norm.exp.val : SECFIL_DECLBUF*/ /* check quasi.cur.mod.env.ref 693011708 */ (/*_._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___V764*/ meltfptr[763], /*quasi.cur.mod.env.ref norm.exp.val : SECFIL_IMPLBUF*/ /* check quasi.cur.mod.env.ref 635596265 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-outobj.melt:8136:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1058*/ meltfptr[1057], /*_._VALDATA___V755*/ meltfptr[754], /*quasi.cur.mod.env.ref norm.exp.val : CLASS_SECONDARY_C_FILE*/ /* check quasi.cur.mod.env.ref 1050801256 */ (/*_._CONTENV___V2*/ meltfptr[1]) ) ; /*epilog*/ } MELT_LOCATION("warmelt-outobj.melt:8137:/ initchunk"); /*^block*/ /*anyblock*/ { /*hookcall*/ melthook_HOOK_VALUE_EXPORTER ((melt_ptr_t) ((melt_ptr_t)(MELT_PREDEF(HOOK_VALUE_EXPORTER))), /*_._VALDATA___V1060*/ meltfptr[1059], /*_._VALCLO___V1033*/ meltfptr[1032], /*quasi.cur.mod.env.ref norm.exp.val : TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ /* check quasi.cur.mod.env.ref 710231962 */ (/*_._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-outobj */ if (/*_._PREVENV___V4*/ meltfptr[3]) { /*_._CONTENV___V2*/ meltfptr[1] = melthookproc_HOOK_FRESH_ENVIRONMENT_REFERENCE_MAKER ((melt_ptr_t) /*_._PREVENV___V4*/ meltfptr[3], "warmelt-outobj") ; } 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-outobj 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___V203*/ meltfptr[202])); /*internsym:BUFFER_LIMIT_CONT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V205*/ meltfptr[204])); /*internsym:CLASS_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V207*/ meltfptr[206])); /*internkeyw:TRUE*/ (void) melthookproc_HOOK_INTERN_KEYWORD ((melt_ptr_t)(/*_._VALDATA___V211*/ meltfptr[210])); /*internsym:MELT_ASSERT_FAILURE_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V215*/ meltfptr[214])); /*internsym:CLASS_NAMED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V217*/ meltfptr[216])); /*internsym:ADD2OUT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V219*/ meltfptr[218])); /*internsym:CLASS_LOCATED*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V229*/ meltfptr[228])); /*internsym:CLASS_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V231*/ meltfptr[230])); /*internsym:EXPAND_RESTLIST_AS_TUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V233*/ meltfptr[232])); /*internsym:ERROR_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V235*/ meltfptr[234])); /*internsym:MELT_MAKE_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V237*/ meltfptr[236])); /*internsym:HOOK_MELT_MAKE_LOCATION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V239*/ meltfptr[238])); /*internsym:IF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V222*/ meltfptr[221])); /*internsym:FLAGVAL_OUTPUT_DESCR_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V224*/ meltfptr[223])); /*internsym:DO_OUTPUT_DESCRIPTIVE_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V226*/ meltfptr[225])); /*internsym:MELT_DEBUG_FUN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V245*/ meltfptr[244])); /*internsym:DISCR_CONSTANT_INTEGER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V247*/ meltfptr[246])); /*internsym:CLASS_NORMAL_MODULE_VARIABLE_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V252*/ meltfptr[251])); /*internsym:CLASS_ANY_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V254*/ meltfptr[253])); /*internsym:CLASS_CLONED_SYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V256*/ meltfptr[255])); /*internsym:CLASS_SYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V258*/ meltfptr[257])); /*internsym:CLASS_INITIALROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V263*/ meltfptr[262])); /*internsym:STRING4OUT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V265*/ meltfptr[264])); /*internsym:DISCR_VERBATIM_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V267*/ meltfptr[266])); /*internsym:CLASS_ANY_MODULE_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V269*/ meltfptr[268])); /*internsym:INSTALL_METHOD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V273*/ meltfptr[272])); /*internsym:CLASS_ROOT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V275*/ meltfptr[274])); /*internsym:OUTPUT_C_DECLINIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V277*/ meltfptr[276])); /*internsym:CLASS_OBJINITELEM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V281*/ meltfptr[280])); /*internsym:OUTPUT_C_CODE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V283*/ meltfptr[282])); /*internsym:OUTPUT_C_INITIAL_FILL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V287*/ meltfptr[286])); /*internsym:OUTPUT_C_INITIAL_PREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V291*/ meltfptr[290])); /*internsym:CLASS_OBJPREDEF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V297*/ meltfptr[296])); /*internsym:CLASS_OBJNIL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V301*/ meltfptr[300])); /*internsym:CLASS_OBJEXPANDPUREVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V311*/ meltfptr[310])); /*internsym:CLASS_OBJVALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V313*/ meltfptr[312])); /*internsym:CLASS_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V315*/ meltfptr[314])); /*internsym:CTYPE_VOID*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V317*/ meltfptr[316])); /*internsym:CLASS_OBJHOOKNTH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V321*/ meltfptr[320])); /*internsym:CTYPE_VALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V323*/ meltfptr[322])); /*internsym:CLASS_OBJLOCV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V325*/ meltfptr[324])); /*internsym:CLASS_OBJINITOBJECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V329*/ meltfptr[328])); /*internsym:CLASS_NREP_DATAINSTANCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V333*/ meltfptr[332])); /*internsym:CLASS_CLASS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V335*/ meltfptr[334])); /*internsym:CLASS_OBJINITUNIQUEOBJECT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V337*/ meltfptr[336])); /*internsym:CLASS_NREP_NIL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V341*/ meltfptr[340])); /*internsym:CLASS_OBJINITHOOK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V345*/ meltfptr[344])); /*internsym:CLASS_NREP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V347*/ meltfptr[346])); /*internsym:CLASS_OBJINITMULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V351*/ meltfptr[350])); /*internsym:CLASS_OBJINITCLOSURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V357*/ meltfptr[356])); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_20*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_21 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:CLASS_OBJINITROUTINE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V363*/ meltfptr[362])); /*internsym:CLASS_NREP_DATAROUTINE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V367*/ meltfptr[366])); /*internsym:CLASS_NREP_ROUTPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V369*/ meltfptr[368])); /*internsym:CLASS_NREP_CLOSPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V375*/ meltfptr[374])); /*internsym:CLASS_OBJINITSTRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V379*/ meltfptr[378])); /*internsym:CLASS_OBJINITBOXINTEGER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V385*/ meltfptr[384])); /*internsym:CLASS_OBJINITPAIR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V391*/ meltfptr[390])); /*internsym:CLASS_OBJINITLIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V397*/ meltfptr[396])); /*internsym:DISCR_ANY_RECEIVER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V403*/ meltfptr[402])); /*internsym:DISCR_NULL_RECEIVER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V407*/ meltfptr[406])); /*internsym:DISPLAY_DEBUG_MESSAGE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V411*/ meltfptr[410])); /*internsym:PREVLOC_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V413*/ meltfptr[412])); /*internsym:PREVIMPLBUF_CONTAINER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V415*/ meltfptr[414])); /*internsym:DISCR_INTEGER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V419*/ meltfptr[418])); /*internsym:DISCR_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V421*/ meltfptr[420])); /*internsym:CLASS_INITIAL_EXTENSION_ROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V425*/ meltfptr[424])); /*internsym:CLASS_CTYPE_GTY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V427*/ meltfptr[426])); /*internsym:CLASS_PROCROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V429*/ meltfptr[428])); /*internsym:CLASS_HOOKROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V431*/ meltfptr[430])); /*internsym:CLASS_ROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V435*/ meltfptr[434])); /*internsym:VARIADIC_INDEX_IDSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V440*/ meltfptr[439])); /*internsym:VARIADIC_LENGTH_IDSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V442*/ meltfptr[441])); /*internsym:CLASS_OBJPUREVALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V444*/ meltfptr[443])); /*internsym:CLASS_INITIAL_MODULE_ROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V455*/ meltfptr[454])); /*internsym:WARNING_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V457*/ meltfptr[456])); /*internsym:INFORM_AT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V459*/ meltfptr[458])); /*internsym:DISCR_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V461*/ meltfptr[460])); /*internsym:LIST_TO_MULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V463*/ meltfptr[462])); /*internsym:DISCR_MULTIPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V465*/ meltfptr[464])); /*internsym:DISCR_STRBUF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V467*/ meltfptr[466])); /*internsym:CLASS_OBJINSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V469*/ meltfptr[468])); /*internsym:CLASS_NREP_HOOKPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V473*/ meltfptr[472])); /*internsym:CLASS_OBJCFORMAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V475*/ meltfptr[474])); /*internsym:CLASS_OBJGETARG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V484*/ meltfptr[483])); /*internsym:CLASS_FORMAL_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V486*/ meltfptr[485])); /*internsym:CLASS_OBJGETARGREST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V490*/ meltfptr[489])); /*internsym:CLASS_OBJFETCHMODVAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V496*/ meltfptr[495])); /*internsym:CLASS_OBJPUTMODVAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V500*/ meltfptr[499])); /*internsym:CLASS_OBJPUTOUTARG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V504*/ meltfptr[503])); /*internsym:CTYPE_LONG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V508*/ meltfptr[507])); /*internsym:CLASS_OBJCLOCCV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V512*/ meltfptr[511])); /*internsym:CLASS_OBJCLOHOOKV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V516*/ meltfptr[515])); /*internsym:CLASS_OBJCONSTV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V520*/ meltfptr[519])); /*internsym:CLASS_OBJPLAINBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V524*/ meltfptr[523])); /*internsym:CLASS_OBJCHECKSIGNAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V528*/ meltfptr[527])); /*internsym:CLASS_OBJANYBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V532*/ meltfptr[531])); /*internsym:CLASS_OBJFLAG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V536*/ meltfptr[535])); /*internsym:CLASS_OBJMATCHFLAGBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V540*/ meltfptr[539])); /*internsym:CLASS_OBJMULTIALLOCBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V544*/ meltfptr[543])); /*internsym:CLASS_OBJCITERBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V548*/ meltfptr[547])); /*internsym:CLASS_CITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V550*/ meltfptr[549])); /*internsym:CLASS_OBJCOMMENTINSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V554*/ meltfptr[553])); /*internsym:CLASS_OBJCOMMENTEDBLOCK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V558*/ meltfptr[557])); /*internsym:LABELCOUNTREF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V560*/ meltfptr[559])); /*internsym:CLASS_OBJLABELINSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V566*/ meltfptr[565])); /*internsym:SET_CONTENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V568*/ meltfptr[567])); /*internsym:CLASS_OBJGOTOINSTR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V572*/ meltfptr[571])); /*internsym:CLASS_OBJLOOP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V578*/ meltfptr[577])); /*internsym:CLASS_OBJEXIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V582*/ meltfptr[581])); /*internsym:CLASS_OBJAGAIN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V586*/ meltfptr[585])); /*internsym:CLASS_OBJCOMPUTE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V590*/ meltfptr[589])); /*internsym:CLASS_OBJCOND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V594*/ meltfptr[593])); /*internsym:CLASS_OBJCPPIF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V598*/ meltfptr[597])); /*internsym:CLASS_OBJINTERNSYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V602*/ meltfptr[601])); /*internsym:CLASS_NREP_DATASYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V604*/ meltfptr[603])); /*internsym:CLASS_OBJINTERNKEYWORD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V608*/ meltfptr[607])); /*internsym:CLASS_NREP_DATAKEYWORD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V610*/ meltfptr[609])); /*internsym:CLASS_OBJGETNAMEDSYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V614*/ meltfptr[613])); /*internsym:CLASS_OBJGETNAMEDKEYWORD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V618*/ meltfptr[617])); /*internsym:CLASS_OBJAPPLY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V622*/ meltfptr[621])); /*internsym:GET_CTYPE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V624*/ meltfptr[623])); /*internsym:CLASS_OBJMSEND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V628*/ meltfptr[627])); /*internsym:CLASS_OBJMULTIAPPLY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V633*/ meltfptr[632])); /*internsym:LIST_EVERY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V635*/ meltfptr[634])); /*internsym:CLASS_OBJMULTIMSEND*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V639*/ meltfptr[638])); /*internsym:CLASS_OBJCLEAR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V643*/ meltfptr[642])); /*internsym:CLASS_OBJRAWALLOCOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V647*/ meltfptr[646])); /*internsym:CLASS_OBJNEWCLOSURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V651*/ meltfptr[650])); /*internsym:CLASS_OBJTOUCH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V655*/ meltfptr[654])); /*internsym:CLASS_OBJDBGTRACEWRITEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V659*/ meltfptr[658])); /*internsym:CLASS_OBJPUTUPLE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V663*/ meltfptr[662])); /*internsym:OBJPUTPAIRHEAD_COUNTER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V665*/ meltfptr[664])); /*internsym:CLASS_OBJPUTPAIR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V671*/ meltfptr[670])); /*internsym:CLASS_OBJPUTPAIRHEAD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V673*/ meltfptr[672])); /*internsym:CLASS_OBJPUTPAIRTAIL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V677*/ meltfptr[676])); /*internsym:CLASS_OBJPUTLIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V681*/ meltfptr[680])); /*internsym:CLASS_OBJGETSLOT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V685*/ meltfptr[684])); /*internsym:CLASS_FIELD*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V687*/ meltfptr[686])); /*internsym:CLASS_OBJPUTSLOT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V691*/ meltfptr[690])); /*internsym:CLASS_OBJPUTCLOSUROUT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V695*/ meltfptr[694])); /*internsym:CLASS_OBJPUTCLOSEDV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V699*/ meltfptr[698])); /*internsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V703*/ meltfptr[702])); /*internsym:CLASS_OBJPUTROUTCONST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V707*/ meltfptr[706])); /*internsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V711*/ meltfptr[710])); /*internsym:CLASS_OBJPUTHOOKCONST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V715*/ meltfptr[714])); /*internsym:CLASS_NREP_BOUND_DATA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V717*/ meltfptr[716])); /*internsym:CLASS_OBJPUTHOOKDATA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V721*/ meltfptr[720])); /*internsym:CLASS_OBJPUTXTRARESULT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V725*/ meltfptr[724])); /*internsym:CLASS_OBJEXPV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V729*/ meltfptr[728])); /*internsym:CLASS_OBJLOCATEDEXPV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V733*/ meltfptr[732])); /*internsym:CLASS_OBJFINALRETURN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V743*/ meltfptr[742])); /*internsym:MULTIPLE_SORT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V747*/ meltfptr[746])); /*internsym:COMPARE_NAMED_ALPHA*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V749*/ meltfptr[748])); /*internsym:CLASS_SECONDARY_CC_FILE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V753*/ meltfptr[752])); /*internsym:SECFIL_MODNAM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V767*/ meltfptr[766])); /*internsym:SECFIL_PATH*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V769*/ meltfptr[768])); /*internsym:SECFIL_DECLBUF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V771*/ meltfptr[770])); /*internsym:SECFIL_IMPLBUF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V773*/ meltfptr[772])); /*internsym:GENERATED_CC_FILENAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V775*/ meltfptr[774])); /*internsym:DISCR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V780*/ meltfptr[779])); /*internsym:BASE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V783*/ meltfptr[782])); /*internsym:DIR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V786*/ meltfptr[785])); /*internsym:NUM*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V789*/ meltfptr[788])); /*internsym:CLASS_RUNNING_EXTENSION_MODULE_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V808*/ meltfptr[807])); /*internsym:SYNTAX_TEST_GENERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V810*/ meltfptr[809])); /*internsym:CLASS_SELECTOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V812*/ meltfptr[811])); /*internsym:RECV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V814*/ meltfptr[813])); /*internsym:GENDEV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V817*/ meltfptr[816])); /*internsym:SBUF*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V820*/ meltfptr[819])); /*internsym:MODCTX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V823*/ meltfptr[822])); /*internsym:IX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V826*/ meltfptr[825])); /*internsym:CLASS_SOURCE_GENERATOR_DEVICE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V834*/ meltfptr[833])); /*internsym:CLASS_PRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V842*/ meltfptr[841])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V844*/ meltfptr[843])); /*internsym:DISCR_MAP_OBJECTS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V846*/ meltfptr[845])); /*internsym:CLASS_SOURCE_DEFCITERATOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V850*/ meltfptr[849])); /*internsym:CLASS_CMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V856*/ meltfptr[855])); /*internsym:CLASS_ANY_MATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V858*/ meltfptr[857])); #undef meltfram__ } /*end of meltmod__WARMELTmiOUTOBJ__initialmeltchunk_21*/ void meltmod__WARMELTmiOUTOBJ__initialmeltchunk_22 (meltinitial_frame_t* meltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:CLASS_SOURCE_DEFCMATCHER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V860*/ meltfptr[859])); /*internsym:DEBUG_LESS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V867*/ meltfptr[866])); /*internsym:CLASS_NORMALIZATION_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V869*/ meltfptr[868])); /*internsym:CLASS_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V871*/ meltfptr[870])); /*internsym:CLASS_SOURCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V873*/ meltfptr[872])); /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_REFERENCE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V875*/ meltfptr[874])); /*internsym:CLASS_SOURCE_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V877*/ meltfptr[876])); /*internsym:NORMAL_EXP*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V879*/ meltfptr[878])); /*internsym:CLASS_NORMAL_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V881*/ meltfptr[880])); /*internsym:CLASS_NREP_ANYPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V883*/ meltfptr[882])); /*internsym:WRAP_NORMAL_LETSEQ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V885*/ meltfptr[884])); /*internsym:WRAP_NORMAL_LET1*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V887*/ meltfptr[886])); /*internsym:LIST_APPEND2LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V889*/ meltfptr[888])); /*internsym:CLASS_NREP_DATAHOOK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V893*/ meltfptr[892])); /*internsym:CLASS_NREP_INITPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V901*/ meltfptr[900])); /*internsym:COMPILE2OBJ_HOOK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V903*/ meltfptr[902])); /*internsym:COMPILE2OBJ_PROCEDURE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V905*/ meltfptr[904])); /*internsym:NORMAL_IMPORT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V907*/ meltfptr[906])); /*internsym:CLASS_HOOK_DESCRIPTOR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V909*/ meltfptr[908])); /*internsym:SYMBOL_CNAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V911*/ meltfptr[910])); /*internsym:CLASS_SOURCE_CHEADER*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V913*/ meltfptr[912])); /*internsym:CLASS_SOURCE_CODE_STRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V915*/ meltfptr[914])); /*internsym:CLASS_SOURCE_CIMPLEMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V917*/ meltfptr[916])); /*internsym:CLASS_PROTOROUTINEOBJ*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V919*/ meltfptr[918])); /*internsym:DEBUG_MORE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V930*/ meltfptr[929])); /*internsym:FRESH_ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V932*/ meltfptr[931])); /*internsym:MACRO-ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V924*/ meltfptr[923])); /*internsym:BASE-ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V926*/ meltfptr[925])); /*internsym:CLASS_MODULE_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V934*/ meltfptr[933])); /*internsym:DISCR_MAP_STRINGS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V936*/ meltfptr[935])); /*internsym:CREATE_NORMCONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V938*/ meltfptr[937])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V940*/ meltfptr[939])); /*internsym:MACROEXPAND_1*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V942*/ meltfptr[941])); /*internsym:COMPILE2OBJ_INITPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V944*/ meltfptr[943])); /*internsym:CLASS_FIRST_MODULE_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V946*/ meltfptr[945])); /*internsym:INITIAL_ENVIRONMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V957*/ meltfptr[956])); /*internsym:MACRO-FIRST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V953*/ meltfptr[952])); /*internsym:MELT_RUN_EXTENSION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V959*/ meltfptr[958])); /*internsym:BASENAME*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V964*/ meltfptr[963])); /*internsym:ENV*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V967*/ meltfptr[966])); /*internsym:LITVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V970*/ meltfptr[969])); /*internsym:CLONE_SYMBOL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V992*/ meltfptr[991])); /*internsym:RETAUTOBOXVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V979*/ meltfptr[978])); /*internsym:CLASS_NREP_LOCSYMOCC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V994*/ meltfptr[993])); /*internsym:CLASS_NREP_RETURN*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V996*/ meltfptr[995])); /*internsym:CLASS_LET_BINDING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V998*/ meltfptr[997])); /*internsym:LONGAUTOBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V981*/ meltfptr[980])); /*internsym:CLASS_NREP_CHUNK*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1000*/ meltfptr[999])); /*internsym:AUTOBOXLONG*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V983*/ meltfptr[982])); /*internsym:CTYPE_CSTRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1002*/ meltfptr[1001])); /*internsym:STRINGAUTOBOX*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V985*/ meltfptr[984])); /*internsym:AUTOBOXSTRING*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V987*/ meltfptr[986])); /*internsym:AUTOBOXGTY*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V989*/ meltfptr[988])); /*internsym:MACRO-EXTENSION*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1006*/ meltfptr[1005])); /*internsym:CREATE_NORMAL_EXTENDING_CONTEXT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1017*/ meltfptr[1016])); /*internsym:COMPILE2OBJ_INITEXTENDPROC*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1019*/ meltfptr[1018])); /*internsym:CLASS_LITERAL_VALUE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1021*/ meltfptr[1020])); /*internsym:MELT_REGISTER_TRANSLATOR_RUNNER_MACROEXPANSIONS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1028*/ meltfptr[1027])); /*internsym:MULTIPLE_TO_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1036*/ meltfptr[1035])); /*internsym:COMPILE_LIST_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1040*/ meltfptr[1039])); /*internsym:COMPILE_FIRST_BOOTSTRAP_LIST_SEXPR*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1042*/ meltfptr[1041])); /*internsym:EVAL*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1044*/ meltfptr[1043])); /*internsym:GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1046*/ meltfptr[1045])); /*internsym:GET_CODE_BUFFER_LIMIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1048*/ meltfptr[1047])); /*internsym:MELT_TRANSLATE_RUN_MACROEXPANSIONS_LIST*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1050*/ meltfptr[1049])); /*internsym:PUT_CODE_BUFFER_LIMIT*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1052*/ meltfptr[1051])); /*internsym:TRANSLATE_RUN_MELT_EXPRESSIONS*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1054*/ meltfptr[1053])); /*internsym:TRANSLATE_TO_CC_MODULE_MELT_SOURCES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1056*/ meltfptr[1055])); /*internsym:CLASS_SECONDARY_C_FILE*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1058*/ meltfptr[1057])); /*internsym:TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ (void) melthookproc_HOOK_INTERN_SYMBOL ((melt_ptr_t)(/*_._VALDATA___V1060*/ meltfptr[1059])); /**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__WARMELTmiOUTOBJ__initialmeltchunk_22*/ /* exported 4 field offsets */ MELT_EXTERN const int meltfieldoff__SECFIL_DECLBUF; const int meltfieldoff__SECFIL_DECLBUF = 2; /* in CLASS_SECONDARY_CC_FILE */ MELT_EXTERN const int meltfieldoff__SECFIL_IMPLBUF; const int meltfieldoff__SECFIL_IMPLBUF = 3; /* in CLASS_SECONDARY_CC_FILE */ MELT_EXTERN const int meltfieldoff__SECFIL_MODNAM; const int meltfieldoff__SECFIL_MODNAM = 0; /* in CLASS_SECONDARY_CC_FILE */ MELT_EXTERN const int meltfieldoff__SECFIL_PATH; const int meltfieldoff__SECFIL_PATH = 1; /* in CLASS_SECONDARY_CC_FILE */ /* exported 1 class lengths */ MELT_EXTERN const int meltclasslen__CLASS_SECONDARY_CC_FILE; const int meltclasslen__CLASS_SECONDARY_CC_FILE = 4; /**** end of warmelt-outobj ****/