/* GCC MELT GENERATED FILE warmelt-modes.c - DO NOT EDIT */ /***+ warmelt-modes 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-modes declarations ****/ /*************************************************** *** Copyright (C) 2011, 2012 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *** ****************************************************/ /* ordinary MELT module */ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usual */ struct melt_callframe_st; /*defined in melt-runtime.h */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_modes_INSTALL_MELT_MODE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_modes_RUNFILE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_modes_RUNDEBUG_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_modes_EVAL_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_modes_EVALFILE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_modes_REPL_PROCESSOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_modes_REPL_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_modes_LAMBDA___1__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_modes_LAMBDA___2__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_modes_LAMBDA___3__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_modes_LAMBDA___4__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_modes_LAMBDA___5__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_modes_INCREMENT_MKDOC_COUNTER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_modes_MAKEDOC_SCANINPUT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_modes_LAMBDA___6__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_modes_LAMBDA___7__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_modes_LAMBDA___8__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_modes_LAMBDA___9__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_modes_MAKEDOC_OUTDEFLOC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_modes_MAKEDOC_OUTFORMALS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_modes_MAKEDOC_OUTDOC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_modes_MAKEDOC_OUTCLASSDEF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_modes_MAKEDOC_GENMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_modes_LAMBDA___10__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_modes_MAKEDOC_GENPATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_modes_LAMBDA___11__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_modes_MAKEDOC_GENCLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_modes_LAMBDA___12__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_modes_LAMBDA___13__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_modes_LAMBDA___14__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_modes_LAMBDA___15__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_modes_MAKEDOC_OUTPRIMITIVEDEF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_modes_MAKEDOC_GENPRIMITIVE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_modes_LAMBDA___16__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_modes_MAKEDOC_OUTFUNCTIONDEF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_modes_MAKEDOC_GENFUNCTION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_modes_LAMBDA___17__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_modes_MAKEDOC_GENCITERATOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_modes_LAMBDA___18__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_modes_MAKEDOC_GENCMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_modes_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_modes_MAKEDOC_GENOUTPUT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_modes_MAKEDOC_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_modes_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_modes_SHOWVAR_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_modes_HELP_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_modes_NOP_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_modes_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_modes_GENERATE_RUNTYPESUPPORT_GTY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_modes_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_modes_GENERATE_RUNTYPESUPPORT_CLONING_FUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_modes_GENERATE_RUNTYPESUPPORT_SCANNING (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_modes_GENERATE_RUNTYPESUPPORT_PARAM (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_modes_GENERATE_RUNTYPESUPPORT_COD2CTYPE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAG2STR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_modes_GENERATE_RUNTYPESUPPORT_BOXINGFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAPFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_modes_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_modes_RUNTYPESUPPORT_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_modes_TRANSLATE_TO_FLAVORED_MODULE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_modes_TRANSLATETOMODULE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_modes_TRANSLATEDEBUG_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_modes_TRANSLATEQUICKLY_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_modes_TRANSLATEOPTIMIZED_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_modes_TRANSLATEFILE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_modes_TRANSLATEINIT_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_modes_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_modes_TRANSLATEINIT_FLAVORED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_modes_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_modes_TRANSLATEINITMODULE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_modes_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_modes_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_modes_TRANSLATEINITMODULEOPTIMIZED_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_modes_REGISTER_INPUT_CHANNEL_HANDLER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_modes_HANDLE_ALARM_SIGNAL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_modes_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_modes_REGISTER_ALARM_TIMER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_modes_UNREGISTER_ALARM_TIMER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_modes_CHILD_PROCESS_SIGCHLD_HANDLER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_modes_REGISTER_CHILD_PROCESS_HANDLER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_modes_UNREGISTER_CHILD_PROCESS_HANDLER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN void *melt_start_this_module (void *); /* define different names when debugging or not */ #if MELT_HAVE_DEBUG MELT_EXTERN const char meltmodule_warmelt_modes__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_warmelt_modes__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG */ MELT_EXTERN const char meltmodule_warmelt_modes__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_warmelt_modes__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG */ struct frame_melt_start_this_module_st; void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_0 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_1 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_2 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_3 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_4 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_5 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_6 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_7 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_8 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_9 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_10 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__initialmeltchunk_11 (struct frame_melt_start_this_module_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_modes__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking); #define meltmarking_melt_start_this_module meltmod__warmelt_modes__forward_or_mark_module_start_frame /**** warmelt-modes implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_modes_INSTALL_MELT_MODE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_1_warmelt_modes_INSTALL_MELT_MODE_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_1_warmelt_modes_INSTALL_MELT_MODE_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM #define MELTFRAM_NBVARPTR 11 melt_ptr_t mcfr_varptr[11]; #define MELTFRAM_NBVARNUM 3 long mcfr_varnum[3]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ /*meltrout_1_warmelt_modes_INSTALL_MELT_MODE is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_1_warmelt_modes_INSTALL_MELT_MODE_st *) meltfirstargp_; /* use arguments output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; (void) meltxargtab_; (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 11; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); /* declstructinit plain routine meltrout_1_warmelt_modes_INSTALL_MELT_MODE nbval 11*/ meltfram__.mcfr_nbvar = 11 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("INSTALL_MELT_MODE", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-modes.melt:35:/ getarg"); /*_.MODE__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:37:/ cppif.then"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.MODE__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_MELT_MODE */ meltfrout-> tabval[0])));; MELT_LOCATION ("warmelt-modes.melt:37:/ cond"); /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_.IFELSE___V4*/ meltfptr[3] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-modes.melt:37:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check mode"), ("warmelt-modes.melt") ? ("warmelt-modes.melt") : __FILE__, (37) ? (37) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:37:/ clear"); /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V4*/ meltfptr[3] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V3*/ meltfptr[2] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:38:/ quasiblock"); /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[1])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[2]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout-> tabval[1])) /*=obj*/ ; melt_object_get_field (slot, obj, 2, "SYSDATA_MODE_DICT"); /*_.CMDICT__V5*/ meltfptr[3] = slot; }; ; } else { /*^cond.else */ /*_.CMDICT__V5*/ meltfptr[3] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:39:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.MODE__V2*/ meltfptr[1]), (melt_ptr_t) (( /*!CLASS_NAMED */ meltfrout->tabval[3]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) ( /*_.MODE__V2*/ meltfptr[1]) /*=obj*/ ; melt_object_get_field (slot, obj, 1, "NAMED_NAME"); /*_.CNAM__V6*/ meltfptr[5] = slot; }; ; } else { /*^cond.else */ /*_.CNAM__V6*/ meltfptr[5] = NULL;; } ; MELT_CHECK_SIGNAL (); ; /*^compute */ /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = (melt_get_mapstrings ((struct meltmapstrings_st *) ( /*_.CMDICT__V5*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CNAM__V6*/ meltfptr[5]))));; MELT_LOCATION ("warmelt-modes.melt:41:/ cond"); /*cond */ if ( /*_.MAPSTRING_GETSTR__V7*/ meltfptr[6]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-modes.melt:42:/ locexp"); warning (0, "MELT WARNING MSG [#%ld]::: %s - %s", melt_dbgcounter, ("installing an existing mode"), melt_string_str ((melt_ptr_t) ( /*_.CNAM__V6*/ meltfptr[5]))); } ; /*epilog */ } ; } /*noelse */ ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:43:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L2*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:43:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:43:/ apply"); /*apply */ { union meltparam_un argtab[5]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 43; /*^apply.arg */ argtab[3].meltbp_cstring = "install_melt_mode mode="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODE__V2*/ meltfptr[1]; /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[4])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V9*/ meltfptr[8] = /*_.MELT_DEBUG_FUN__V10*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:43:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L3*/ meltfnum[2] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V10*/ meltfptr[9] = 0; } ; } else { /*^cond.else */ /*_.IF___V9*/ meltfptr[8] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:43:/ quasiblock"); /*_.PROGN___V11*/ meltfptr[9] = /*_.IF___V9*/ meltfptr[8];; /*^compute */ /*_.IFCPP___V8*/ meltfptr[7] = /*_.PROGN___V11*/ meltfptr[9];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:43:/ clear"); /*clear *//*_#MELT_NEED_DBG__L2*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V9*/ meltfptr[8] = 0; /*^clear */ /*clear *//*_.PROGN___V11*/ meltfptr[9] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V8*/ meltfptr[7] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-modes.melt:44:/ locexp"); meltgc_put_mapstrings ((struct meltmapstrings_st *) ( /*_.CMDICT__V5*/ meltfptr[3]), melt_string_str ((melt_ptr_t) ( /*_.CNAM__V6*/ meltfptr[5])), (melt_ptr_t) ( /*_.MODE__V2*/ meltfptr[1])); } ; MELT_LOCATION ("warmelt-modes.melt:38:/ clear"); /*clear *//*_.CMDICT__V5*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.CNAM__V6*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.MAPSTRING_GETSTR__V7*/ meltfptr[6] = 0; /*^clear */ /*clear *//*_.IFCPP___V8*/ meltfptr[7] = 0; MELT_CHECK_SIGNAL (); ; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:35:/ clear"); /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("INSTALL_MELT_MODE", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_warmelt_modes_INSTALL_MELT_MODE_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*noretval */ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_1_warmelt_modes_INSTALL_MELT_MODE */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_modes_RUNFILE_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_2_warmelt_modes_RUNFILE_DOCMD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_2_warmelt_modes_RUNFILE_DOCMD_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM #define MELTFRAM_NBVARPTR 63 melt_ptr_t mcfr_varptr[63]; #define MELTFRAM_NBVARNUM 19 long mcfr_varnum[19]; /*others*/ const char *loc_CSTRING__o0; const char *loc_CSTRING__o1; long _spare_; } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ /*meltrout_2_warmelt_modes_RUNFILE_DOCMD is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_2_warmelt_modes_RUNFILE_DOCMD_st *) meltfirstargp_; /* use arguments output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; (void) meltxargtab_; (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); /* declstructinit plain routine meltrout_2_warmelt_modes_RUNFILE_DOCMD nbval 63*/ meltfram__.mcfr_nbvar = 63 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("RUNFILE_DOCMD", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-modes.melt:51:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:52:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:52:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:52:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 52; /*^apply.arg */ argtab[3].meltbp_cstring = "start runfile_docmd cmd="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CMD__V2*/ meltfptr[1]; /*^apply.arg */ argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:52:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:52:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; /*^compute */ /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:52:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.PROGN___V7*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:53:/ quasiblock"); /*_.PARMODENV__V9*/ meltfptr[5] = ( /*!konst_1 */ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:55:/ cond"); /*cond */ if ( /*_.MODULDATA__V3*/ meltfptr[2]) /*then */ { /*^cond.then */ /*_.CURENV__V10*/ meltfptr[9] = /*_.MODULDATA__V3*/ meltfptr[2];; } else { MELT_LOCATION ("warmelt-modes.melt:55:/ cond.else"); /*_.CURENV__V10*/ meltfptr[9] = ( /*!INITIAL_ENVIRONMENT */ meltfrout->tabval[2]);; } ; /*^compute */ /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument ("arg");; /*^compute */ /*_.INARG__V11*/ meltfptr[10] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), ( /*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute */ /*_?*/ meltfram__.loc_CSTRING__o1 = melt_argument ("output");; /*^compute */ /*_.OUTARG__V12*/ meltfptr[11] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), ( /*_?*/ meltfram__.loc_CSTRING__o1)));; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:59:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:59:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:59:/ apply"); /*apply */ { union meltparam_un argtab[11]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 59; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd before read runfile_mode parmodenv="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PARMODENV__V9*/ meltfptr[5]; /*^apply.arg */ argtab[5].meltbp_cstring = " initial_environment="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & ( /*!INITIAL_ENVIRONMENT */ meltfrout-> tabval[2]); /*^apply.arg */ argtab[7].meltbp_cstring = " inarg="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.INARG__V11*/ meltfptr[10]; /*^apply.arg */ argtab[9].meltbp_cstring = " outarg="; /*^apply.arg */ argtab[10].meltbp_aptr = (melt_ptr_t *) & /*_.OUTARG__V12*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V14*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:59:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ /*_.IF___V14*/ meltfptr[13] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:59:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; /*^compute */ /*_.IFCPP___V13*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:59:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.PROGN___V16*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:63:/ cppif.then"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURENV__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[4])));; MELT_LOCATION ("warmelt-modes.melt:63:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_.IFELSE___V18*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-modes.melt:63:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check curenv"), ("warmelt-modes.melt") ? ("warmelt-modes.melt") : __FILE__, (63) ? (63) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V17*/ meltfptr[13] = /*_.IFELSE___V18*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:63:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V17*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:64:/ quasiblock"); /*_.MODULNAM__V20*/ meltfptr[19] = ( /*nil */ NULL);; MELT_CHECK_SIGNAL (); ; /*^compute */ /*_#IS_STRING__L6*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.OUTARG__V12*/ meltfptr[11])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-modes.melt:67:/ cond"); /*cond */ if ( /*_#IS_STRING__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-modes.melt:68:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V22*/ meltfptr[21] = /*_.OUTARG__V12*/ meltfptr[11];; /*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22] = /*make_string_without_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODULNAM__V20*/ meltfptr[19])), (".c")));; MELT_LOCATION ("warmelt-modes.melt:69:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V24*/ meltfptr[23] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22];; /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24] = /*make_string_without_dynloaded_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODULNAM__V20*/ meltfptr[19])), MELT_DYNLOADED_SUFFIX));; MELT_LOCATION ("warmelt-modes.melt:71:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24];; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:73:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:73:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:73:/ apply"); /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 73; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd sets modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " with outarg"; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 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 MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:73:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0; } ; } else { /*^cond.else */ /*_.IF___V28*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:73:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[28] = /*_.IF___V28*/ meltfptr[27];; /*^compute */ /*_.IFCPP___V27*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:73:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[28] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V27*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:67:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[27] = /*_.OUTARG__V12*/ meltfptr[11];; /*^compute */ /*_.MODSRCNAME__V21*/ meltfptr[20] = /*_.PROGN___V31*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:67:/ clear"); /*clear *//*_.SETQ___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.SETQ___V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.IFCPP___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V31*/ meltfptr[27] = 0; } ; } else { /*^cond.else */ /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-modes.melt:75:/ cond"); /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21] = (meltgc_new_string_nakedbasename ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10]))));; MELT_LOCATION ("warmelt-modes.melt:76:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V34*/ meltfptr[22] = /*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21];; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:77:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:77:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:77:/ apply"); /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 77; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd sets modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " with inarg"; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[25] = 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 MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V36*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:77:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*_.IF___V36*/ meltfptr[24] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:77:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[26] = /*_.IF___V36*/ meltfptr[24];; /*^compute */ /*_.IFCPP___V35*/ meltfptr[23] = /*_.PROGN___V38*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:77:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V38*/ meltfptr[26] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V35*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27] = (meltgc_new_string_tempname_suffixed ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10])), (".c")));; MELT_LOCATION ("warmelt-modes.melt:75:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[25] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27];; /*^compute */ /*_.IFELSE___V32*/ meltfptr[28] = /*_.PROGN___V40*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:75:/ clear"); /*clear *//*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.SETQ___V34*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V40*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-modes.melt:80:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("invalid runfile mode")); } ; MELT_LOCATION ("warmelt-modes.melt:81:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-modes.melt:81:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; MELT_LOCATION ("warmelt-modes.melt:79:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[26] = /*_.RETURN___V41*/ meltfptr[24];; /*^compute */ /*_.IFELSE___V32*/ meltfptr[28] = /*_.PROGN___V42*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:75:/ clear"); /*clear *//*_.RETURN___V41*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V42*/ meltfptr[26] = 0; } ; } ; /*_.MODSRCNAME__V21*/ meltfptr[20] = /*_.IFELSE___V32*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:67:/ clear"); /*clear *//*_#IS_STRING__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V32*/ meltfptr[28] = 0; } ; } ; MELT_LOCATION ("warmelt-modes.melt:84:/ quasiblock"); /*_.MODSRCBASE__V44*/ meltfptr[22] = /*make_string_without_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODSRCNAME__V21*/ meltfptr[20])), (".c")));; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:86:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:86:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:86:/ apply"); /*apply */ { union meltparam_un argtab[11]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 86; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd before translation inarg="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.INARG__V11*/ meltfptr[10]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[7].meltbp_cstring = " modsrcname="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCNAME__V21*/ meltfptr[20]; /*^apply.arg */ argtab[9].meltbp_cstring = " modsrcbase="; /*^apply.arg */ argtab[10].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[25] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V46*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:86:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*_.IF___V46*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:86:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[24] = /*_.IF___V46*/ meltfptr[27];; /*^compute */ /*_.IFCPP___V45*/ meltfptr[23] = /*_.PROGN___V48*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:86:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V48*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V45*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:89:/ apply"); /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURENV__V10*/ meltfptr[9]; /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V49*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) (( /*!TRANSLATE_TO_C_MODULE_MELT_SOURCES */ meltfrout-> tabval[5])), (melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:90:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:90:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:90:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 90; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd after translation modsrcname="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCNAME__V21*/ meltfptr[20]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[27] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V51*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:90:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[27] = 0; } ; } else { /*^cond.else */ /*_.IF___V51*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:90:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[24] = /*_.IF___V51*/ meltfptr[25];; /*^compute */ /*_.IFCPP___V50*/ meltfptr[28] = /*_.PROGN___V53*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:90:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V53*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V50*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-modes.melt:92:/ locexp"); /*generate_flavored_melt_module */ melt_compile_source (melt_string_str ((melt_ptr_t) /*_.MODSRCBASE__V44*/ meltfptr[22]), melt_string_str ((melt_ptr_t) /*_.MODULNAM__V20*/ meltfptr[19]), NULL, melt_string_str ((melt_ptr_t) ( /*!konst_6 */ meltfrout->tabval[6]))); /*generate_flavored_melt_module */ ; } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:93:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:93:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:93:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 93; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd after generation of module runfile_mode modsrcbase="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[24] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V55*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:93:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[24] = 0; } ; } else { /*^cond.else */ /*_.IF___V55*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:93:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[24] = /*_.IF___V55*/ meltfptr[25];; /*^compute */ /*_.IFCPP___V54*/ meltfptr[27] = /*_.PROGN___V57*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:93:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V57*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V54*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ /*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25] = meltgc_start_flavored_module ((melt_ptr_t) /*_.CURENV__V10*/ meltfptr[9], melt_string_str ((melt_ptr_t) /*_.MODULNAM__V20*/ meltfptr[19]), melt_string_str ((melt_ptr_t) ( /*!konst_7 */ meltfrout->tabval[7]))); ;; { MELT_LOCATION ("warmelt-modes.melt:96:/ locexp"); /*ignore */ (void) ( /*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25]); } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:97:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:97:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:97:/ apply"); /*apply */ { union meltparam_un argtab[8]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 97; /*^apply.arg */ argtab[3].meltbp_cstring = "runfile_docmd done modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " modsrcbase="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[7].meltbp_cstring = " return :true"; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V60*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:97:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; } ; } else { /*^cond.else */ /*_.IF___V60*/ meltfptr[59] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:97:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; /*^compute */ /*_.IFCPP___V59*/ meltfptr[24] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:97:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.PROGN___V62*/ meltfptr[60] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V59*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:99:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = ( /*!konst_8_TRUE */ meltfrout->tabval[8]);; { MELT_LOCATION ("warmelt-modes.melt:99:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*_.LET___V43*/ meltfptr[21] = /*_.RETURN___V63*/ meltfptr[59];; MELT_LOCATION ("warmelt-modes.melt:84:/ clear"); /*clear *//*_.MODSRCBASE__V44*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V49*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V50*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.IFCPP___V54*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.IFCPP___V59*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V63*/ meltfptr[59] = 0; /*_.LET___V19*/ meltfptr[14] = /*_.LET___V43*/ meltfptr[21];; MELT_LOCATION ("warmelt-modes.melt:64:/ clear"); /*clear *//*_.MODULNAM__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_#IS_STRING__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MODSRCNAME__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V43*/ meltfptr[21] = 0; /*_.LET___V8*/ meltfptr[4] = /*_.LET___V19*/ meltfptr[14];; MELT_LOCATION ("warmelt-modes.melt:53:/ clear"); /*clear *//*_.PARMODENV__V9*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.CURENV__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_?*/ meltfram__.loc_CSTRING__o0 = 0; /*^clear */ /*clear *//*_.INARG__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_?*/ meltfram__.loc_CSTRING__o1 = 0; /*^clear */ /*clear *//*_.OUTARG__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LET___V19*/ meltfptr[14] = 0; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:51:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[4];; { MELT_LOCATION ("warmelt-modes.melt:51:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*epilog */ /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.LET___V8*/ meltfptr[4] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("RUNFILE_DOCMD", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_warmelt_modes_RUNFILE_DOCMD_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_2_warmelt_modes_RUNFILE_DOCMD */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_modes_RUNDEBUG_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_3_warmelt_modes_RUNDEBUG_DOCMD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_3_warmelt_modes_RUNDEBUG_DOCMD_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM #define MELTFRAM_NBVARPTR 63 melt_ptr_t mcfr_varptr[63]; #define MELTFRAM_NBVARNUM 19 long mcfr_varnum[19]; /*others*/ const char *loc_CSTRING__o0; const char *loc_CSTRING__o1; long _spare_; } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ /*meltrout_3_warmelt_modes_RUNDEBUG_DOCMD is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_3_warmelt_modes_RUNDEBUG_DOCMD_st *) meltfirstargp_; /* use arguments output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; (void) meltxargtab_; (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 63; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); /* declstructinit plain routine meltrout_3_warmelt_modes_RUNDEBUG_DOCMD nbval 63*/ meltfram__.mcfr_nbvar = 63 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("RUNDEBUG_DOCMD", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-modes.melt:114:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:115:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:115:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:115:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 115; /*^apply.arg */ argtab[3].meltbp_cstring = "start rundebug_docmd cmd="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CMD__V2*/ meltfptr[1]; /*^apply.arg */ argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:115:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:115:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; /*^compute */ /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:115:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.PROGN___V7*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:116:/ quasiblock"); /*_.PARMODENV__V9*/ meltfptr[5] = ( /*!konst_1 */ meltfrout->tabval[1]);; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:118:/ cond"); /*cond */ if ( /*_.MODULDATA__V3*/ meltfptr[2]) /*then */ { /*^cond.then */ /*_.CURENV__V10*/ meltfptr[9] = /*_.MODULDATA__V3*/ meltfptr[2];; } else { MELT_LOCATION ("warmelt-modes.melt:118:/ cond.else"); /*_.CURENV__V10*/ meltfptr[9] = ( /*!INITIAL_ENVIRONMENT */ meltfrout->tabval[2]);; } ; /*^compute */ /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument ("arg");; /*^compute */ /*_.INARG__V11*/ meltfptr[10] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), ( /*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute */ /*_?*/ meltfram__.loc_CSTRING__o1 = melt_argument ("output");; /*^compute */ /*_.OUTARG__V12*/ meltfptr[11] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), ( /*_?*/ meltfram__.loc_CSTRING__o1)));; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:122:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:122:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:122:/ apply"); /*apply */ { union meltparam_un argtab[11]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 122; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd before read rundebug_mode parmodenv="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PARMODENV__V9*/ meltfptr[5]; /*^apply.arg */ argtab[5].meltbp_cstring = " initial_environment="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & ( /*!INITIAL_ENVIRONMENT */ meltfrout-> tabval[2]); /*^apply.arg */ argtab[7].meltbp_cstring = " inarg="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.INARG__V11*/ meltfptr[10]; /*^apply.arg */ argtab[9].meltbp_cstring = " outarg="; /*^apply.arg */ argtab[10].meltbp_aptr = (melt_ptr_t *) & /*_.OUTARG__V12*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V14*/ meltfptr[13] = /*_.MELT_DEBUG_FUN__V15*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:122:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V15*/ meltfptr[14] = 0; } ; } else { /*^cond.else */ /*_.IF___V14*/ meltfptr[13] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:122:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; /*^compute */ /*_.IFCPP___V13*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:122:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.PROGN___V16*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V13*/ meltfptr[12] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:126:/ cppif.then"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURENV__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[4])));; MELT_LOCATION ("warmelt-modes.melt:126:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_.IFELSE___V18*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-modes.melt:126:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check curenv"), ("warmelt-modes.melt") ? ("warmelt-modes.melt") : __FILE__, (126) ? (126) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V17*/ meltfptr[13] = /*_.IFELSE___V18*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:126:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V17*/ meltfptr[13] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:127:/ quasiblock"); /*_.MODULNAM__V20*/ meltfptr[19] = ( /*nil */ NULL);; MELT_CHECK_SIGNAL (); ; /*^compute */ /*_#IS_STRING__L6*/ meltfnum[1] = (melt_magic_discr ((melt_ptr_t) ( /*_.OUTARG__V12*/ meltfptr[11])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-modes.melt:130:/ cond"); /*cond */ if ( /*_#IS_STRING__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { MELT_LOCATION ("warmelt-modes.melt:131:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V22*/ meltfptr[21] = /*_.OUTARG__V12*/ meltfptr[11];; /*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22] = /*make_string_without_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODULNAM__V20*/ meltfptr[19])), (".c")));; MELT_LOCATION ("warmelt-modes.melt:132:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V24*/ meltfptr[23] = /*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22];; /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24] = /*make_string_without_dynloaded_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODULNAM__V20*/ meltfptr[19])), MELT_DYNLOADED_SUFFIX));; MELT_LOCATION ("warmelt-modes.melt:134:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V26*/ meltfptr[25] = /*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24];; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:136:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L7*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:136:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L7*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:136:/ apply"); /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 136; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd sets modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " with outarg"; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 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 MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:136:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0; } ; } else { /*^cond.else */ /*_.IF___V28*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:136:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[28] = /*_.IF___V28*/ meltfptr[27];; /*^compute */ /*_.IFCPP___V27*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:136:/ clear"); /*clear *//*_#MELT_NEED_DBG__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[28] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V27*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:130:/ quasiblock"); /*_.PROGN___V31*/ meltfptr[27] = /*_.OUTARG__V12*/ meltfptr[11];; /*^compute */ /*_.MODSRCNAME__V21*/ meltfptr[20] = /*_.PROGN___V31*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:130:/ clear"); /*clear *//*_.SETQ___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_WITHOUT_SUFFIX__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.SETQ___V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_WITHOUT_DYNLOADED_SUFFIX__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.SETQ___V26*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.IFCPP___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.PROGN___V31*/ meltfptr[27] = 0; } ; } else { /*^cond.else */ /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_STRING__L9*/ meltfnum[7] = (melt_magic_discr ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10])) == MELTOBMAG_STRING);; MELT_LOCATION ("warmelt-modes.melt:138:/ cond"); /*cond */ if ( /*_#IS_STRING__L9*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21] = (meltgc_new_string_nakedbasename ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10]))));; MELT_LOCATION ("warmelt-modes.melt:139:/ compute"); /*_.MODULNAM__V20*/ meltfptr[19] = /*_.SETQ___V34*/ meltfptr[22] = /*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21];; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:140:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L10*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:140:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L10*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:140:/ apply"); /*apply */ { union meltparam_un argtab[6]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 140; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd sets modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " with inarg"; /*_.MELT_DEBUG_FUN__V37*/ meltfptr[25] = 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 MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V36*/ meltfptr[24] = /*_.MELT_DEBUG_FUN__V37*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:140:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L11*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V37*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*_.IF___V36*/ meltfptr[24] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:140:/ quasiblock"); /*_.PROGN___V38*/ meltfptr[26] = /*_.IF___V36*/ meltfptr[24];; /*^compute */ /*_.IFCPP___V35*/ meltfptr[23] = /*_.PROGN___V38*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:140:/ clear"); /*clear *//*_#MELT_NEED_DBG__L10*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V36*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V38*/ meltfptr[26] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V35*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27] = (meltgc_new_string_tempname_suffixed ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10])), (".c")));; MELT_LOCATION ("warmelt-modes.melt:138:/ quasiblock"); /*_.PROGN___V40*/ meltfptr[25] = /*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27];; /*^compute */ /*_.IFELSE___V32*/ meltfptr[28] = /*_.PROGN___V40*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:138:/ clear"); /*clear *//*_.MAKE_STRING_NAKEDBASENAME__V33*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.SETQ___V34*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V35*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.MAKE_STRING_TEMPNAME_SUFFIXED__V39*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V40*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*^block */ /*anyblock */ { { MELT_LOCATION ("warmelt-modes.melt:143:/ locexp"); error ("MELT ERROR MSG [#%ld]::: %s", melt_dbgcounter, ("invalid rundebug mode")); } ; MELT_LOCATION ("warmelt-modes.melt:144:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; { MELT_LOCATION ("warmelt-modes.melt:144:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; MELT_LOCATION ("warmelt-modes.melt:142:/ quasiblock"); /*_.PROGN___V42*/ meltfptr[26] = /*_.RETURN___V41*/ meltfptr[24];; /*^compute */ /*_.IFELSE___V32*/ meltfptr[28] = /*_.PROGN___V42*/ meltfptr[26];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:138:/ clear"); /*clear *//*_.RETURN___V41*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.PROGN___V42*/ meltfptr[26] = 0; } ; } ; /*_.MODSRCNAME__V21*/ meltfptr[20] = /*_.IFELSE___V32*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:130:/ clear"); /*clear *//*_#IS_STRING__L9*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IFELSE___V32*/ meltfptr[28] = 0; } ; } ; MELT_LOCATION ("warmelt-modes.melt:147:/ quasiblock"); /*_.MODSRCBASE__V44*/ meltfptr[22] = /*make_string_without_suffix */ (meltgc_new_string_without_suffix ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[3])), melt_string_str ((melt_ptr_t) ( /*_.MODSRCNAME__V21*/ meltfptr[20])), (".c")));; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:149:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L12*/ meltfnum[10] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:149:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L12*/ meltfnum[10]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:149:/ apply"); /*apply */ { union meltparam_un argtab[11]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 149; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd before translation inarg="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.INARG__V11*/ meltfptr[10]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[7].meltbp_cstring = " modsrcname="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCNAME__V21*/ meltfptr[20]; /*^apply.arg */ argtab[9].meltbp_cstring = " modsrcbase="; /*^apply.arg */ argtab[10].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*_.MELT_DEBUG_FUN__V47*/ meltfptr[25] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V46*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V47*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:149:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V47*/ meltfptr[25] = 0; } ; } else { /*^cond.else */ /*_.IF___V46*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:149:/ quasiblock"); /*_.PROGN___V48*/ meltfptr[24] = /*_.IF___V46*/ meltfptr[27];; /*^compute */ /*_.IFCPP___V45*/ meltfptr[23] = /*_.PROGN___V48*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:149:/ clear"); /*clear *//*_#MELT_NEED_DBG__L12*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V46*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V48*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V45*/ meltfptr[23] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:152:/ apply"); /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.CURENV__V10*/ meltfptr[9]; /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V49*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) (( /*!TRANSLATE_TO_C_MODULE_MELT_SOURCES */ meltfrout-> tabval[5])), (melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:153:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L14*/ meltfnum[7] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:153:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L14*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:153:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 153; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd after translation modsrcname="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCNAME__V21*/ meltfptr[20]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V52*/ meltfptr[27] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V51*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V52*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:153:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L15*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V52*/ meltfptr[27] = 0; } ; } else { /*^cond.else */ /*_.IF___V51*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:153:/ quasiblock"); /*_.PROGN___V53*/ meltfptr[24] = /*_.IF___V51*/ meltfptr[25];; /*^compute */ /*_.IFCPP___V50*/ meltfptr[28] = /*_.PROGN___V53*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:153:/ clear"); /*clear *//*_#MELT_NEED_DBG__L14*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V51*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V53*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V50*/ meltfptr[28] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; { MELT_LOCATION ("warmelt-modes.melt:155:/ locexp"); /*generate_flavored_melt_module */ melt_compile_source (melt_string_str ((melt_ptr_t) /*_.MODSRCBASE__V44*/ meltfptr[22]), melt_string_str ((melt_ptr_t) /*_.MODULNAM__V20*/ meltfptr[19]), NULL, melt_string_str ((melt_ptr_t) ( /*!konst_6 */ meltfrout->tabval[6]))); /*generate_flavored_melt_module */ ; } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:156:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L16*/ meltfnum[10] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:156:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L16*/ meltfnum[10]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:156:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 156; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd after generation of module rundebug_mode modsrcbase="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[5].meltbp_cstring = " modulnam="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*_.MELT_DEBUG_FUN__V56*/ meltfptr[24] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V55*/ meltfptr[25] = /*_.MELT_DEBUG_FUN__V56*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:156:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L17*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V56*/ meltfptr[24] = 0; } ; } else { /*^cond.else */ /*_.IF___V55*/ meltfptr[25] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:156:/ quasiblock"); /*_.PROGN___V57*/ meltfptr[24] = /*_.IF___V55*/ meltfptr[25];; /*^compute */ /*_.IFCPP___V54*/ meltfptr[27] = /*_.PROGN___V57*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:156:/ clear"); /*clear *//*_#MELT_NEED_DBG__L16*/ meltfnum[10] = 0; /*^clear */ /*clear *//*_.IF___V55*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.PROGN___V57*/ meltfptr[24] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V54*/ meltfptr[27] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ /*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25] = meltgc_start_flavored_module ((melt_ptr_t) /*_.CURENV__V10*/ meltfptr[9], melt_string_str ((melt_ptr_t) /*_.MODULNAM__V20*/ meltfptr[19]), melt_string_str ((melt_ptr_t) ( /*!konst_7 */ meltfrout->tabval[7]))); ;; { MELT_LOCATION ("warmelt-modes.melt:159:/ locexp"); /*ignore */ (void) ( /*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25]); } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:160:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L18*/ meltfnum[7] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:160:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L18*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:160:/ apply"); /*apply */ { union meltparam_un argtab[8]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 160; /*^apply.arg */ argtab[3].meltbp_cstring = "rundebug_docmd done modulnam="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.MODULNAM__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " modsrcbase="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODSRCBASE__V44*/ meltfptr[22]; /*^apply.arg */ argtab[7].meltbp_cstring = " return :true"; /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V60*/ meltfptr[59] = /*_.MELT_DEBUG_FUN__V61*/ meltfptr[60];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:160:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L19*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V61*/ meltfptr[60] = 0; } ; } else { /*^cond.else */ /*_.IF___V60*/ meltfptr[59] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:160:/ quasiblock"); /*_.PROGN___V62*/ meltfptr[60] = /*_.IF___V60*/ meltfptr[59];; /*^compute */ /*_.IFCPP___V59*/ meltfptr[24] = /*_.PROGN___V62*/ meltfptr[60];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:160:/ clear"); /*clear *//*_#MELT_NEED_DBG__L18*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V60*/ meltfptr[59] = 0; /*^clear */ /*clear *//*_.PROGN___V62*/ meltfptr[60] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V59*/ meltfptr[24] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:162:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = ( /*!konst_8_TRUE */ meltfrout->tabval[8]);; { MELT_LOCATION ("warmelt-modes.melt:162:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*_.LET___V43*/ meltfptr[21] = /*_.RETURN___V63*/ meltfptr[59];; MELT_LOCATION ("warmelt-modes.melt:147:/ clear"); /*clear *//*_.MODSRCBASE__V44*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.IFCPP___V45*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V49*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.IFCPP___V50*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.IFCPP___V54*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.START_MELT_MODULE_OF_FLAVOR__V58*/ meltfptr[25] = 0; /*^clear */ /*clear *//*_.IFCPP___V59*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.RETURN___V63*/ meltfptr[59] = 0; /*_.LET___V19*/ meltfptr[14] = /*_.LET___V43*/ meltfptr[21];; MELT_LOCATION ("warmelt-modes.melt:127:/ clear"); /*clear *//*_.MODULNAM__V20*/ meltfptr[19] = 0; /*^clear */ /*clear *//*_#IS_STRING__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MODSRCNAME__V21*/ meltfptr[20] = 0; /*^clear */ /*clear *//*_.LET___V43*/ meltfptr[21] = 0; /*_.LET___V8*/ meltfptr[4] = /*_.LET___V19*/ meltfptr[14];; MELT_LOCATION ("warmelt-modes.melt:116:/ clear"); /*clear *//*_.PARMODENV__V9*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.CURENV__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_?*/ meltfram__.loc_CSTRING__o0 = 0; /*^clear */ /*clear *//*_.INARG__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_?*/ meltfram__.loc_CSTRING__o1 = 0; /*^clear */ /*clear *//*_.OUTARG__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.IFCPP___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.LET___V19*/ meltfptr[14] = 0; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:114:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[4];; { MELT_LOCATION ("warmelt-modes.melt:114:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*epilog */ /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.LET___V8*/ meltfptr[4] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("RUNDEBUG_DOCMD", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_warmelt_modes_RUNDEBUG_DOCMD_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_3_warmelt_modes_RUNDEBUG_DOCMD */ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_modes_EVAL_DOCMD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_4_warmelt_modes_EVAL_DOCMD_melt = melt_blocklevel_signals; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif struct frame_meltrout_4_warmelt_modes_EVAL_DOCMD_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ struct meltclosure_st *mcfr_clos; struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM #define MELTFRAM_NBVARPTR 34 melt_ptr_t mcfr_varptr[34]; #define MELTFRAM_NBVARNUM 9 long mcfr_varnum[9]; /*others*/ const char *loc_CSTRING__o0; long _spare_; } *meltframptr_ = 0, meltfram__; /*declfrastruct */ #define meltframe meltfram__ /*meltrout_4_warmelt_modes_EVAL_DOCMD is not initial declstructinit */ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_4_warmelt_modes_EVAL_DOCMD_st *) meltfirstargp_; /* use arguments output_curframe_declstruct_init */ (void) meltclosp_; (void) meltfirstargp_; (void) meltxargdescr_; (void) meltxargtab_; (void) meltxresdescr_; (void) meltxrestab_; gt_ggc_mx_melt_un (meltframptr_->mcfr_clos); for (ix = 0; ix < 34; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); /* declstructinit plain routine meltrout_4_warmelt_modes_EVAL_DOCMD nbval 34*/ meltfram__.mcfr_nbvar = 34 /*nbval */ ; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("EVAL_DOCMD", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-modes.melt:178:/ getarg"); /*_.CMD__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODULDATA__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/ { #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:179:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L1*/ meltfnum[0] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:179:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:179:/ apply"); /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 179; /*^apply.arg */ argtab[3].meltbp_cstring = "start eval_docmd cmd="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.CMD__V2*/ meltfptr[1]; /*^apply.arg */ argtab[5].meltbp_cstring = " moduldata="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.MODULDATA__V3*/ meltfptr[2]; /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t) (( /*!MELT_DEBUG_FUN */ meltfrout->tabval[0])), (melt_ptr_t) (( /*nil */ NULL)), (MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V5*/ meltfptr[4] = /*_.MELT_DEBUG_FUN__V6*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:179:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L2*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V6*/ meltfptr[5] = 0; } ; } else { /*^cond.else */ /*_.IF___V5*/ meltfptr[4] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:179:/ quasiblock"); /*_.PROGN___V7*/ meltfptr[5] = /*_.IF___V5*/ meltfptr[4];; /*^compute */ /*_.IFCPP___V4*/ meltfptr[3] = /*_.PROGN___V7*/ meltfptr[5];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:179:/ clear"); /*clear *//*_#MELT_NEED_DBG__L1*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IF___V5*/ meltfptr[4] = 0; /*^clear */ /*clear *//*_.PROGN___V7*/ meltfptr[5] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V4*/ meltfptr[3] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:180:/ quasiblock"); /*_.PARMODENV__V9*/ meltfptr[5] = ( /*!konst_1 */ meltfrout->tabval[1]);; /*^compute */ /*_.CURENV__V10*/ meltfptr[9] = /*_.MODULDATA__V3*/ meltfptr[2];; /*^compute */ /*_?*/ meltfram__.loc_CSTRING__o0 = melt_argument ("arg");; /*^compute */ /*_.INARG__V11*/ meltfptr[10] = (meltgc_new_stringdup ((meltobject_ptr_t) (( /*!DISCR_STRING */ meltfrout->tabval[2])), ( /*_?*/ meltfram__.loc_CSTRING__o0)));; /*^compute */ /*_.INEXPRS__V12*/ meltfptr[11] = (meltgc_read_from_val ((melt_ptr_t) ( /*_.INARG__V11*/ meltfptr[10]), NULL));; MELT_LOCATION ("warmelt-modes.melt:185:/ cond"); /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout->tabval[3])), (melt_ptr_t) (( /*!CLASS_SYSTEM_DATA */ meltfrout->tabval[4]))) ) /*then */ { /*^cond.then */ /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (( /*!INITIAL_SYSTEM_DATA */ meltfrout-> tabval[3])) /*=obj*/ ; melt_object_get_field (slot, obj, 18, "SYSDATA_STDOUT"); /*_.STDOUT__V13*/ meltfptr[12] = slot; }; ; } else { /*^cond.else */ /*_.STDOUT__V13*/ meltfptr[12] = NULL;; } ; /*^compute */ /*_.OCCMAP__V14*/ meltfptr[13] = (meltgc_new_mapobjects ((meltobject_ptr_t) (( /*!DISCR_MAP_OBJECTS */ meltfrout->tabval[5])), (50)));; { MELT_LOCATION ("warmelt-modes.melt:189:/ locexp"); /* eval_docmd EVALSTART_CHK__1 */ debugeprintf ("eval_docmd start cmd@%p", (void *) /*_.CMD__V2*/ meltfptr[1]); MELT_LOCATION_HERE ("eval_docmd @*@starting eval@*@"); ; } ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:193:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L3*/ meltfnum[1] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:193:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L3*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:193:/ apply"); /*apply */ { union meltparam_un argtab[11]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 193; /*^apply.arg */ argtab[3].meltbp_cstring = "eval_docmd start parmodenv="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.PARMODENV__V9*/ meltfptr[5]; /*^apply.arg */ argtab[5].meltbp_cstring = "\n curenv="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.CURENV__V10*/ meltfptr[9]; /*^apply.arg */ argtab[7].meltbp_cstring = " inarg="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.INARG__V11*/ meltfptr[10]; /*^apply.arg */ argtab[9].meltbp_cstring = "\n inexprs="; /*^apply.arg */ argtab[10].meltbp_aptr = (melt_ptr_t *) & /*_.INEXPRS__V12*/ meltfptr[11]; /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V16*/ meltfptr[15] = /*_.MELT_DEBUG_FUN__V17*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:193:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V17*/ meltfptr[16] = 0; } ; } else { /*^cond.else */ /*_.IF___V16*/ meltfptr[15] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:193:/ quasiblock"); /*_.PROGN___V18*/ meltfptr[16] = /*_.IF___V16*/ meltfptr[15];; /*^compute */ /*_.IFCPP___V15*/ meltfptr[14] = /*_.PROGN___V18*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:193:/ clear"); /*clear *//*_#MELT_NEED_DBG__L3*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V16*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.PROGN___V18*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V15*/ meltfptr[14] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:197:/ cppif.then"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of ((melt_ptr_t) ( /*_.CURENV__V10*/ meltfptr[9]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[6])));; MELT_LOCATION ("warmelt-modes.melt:197:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_.IFELSE___V20*/ meltfptr[16] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-modes.melt:197:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check curenv"), ("warmelt-modes.melt") ? ("warmelt-modes.melt") : __FILE__, (197) ? (197) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V19*/ meltfptr[15] = /*_.IFELSE___V20*/ meltfptr[16];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:197:/ clear"); /*clear *//*_#IS_A__L5*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.IFELSE___V20*/ meltfptr[16] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V19*/ meltfptr[15] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-modes.melt:198:/ quasiblock"); /*_#NBEXPRS__L6*/ meltfnum[1] = (melt_list_length ((melt_ptr_t) ( /*_.INEXPRS__V12*/ meltfptr[11])));; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:200:/ apply"); /*apply */ { /*_.NEWENV__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) (( /*!FRESH_ENV */ meltfrout->tabval[7])), (melt_ptr_t) ( /*_.CURENV__V10*/ meltfptr[9]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:201:/ apply"); /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V22*/ meltfptr[21]; /*_.RES__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) (( /*!TRANSLATE_RUN_MELT_EXPRESSIONS */ meltfrout-> tabval[8])), (melt_ptr_t) ( /*_.INEXPRS__V12*/ meltfptr[11]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; MELT_CHECK_SIGNAL (); ; /*_#DEBUG_DEPTH__L7*/ meltfnum[0] = (long) (melt_debug_depth ());; /*^compute */ /*_.MAKE_INTEGERBOX__V24*/ meltfptr[23] = (meltgc_new_int ((meltobject_ptr_t) (( /*!DISCR_CONSTANT_INTEGER */ meltfrout->tabval[10])), ( /*_#DEBUG_DEPTH__L7*/ meltfnum[0])));; MELT_LOCATION ("warmelt-modes.melt:202:/ quasiblock"); /*^rawallocobj */ /*rawallocobj */ { melt_ptr_t newobj = 0; melt_raw_object_create (newobj, (melt_ptr_t) (( /*!CLASS_DEBUG_OUTPUT_INFORMATION */ meltfrout->tabval[9])), (3), "CLASS_DEBUG_OUTPUT_INFORMATION"); /*_.INST__V26*/ meltfptr[25] = newobj; }; ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_OUT", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V26*/ meltfptr[25]), (0), ( /*_.STDOUT__V13*/ meltfptr[12]), "DBGI_OUT"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_OCCMAP", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V26*/ meltfptr[25]), (1), ( /*_.OCCMAP__V14*/ meltfptr[13]), "DBGI_OCCMAP"); ; /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @DBGI_MAXDEPTH", melt_magic_discr ((melt_ptr_t) ( /*_.INST__V26*/ meltfptr[25])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INST__V26*/ meltfptr[25]), (2), ( /*_.MAKE_INTEGERBOX__V24*/ meltfptr[23]), "DBGI_MAXDEPTH"); ; /*^touchobj */ melt_dbgtrace_written_object ( /*_.INST__V26*/ meltfptr[25], "newly made instance"); ; /*_.DBGI__V25*/ meltfptr[24] = /*_.INST__V26*/ meltfptr[25];; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:208:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L8*/ meltfnum[7] = /*MELT_NEED_DBG */ #if MELT_HAVE_DEBUG ( /*melt_need_dbg */ melt_need_debug ((int) 0)) #else 0 /* no melt_need_dbg */ #endif /*MELT_HAVE_DEBUG */ ;; MELT_LOCATION ("warmelt-modes.melt:208:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:208:/ apply"); /*apply */ { union meltparam_un argtab[9]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 208; /*^apply.arg */ argtab[3].meltbp_cstring = "eval_docmd run res="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.RES__V23*/ meltfptr[22]; /*^apply.arg */ argtab[5].meltbp_cstring = "\n newenv="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.NEWENV__V22*/ meltfptr[21]; /*^apply.arg */ argtab[7].meltbp_cstring = "\n dbgi="; /*^apply.arg */ argtab[8].meltbp_aptr = (melt_ptr_t *) & /*_.DBGI__V25*/ meltfptr[24]; /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 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 MELTBPARSTR_CSTRING MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.IF___V28*/ meltfptr[27] = /*_.MELT_DEBUG_FUN__V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:208:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L9*/ meltfnum[8] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V29*/ meltfptr[28] = 0; } ; } else { /*^cond.else */ /*_.IF___V28*/ meltfptr[27] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:208:/ quasiblock"); /*_.PROGN___V30*/ meltfptr[28] = /*_.IF___V28*/ meltfptr[27];; /*^compute */ /*_.IFCPP___V27*/ meltfptr[26] = /*_.PROGN___V30*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:208:/ clear"); /*clear *//*_#MELT_NEED_DBG__L8*/ meltfnum[7] = 0; /*^clear */ /*clear *//*_.IF___V28*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.PROGN___V30*/ meltfptr[28] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V27*/ meltfptr[26] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:209:/ apply"); /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_cstring = "\n;;; result of eval mode of "; /*^apply.arg */ argtab[1].meltbp_long = /*_#NBEXPRS__L6*/ meltfnum[1]; /*^apply.arg */ argtab[2].meltbp_cstring = " expression[s] is ...\n"; /*_.ADD2OUT__V31*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) (( /*!ADD2OUT */ meltfrout->tabval[11])), (melt_ptr_t) ( /*_.STDOUT__V13*/ meltfptr[12]), (MELTBPARSTR_CSTRING MELTBPARSTR_LONG MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:210:/ apply"); /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.DBGI__V25*/ meltfptr[24]; /*^apply.arg */ argtab[1].meltbp_long = 0; /*_.DBG_OUT__V32*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) (( /*!DBG_OUT */ meltfrout->tabval[12])), (melt_ptr_t) ( /*_.RES__V23*/ meltfptr[22]), (MELTBPARSTR_PTR MELTBPARSTR_LONG ""), argtab, "", (union meltparam_un *) 0); } ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:211:/ apply"); /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_cstring = "\n;;; *** end of evaluated result *** \n "; /*_.ADD2OUT__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) (( /*!ADD2OUT */ meltfrout->tabval[11])), (melt_ptr_t) ( /*_.STDOUT__V13*/ meltfptr[12]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:212:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = ( /*!konst_13_TRUE */ meltfrout->tabval[13]);; { MELT_LOCATION ("warmelt-modes.melt:212:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*_.LET___V21*/ meltfptr[16] = /*_.RETURN___V34*/ meltfptr[33];; MELT_LOCATION ("warmelt-modes.melt:198:/ clear"); /*clear *//*_#NBEXPRS__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.NEWENV__V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.RES__V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_#DEBUG_DEPTH__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MAKE_INTEGERBOX__V24*/ meltfptr[23] = 0; /*^clear */ /*clear *//*_.DBGI__V25*/ meltfptr[24] = 0; /*^clear */ /*clear *//*_.IFCPP___V27*/ meltfptr[26] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V31*/ meltfptr[27] = 0; /*^clear */ /*clear *//*_.DBG_OUT__V32*/ meltfptr[28] = 0; /*^clear */ /*clear *//*_.ADD2OUT__V33*/ meltfptr[32] = 0; /*^clear */ /*clear *//*_.RETURN___V34*/ meltfptr[33] = 0; /*_.LET___V8*/ meltfptr[4] = /*_.LET___V21*/ meltfptr[16];; MELT_LOCATION ("warmelt-modes.melt:180:/ clear"); /*clear *//*_.PARMODENV__V9*/ meltfptr[5] = 0; /*^clear */ /*clear *//*_.CURENV__V10*/ meltfptr[9] = 0; /*^clear */ /*clear *//*_?*/ meltfram__.loc_CSTRING__o0 = 0; /*^clear */ /*clear *//*_.INARG__V11*/ meltfptr[10] = 0; /*^clear */ /*clear *//*_.INEXPRS__V12*/ meltfptr[11] = 0; /*^clear */ /*clear *//*_.STDOUT__V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.OCCMAP__V14*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.IFCPP___V15*/ meltfptr[14] = 0; /*^clear */ /*clear *//*_.IFCPP___V19*/ meltfptr[15] = 0; /*^clear */ /*clear *//*_.LET___V21*/ meltfptr[16] = 0; MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:178:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V8*/ meltfptr[4];; { MELT_LOCATION ("warmelt-modes.melt:178:/ locexp"); /*ochecknores compilobj_nrep_return */ #if MELT_HAVE_DEBUG 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 labend_rout; /*epilog */ /*^clear */ /*clear *//*_.IFCPP___V4*/ meltfptr[3] = 0; /*^clear */ /*clear *//*_.LET___V8*/ meltfptr[4] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("EVAL_DOCMD", meltcallcount); MELT_TRACE_EXIT_LOCATION (); melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_warmelt_modes_EVAL_DOCMD_melt; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; return (melt_ptr_t) ( /*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_4_warmelt_modes_EVAL_DOCMD */ /*no syntax testing generated*/ typedef struct frame_melt_start_this_module_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ void (*mcfr_initforwmarkrout) (struct melt_callframe_st *, int); struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #undef MELTFRAM_NBVARPTR #undef MELTFRAM_NBVARNUM #define MELTFRAM_NBVARPTR 635 melt_ptr_t mcfr_varptr[635]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } initial_frame_st; static void initialize_module_meltdata_warmelt_modes (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) struct cdata_st { struct MELT_ROUTINE_STRUCT (5) drout_1__INSTALL_MELT_MODE; struct MELT_CLOSURE_STRUCT (0) dclo_2__INSTALL_MELT_MODE; struct MELT_OBJECT_STRUCT (3) dsym_3__CLASS_MELT_MODE; struct MELT_STRING_STRUCT (15) dstr_4__CLASS_MELT_MODE; struct MELT_OBJECT_STRUCT (3) dsym_5__INITIAL_SYSTEM_DATA; struct MELT_STRING_STRUCT (19) dstr_6__INITIAL_SYSTEM_D; struct MELT_OBJECT_STRUCT (3) dsym_7__CLASS_SYSTEM_DATA; struct MELT_STRING_STRUCT (17) dstr_8__CLASS_SYSTEM_DAT; struct MELT_OBJECT_STRUCT (3) dsym_9__CLASS_NAMED; struct MELT_STRING_STRUCT (11) dstr_10__CLASS_NAMED; struct MELT_OBJECT_STRUCT (3) dsym_11__MELT_DEBUG_FUN; struct MELT_STRING_STRUCT (14) dstr_12__MELT_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_13__INSTALL_MELT_MODE; struct MELT_STRING_STRUCT (17) dstr_14__INSTALL_MELT_MOD; struct MELT_ROUTINE_STRUCT (9) drout_15__RUNFILE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_16__RUNFILE_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_17__INITIAL_ENVIRONMENT; struct MELT_STRING_STRUCT (19) dstr_18__INITIAL_ENVIRONM; struct MELT_OBJECT_STRUCT (3) dsym_19__DISCR_STRING; struct MELT_STRING_STRUCT (12) dstr_20__DISCR_STRING; struct MELT_OBJECT_STRUCT (3) dsym_21__CLASS_ENVIRONMENT; struct MELT_STRING_STRUCT (17) dstr_22__CLASS_ENVIRONMEN; struct MELT_OBJECT_STRUCT (3) dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES; struct MELT_STRING_STRUCT (34) dstr_24__TRANSLATE_TO_C_M; struct MELT_STRING_STRUCT (12) dstr_25__quicklybuilt; struct MELT_STRING_STRUCT (12) dstr_26__quicklybuilt; struct MELT_OBJECT_STRUCT (3) dsym_27__TRUE; struct MELT_STRING_STRUCT (4) dstr_28__TRUE; struct MELT_OBJECT_STRUCT (3) dsym_29__RUNFILE_MODE; struct MELT_STRING_STRUCT (12) dstr_30__RUNFILE_MODE; struct MELT_OBJECT_STRUCT (5) dobj_31__RUNFILE_MODE; struct MELT_STRING_STRUCT (7) dstr_32__runfile; struct MELT_STRING_STRUCT (163) dstr_33__translate_and_ru; struct MELT_ROUTINE_STRUCT (9) drout_34__RUNDEBUG_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_35__RUNDEBUG_DOCMD; struct MELT_STRING_STRUCT (11) dstr_36__debugnoline; struct MELT_STRING_STRUCT (11) dstr_37__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_38__RUNDEBUG_MODE; struct MELT_STRING_STRUCT (13) dstr_39__RUNDEBUG_MODE; struct MELT_OBJECT_STRUCT (5) dobj_40__RUNDEBUG_MODE; struct MELT_STRING_STRUCT (8) dstr_41__rundebug; struct MELT_STRING_STRUCT (88) dstr_42__translate_and_ru; struct MELT_ROUTINE_STRUCT (14) drout_43__EVAL_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_44__EVAL_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_45__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT (17) dstr_46__DISCR_MAP_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_47__FRESH_ENV; struct MELT_STRING_STRUCT (9) dstr_48__FRESH_ENV; struct MELT_OBJECT_STRUCT (3) dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS; struct MELT_STRING_STRUCT (30) dstr_50__TRANSLATE_RUN_ME; struct MELT_OBJECT_STRUCT (3) dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION; struct MELT_STRING_STRUCT (30) dstr_52__CLASS_DEBUG_OUTP; struct MELT_OBJECT_STRUCT (3) dsym_53__DISCR_CONSTANT_INTEGER; struct MELT_STRING_STRUCT (22) dstr_54__DISCR_CONSTANT_I; struct MELT_OBJECT_STRUCT (3) dsym_55__ADD2OUT; struct MELT_STRING_STRUCT (7) dstr_56__ADD2OUT; struct MELT_OBJECT_STRUCT (3) dsym_57__DBG_OUT; struct MELT_STRING_STRUCT (7) dstr_58__DBG_OUT; struct MELT_OBJECT_STRUCT (3) dsym_59__EVAL_MODE; struct MELT_STRING_STRUCT (9) dstr_60__EVAL_MODE; struct MELT_OBJECT_STRUCT (5) dobj_61__EVAL_MODE; struct MELT_STRING_STRUCT (4) dstr_62__eval; struct MELT_STRING_STRUCT (126) dstr_63__translate_and_ru; struct MELT_ROUTINE_STRUCT (14) drout_64__EVALFILE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_65__EVALFILE_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_66__EVALFILE_MODE; struct MELT_STRING_STRUCT (13) dstr_67__EVALFILE_MODE; struct MELT_OBJECT_STRUCT (5) dobj_68__EVALFILE_MODE; struct MELT_STRING_STRUCT (8) dstr_69__evalfile; struct MELT_STRING_STRUCT (140) dstr_70__translate_and_ru; struct MELT_OBJECT_STRUCT (3) dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA; struct MELT_STRING_STRUCT (31) dstr_72__CLASS_READ_EVAL_; struct MELT_OBJECT_STRUCT (3) dsym_73__CLASS_PROPED; struct MELT_STRING_STRUCT (12) dstr_74__CLASS_PROPED; struct MELT_OBJECT_STRUCT (8) dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA; struct MELT_STRING_STRUCT (31) dstr_76__CLASS_READ_EVAL_; struct MELT_MULTIPLE_STRUCT (2) dtup_77__CLASS_READ_EVAL_PRINT_LOOP_DATA; struct MELT_MULTIPLE_STRUCT (5) dtup_78__CLASS_READ_EVAL_PRINT_LOOP_DATA; struct MELT_OBJECT_STRUCT (3) dsym_79__REPL_ENV; struct MELT_STRING_STRUCT (8) dstr_80__REPL_ENV; struct MELT_OBJECT_STRUCT (4) dobj_81__REPL_ENV; struct MELT_STRING_STRUCT (8) dstr_82__REPL_ENV; struct MELT_OBJECT_STRUCT (3) dsym_83__REPL_COUNTER; struct MELT_STRING_STRUCT (12) dstr_84__REPL_COUNTER; struct MELT_OBJECT_STRUCT (4) dobj_85__REPL_COUNTER; struct MELT_STRING_STRUCT (12) dstr_86__REPL_COUNTER; struct MELT_OBJECT_STRUCT (3) dsym_87__REPL_CONTREF; struct MELT_STRING_STRUCT (12) dstr_88__REPL_CONTREF; struct MELT_OBJECT_STRUCT (4) dobj_89__REPL_CONTREF; struct MELT_STRING_STRUCT (12) dstr_90__REPL_CONTREF; struct MELT_OBJECT_STRUCT (3) dsym_91__REPL_DATA; struct MELT_STRING_STRUCT (9) dstr_92__REPL_DATA; struct MELT_OBJECT_STRUCT (4) dobj_93__REPL_DATA; struct MELT_STRING_STRUCT (9) dstr_94__REPL_DATA; struct MELT_ROUTINE_STRUCT (14) drout_95__REPL_PROCESSOR; struct MELT_CLOSURE_STRUCT (0) dclo_96__REPL_PROCESSOR; struct MELT_OBJECT_STRUCT (3) dsym_97__CLASS_INPUT_CHANNEL_HANDLER; struct MELT_STRING_STRUCT (27) dstr_98__CLASS_INPUT_CHAN; struct MELT_OBJECT_STRUCT (3) dsym_99__CLASS_REFERENCE; struct MELT_STRING_STRUCT (15) dstr_100__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT (3) dsym_101__CLASS_DEBUG_INFORMATION; struct MELT_STRING_STRUCT (23) dstr_102__CLASS_DEBUG_INFO; struct MELT_ROUTINE_STRUCT (28) drout_103__REPL_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_104__REPL_DOCMD; struct MELT_STRING_STRUCT (48) dstr_105__the_interactive_; struct MELT_OBJECT_STRUCT (3) dsym_106__DISCR_INTEGER; struct MELT_STRING_STRUCT (13) dstr_107__DISCR_INTEGER; struct MELT_ROUTINE_STRUCT (2) drout_108__LAMBDA_; struct MELT_ROUTINE_STRUCT (2) drout_109__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_110__CLASS_VALUE_BINDING; struct MELT_STRING_STRUCT (19) dstr_111__CLASS_VALUE_BIND; struct MELT_OBJECT_STRUCT (3) dsym_112__CONTINUE; struct MELT_STRING_STRUCT (8) dstr_113__CONTINUE; struct MELT_OBJECT_STRUCT (3) dsym_114__WAIT_REPL; struct MELT_STRING_STRUCT (9) dstr_115__WAIT_REPL; struct MELT_OBJECT_STRUCT (3) dsym_116__PUT_ENV; struct MELT_STRING_STRUCT (7) dstr_117__PUT_ENV; struct MELT_OBJECT_STRUCT (3) dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST; struct MELT_STRING_STRUCT (34) dstr_119__REGISTER_ALL_PAS; struct MELT_ROUTINE_STRUCT (2) drout_120__LAMBDA_; struct MELT_STRING_STRUCT (20) dstr_121__ended_all_GCC_pa; struct MELT_OBJECT_STRUCT (3) dsym_122__AT_FINISH_UNIT_FIRST; struct MELT_STRING_STRUCT (20) dstr_123__AT_FINISH_UNIT_F; struct MELT_ROUTINE_STRUCT (2) drout_124__LAMBDA_; struct MELT_STRING_STRUCT (25) dstr_125__finished_compila; struct MELT_OBJECT_STRUCT (3) dsym_126__AT_EXIT_LAST; struct MELT_STRING_STRUCT (12) dstr_127__AT_EXIT_LAST; struct MELT_ROUTINE_STRUCT (2) drout_128__LAMBDA_; struct MELT_STRING_STRUCT (16) dstr_129__GCC_MELT_exiting; struct MELT_STRING_STRUCT (21) dstr_130__GCC_MELT_initial; struct MELT_OBJECT_STRUCT (3) dsym_131__REPL_MODE; struct MELT_STRING_STRUCT (9) dstr_132__REPL_MODE; struct MELT_OBJECT_STRUCT (5) dobj_133__REPL_MODE; struct MELT_STRING_STRUCT (4) dstr_134__repl; struct MELT_STRING_STRUCT (37) dstr_135__interactive_Read; struct MELT_OBJECT_STRUCT (3) dsym_136__CLASS_MAKEDOC_INFO; struct MELT_STRING_STRUCT (18) dstr_137__CLASS_MAKEDOC_IN; struct MELT_OBJECT_STRUCT (8) dobj_138__CLASS_MAKEDOC_INFO; struct MELT_STRING_STRUCT (18) dstr_139__CLASS_MAKEDOC_IN; struct MELT_MULTIPLE_STRUCT (2) dtup_140__CLASS_MAKEDOC_INFO; struct MELT_MULTIPLE_STRUCT (16) dtup_141__CLASS_MAKEDOC_INFO; struct MELT_OBJECT_STRUCT (3) dsym_142__MKDOC_PRIMITIVES; struct MELT_STRING_STRUCT (16) dstr_143__MKDOC_PRIMITIVES; struct MELT_OBJECT_STRUCT (4) dobj_144__MKDOC_PRIMITIVES; struct MELT_STRING_STRUCT (16) dstr_145__MKDOC_PRIMITIVES; struct MELT_OBJECT_STRUCT (3) dsym_146__MKDOC_FUNCTIONS; struct MELT_STRING_STRUCT (15) dstr_147__MKDOC_FUNCTIONS; struct MELT_OBJECT_STRUCT (4) dobj_148__MKDOC_FUNCTIONS; struct MELT_STRING_STRUCT (15) dstr_149__MKDOC_FUNCTIONS; struct MELT_OBJECT_STRUCT (3) dsym_150__MKDOC_CITERATORS; struct MELT_STRING_STRUCT (16) dstr_151__MKDOC_CITERATORS; struct MELT_OBJECT_STRUCT (4) dobj_152__MKDOC_CITERATORS; struct MELT_STRING_STRUCT (16) dstr_153__MKDOC_CITERATORS; struct MELT_OBJECT_STRUCT (3) dsym_154__MKDOC_CMATCHERS; struct MELT_STRING_STRUCT (15) dstr_155__MKDOC_CMATCHERS; struct MELT_OBJECT_STRUCT (4) dobj_156__MKDOC_CMATCHERS; struct MELT_STRING_STRUCT (15) dstr_157__MKDOC_CMATCHERS; struct MELT_OBJECT_STRUCT (3) dsym_158__MKDOC_SELECTORS; struct MELT_STRING_STRUCT (15) dstr_159__MKDOC_SELECTORS; struct MELT_OBJECT_STRUCT (4) dobj_160__MKDOC_SELECTORS; struct MELT_STRING_STRUCT (15) dstr_161__MKDOC_SELECTORS; struct MELT_OBJECT_STRUCT (3) dsym_162__MKDOC_FIELDS; struct MELT_STRING_STRUCT (12) dstr_163__MKDOC_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_164__MKDOC_FIELDS; struct MELT_STRING_STRUCT (12) dstr_165__MKDOC_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_166__MKDOC_CLASSES; struct MELT_STRING_STRUCT (13) dstr_167__MKDOC_CLASSES; struct MELT_OBJECT_STRUCT (4) dobj_168__MKDOC_CLASSES; struct MELT_STRING_STRUCT (13) dstr_169__MKDOC_CLASSES; struct MELT_OBJECT_STRUCT (3) dsym_170__MKDOC_INSTANCES; struct MELT_STRING_STRUCT (15) dstr_171__MKDOC_INSTANCES; struct MELT_OBJECT_STRUCT (4) dobj_172__MKDOC_INSTANCES; struct MELT_STRING_STRUCT (15) dstr_173__MKDOC_INSTANCES; struct MELT_OBJECT_STRUCT (3) dsym_174__MKDOC_MACROS; struct MELT_STRING_STRUCT (12) dstr_175__MKDOC_MACROS; struct MELT_OBJECT_STRUCT (4) dobj_176__MKDOC_MACROS; struct MELT_STRING_STRUCT (12) dstr_177__MKDOC_MACROS; struct MELT_OBJECT_STRUCT (3) dsym_178__MKDOC_PATMACROS; struct MELT_STRING_STRUCT (15) dstr_179__MKDOC_PATMACROS; struct MELT_OBJECT_STRUCT (4) dobj_180__MKDOC_PATMACROS; struct MELT_STRING_STRUCT (15) dstr_181__MKDOC_PATMACROS; struct MELT_OBJECT_STRUCT (3) dsym_182__MKDOC_FORMALOCCMAP; struct MELT_STRING_STRUCT (18) dstr_183__MKDOC_FORMALOCCM; struct MELT_OBJECT_STRUCT (4) dobj_184__MKDOC_FORMALOCCMAP; struct MELT_STRING_STRUCT (18) dstr_185__MKDOC_FORMALOCCM; struct MELT_OBJECT_STRUCT (3) dsym_186__MKDOC_PREDEFMAP; struct MELT_STRING_STRUCT (15) dstr_187__MKDOC_PREDEFMAP; struct MELT_OBJECT_STRUCT (4) dobj_188__MKDOC_PREDEFMAP; struct MELT_STRING_STRUCT (15) dstr_189__MKDOC_PREDEFMAP; struct MELT_OBJECT_STRUCT (3) dsym_190__MKDOC_DOCSYMAP; struct MELT_STRING_STRUCT (14) dstr_191__MKDOC_DOCSYMAP; struct MELT_OBJECT_STRUCT (4) dobj_192__MKDOC_DOCSYMAP; struct MELT_STRING_STRUCT (14) dstr_193__MKDOC_DOCSYMAP; struct MELT_OBJECT_STRUCT (3) dsym_194__MKDOC_SUBCLASSMAP; struct MELT_STRING_STRUCT (17) dstr_195__MKDOC_SUBCLASSMA; struct MELT_OBJECT_STRUCT (4) dobj_196__MKDOC_SUBCLASSMAP; struct MELT_STRING_STRUCT (17) dstr_197__MKDOC_SUBCLASSMA; struct MELT_OBJECT_STRUCT (3) dsym_198__MKDOC_BOXCOUNTER; struct MELT_STRING_STRUCT (16) dstr_199__MKDOC_BOXCOUNTER; struct MELT_OBJECT_STRUCT (4) dobj_200__MKDOC_BOXCOUNTER; struct MELT_STRING_STRUCT (16) dstr_201__MKDOC_BOXCOUNTER; struct MELT_ROUTINE_STRUCT (1) drout_202__INCREMENT_MKDOC_COUNTER; struct MELT_CLOSURE_STRUCT (0) dclo_203__INCREMENT_MKDOC_COUNTER; struct MELT_ROUTINE_STRUCT (32) drout_204__MAKEDOC_SCANINPUT; struct MELT_CLOSURE_STRUCT (0) dclo_205__MAKEDOC_SCANINPUT; struct MELT_ROUTINE_STRUCT (2) drout_206__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_207__CLASS_SYMBOL; struct MELT_STRING_STRUCT (12) dstr_208__CLASS_SYMBOL; struct MELT_ROUTINE_STRUCT (2) drout_209__LAMBDA_; struct MELT_ROUTINE_STRUCT (4) drout_210__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_211__CLASS_FORMAL_BINDING; struct MELT_STRING_STRUCT (20) dstr_212__CLASS_FORMAL_BIN; struct MELT_OBJECT_STRUCT (3) dsym_213__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT (23) dstr_214__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_215__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT (17) dstr_216__CLASS_ANY_BINDIN; struct MELT_OBJECT_STRUCT (3) dsym_217__DISCR_LIST; struct MELT_STRING_STRUCT (10) dstr_218__DISCR_LIST; struct MELT_OBJECT_STRUCT (3) dsym_219__LIST_EVERY; struct MELT_STRING_STRUCT (10) dstr_220__LIST_EVERY; struct MELT_ROUTINE_STRUCT (18) drout_221__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_222__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT (21) dstr_223__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_224__CLASS_SEXPR; struct MELT_STRING_STRUCT (11) dstr_225__CLASS_SEXPR; struct MELT_OBJECT_STRUCT (3) dsym_226__CLASS_CLASS_BINDING; struct MELT_STRING_STRUCT (19) dstr_227__CLASS_CLASS_BIND; struct MELT_OBJECT_STRUCT (3) dsym_228__CLASS_CLASS; struct MELT_STRING_STRUCT (11) dstr_229__CLASS_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_230__CLASS_FIELD; struct MELT_STRING_STRUCT (11) dstr_231__CLASS_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_232__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT (24) dstr_233__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_234__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT (24) dstr_235__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_236__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT (25) dstr_237__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_238__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT (18) dstr_239__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_240__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT (25) dstr_241__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_242__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT (24) dstr_243__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_244__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT (28) dstr_245__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (3) dsym_246__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT (25) dstr_247__CLASS_SOURCE_EXP; struct MELT_ROUTINE_STRUCT (2) drout_248__MAKEDOC_OUTDEFLOC; struct MELT_CLOSURE_STRUCT (0) dclo_249__MAKEDOC_OUTDEFLOC; struct MELT_OBJECT_STRUCT (3) dsym_250__CLASS_LOCATED; struct MELT_STRING_STRUCT (13) dstr_251__CLASS_LOCATED; struct MELT_ROUTINE_STRUCT (4) drout_252__MAKEDOC_OUTFORMALS; struct MELT_CLOSURE_STRUCT (0) dclo_253__MAKEDOC_OUTFORMALS; struct MELT_OBJECT_STRUCT (3) dsym_254__CLASS_QUASI_CTYPE; struct MELT_STRING_STRUCT (17) dstr_255__CLASS_QUASI_CTYP; struct MELT_ROUTINE_STRUCT (2) drout_256__MAKEDOC_OUTDOC; struct MELT_CLOSURE_STRUCT (0) dclo_257__MAKEDOC_OUTDOC; struct MELT_ROUTINE_STRUCT (14) drout_258__MAKEDOC_OUTCLASSDEF; struct MELT_CLOSURE_STRUCT (0) dclo_259__MAKEDOC_OUTCLASSDEF; struct MELT_OBJECT_STRUCT (3) dsym_260__LIST_TO_MULTIPLE; struct MELT_STRING_STRUCT (16) dstr_261__LIST_TO_MULTIPLE; struct MELT_OBJECT_STRUCT (3) dsym_262__DISCR_MULTIPLE; struct MELT_STRING_STRUCT (14) dstr_263__DISCR_MULTIPLE; struct MELT_OBJECT_STRUCT (3) dsym_264__COMPARE_NAMED_ALPHA; struct MELT_STRING_STRUCT (19) dstr_265__COMPARE_NAMED_AL; struct MELT_ROUTINE_STRUCT (12) drout_266__MAKEDOC_GENMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_267__MAKEDOC_GENMACRO; struct MELT_ROUTINE_STRUCT (2) drout_268__LAMBDA_; struct MELT_ROUTINE_STRUCT (13) drout_269__MAKEDOC_GENPATMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_270__MAKEDOC_GENPATMACRO; struct MELT_ROUTINE_STRUCT (2) drout_271__LAMBDA_; struct MELT_ROUTINE_STRUCT (21) drout_272__MAKEDOC_GENCLASS; struct MELT_CLOSURE_STRUCT (0) dclo_273__MAKEDOC_GENCLASS; struct meltint_st dint_274__; struct meltint_st dint_275__; struct meltint_st dint_276__; struct MELT_ROUTINE_STRUCT (2) drout_277__LAMBDA_; struct MELT_ROUTINE_STRUCT (1) drout_278__LAMBDA_; struct MELT_ROUTINE_STRUCT (1) drout_279__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_280__LAMBDA_; struct MELT_ROUTINE_STRUCT (10) drout_281__MAKEDOC_OUTPRIMITIVEDEF; struct MELT_CLOSURE_STRUCT (0) dclo_282__MAKEDOC_OUTPRIMITIVEDEF; struct MELT_OBJECT_STRUCT (3) dsym_283__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT (30) dstr_284__CLASS_SOURCE_DEF; struct MELT_ROUTINE_STRUCT (9) drout_285__MAKEDOC_GENPRIMITIVE; struct MELT_CLOSURE_STRUCT (0) dclo_286__MAKEDOC_GENPRIMITIVE; struct MELT_ROUTINE_STRUCT (2) drout_287__LAMBDA_; struct MELT_ROUTINE_STRUCT (9) drout_288__MAKEDOC_OUTFUNCTIONDEF; struct MELT_CLOSURE_STRUCT (0) dclo_289__MAKEDOC_OUTFUNCTIONDEF; struct MELT_ROUTINE_STRUCT (9) drout_290__MAKEDOC_GENFUNCTION; struct MELT_CLOSURE_STRUCT (0) dclo_291__MAKEDOC_GENFUNCTION; struct MELT_ROUTINE_STRUCT (2) drout_292__LAMBDA_; struct MELT_ROUTINE_STRUCT (16) drout_293__MAKEDOC_GENCITERATOR; struct MELT_CLOSURE_STRUCT (0) dclo_294__MAKEDOC_GENCITERATOR; struct MELT_ROUTINE_STRUCT (2) drout_295__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_296__CLASS_CITERATOR; struct MELT_STRING_STRUCT (15) dstr_297__CLASS_CITERATOR; struct MELT_ROUTINE_STRUCT (18) drout_298__MAKEDOC_GENCMATCHER; struct MELT_CLOSURE_STRUCT (0) dclo_299__MAKEDOC_GENCMATCHER; struct MELT_ROUTINE_STRUCT (2) drout_300__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_301__CLASS_ANY_MATCHER; struct MELT_STRING_STRUCT (17) dstr_302__CLASS_ANY_MATCHE; struct MELT_ROUTINE_STRUCT (10) drout_303__MAKEDOC_GENOUTPUT; struct MELT_CLOSURE_STRUCT (0) dclo_304__MAKEDOC_GENOUTPUT; struct MELT_OBJECT_STRUCT (3) dsym_305__DISCR_STRBUF; struct MELT_STRING_STRUCT (12) dstr_306__DISCR_STRBUF; struct MELT_ROUTINE_STRUCT (19) drout_307__MAKEDOC_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_308__MAKEDOC_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_309__MELT_MODE_REFERENCE; struct MELT_STRING_STRUCT (19) dstr_310__MELT_MODE_REFERE; struct MELT_ROUTINE_STRUCT (2) drout_311__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_312__LIST_APPEND2LIST; struct MELT_STRING_STRUCT (16) dstr_313__LIST_APPEND2LIST; struct MELT_OBJECT_STRUCT (3) dsym_314__MACROEXPAND_TOPLEVEL_LIST; struct MELT_STRING_STRUCT (25) dstr_315__MACROEXPAND_TOPL; struct MELT_OBJECT_STRUCT (3) dsym_316__MACROEXPAND_1; struct MELT_STRING_STRUCT (13) dstr_317__MACROEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_318__MAKEDOC_MODE; struct MELT_STRING_STRUCT (12) dstr_319__MAKEDOC_MODE; struct MELT_OBJECT_STRUCT (5) dobj_320__MAKEDOC_MODE; struct MELT_STRING_STRUCT (7) dstr_321__makedoc; struct MELT_STRING_STRUCT (105) dstr_322__generate_texi_d; struct MELT_ROUTINE_STRUCT (6) drout_323__SHOWVAR_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_324__SHOWVAR_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_325__FIND_ENV; struct MELT_STRING_STRUCT (8) dstr_326__FIND_ENV; struct MELT_ROUTINE_STRUCT (8) drout_327__HELP_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_328__HELP_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_329__HELP_MODE; struct MELT_STRING_STRUCT (9) dstr_330__HELP_MODE; struct MELT_OBJECT_STRUCT (5) dobj_331__HELP_MODE; struct MELT_STRING_STRUCT (4) dstr_332__help; struct MELT_STRING_STRUCT (32) dstr_333__MELT_help_about_; struct MELT_ROUTINE_STRUCT (2) drout_334__NOP_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_335__NOP_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_336__NOP_MODE; struct MELT_STRING_STRUCT (8) dstr_337__NOP_MODE; struct MELT_OBJECT_STRUCT (5) dobj_338__NOP_MODE; struct MELT_STRING_STRUCT (3) dstr_339__nop; struct MELT_STRING_STRUCT (21) dstr_340__a_mode_doing_not; struct MELT_ROUTINE_STRUCT (5) drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; struct MELT_CLOSURE_STRUCT (0) dclo_342__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; struct MELT_STRING_STRUCT (117) dstr_343__from_genera; struct MELT_OBJECT_STRUCT (3) dsym_344__CLASS_VALUE_DESCRIPTOR; struct MELT_STRING_STRUCT (22) dstr_345__CLASS_VALUE_DESC; struct MELT_OBJECT_STRUCT (3) dsym_346__CLASS_CTYPE_GTY; struct MELT_STRING_STRUCT (15) dstr_347__CLASS_CTYPE_GTY; struct MELT_ROUTINE_STRUCT (11) drout_348__GENERATE_RUNTYPESUPPORT_GTY; struct MELT_CLOSURE_STRUCT (0) dclo_349__GENERATE_RUNTYPESUPPORT_GTY; struct MELT_STRING_STRUCT (164) dstr_350__ifndef_meltobj; struct MELT_STRING_STRUCT (133) dstr_351__ifndef_melt_pt; struct MELT_STRING_STRUCT (169) dstr_352__ifndef_meltrou; struct MELT_STRING_STRUCT (169) dstr_353__ifndef_meltclo; struct MELT_STRING_STRUCT (532) dstr_354__ifndef_meltrou; struct MELT_OBJECT_STRUCT (3) dsym_355__CLASS_CTYPE; struct MELT_STRING_STRUCT (11) dstr_356__CLASS_CTYPE; struct MELT_OBJECT_STRUCT (3) dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR; struct MELT_STRING_STRUCT (32) dstr_358__CLASS_VARISIZED_; struct MELT_ROUTINE_STRUCT (6) drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_360__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; struct MELT_STRING_STRUCT (579) dstr_361__cheney_like_; struct MELT_STRING_STRUCT (1671) dstr_362__trailer_gene; struct MELT_ROUTINE_STRUCT (7) drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_364__GENERATE_RUNTYPESUPPORT_CLONING_FUN; struct MELT_ROUTINE_STRUCT (7) drout_365__GENERATE_RUNTYPESUPPORT_SCANNING; struct MELT_CLOSURE_STRUCT (0) dclo_366__GENERATE_RUNTYPESUPPORT_SCANNING; struct MELT_STRING_STRUCT (689) dstr_367__header_from_; struct MELT_STRING_STRUCT (300) dstr_368__trailer_gene; struct MELT_ROUTINE_STRUCT (3) drout_369__GENERATE_RUNTYPESUPPORT_PARAM; struct MELT_CLOSURE_STRUCT (0) dclo_370__GENERATE_RUNTYPESUPPORT_PARAM; struct MELT_ROUTINE_STRUCT (4) drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE; struct MELT_CLOSURE_STRUCT (0) dclo_372__GENERATE_RUNTYPESUPPORT_COD2CTYPE; struct MELT_ROUTINE_STRUCT (6) drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR; struct MELT_CLOSURE_STRUCT (0) dclo_374__GENERATE_RUNTYPESUPPORT_MAG2STR; struct MELT_STRING_STRUCT (237) dstr_375__const_char_melt; struct MELT_STRING_STRUCT (245) dstr_376__default_int; struct MELT_ROUTINE_STRUCT (6) drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN; struct MELT_CLOSURE_STRUCT (0) dclo_378__GENERATE_RUNTYPESUPPORT_BOXINGFUN; struct MELT_OBJECT_STRUCT (3) dsym_379__SOME_STRING_VALUE; struct MELT_STRING_STRUCT (17) dstr_380__SOME_STRING_VALU; struct MELT_OBJECT_STRUCT (3) dsym_381__CLASS_DISCRIMINANT; struct MELT_STRING_STRUCT (18) dstr_382__CLASS_DISCRIMINA; struct MELT_ROUTINE_STRUCT (8) drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN; struct MELT_CLOSURE_STRUCT (0) dclo_384__GENERATE_RUNTYPESUPPORT_MAPFUN; struct MELT_STRING_STRUCT (164) dstr_385__generated_map; struct MELT_STRING_STRUCT (158) dstr_386__not_map_mag; struct MELT_ROUTINE_STRUCT (5) drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_388__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; struct MELT_ROUTINE_STRUCT (23) drout_389__RUNTYPESUPPORT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_390__RUNTYPESUPPORT_DOCMD; struct MELT_STRING_STRUCT (10) dstr_391__meltrunsup; struct MELT_OBJECT_STRUCT (3) dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY; struct MELT_STRING_STRUCT (30) dstr_393__RETRIEVE_DICTION; struct MELT_OBJECT_STRUCT (3) dsym_394__RETRIEVE_DICTIONNARY_CTYPE; struct MELT_STRING_STRUCT (26) dstr_395__RETRIEVE_DICTION; struct MELT_OBJECT_STRUCT (3) dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; struct MELT_STRING_STRUCT (45) dstr_397__GENERATE_GPLV3PL; struct MELT_OBJECT_STRUCT (3) dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST; struct MELT_STRING_STRUCT (30) dstr_399__RETRIEVE_VALUE_D; struct MELT_OBJECT_STRUCT (3) dsym_400__RUNTYPESUPPORT_MODE; struct MELT_STRING_STRUCT (19) dstr_401__RUNTYPESUPPORT_M; struct MELT_OBJECT_STRUCT (5) dobj_402__RUNTYPESUPPORT_MODE; struct MELT_STRING_STRUCT (14) dstr_403__runtypesupport; struct MELT_STRING_STRUCT (92) dstr_404__generate_runtime; struct MELT_ROUTINE_STRUCT (4) drout_405__TRANSLATE_TO_FLAVORED_MODULE; struct MELT_CLOSURE_STRUCT (0) dclo_406__TRANSLATE_TO_FLAVORED_MODULE; struct MELT_ROUTINE_STRUCT (9) drout_407__TRANSLATETOMODULE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_408__TRANSLATETOMODULE_DOCMD; struct MELT_STRING_STRUCT (12) dstr_409__quicklybuilt; struct MELT_STRING_STRUCT (9) dstr_410__optimized; struct MELT_STRING_STRUCT (11) dstr_411__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_412__TRANSLATETOMODULE_MODE; struct MELT_STRING_STRUCT (22) dstr_413__TRANSLATETOMODUL; struct MELT_OBJECT_STRUCT (5) dobj_414__TRANSLATETOMODULE_MODE; struct MELT_STRING_STRUCT (17) dstr_415__translatetomodul; struct MELT_STRING_STRUCT (211) dstr_416__translate_a_mel; struct MELT_ROUTINE_STRUCT (7) drout_417__TRANSLATEDEBUG_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_418__TRANSLATEDEBUG_DOCMD; struct MELT_STRING_STRUCT (11) dstr_419__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_420__TRANSLATEDEBUG_MODE; struct MELT_STRING_STRUCT (19) dstr_421__TRANSLATEDEBUG_M; struct MELT_OBJECT_STRUCT (5) dobj_422__TRANSLATEDEBUG_MODE; struct MELT_STRING_STRUCT (14) dstr_423__translatedebug; struct MELT_STRING_STRUCT (321) dstr_424__translate_a_mel; struct MELT_ROUTINE_STRUCT (7) drout_425__TRANSLATEQUICKLY_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_426__TRANSLATEQUICKLY_DOCMD; struct MELT_STRING_STRUCT (12) dstr_427__quicklybuilt; struct MELT_OBJECT_STRUCT (3) dsym_428__TRANSLATEQUICKLY_MODE; struct MELT_STRING_STRUCT (21) dstr_429__TRANSLATEQUICKLY; struct MELT_OBJECT_STRUCT (5) dobj_430__TRANSLATEQUICKLY_MODE; struct MELT_STRING_STRUCT (16) dstr_431__translatequickly; struct MELT_STRING_STRUCT (214) dstr_432__translate_quickl; struct MELT_ROUTINE_STRUCT (7) drout_433__TRANSLATEOPTIMIZED_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_434__TRANSLATEOPTIMIZED_DOCMD; struct MELT_STRING_STRUCT (9) dstr_435__optimized; struct MELT_OBJECT_STRUCT (3) dsym_436__TRANSLATEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (23) dstr_437__TRANSLATEOPTIMIZ; struct MELT_OBJECT_STRUCT (5) dobj_438__TRANSLATEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (18) dstr_439__translateoptimiz; struct MELT_STRING_STRUCT (178) dstr_440__translate_a_me; struct MELT_ROUTINE_STRUCT (7) drout_441__TRANSLATEFILE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_442__TRANSLATEFILE_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_443__TRANSLATEFILE_MODE; struct MELT_STRING_STRUCT (18) dstr_444__TRANSLATEFILE_MO; struct MELT_OBJECT_STRUCT (5) dobj_445__TRANSLATEFILE_MODE; struct MELT_STRING_STRUCT (13) dstr_446__translatefile; struct MELT_STRING_STRUCT (79) dstr_447__translate_a_mel; struct MELT_ROUTINE_STRUCT (11) drout_448__TRANSLATEINIT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_449__TRANSLATEINIT_DOCMD; struct MELT_ROUTINE_STRUCT (2) drout_450__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_451__COMPILE_LIST_SEXPR; struct MELT_STRING_STRUCT (18) dstr_452__COMPILE_LIST_SEX; struct MELT_OBJECT_STRUCT (3) dsym_453__TRANSLATEINIT_MODE; struct MELT_STRING_STRUCT (18) dstr_454__TRANSLATEINIT_MO; struct MELT_OBJECT_STRUCT (5) dobj_455__TRANSLATEINIT_MODE; struct MELT_STRING_STRUCT (13) dstr_456__translateinit; struct MELT_STRING_STRUCT (120) dstr_457__translate_the_ve; struct MELT_ROUTINE_STRUCT (9) drout_458__TRANSLATEINIT_FLAVORED; struct MELT_CLOSURE_STRUCT (0) dclo_459__TRANSLATEINIT_FLAVORED; struct MELT_ROUTINE_STRUCT (2) drout_460__LAMBDA_; struct MELT_ROUTINE_STRUCT (6) drout_461__TRANSLATEINITMODULE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_462__TRANSLATEINITMODULE_DOCMD; struct MELT_STRING_STRUCT (12) dstr_463__quicklybuilt; struct MELT_STRING_STRUCT (11) dstr_464__debugnoline; struct MELT_STRING_STRUCT (9) dstr_465__optimized; struct MELT_OBJECT_STRUCT (3) dsym_466__TRANSLATEINITMODULE_MODE; struct MELT_STRING_STRUCT (24) dstr_467__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_468__TRANSLATEINITMODULE_MODE; struct MELT_STRING_STRUCT (19) dstr_469__translateinitmod; struct MELT_STRING_STRUCT (188) dstr_470__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_472__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; struct MELT_STRING_STRUCT (12) dstr_473__quicklybuilt; struct MELT_OBJECT_STRUCT (3) dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE; struct MELT_STRING_STRUCT (36) dstr_475__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE; struct MELT_STRING_STRUCT (31) dstr_477__translateinitmod; struct MELT_STRING_STRUCT (152) dstr_478__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_480__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; struct MELT_STRING_STRUCT (11) dstr_481__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE; struct MELT_STRING_STRUCT (35) dstr_483__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE; struct MELT_STRING_STRUCT (30) dstr_485__translateinitmod; struct MELT_STRING_STRUCT (151) dstr_486__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_488__TRANSLATEINITMODULEOPTIMIZED_DOCMD; struct MELT_STRING_STRUCT (9) dstr_489__optimized; struct MELT_OBJECT_STRUCT (3) dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (33) dstr_491__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (28) dstr_493__translateinitmod; struct MELT_STRING_STRUCT (149) dstr_494__translate_the_ve; struct MELT_ROUTINE_STRUCT (6) drout_495__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_496__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_497__DISCR_BUCKET_LONGS; struct MELT_STRING_STRUCT (18) dstr_498__DISCR_BUCKET_LON; struct MELT_OBJECT_STRUCT (3) dsym_499__ALARM_BUCKET_REFERENCE; struct MELT_STRING_STRUCT (22) dstr_500__ALARM_BUCKET_REF; struct MELT_OBJECT_STRUCT (1) dobj_501__ALARM_BUCKET_REFERENCE; struct MELT_ROUTINE_STRUCT (9) drout_502__HANDLE_ALARM_SIGNAL; struct MELT_CLOSURE_STRUCT (0) dclo_503__HANDLE_ALARM_SIGNAL; struct MELT_ROUTINE_STRUCT (2) drout_504__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_505__CLASS_ALARM_HANDLER; struct MELT_STRING_STRUCT (19) dstr_506__CLASS_ALARM_HAND; struct MELT_ROUTINE_STRUCT (9) drout_507__REGISTER_ALARM_TIMER; struct MELT_CLOSURE_STRUCT (0) dclo_508__REGISTER_ALARM_TIMER; struct MELT_ROUTINE_STRUCT (7) drout_509__UNREGISTER_ALARM_TIMER; struct MELT_CLOSURE_STRUCT (0) dclo_510__UNREGISTER_ALARM_TIMER; struct MELT_OBJECT_STRUCT (3) dsym_511__CHILDPROC_BUCKET_REFERENCE; struct MELT_STRING_STRUCT (26) dstr_512__CHILDPROC_BUCKET; struct MELT_OBJECT_STRUCT (1) dobj_513__CHILDPROC_BUCKET_REFERENCE; struct MELT_ROUTINE_STRUCT (8) drout_514__CHILD_PROCESS_SIGCHLD_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_515__CHILD_PROCESS_SIGCHLD_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_516__CLASS_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (27) dstr_517__CLASS_CHILD_PROC; struct MELT_ROUTINE_STRUCT (9) drout_518__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_519__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_ROUTINE_STRUCT (1) drout_520__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_521__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_522__REGISTER_ALARM_TIMER; struct MELT_STRING_STRUCT (20) dstr_523__REGISTER_ALARM_T; struct MELT_OBJECT_STRUCT (3) dsym_524__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (30) dstr_525__REGISTER_CHILD_P; struct MELT_OBJECT_STRUCT (3) dsym_526__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_STRING_STRUCT (30) dstr_527__REGISTER_INPUT_C; struct MELT_OBJECT_STRUCT (3) dsym_528__UNREGISTER_ALARM_TIMER; struct MELT_STRING_STRUCT (22) dstr_529__UNREGISTER_ALARM; struct MELT_OBJECT_STRUCT (3) dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (32) dstr_531__UNREGISTER_CHILD; long spare_; } *cdat = NULL; dbgprintf ("start initialize_module_meltdata_warmelt_modes iniframp__=%p", (void *) iniframp__); (void) meltpredefinited; /* avoid warning if non-used. */ melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash */ -1031); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ /*initial routine fill */ /*inirout drout_1__INSTALL_MELT_MODE */ /*_.VALROUT___V80*/ meltfptr[79] = (melt_ptr_t) & cdat->drout_1__INSTALL_MELT_MODE; cdat->drout_1__INSTALL_MELT_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1__INSTALL_MELT_MODE.routdescr, "INSTALL_MELT_MODE @warmelt-modes.melt:35", MELT_ROUTDESCR_LEN - 1); cdat->drout_1__INSTALL_MELT_MODE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1__INSTALL_MELT_MODE, meltrout_1_warmelt_modes_INSTALL_MELT_MODE); /*iniclos dclo_2__INSTALL_MELT_MODE */ /*_.VALCLO___V81*/ meltfptr[80] = (melt_ptr_t) & cdat->dclo_2__INSTALL_MELT_MODE; cdat->dclo_2__INSTALL_MELT_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_2__INSTALL_MELT_MODE.nbval = 0; /*iniobj dsym_3__CLASS_MELT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V82*/ meltfptr[81]) /*_.VALDATA___V82*/ meltfptr[81] = (melt_ptr_t) & cdat->dsym_3__CLASS_MELT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_3__CLASS_MELT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_3__CLASS_MELT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_3__CLASS_MELT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_3__CLASS_MELT_MODE.obj_hash = 78749621; cdat->dsym_3__CLASS_MELT_MODE.obj_len = 3; /*inistring dstr_4__CLASS_MELT_MODE*/ /*_.VALSTR___V83*/ meltfptr[82] = (melt_ptr_t) & cdat->dstr_4__CLASS_MELT_MODE; cdat->dstr_4__CLASS_MELT_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_4__CLASS_MELT_MODE.val, "CLASS_MELT_MODE", sizeof (cdat->dstr_4__CLASS_MELT_MODE.val) - 1); cdat->dstr_4__CLASS_MELT_MODE.val[15] = (char) 0; cdat->dstr_4__CLASS_MELT_MODE.slen = 15; /*iniobj dsym_5__INITIAL_SYSTEM_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V84*/ meltfptr[83]) /*_.VALDATA___V84*/ meltfptr[83] = (melt_ptr_t) & cdat->dsym_5__INITIAL_SYSTEM_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_5__INITIAL_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_5__INITIAL_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_5__INITIAL_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_5__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_5__INITIAL_SYSTEM_DATA.obj_len = 3; /*inistring dstr_6__INITIAL_SYSTEM_D*/ /*_.VALSTR___V85*/ meltfptr[84] = (melt_ptr_t) & cdat->dstr_6__INITIAL_SYSTEM_D; cdat->dstr_6__INITIAL_SYSTEM_D.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_6__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA", sizeof (cdat->dstr_6__INITIAL_SYSTEM_D.val) - 1); cdat->dstr_6__INITIAL_SYSTEM_D.val[19] = (char) 0; cdat->dstr_6__INITIAL_SYSTEM_D.slen = 19; /*iniobj dsym_7__CLASS_SYSTEM_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V86*/ meltfptr[85]) /*_.VALDATA___V86*/ meltfptr[85] = (melt_ptr_t) & cdat->dsym_7__CLASS_SYSTEM_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_7__CLASS_SYSTEM_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_7__CLASS_SYSTEM_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_7__CLASS_SYSTEM_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_7__CLASS_SYSTEM_DATA.obj_hash = 648451867; cdat->dsym_7__CLASS_SYSTEM_DATA.obj_len = 3; /*inistring dstr_8__CLASS_SYSTEM_DAT*/ /*_.VALSTR___V87*/ meltfptr[86] = (melt_ptr_t) & cdat->dstr_8__CLASS_SYSTEM_DAT; cdat->dstr_8__CLASS_SYSTEM_DAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_8__CLASS_SYSTEM_DAT.val, "CLASS_SYSTEM_DATA", sizeof (cdat->dstr_8__CLASS_SYSTEM_DAT.val) - 1); cdat->dstr_8__CLASS_SYSTEM_DAT.val[17] = (char) 0; cdat->dstr_8__CLASS_SYSTEM_DAT.slen = 17; /*iniobj dsym_9__CLASS_NAMED*/ /*uniqueobj*/ if (! /*_.VALDATA___V88*/ meltfptr[87]) /*_.VALDATA___V88*/ meltfptr[87] = (melt_ptr_t) & cdat->dsym_9__CLASS_NAMED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_9__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_9__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_9__CLASS_NAMED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_9__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_9__CLASS_NAMED.obj_len = 3; /*inistring dstr_10__CLASS_NAMED*/ /*_.VALSTR___V89*/ meltfptr[88] = (melt_ptr_t) & cdat->dstr_10__CLASS_NAMED; cdat->dstr_10__CLASS_NAMED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_10__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_10__CLASS_NAMED.val) - 1); cdat->dstr_10__CLASS_NAMED.val[11] = (char) 0; cdat->dstr_10__CLASS_NAMED.slen = 11; /*iniobj dsym_11__MELT_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V90*/ meltfptr[89]) /*_.VALDATA___V90*/ meltfptr[89] = (melt_ptr_t) & cdat->dsym_11__MELT_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_11__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_11__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_11__MELT_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_11__MELT_DEBUG_FUN.obj_hash = 972123377; cdat->dsym_11__MELT_DEBUG_FUN.obj_len = 3; /*inistring dstr_12__MELT_DEBUG_FUN*/ /*_.VALSTR___V91*/ meltfptr[90] = (melt_ptr_t) & cdat->dstr_12__MELT_DEBUG_FUN; cdat->dstr_12__MELT_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_12__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (cdat->dstr_12__MELT_DEBUG_FUN.val) - 1); cdat->dstr_12__MELT_DEBUG_FUN.val[14] = (char) 0; cdat->dstr_12__MELT_DEBUG_FUN.slen = 14; /*iniobj dsym_13__INSTALL_MELT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V92*/ meltfptr[91]) /*_.VALDATA___V92*/ meltfptr[91] = (melt_ptr_t) & cdat->dsym_13__INSTALL_MELT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_13__INSTALL_MELT_MODE", melt_magic_discr ((melt_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__INSTALL_MELT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_13__INSTALL_MELT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_13__INSTALL_MELT_MODE.obj_hash = 537139430; cdat->dsym_13__INSTALL_MELT_MODE.obj_len = 3; /*inistring dstr_14__INSTALL_MELT_MOD*/ /*_.VALSTR___V93*/ meltfptr[92] = (melt_ptr_t) & cdat->dstr_14__INSTALL_MELT_MOD; cdat->dstr_14__INSTALL_MELT_MOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_14__INSTALL_MELT_MOD.val, "INSTALL_MELT_MODE", sizeof (cdat->dstr_14__INSTALL_MELT_MOD.val) - 1); cdat->dstr_14__INSTALL_MELT_MOD.val[17] = (char) 0; cdat->dstr_14__INSTALL_MELT_MOD.slen = 17; /*inirout drout_15__RUNFILE_DOCMD */ /*_.VALROUT___V94*/ meltfptr[93] = (melt_ptr_t) & cdat->drout_15__RUNFILE_DOCMD; cdat->drout_15__RUNFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_15__RUNFILE_DOCMD.routdescr, "RUNFILE_DOCMD @warmelt-modes.melt:51", MELT_ROUTDESCR_LEN - 1); cdat->drout_15__RUNFILE_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_15__RUNFILE_DOCMD, meltrout_2_warmelt_modes_RUNFILE_DOCMD); /*iniclos dclo_16__RUNFILE_DOCMD */ /*_.VALCLO___V99*/ meltfptr[98] = (melt_ptr_t) & cdat->dclo_16__RUNFILE_DOCMD; cdat->dclo_16__RUNFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_16__RUNFILE_DOCMD.nbval = 0; /*iniobj dsym_17__INITIAL_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V100*/ meltfptr[99]) /*_.VALDATA___V100*/ meltfptr[99] = (melt_ptr_t) & cdat->dsym_17__INITIAL_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_17__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_17__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_17__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_17__INITIAL_ENVIRONMENT.obj_hash = 756729242; cdat->dsym_17__INITIAL_ENVIRONMENT.obj_len = 3; /*inistring dstr_18__INITIAL_ENVIRONM*/ /*_.VALSTR___V101*/ meltfptr[100] = (melt_ptr_t) & cdat->dstr_18__INITIAL_ENVIRONM; cdat->dstr_18__INITIAL_ENVIRONM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_18__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_18__INITIAL_ENVIRONM.val) - 1); cdat->dstr_18__INITIAL_ENVIRONM.val[19] = (char) 0; cdat->dstr_18__INITIAL_ENVIRONM.slen = 19; /*iniobj dsym_19__DISCR_STRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V102*/ meltfptr[101]) /*_.VALDATA___V102*/ meltfptr[101] = (melt_ptr_t) & cdat->dsym_19__DISCR_STRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_19__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_19__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_19__DISCR_STRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_19__DISCR_STRING.obj_hash = 100436219; cdat->dsym_19__DISCR_STRING.obj_len = 3; /*inistring dstr_20__DISCR_STRING*/ /*_.VALSTR___V103*/ meltfptr[102] = (melt_ptr_t) & cdat->dstr_20__DISCR_STRING; cdat->dstr_20__DISCR_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_20__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_20__DISCR_STRING.val) - 1); cdat->dstr_20__DISCR_STRING.val[12] = (char) 0; cdat->dstr_20__DISCR_STRING.slen = 12; /*iniobj dsym_21__CLASS_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V104*/ meltfptr[103]) /*_.VALDATA___V104*/ meltfptr[103] = (melt_ptr_t) & cdat->dsym_21__CLASS_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_21__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_21__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_21__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_21__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_21__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_22__CLASS_ENVIRONMEN*/ /*_.VALSTR___V105*/ meltfptr[104] = (melt_ptr_t) & cdat->dstr_22__CLASS_ENVIRONMEN; cdat->dstr_22__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_22__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_22__CLASS_ENVIRONMEN.val) - 1); cdat->dstr_22__CLASS_ENVIRONMEN.val[17] = (char) 0; cdat->dstr_22__CLASS_ENVIRONMEN.slen = 17; /*iniobj dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES*/ /*uniqueobj*/ if (! /*_.VALDATA___V106*/ meltfptr[105]) /*_.VALDATA___V106*/ meltfptr[105] = (melt_ptr_t) & cdat->dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_23__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_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES.obj_hash = 241206510; cdat->dsym_23__TRANSLATE_TO_C_MODULE_MELT_SOURCES.obj_len = 3; /*inistring dstr_24__TRANSLATE_TO_C_M*/ /*_.VALSTR___V107*/ meltfptr[106] = (melt_ptr_t) & cdat->dstr_24__TRANSLATE_TO_C_M; cdat->dstr_24__TRANSLATE_TO_C_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_24__TRANSLATE_TO_C_M.val, "TRANSLATE_TO_C_MODULE_MELT_SOURCES", sizeof (cdat->dstr_24__TRANSLATE_TO_C_M.val) - 1); cdat->dstr_24__TRANSLATE_TO_C_M.val[34] = (char) 0; cdat->dstr_24__TRANSLATE_TO_C_M.slen = 34; /*inistring dstr_25__quicklybuilt*/ /*_.VALSTR___V95*/ meltfptr[94] = (melt_ptr_t) & cdat->dstr_25__quicklybuilt; cdat->dstr_25__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_25__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_25__quicklybuilt.val) - 1); cdat->dstr_25__quicklybuilt.val[12] = (char) 0; cdat->dstr_25__quicklybuilt.slen = 12; /*inistring dstr_26__quicklybuilt*/ /*_.VALSTR___V96*/ meltfptr[95] = (melt_ptr_t) & cdat->dstr_26__quicklybuilt; cdat->dstr_26__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_26__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_26__quicklybuilt.val) - 1); cdat->dstr_26__quicklybuilt.val[12] = (char) 0; cdat->dstr_26__quicklybuilt.slen = 12; /*iniobj dsym_27__TRUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V97*/ meltfptr[96]) /*_.VALDATA___V97*/ meltfptr[96] = (melt_ptr_t) & cdat->dsym_27__TRUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_27__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_27__TRUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_27__TRUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_27__TRUE.obj_hash = 576485513; cdat->dsym_27__TRUE.obj_len = 3; /*inistring dstr_28__TRUE*/ /*_.VALSTR___V98*/ meltfptr[97] = (melt_ptr_t) & cdat->dstr_28__TRUE; cdat->dstr_28__TRUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_28__TRUE.val, "TRUE", sizeof (cdat->dstr_28__TRUE.val) - 1); cdat->dstr_28__TRUE.val[4] = (char) 0; cdat->dstr_28__TRUE.slen = 4; /*iniobj dsym_29__RUNFILE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V108*/ meltfptr[107]) /*_.VALDATA___V108*/ meltfptr[107] = (melt_ptr_t) & cdat->dsym_29__RUNFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_29__RUNFILE_MODE", melt_magic_discr ((melt_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__RUNFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_29__RUNFILE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_29__RUNFILE_MODE.obj_hash = 542840019; cdat->dsym_29__RUNFILE_MODE.obj_len = 3; /*inistring dstr_30__RUNFILE_MODE*/ /*_.VALSTR___V109*/ meltfptr[108] = (melt_ptr_t) & cdat->dstr_30__RUNFILE_MODE; cdat->dstr_30__RUNFILE_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_30__RUNFILE_MODE.val, "RUNFILE_MODE", sizeof (cdat->dstr_30__RUNFILE_MODE.val) - 1); cdat->dstr_30__RUNFILE_MODE.val[12] = (char) 0; cdat->dstr_30__RUNFILE_MODE.slen = 12; MELT_LOCATION ("warmelt-modes.melt:102:/ iniobj"); /*iniobj dobj_31__RUNFILE_MODE*/ /*_.VALDATA___V110*/ meltfptr[109] = (melt_ptr_t) & cdat->dobj_31__RUNFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_31__RUNFILE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_31__RUNFILE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_31__RUNFILE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_31__RUNFILE_MODE.obj_hash = 95801208; cdat->dobj_31__RUNFILE_MODE.obj_len = 5; /*inistring dstr_32__runfile*/ /*_.VALSTR___V111*/ meltfptr[110] = (melt_ptr_t) & cdat->dstr_32__runfile; cdat->dstr_32__runfile.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_32__runfile.val, "runfile", sizeof (cdat->dstr_32__runfile.val) - 1); cdat->dstr_32__runfile.val[7] = (char) 0; cdat->dstr_32__runfile.slen = 7; /*inistring dstr_33__translate_and_ru*/ /*_.VALSTR___V112*/ meltfptr[111] = (melt_ptr_t) & cdat->dstr_33__translate_and_ru; cdat->dstr_33__translate_and_ru.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_33__translate_and_ru.val, "translate and run a .melt file.\n \t ARGUMENT=\ \ninput file; [OUTPUT=generated C]. The module is quickly compiled\ and\nhas basic debug support thru DEBUG, ASSERT_MSG...", sizeof (cdat->dstr_33__translate_and_ru.val) - 1); cdat->dstr_33__translate_and_ru.val[163] = (char) 0; cdat->dstr_33__translate_and_ru.slen = 163; /*inirout drout_34__RUNDEBUG_DOCMD */ /*_.VALROUT___V113*/ meltfptr[112] = (melt_ptr_t) & cdat->drout_34__RUNDEBUG_DOCMD; cdat->drout_34__RUNDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_34__RUNDEBUG_DOCMD.routdescr, "RUNDEBUG_DOCMD @warmelt-modes.melt:114", MELT_ROUTDESCR_LEN - 1); cdat->drout_34__RUNDEBUG_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_34__RUNDEBUG_DOCMD, meltrout_3_warmelt_modes_RUNDEBUG_DOCMD); /*iniclos dclo_35__RUNDEBUG_DOCMD */ /*_.VALCLO___V116*/ meltfptr[115] = (melt_ptr_t) & cdat->dclo_35__RUNDEBUG_DOCMD; cdat->dclo_35__RUNDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_35__RUNDEBUG_DOCMD.nbval = 0; /*inistring dstr_36__debugnoline*/ /*_.VALSTR___V114*/ meltfptr[113] = (melt_ptr_t) & cdat->dstr_36__debugnoline; cdat->dstr_36__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_36__debugnoline.val, "debugnoline", sizeof (cdat->dstr_36__debugnoline.val) - 1); cdat->dstr_36__debugnoline.val[11] = (char) 0; cdat->dstr_36__debugnoline.slen = 11; /*inistring dstr_37__debugnoline*/ /*_.VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) & cdat->dstr_37__debugnoline; cdat->dstr_37__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_37__debugnoline.val, "debugnoline", sizeof (cdat->dstr_37__debugnoline.val) - 1); cdat->dstr_37__debugnoline.val[11] = (char) 0; cdat->dstr_37__debugnoline.slen = 11; /*iniobj dsym_38__RUNDEBUG_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V117*/ meltfptr[116]) /*_.VALDATA___V117*/ meltfptr[116] = (melt_ptr_t) & cdat->dsym_38__RUNDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_38__RUNDEBUG_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_38__RUNDEBUG_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_38__RUNDEBUG_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_38__RUNDEBUG_MODE.obj_hash = 58969558; cdat->dsym_38__RUNDEBUG_MODE.obj_len = 3; /*inistring dstr_39__RUNDEBUG_MODE*/ /*_.VALSTR___V118*/ meltfptr[117] = (melt_ptr_t) & cdat->dstr_39__RUNDEBUG_MODE; cdat->dstr_39__RUNDEBUG_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_39__RUNDEBUG_MODE.val, "RUNDEBUG_MODE", sizeof (cdat->dstr_39__RUNDEBUG_MODE.val) - 1); cdat->dstr_39__RUNDEBUG_MODE.val[13] = (char) 0; cdat->dstr_39__RUNDEBUG_MODE.slen = 13; MELT_LOCATION ("warmelt-modes.melt:167:/ iniobj"); /*iniobj dobj_40__RUNDEBUG_MODE*/ /*_.VALDATA___V119*/ meltfptr[118] = (melt_ptr_t) & cdat->dobj_40__RUNDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_40__RUNDEBUG_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_40__RUNDEBUG_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_40__RUNDEBUG_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_40__RUNDEBUG_MODE.obj_hash = 355688936; cdat->dobj_40__RUNDEBUG_MODE.obj_len = 5; /*inistring dstr_41__rundebug*/ /*_.VALSTR___V120*/ meltfptr[119] = (melt_ptr_t) & cdat->dstr_41__rundebug; cdat->dstr_41__rundebug.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_41__rundebug.val, "rundebug", sizeof (cdat->dstr_41__rundebug.val) - 1); cdat->dstr_41__rundebug.val[8] = (char) 0; cdat->dstr_41__rundebug.slen = 8; /*inistring dstr_42__translate_and_ru*/ /*_.VALSTR___V121*/ meltfptr[120] = (melt_ptr_t) & cdat->dstr_42__translate_and_ru; cdat->dstr_42__translate_and_ru.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_42__translate_and_ru.val, "translate and run a .melt file for debug;\ \n\n\t ARGUMENT= input file; [OUTPUT=generated C]", sizeof (cdat->dstr_42__translate_and_ru.val) - 1); cdat->dstr_42__translate_and_ru.val[88] = (char) 0; cdat->dstr_42__translate_and_ru.slen = 88; /*inirout drout_43__EVAL_DOCMD */ /*_.VALROUT___V122*/ meltfptr[121] = (melt_ptr_t) & cdat->drout_43__EVAL_DOCMD; cdat->drout_43__EVAL_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_43__EVAL_DOCMD.routdescr, "EVAL_DOCMD @warmelt-modes.melt:178", MELT_ROUTDESCR_LEN - 1); cdat->drout_43__EVAL_DOCMD.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_43__EVAL_DOCMD, meltrout_4_warmelt_modes_EVAL_DOCMD); /*iniclos dclo_44__EVAL_DOCMD */ /*_.VALCLO___V123*/ meltfptr[122] = (melt_ptr_t) & cdat->dclo_44__EVAL_DOCMD; cdat->dclo_44__EVAL_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_44__EVAL_DOCMD.nbval = 0; /*iniobj dsym_45__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (! /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) & cdat->dsym_45__DISCR_MAP_OBJECTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_45__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_45__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_45__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_45__DISCR_MAP_OBJECTS.obj_hash = 217147088; cdat->dsym_45__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_46__DISCR_MAP_OBJECT*/ /*_.VALSTR___V125*/ meltfptr[124] = (melt_ptr_t) & cdat->dstr_46__DISCR_MAP_OBJECT; cdat->dstr_46__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_46__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_46__DISCR_MAP_OBJECT.val) - 1); cdat->dstr_46__DISCR_MAP_OBJECT.val[17] = (char) 0; cdat->dstr_46__DISCR_MAP_OBJECT.slen = 17; /*iniobj dsym_47__FRESH_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) & cdat->dsym_47__FRESH_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_47__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_47__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_47__FRESH_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_47__FRESH_ENV.obj_hash = 1002363940; cdat->dsym_47__FRESH_ENV.obj_len = 3; /*inistring dstr_48__FRESH_ENV*/ /*_.VALSTR___V127*/ meltfptr[126] = (melt_ptr_t) & cdat->dstr_48__FRESH_ENV; cdat->dstr_48__FRESH_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_48__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_48__FRESH_ENV.val) - 1); cdat->dstr_48__FRESH_ENV.val[9] = (char) 0; cdat->dstr_48__FRESH_ENV.slen = 9; /*iniobj dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*uniqueobj*/ if (! /*_.VALDATA___V128*/ meltfptr[127]) /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) & cdat->dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_49__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_49__TRANSLATE_RUN_MELT_EXPRESSIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_hash = 768959791; cdat->dsym_49__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_len = 3; /*inistring dstr_50__TRANSLATE_RUN_ME*/ /*_.VALSTR___V129*/ meltfptr[128] = (melt_ptr_t) & cdat->dstr_50__TRANSLATE_RUN_ME; cdat->dstr_50__TRANSLATE_RUN_ME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_50__TRANSLATE_RUN_ME.val, "TRANSLATE_RUN_MELT_EXPRESSIONS", sizeof (cdat->dstr_50__TRANSLATE_RUN_ME.val) - 1); cdat->dstr_50__TRANSLATE_RUN_ME.val[30] = (char) 0; cdat->dstr_50__TRANSLATE_RUN_ME.slen = 30; /*iniobj dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION*/ /*uniqueobj*/ if (! /*_.VALDATA___V130*/ meltfptr[129]) /*_.VALDATA___V130*/ meltfptr[129] = (melt_ptr_t) & cdat->dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION.obj_hash = 436769164; cdat->dsym_51__CLASS_DEBUG_OUTPUT_INFORMATION.obj_len = 3; /*inistring dstr_52__CLASS_DEBUG_OUTP*/ /*_.VALSTR___V131*/ meltfptr[130] = (melt_ptr_t) & cdat->dstr_52__CLASS_DEBUG_OUTP; cdat->dstr_52__CLASS_DEBUG_OUTP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_52__CLASS_DEBUG_OUTP.val, "CLASS_DEBUG_OUTPUT_INFORMATION", sizeof (cdat->dstr_52__CLASS_DEBUG_OUTP.val) - 1); cdat->dstr_52__CLASS_DEBUG_OUTP.val[30] = (char) 0; cdat->dstr_52__CLASS_DEBUG_OUTP.slen = 30; /*iniobj dsym_53__DISCR_CONSTANT_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V132*/ meltfptr[131]) /*_.VALDATA___V132*/ meltfptr[131] = (melt_ptr_t) & cdat->dsym_53__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_53__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_53__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_53__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_53__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; cdat->dsym_53__DISCR_CONSTANT_INTEGER.obj_len = 3; /*inistring dstr_54__DISCR_CONSTANT_I*/ /*_.VALSTR___V133*/ meltfptr[132] = (melt_ptr_t) & cdat->dstr_54__DISCR_CONSTANT_I; cdat->dstr_54__DISCR_CONSTANT_I.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_54__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_54__DISCR_CONSTANT_I.val) - 1); cdat->dstr_54__DISCR_CONSTANT_I.val[22] = (char) 0; cdat->dstr_54__DISCR_CONSTANT_I.slen = 22; /*iniobj dsym_55__ADD2OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V134*/ meltfptr[133]) /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) & cdat->dsym_55__ADD2OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_55__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_55__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_55__ADD2OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_55__ADD2OUT.obj_hash = 901325062; cdat->dsym_55__ADD2OUT.obj_len = 3; /*inistring dstr_56__ADD2OUT*/ /*_.VALSTR___V135*/ meltfptr[134] = (melt_ptr_t) & cdat->dstr_56__ADD2OUT; cdat->dstr_56__ADD2OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_56__ADD2OUT.val, "ADD2OUT", sizeof (cdat->dstr_56__ADD2OUT.val) - 1); cdat->dstr_56__ADD2OUT.val[7] = (char) 0; cdat->dstr_56__ADD2OUT.slen = 7; /*iniobj dsym_57__DBG_OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) & cdat->dsym_57__DBG_OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_57__DBG_OUT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_57__DBG_OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_57__DBG_OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_57__DBG_OUT.obj_hash = 492035674; cdat->dsym_57__DBG_OUT.obj_len = 3; /*inistring dstr_58__DBG_OUT*/ /*_.VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) & cdat->dstr_58__DBG_OUT; cdat->dstr_58__DBG_OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_58__DBG_OUT.val, "DBG_OUT", sizeof (cdat->dstr_58__DBG_OUT.val) - 1); cdat->dstr_58__DBG_OUT.val[7] = (char) 0; cdat->dstr_58__DBG_OUT.slen = 7; /*iniobj dsym_59__EVAL_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V138*/ meltfptr[137]) /*_.VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) & cdat->dsym_59__EVAL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_59__EVAL_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_59__EVAL_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_59__EVAL_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_59__EVAL_MODE.obj_hash = 481183908; cdat->dsym_59__EVAL_MODE.obj_len = 3; /*inistring dstr_60__EVAL_MODE*/ /*_.VALSTR___V139*/ meltfptr[138] = (melt_ptr_t) & cdat->dstr_60__EVAL_MODE; cdat->dstr_60__EVAL_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_60__EVAL_MODE.val, "EVAL_MODE", sizeof (cdat->dstr_60__EVAL_MODE.val) - 1); cdat->dstr_60__EVAL_MODE.val[9] = (char) 0; cdat->dstr_60__EVAL_MODE.slen = 9; MELT_LOCATION ("warmelt-modes.melt:215:/ iniobj"); /*iniobj dobj_61__EVAL_MODE*/ /*_.VALDATA___V140*/ meltfptr[139] = (melt_ptr_t) & cdat->dobj_61__EVAL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_61__EVAL_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_61__EVAL_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_61__EVAL_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_61__EVAL_MODE.obj_hash = 115627809; cdat->dobj_61__EVAL_MODE.obj_len = 5; /*inistring dstr_62__eval*/ /*_.VALSTR___V141*/ meltfptr[140] = (melt_ptr_t) & cdat->dstr_62__eval; cdat->dstr_62__eval.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_62__eval.val, "eval", sizeof (cdat->dstr_62__eval.val) - 1); cdat->dstr_62__eval.val[4] = (char) 0; cdat->dstr_62__eval.slen = 4; /*inistring dstr_63__translate_and_ru*/ /*_.VALSTR___V142*/ meltfptr[141] = (melt_ptr_t) & cdat->dstr_63__translate_and_ru; cdat->dstr_63__translate_and_ru.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_63__translate_and_ru.val, "translate and run, i.e. evaluate, MELT expressions, displaying the\ last evaluated result;\n\n\t ARGUMENT= expressions to evaluate", sizeof (cdat->dstr_63__translate_and_ru.val) - 1); cdat->dstr_63__translate_and_ru.val[126] = (char) 0; cdat->dstr_63__translate_and_ru.slen = 126; /*inirout drout_64__EVALFILE_DOCMD */ /*_.VALROUT___V143*/ meltfptr[142] = (melt_ptr_t) & cdat->drout_64__EVALFILE_DOCMD; cdat->drout_64__EVALFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_64__EVALFILE_DOCMD.routdescr, "EVALFILE_DOCMD @warmelt-modes.melt:228", MELT_ROUTDESCR_LEN - 1); cdat->drout_64__EVALFILE_DOCMD.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_64__EVALFILE_DOCMD, meltrout_5_warmelt_modes_EVALFILE_DOCMD); /*iniclos dclo_65__EVALFILE_DOCMD */ /*_.VALCLO___V144*/ meltfptr[143] = (melt_ptr_t) & cdat->dclo_65__EVALFILE_DOCMD; cdat->dclo_65__EVALFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_65__EVALFILE_DOCMD.nbval = 0; /*iniobj dsym_66__EVALFILE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V145*/ meltfptr[144]) /*_.VALDATA___V145*/ meltfptr[144] = (melt_ptr_t) & cdat->dsym_66__EVALFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_66__EVALFILE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_66__EVALFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_66__EVALFILE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_66__EVALFILE_MODE.obj_hash = 703606185; cdat->dsym_66__EVALFILE_MODE.obj_len = 3; /*inistring dstr_67__EVALFILE_MODE*/ /*_.VALSTR___V146*/ meltfptr[145] = (melt_ptr_t) & cdat->dstr_67__EVALFILE_MODE; cdat->dstr_67__EVALFILE_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_67__EVALFILE_MODE.val, "EVALFILE_MODE", sizeof (cdat->dstr_67__EVALFILE_MODE.val) - 1); cdat->dstr_67__EVALFILE_MODE.val[13] = (char) 0; cdat->dstr_67__EVALFILE_MODE.slen = 13; MELT_LOCATION ("warmelt-modes.melt:265:/ iniobj"); /*iniobj dobj_68__EVALFILE_MODE*/ /*_.VALDATA___V147*/ meltfptr[146] = (melt_ptr_t) & cdat->dobj_68__EVALFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_68__EVALFILE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_68__EVALFILE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_68__EVALFILE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_68__EVALFILE_MODE.obj_hash = 1072116259; cdat->dobj_68__EVALFILE_MODE.obj_len = 5; /*inistring dstr_69__evalfile*/ /*_.VALSTR___V148*/ meltfptr[147] = (melt_ptr_t) & cdat->dstr_69__evalfile; cdat->dstr_69__evalfile.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_69__evalfile.val, "evalfile", sizeof (cdat->dstr_69__evalfile.val) - 1); cdat->dstr_69__evalfile.val[8] = (char) 0; cdat->dstr_69__evalfile.slen = 8; /*inistring dstr_70__translate_and_ru*/ /*_.VALSTR___V149*/ meltfptr[148] = (melt_ptr_t) & cdat->dstr_70__translate_and_ru; cdat->dstr_70__translate_and_ru.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_70__translate_and_ru.val, "translate and run, i.e. evaluate, MELT expressions from a file, displaying\ the last evaluated result;\n\n\t ARGUMENT= file name, or - for stdin", sizeof (cdat->dstr_70__translate_and_ru.val) - 1); cdat->dstr_70__translate_and_ru.val[140] = (char) 0; cdat->dstr_70__translate_and_ru.slen = 140; /*iniobj dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V150*/ meltfptr[149]) /*_.VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) & cdat->dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_71__CLASS_READ_EVAL_PRINT_LOOP_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_71__CLASS_READ_EVAL_PRINT_LOOP_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA.obj_hash = 464978181; cdat->dsym_71__CLASS_READ_EVAL_PRINT_LOOP_DATA.obj_len = 3; /*inistring dstr_72__CLASS_READ_EVAL_*/ /*_.VALSTR___V151*/ meltfptr[150] = (melt_ptr_t) & cdat->dstr_72__CLASS_READ_EVAL_; cdat->dstr_72__CLASS_READ_EVAL_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_72__CLASS_READ_EVAL_.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (cdat->dstr_72__CLASS_READ_EVAL_.val) - 1); cdat->dstr_72__CLASS_READ_EVAL_.val[31] = (char) 0; cdat->dstr_72__CLASS_READ_EVAL_.slen = 31; /*iniobj dsym_73__CLASS_PROPED*/ /*uniqueobj*/ if (! /*_.VALDATA___V152*/ meltfptr[151]) /*_.VALDATA___V152*/ meltfptr[151] = (melt_ptr_t) & cdat->dsym_73__CLASS_PROPED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_73__CLASS_PROPED", melt_magic_discr ((melt_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_PROPED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_73__CLASS_PROPED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_73__CLASS_PROPED.obj_hash = 96765023; cdat->dsym_73__CLASS_PROPED.obj_len = 3; /*inistring dstr_74__CLASS_PROPED*/ /*_.VALSTR___V153*/ meltfptr[152] = (melt_ptr_t) & cdat->dstr_74__CLASS_PROPED; cdat->dstr_74__CLASS_PROPED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_74__CLASS_PROPED.val, "CLASS_PROPED", sizeof (cdat->dstr_74__CLASS_PROPED.val) - 1); cdat->dstr_74__CLASS_PROPED.val[12] = (char) 0; cdat->dstr_74__CLASS_PROPED.slen = 12; MELT_LOCATION ("warmelt-modes.melt:278:/ iniobj"); /*iniobj dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA*/ /*_.VALDATA___V154*/ meltfptr[153] = (melt_ptr_t) & cdat->dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA", 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_75__CLASS_READ_EVAL_PRINT_LOOP_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA.obj_num = MELTOBMAG_OBJECT; cdat->dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA.obj_hash = 711996244; cdat->dobj_75__CLASS_READ_EVAL_PRINT_LOOP_DATA.obj_len = 8; /*inistring dstr_76__CLASS_READ_EVAL_*/ /*_.VALSTR___V155*/ meltfptr[154] = (melt_ptr_t) & cdat->dstr_76__CLASS_READ_EVAL_; cdat->dstr_76__CLASS_READ_EVAL_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_76__CLASS_READ_EVAL_.val, "CLASS_READ_EVAL_PRINT_LOOP_DATA", sizeof (cdat->dstr_76__CLASS_READ_EVAL_.val) - 1); cdat->dstr_76__CLASS_READ_EVAL_.val[31] = (char) 0; cdat->dstr_76__CLASS_READ_EVAL_.slen = 31; /*inimult dtup_77__CLASS_READ_EVAL_PRINT_LOOP_DATA */ /*_.VALTUP___V156*/ meltfptr[155] = (melt_ptr_t) & cdat->dtup_77__CLASS_READ_EVAL_PRINT_LOOP_DATA; cdat->dtup_77__CLASS_READ_EVAL_PRINT_LOOP_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_77__CLASS_READ_EVAL_PRINT_LOOP_DATA.nbval = 2; /*inimult dtup_78__CLASS_READ_EVAL_PRINT_LOOP_DATA */ /*_.VALTUP___V165*/ meltfptr[164] = (melt_ptr_t) & cdat->dtup_78__CLASS_READ_EVAL_PRINT_LOOP_DATA; cdat->dtup_78__CLASS_READ_EVAL_PRINT_LOOP_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_78__CLASS_READ_EVAL_PRINT_LOOP_DATA.nbval = 5; /*iniobj dsym_79__REPL_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V166*/ meltfptr[165]) /*_.VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) & cdat->dsym_79__REPL_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_79__REPL_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_79__REPL_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_79__REPL_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_79__REPL_ENV.obj_hash = 751835806; cdat->dsym_79__REPL_ENV.obj_len = 3; /*inistring dstr_80__REPL_ENV*/ /*_.VALSTR___V167*/ meltfptr[166] = (melt_ptr_t) & cdat->dstr_80__REPL_ENV; cdat->dstr_80__REPL_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_80__REPL_ENV.val, "REPL_ENV", sizeof (cdat->dstr_80__REPL_ENV.val) - 1); cdat->dstr_80__REPL_ENV.val[8] = (char) 0; cdat->dstr_80__REPL_ENV.slen = 8; /*^iniobj */ /*iniobj dobj_81__REPL_ENV*/ /*_.VALDATA___V157*/ meltfptr[156] = (melt_ptr_t) & cdat->dobj_81__REPL_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_81__REPL_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_81__REPL_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_81__REPL_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_81__REPL_ENV.obj_num = 1; cdat->dobj_81__REPL_ENV.obj_hash = 739720658; cdat->dobj_81__REPL_ENV.obj_len = 4; /*inistring dstr_82__REPL_ENV*/ /*_.VALSTR___V158*/ meltfptr[157] = (melt_ptr_t) & cdat->dstr_82__REPL_ENV; cdat->dstr_82__REPL_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_82__REPL_ENV.val, "REPL_ENV", sizeof (cdat->dstr_82__REPL_ENV.val) - 1); cdat->dstr_82__REPL_ENV.val[8] = (char) 0; cdat->dstr_82__REPL_ENV.slen = 8; /*iniobj dsym_83__REPL_COUNTER*/ /*uniqueobj*/ if (! /*_.VALDATA___V168*/ meltfptr[167]) /*_.VALDATA___V168*/ meltfptr[167] = (melt_ptr_t) & cdat->dsym_83__REPL_COUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_83__REPL_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_83__REPL_COUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_83__REPL_COUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_83__REPL_COUNTER.obj_hash = 707391861; cdat->dsym_83__REPL_COUNTER.obj_len = 3; /*inistring dstr_84__REPL_COUNTER*/ /*_.VALSTR___V169*/ meltfptr[168] = (melt_ptr_t) & cdat->dstr_84__REPL_COUNTER; cdat->dstr_84__REPL_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_84__REPL_COUNTER.val, "REPL_COUNTER", sizeof (cdat->dstr_84__REPL_COUNTER.val) - 1); cdat->dstr_84__REPL_COUNTER.val[12] = (char) 0; cdat->dstr_84__REPL_COUNTER.slen = 12; /*^iniobj */ /*iniobj dobj_85__REPL_COUNTER*/ /*_.VALDATA___V159*/ meltfptr[158] = (melt_ptr_t) & cdat->dobj_85__REPL_COUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_85__REPL_COUNTER", 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_85__REPL_COUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_85__REPL_COUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_85__REPL_COUNTER.obj_num = 2; cdat->dobj_85__REPL_COUNTER.obj_hash = 439156231; cdat->dobj_85__REPL_COUNTER.obj_len = 4; /*inistring dstr_86__REPL_COUNTER*/ /*_.VALSTR___V160*/ meltfptr[159] = (melt_ptr_t) & cdat->dstr_86__REPL_COUNTER; cdat->dstr_86__REPL_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_86__REPL_COUNTER.val, "REPL_COUNTER", sizeof (cdat->dstr_86__REPL_COUNTER.val) - 1); cdat->dstr_86__REPL_COUNTER.val[12] = (char) 0; cdat->dstr_86__REPL_COUNTER.slen = 12; /*iniobj dsym_87__REPL_CONTREF*/ /*uniqueobj*/ if (! /*_.VALDATA___V170*/ meltfptr[169]) /*_.VALDATA___V170*/ meltfptr[169] = (melt_ptr_t) & cdat->dsym_87__REPL_CONTREF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_87__REPL_CONTREF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_87__REPL_CONTREF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_87__REPL_CONTREF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_87__REPL_CONTREF.obj_hash = 346752292; cdat->dsym_87__REPL_CONTREF.obj_len = 3; /*inistring dstr_88__REPL_CONTREF*/ /*_.VALSTR___V171*/ meltfptr[170] = (melt_ptr_t) & cdat->dstr_88__REPL_CONTREF; cdat->dstr_88__REPL_CONTREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_88__REPL_CONTREF.val, "REPL_CONTREF", sizeof (cdat->dstr_88__REPL_CONTREF.val) - 1); cdat->dstr_88__REPL_CONTREF.val[12] = (char) 0; cdat->dstr_88__REPL_CONTREF.slen = 12; /*^iniobj */ /*iniobj dobj_89__REPL_CONTREF*/ /*_.VALDATA___V161*/ meltfptr[160] = (melt_ptr_t) & cdat->dobj_89__REPL_CONTREF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_89__REPL_CONTREF", 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_89__REPL_CONTREF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_89__REPL_CONTREF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_89__REPL_CONTREF.obj_num = 3; cdat->dobj_89__REPL_CONTREF.obj_hash = 148737076; cdat->dobj_89__REPL_CONTREF.obj_len = 4; /*inistring dstr_90__REPL_CONTREF*/ /*_.VALSTR___V162*/ meltfptr[161] = (melt_ptr_t) & cdat->dstr_90__REPL_CONTREF; cdat->dstr_90__REPL_CONTREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_90__REPL_CONTREF.val, "REPL_CONTREF", sizeof (cdat->dstr_90__REPL_CONTREF.val) - 1); cdat->dstr_90__REPL_CONTREF.val[12] = (char) 0; cdat->dstr_90__REPL_CONTREF.slen = 12; /*iniobj dsym_91__REPL_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V172*/ meltfptr[171]) /*_.VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) & cdat->dsym_91__REPL_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_91__REPL_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_91__REPL_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_91__REPL_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_91__REPL_DATA.obj_hash = 986018883; cdat->dsym_91__REPL_DATA.obj_len = 3; /*inistring dstr_92__REPL_DATA*/ /*_.VALSTR___V173*/ meltfptr[172] = (melt_ptr_t) & cdat->dstr_92__REPL_DATA; cdat->dstr_92__REPL_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_92__REPL_DATA.val, "REPL_DATA", sizeof (cdat->dstr_92__REPL_DATA.val) - 1); cdat->dstr_92__REPL_DATA.val[9] = (char) 0; cdat->dstr_92__REPL_DATA.slen = 9; /*^iniobj */ /*iniobj dobj_93__REPL_DATA*/ /*_.VALDATA___V163*/ meltfptr[162] = (melt_ptr_t) & cdat->dobj_93__REPL_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_93__REPL_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_93__REPL_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_93__REPL_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_93__REPL_DATA.obj_num = 4; cdat->dobj_93__REPL_DATA.obj_hash = 1019584945; cdat->dobj_93__REPL_DATA.obj_len = 4; /*inistring dstr_94__REPL_DATA*/ /*_.VALSTR___V164*/ meltfptr[163] = (melt_ptr_t) & cdat->dstr_94__REPL_DATA; cdat->dstr_94__REPL_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_94__REPL_DATA.val, "REPL_DATA", sizeof (cdat->dstr_94__REPL_DATA.val) - 1); cdat->dstr_94__REPL_DATA.val[9] = (char) 0; cdat->dstr_94__REPL_DATA.slen = 9; /*inirout drout_95__REPL_PROCESSOR */ /*_.VALROUT___V174*/ meltfptr[173] = (melt_ptr_t) & cdat->drout_95__REPL_PROCESSOR; cdat->drout_95__REPL_PROCESSOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_95__REPL_PROCESSOR.routdescr, "REPL_PROCESSOR @warmelt-modes.melt:285", MELT_ROUTDESCR_LEN - 1); cdat->drout_95__REPL_PROCESSOR.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_95__REPL_PROCESSOR, meltrout_6_warmelt_modes_REPL_PROCESSOR); /*iniclos dclo_96__REPL_PROCESSOR */ /*_.VALCLO___V175*/ meltfptr[174] = (melt_ptr_t) & cdat->dclo_96__REPL_PROCESSOR; cdat->dclo_96__REPL_PROCESSOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_96__REPL_PROCESSOR.nbval = 0; /*iniobj dsym_97__CLASS_INPUT_CHANNEL_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) & cdat->dsym_97__CLASS_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_97__CLASS_INPUT_CHANNEL_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_97__CLASS_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_97__CLASS_INPUT_CHANNEL_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_97__CLASS_INPUT_CHANNEL_HANDLER.obj_hash = 94880076; cdat->dsym_97__CLASS_INPUT_CHANNEL_HANDLER.obj_len = 3; /*inistring dstr_98__CLASS_INPUT_CHAN*/ /*_.VALSTR___V177*/ meltfptr[176] = (melt_ptr_t) & cdat->dstr_98__CLASS_INPUT_CHAN; cdat->dstr_98__CLASS_INPUT_CHAN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_98__CLASS_INPUT_CHAN.val, "CLASS_INPUT_CHANNEL_HANDLER", sizeof (cdat->dstr_98__CLASS_INPUT_CHAN.val) - 1); cdat->dstr_98__CLASS_INPUT_CHAN.val[27] = (char) 0; cdat->dstr_98__CLASS_INPUT_CHAN.slen = 27; /*iniobj dsym_99__CLASS_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) & cdat->dsym_99__CLASS_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_99__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_99__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_99__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_99__CLASS_REFERENCE.obj_hash = 896623907; cdat->dsym_99__CLASS_REFERENCE.obj_len = 3; /*inistring dstr_100__CLASS_REFERENCE*/ /*_.VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) & cdat->dstr_100__CLASS_REFERENCE; cdat->dstr_100__CLASS_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_100__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (cdat->dstr_100__CLASS_REFERENCE.val) - 1); cdat->dstr_100__CLASS_REFERENCE.val[15] = (char) 0; cdat->dstr_100__CLASS_REFERENCE.slen = 15; /*iniobj dsym_101__CLASS_DEBUG_INFORMATION*/ /*uniqueobj*/ if (! /*_.VALDATA___V180*/ meltfptr[179]) /*_.VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) & cdat->dsym_101__CLASS_DEBUG_INFORMATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_101__CLASS_DEBUG_INFORMATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_101__CLASS_DEBUG_INFORMATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_101__CLASS_DEBUG_INFORMATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_101__CLASS_DEBUG_INFORMATION.obj_hash = 190162903; cdat->dsym_101__CLASS_DEBUG_INFORMATION.obj_len = 3; /*inistring dstr_102__CLASS_DEBUG_INFO*/ /*_.VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) & cdat->dstr_102__CLASS_DEBUG_INFO; cdat->dstr_102__CLASS_DEBUG_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_102__CLASS_DEBUG_INFO.val, "CLASS_DEBUG_INFORMATION", sizeof (cdat->dstr_102__CLASS_DEBUG_INFO. val) - 1); cdat->dstr_102__CLASS_DEBUG_INFO.val[23] = (char) 0; cdat->dstr_102__CLASS_DEBUG_INFO.slen = 23; /*inirout drout_103__REPL_DOCMD */ /*_.VALROUT___V182*/ meltfptr[181] = (melt_ptr_t) & cdat->drout_103__REPL_DOCMD; cdat->drout_103__REPL_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_103__REPL_DOCMD.routdescr, "REPL_DOCMD @warmelt-modes.melt:345", MELT_ROUTDESCR_LEN - 1); cdat->drout_103__REPL_DOCMD.nbval = 28; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_103__REPL_DOCMD, meltrout_7_warmelt_modes_REPL_DOCMD); /*iniclos dclo_104__REPL_DOCMD */ /*_.VALCLO___V199*/ meltfptr[198] = (melt_ptr_t) & cdat->dclo_104__REPL_DOCMD; cdat->dclo_104__REPL_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_104__REPL_DOCMD.nbval = 0; /*inistring dstr_105__the_interactive_*/ /*_.VALSTR___V183*/ meltfptr[182] = (melt_ptr_t) & cdat->dstr_105__the_interactive_; cdat->dstr_105__the_interactive_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_105__the_interactive_.val, "the interactive Read-Eval-Print-Loop environment", sizeof (cdat->dstr_105__the_interactive_. val) - 1); cdat->dstr_105__the_interactive_.val[48] = (char) 0; cdat->dstr_105__the_interactive_.slen = 48; /*iniobj dsym_106__DISCR_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) & cdat->dsym_106__DISCR_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_106__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_106__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_106__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_106__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_106__DISCR_INTEGER.obj_len = 3; /*inistring dstr_107__DISCR_INTEGER*/ /*_.VALSTR___V201*/ meltfptr[200] = (melt_ptr_t) & cdat->dstr_107__DISCR_INTEGER; cdat->dstr_107__DISCR_INTEGER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_107__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_107__DISCR_INTEGER.val) - 1); cdat->dstr_107__DISCR_INTEGER.val[13] = (char) 0; cdat->dstr_107__DISCR_INTEGER.slen = 13; /*inirout drout_108__LAMBDA_ */ /*_.VALROUT___V184*/ meltfptr[183] = (melt_ptr_t) & cdat->drout_108__LAMBDA_; cdat->drout_108__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_108__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:365", MELT_ROUTDESCR_LEN - 1); cdat->drout_108__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_108__LAMBDA_, meltrout_8_warmelt_modes_LAMBDA___1__); /*inirout drout_109__LAMBDA_ */ /*_.VALROUT___V185*/ meltfptr[184] = (melt_ptr_t) & cdat->drout_109__LAMBDA_; cdat->drout_109__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_109__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:366", MELT_ROUTDESCR_LEN - 1); cdat->drout_109__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_109__LAMBDA_, meltrout_9_warmelt_modes_LAMBDA___2__); /*iniobj dsym_110__CLASS_VALUE_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) & cdat->dsym_110__CLASS_VALUE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_110__CLASS_VALUE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_110__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_110__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_110__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_110__CLASS_VALUE_BINDING.obj_len = 3; /*inistring dstr_111__CLASS_VALUE_BIND*/ /*_.VALSTR___V203*/ meltfptr[202] = (melt_ptr_t) & cdat->dstr_111__CLASS_VALUE_BIND; cdat->dstr_111__CLASS_VALUE_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_111__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof (cdat->dstr_111__CLASS_VALUE_BIND. val) - 1); cdat->dstr_111__CLASS_VALUE_BIND.val[19] = (char) 0; cdat->dstr_111__CLASS_VALUE_BIND.slen = 19; /*iniobj dsym_112__CONTINUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) & cdat->dsym_112__CONTINUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_112__CONTINUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_112__CONTINUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_112__CONTINUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_112__CONTINUE.obj_hash = 185882466; cdat->dsym_112__CONTINUE.obj_len = 3; /*inistring dstr_113__CONTINUE*/ /*_.VALSTR___V187*/ meltfptr[186] = (melt_ptr_t) & cdat->dstr_113__CONTINUE; cdat->dstr_113__CONTINUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_113__CONTINUE.val, "CONTINUE", sizeof (cdat->dstr_113__CONTINUE.val) - 1); cdat->dstr_113__CONTINUE.val[8] = (char) 0; cdat->dstr_113__CONTINUE.slen = 8; /*iniobj dsym_114__WAIT_REPL*/ /*uniqueobj*/ if (! /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) & cdat->dsym_114__WAIT_REPL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_114__WAIT_REPL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_114__WAIT_REPL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_114__WAIT_REPL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_114__WAIT_REPL.obj_hash = 59842282; cdat->dsym_114__WAIT_REPL.obj_len = 3; /*inistring dstr_115__WAIT_REPL*/ /*_.VALSTR___V189*/ meltfptr[188] = (melt_ptr_t) & cdat->dstr_115__WAIT_REPL; cdat->dstr_115__WAIT_REPL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_115__WAIT_REPL.val, "WAIT-REPL", sizeof (cdat->dstr_115__WAIT_REPL.val) - 1); cdat->dstr_115__WAIT_REPL.val[9] = (char) 0; cdat->dstr_115__WAIT_REPL.slen = 9; /*iniobj dsym_116__PUT_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V204*/ meltfptr[203]) /*_.VALDATA___V204*/ meltfptr[203] = (melt_ptr_t) & cdat->dsym_116__PUT_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_116__PUT_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_116__PUT_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_116__PUT_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_116__PUT_ENV.obj_hash = 440202203; cdat->dsym_116__PUT_ENV.obj_len = 3; /*inistring dstr_117__PUT_ENV*/ /*_.VALSTR___V205*/ meltfptr[204] = (melt_ptr_t) & cdat->dstr_117__PUT_ENV; cdat->dstr_117__PUT_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_117__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_117__PUT_ENV.val) - 1); cdat->dstr_117__PUT_ENV.val[7] = (char) 0; cdat->dstr_117__PUT_ENV.slen = 7; /*iniobj dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST*/ /*uniqueobj*/ if (! /*_.VALDATA___V206*/ meltfptr[205]) /*_.VALDATA___V206*/ meltfptr[205] = (melt_ptr_t) & cdat->dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST.obj_hash = 119698505; cdat->dsym_118__REGISTER_ALL_PASSES_END_HOOK_FIRST.obj_len = 3; /*inistring dstr_119__REGISTER_ALL_PAS*/ /*_.VALSTR___V207*/ meltfptr[206] = (melt_ptr_t) & cdat->dstr_119__REGISTER_ALL_PAS; cdat->dstr_119__REGISTER_ALL_PAS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_119__REGISTER_ALL_PAS.val, "REGISTER_ALL_PASSES_END_HOOK_FIRST", sizeof (cdat->dstr_119__REGISTER_ALL_PAS. val) - 1); cdat->dstr_119__REGISTER_ALL_PAS.val[34] = (char) 0; cdat->dstr_119__REGISTER_ALL_PAS.slen = 34; /*inirout drout_120__LAMBDA_ */ /*_.VALROUT___V192*/ meltfptr[191] = (melt_ptr_t) & cdat->drout_120__LAMBDA_; cdat->drout_120__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_120__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:402", MELT_ROUTDESCR_LEN - 1); cdat->drout_120__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_120__LAMBDA_, meltrout_10_warmelt_modes_LAMBDA___3__); /*inistring dstr_121__ended_all_GCC_pa*/ /*_.VALSTR___V193*/ meltfptr[192] = (melt_ptr_t) & cdat->dstr_121__ended_all_GCC_pa; cdat->dstr_121__ended_all_GCC_pa.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_121__ended_all_GCC_pa.val, "ended all GCC passes", sizeof (cdat->dstr_121__ended_all_GCC_pa. val) - 1); cdat->dstr_121__ended_all_GCC_pa.val[20] = (char) 0; cdat->dstr_121__ended_all_GCC_pa.slen = 20; /*iniobj dsym_122__AT_FINISH_UNIT_FIRST*/ /*uniqueobj*/ if (! /*_.VALDATA___V208*/ meltfptr[207]) /*_.VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) & cdat->dsym_122__AT_FINISH_UNIT_FIRST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_122__AT_FINISH_UNIT_FIRST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_122__AT_FINISH_UNIT_FIRST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_122__AT_FINISH_UNIT_FIRST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_122__AT_FINISH_UNIT_FIRST.obj_hash = 390084996; cdat->dsym_122__AT_FINISH_UNIT_FIRST.obj_len = 3; /*inistring dstr_123__AT_FINISH_UNIT_F*/ /*_.VALSTR___V209*/ meltfptr[208] = (melt_ptr_t) & cdat->dstr_123__AT_FINISH_UNIT_F; cdat->dstr_123__AT_FINISH_UNIT_F.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_123__AT_FINISH_UNIT_F.val, "AT_FINISH_UNIT_FIRST", sizeof (cdat->dstr_123__AT_FINISH_UNIT_F. val) - 1); cdat->dstr_123__AT_FINISH_UNIT_F.val[20] = (char) 0; cdat->dstr_123__AT_FINISH_UNIT_F.slen = 20; /*inirout drout_124__LAMBDA_ */ /*_.VALROUT___V194*/ meltfptr[193] = (melt_ptr_t) & cdat->drout_124__LAMBDA_; cdat->drout_124__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_124__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:413", MELT_ROUTDESCR_LEN - 1); cdat->drout_124__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_124__LAMBDA_, meltrout_11_warmelt_modes_LAMBDA___4__); /*inistring dstr_125__finished_compila*/ /*_.VALSTR___V195*/ meltfptr[194] = (melt_ptr_t) & cdat->dstr_125__finished_compila; cdat->dstr_125__finished_compila.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_125__finished_compila.val, "finished compilation unit", sizeof (cdat->dstr_125__finished_compila. val) - 1); cdat->dstr_125__finished_compila.val[25] = (char) 0; cdat->dstr_125__finished_compila.slen = 25; /*iniobj dsym_126__AT_EXIT_LAST*/ /*uniqueobj*/ if (! /*_.VALDATA___V210*/ meltfptr[209]) /*_.VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) & cdat->dsym_126__AT_EXIT_LAST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_126__AT_EXIT_LAST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_126__AT_EXIT_LAST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_126__AT_EXIT_LAST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_126__AT_EXIT_LAST.obj_hash = 554176281; cdat->dsym_126__AT_EXIT_LAST.obj_len = 3; /*inistring dstr_127__AT_EXIT_LAST*/ /*_.VALSTR___V211*/ meltfptr[210] = (melt_ptr_t) & cdat->dstr_127__AT_EXIT_LAST; cdat->dstr_127__AT_EXIT_LAST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_127__AT_EXIT_LAST.val, "AT_EXIT_LAST", sizeof (cdat->dstr_127__AT_EXIT_LAST.val) - 1); cdat->dstr_127__AT_EXIT_LAST.val[12] = (char) 0; cdat->dstr_127__AT_EXIT_LAST.slen = 12; /*inirout drout_128__LAMBDA_ */ /*_.VALROUT___V196*/ meltfptr[195] = (melt_ptr_t) & cdat->drout_128__LAMBDA_; cdat->drout_128__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_128__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:424", MELT_ROUTDESCR_LEN - 1); cdat->drout_128__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_128__LAMBDA_, meltrout_12_warmelt_modes_LAMBDA___5__); /*inistring dstr_129__GCC_MELT_exiting*/ /*_.VALSTR___V197*/ meltfptr[196] = (melt_ptr_t) & cdat->dstr_129__GCC_MELT_exiting; cdat->dstr_129__GCC_MELT_exiting.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_129__GCC_MELT_exiting.val, "GCC MELT exiting", sizeof (cdat->dstr_129__GCC_MELT_exiting. val) - 1); cdat->dstr_129__GCC_MELT_exiting.val[16] = (char) 0; cdat->dstr_129__GCC_MELT_exiting.slen = 16; /*inistring dstr_130__GCC_MELT_initial*/ /*_.VALSTR___V198*/ meltfptr[197] = (melt_ptr_t) & cdat->dstr_130__GCC_MELT_initial; cdat->dstr_130__GCC_MELT_initial.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_130__GCC_MELT_initial.val, "GCC MELT initial wait", sizeof (cdat->dstr_130__GCC_MELT_initial. val) - 1); cdat->dstr_130__GCC_MELT_initial.val[21] = (char) 0; cdat->dstr_130__GCC_MELT_initial.slen = 21; /*iniobj dsym_131__REPL_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V212*/ meltfptr[211]) /*_.VALDATA___V212*/ meltfptr[211] = (melt_ptr_t) & cdat->dsym_131__REPL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_131__REPL_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_131__REPL_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_131__REPL_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_131__REPL_MODE.obj_hash = 537141801; cdat->dsym_131__REPL_MODE.obj_len = 3; /*inistring dstr_132__REPL_MODE*/ /*_.VALSTR___V213*/ meltfptr[212] = (melt_ptr_t) & cdat->dstr_132__REPL_MODE; cdat->dstr_132__REPL_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_132__REPL_MODE.val, "REPL_MODE", sizeof (cdat->dstr_132__REPL_MODE.val) - 1); cdat->dstr_132__REPL_MODE.val[9] = (char) 0; cdat->dstr_132__REPL_MODE.slen = 9; MELT_LOCATION ("warmelt-modes.melt:437:/ iniobj"); /*iniobj dobj_133__REPL_MODE*/ /*_.VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) & cdat->dobj_133__REPL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_133__REPL_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_133__REPL_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_133__REPL_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_133__REPL_MODE.obj_hash = 853416840; cdat->dobj_133__REPL_MODE.obj_len = 5; /*inistring dstr_134__repl*/ /*_.VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) & cdat->dstr_134__repl; cdat->dstr_134__repl.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_134__repl.val, "repl", sizeof (cdat->dstr_134__repl.val) - 1); cdat->dstr_134__repl.val[4] = (char) 0; cdat->dstr_134__repl.slen = 4; /*inistring dstr_135__interactive_Read*/ /*_.VALSTR___V216*/ meltfptr[215] = (melt_ptr_t) & cdat->dstr_135__interactive_Read; cdat->dstr_135__interactive_Read.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_135__interactive_Read.val, "interactive Read Eval Print Loop mode", sizeof (cdat->dstr_135__interactive_Read. val) - 1); cdat->dstr_135__interactive_Read.val[37] = (char) 0; cdat->dstr_135__interactive_Read.slen = 37; /*iniobj dsym_136__CLASS_MAKEDOC_INFO*/ /*uniqueobj*/ if (! /*_.VALDATA___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (melt_ptr_t) & cdat->dsym_136__CLASS_MAKEDOC_INFO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_136__CLASS_MAKEDOC_INFO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_136__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_136__CLASS_MAKEDOC_INFO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_136__CLASS_MAKEDOC_INFO.obj_hash = 813085508; cdat->dsym_136__CLASS_MAKEDOC_INFO.obj_len = 3; /*inistring dstr_137__CLASS_MAKEDOC_IN*/ /*_.VALSTR___V218*/ meltfptr[217] = (melt_ptr_t) & cdat->dstr_137__CLASS_MAKEDOC_IN; cdat->dstr_137__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_137__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof (cdat->dstr_137__CLASS_MAKEDOC_IN. val) - 1); cdat->dstr_137__CLASS_MAKEDOC_IN.val[18] = (char) 0; cdat->dstr_137__CLASS_MAKEDOC_IN.slen = 18; MELT_LOCATION ("warmelt-modes.melt:447:/ iniobj"); /*iniobj dobj_138__CLASS_MAKEDOC_INFO*/ /*_.VALDATA___V219*/ meltfptr[218] = (melt_ptr_t) & cdat->dobj_138__CLASS_MAKEDOC_INFO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_138__CLASS_MAKEDOC_INFO", 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_138__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_138__CLASS_MAKEDOC_INFO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_138__CLASS_MAKEDOC_INFO.obj_num = MELTOBMAG_OBJECT; cdat->dobj_138__CLASS_MAKEDOC_INFO.obj_hash = 639966875; cdat->dobj_138__CLASS_MAKEDOC_INFO.obj_len = 8; /*inistring dstr_139__CLASS_MAKEDOC_IN*/ /*_.VALSTR___V220*/ meltfptr[219] = (melt_ptr_t) & cdat->dstr_139__CLASS_MAKEDOC_IN; cdat->dstr_139__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_139__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof (cdat->dstr_139__CLASS_MAKEDOC_IN. val) - 1); cdat->dstr_139__CLASS_MAKEDOC_IN.val[18] = (char) 0; cdat->dstr_139__CLASS_MAKEDOC_IN.slen = 18; /*inimult dtup_140__CLASS_MAKEDOC_INFO */ /*_.VALTUP___V221*/ meltfptr[220] = (melt_ptr_t) & cdat->dtup_140__CLASS_MAKEDOC_INFO; cdat->dtup_140__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_140__CLASS_MAKEDOC_INFO.nbval = 2; /*inimult dtup_141__CLASS_MAKEDOC_INFO */ /*_.VALTUP___V252*/ meltfptr[251] = (melt_ptr_t) & cdat->dtup_141__CLASS_MAKEDOC_INFO; cdat->dtup_141__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_141__CLASS_MAKEDOC_INFO.nbval = 16; /*iniobj dsym_142__MKDOC_PRIMITIVES*/ /*uniqueobj*/ if (! /*_.VALDATA___V253*/ meltfptr[252]) /*_.VALDATA___V253*/ meltfptr[252] = (melt_ptr_t) & cdat->dsym_142__MKDOC_PRIMITIVES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_142__MKDOC_PRIMITIVES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_142__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_142__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_142__MKDOC_PRIMITIVES.obj_hash = 533538030; cdat->dsym_142__MKDOC_PRIMITIVES.obj_len = 3; /*inistring dstr_143__MKDOC_PRIMITIVES*/ /*_.VALSTR___V254*/ meltfptr[253] = (melt_ptr_t) & cdat->dstr_143__MKDOC_PRIMITIVES; cdat->dstr_143__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_143__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (cdat->dstr_143__MKDOC_PRIMITIVES. val) - 1); cdat->dstr_143__MKDOC_PRIMITIVES.val[16] = (char) 0; cdat->dstr_143__MKDOC_PRIMITIVES.slen = 16; /*^iniobj */ /*iniobj dobj_144__MKDOC_PRIMITIVES*/ /*_.VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) & cdat->dobj_144__MKDOC_PRIMITIVES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_144__MKDOC_PRIMITIVES", 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_144__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_144__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_144__MKDOC_PRIMITIVES.obj_num = 1; cdat->dobj_144__MKDOC_PRIMITIVES.obj_hash = 113206899; cdat->dobj_144__MKDOC_PRIMITIVES.obj_len = 4; /*inistring dstr_145__MKDOC_PRIMITIVES*/ /*_.VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) & cdat->dstr_145__MKDOC_PRIMITIVES; cdat->dstr_145__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_145__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (cdat->dstr_145__MKDOC_PRIMITIVES. val) - 1); cdat->dstr_145__MKDOC_PRIMITIVES.val[16] = (char) 0; cdat->dstr_145__MKDOC_PRIMITIVES.slen = 16; /*iniobj dsym_146__MKDOC_FUNCTIONS*/ /*uniqueobj*/ if (! /*_.VALDATA___V255*/ meltfptr[254]) /*_.VALDATA___V255*/ meltfptr[254] = (melt_ptr_t) & cdat->dsym_146__MKDOC_FUNCTIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_146__MKDOC_FUNCTIONS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_146__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_146__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_146__MKDOC_FUNCTIONS.obj_hash = 247154639; cdat->dsym_146__MKDOC_FUNCTIONS.obj_len = 3; /*inistring dstr_147__MKDOC_FUNCTIONS*/ /*_.VALSTR___V256*/ meltfptr[255] = (melt_ptr_t) & cdat->dstr_147__MKDOC_FUNCTIONS; cdat->dstr_147__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_147__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (cdat->dstr_147__MKDOC_FUNCTIONS.val) - 1); cdat->dstr_147__MKDOC_FUNCTIONS.val[15] = (char) 0; cdat->dstr_147__MKDOC_FUNCTIONS.slen = 15; /*^iniobj */ /*iniobj dobj_148__MKDOC_FUNCTIONS*/ /*_.VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) & cdat->dobj_148__MKDOC_FUNCTIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_148__MKDOC_FUNCTIONS", 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_148__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_148__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_148__MKDOC_FUNCTIONS.obj_num = 2; cdat->dobj_148__MKDOC_FUNCTIONS.obj_hash = 784689328; cdat->dobj_148__MKDOC_FUNCTIONS.obj_len = 4; /*inistring dstr_149__MKDOC_FUNCTIONS*/ /*_.VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) & cdat->dstr_149__MKDOC_FUNCTIONS; cdat->dstr_149__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_149__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (cdat->dstr_149__MKDOC_FUNCTIONS.val) - 1); cdat->dstr_149__MKDOC_FUNCTIONS.val[15] = (char) 0; cdat->dstr_149__MKDOC_FUNCTIONS.slen = 15; /*iniobj dsym_150__MKDOC_CITERATORS*/ /*uniqueobj*/ if (! /*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (melt_ptr_t) & cdat->dsym_150__MKDOC_CITERATORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_150__MKDOC_CITERATORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_150__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_150__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_150__MKDOC_CITERATORS.obj_hash = 721902174; cdat->dsym_150__MKDOC_CITERATORS.obj_len = 3; /*inistring dstr_151__MKDOC_CITERATORS*/ /*_.VALSTR___V258*/ meltfptr[257] = (melt_ptr_t) & cdat->dstr_151__MKDOC_CITERATORS; cdat->dstr_151__MKDOC_CITERATORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_151__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (cdat->dstr_151__MKDOC_CITERATORS. val) - 1); cdat->dstr_151__MKDOC_CITERATORS.val[16] = (char) 0; cdat->dstr_151__MKDOC_CITERATORS.slen = 16; /*^iniobj */ /*iniobj dobj_152__MKDOC_CITERATORS*/ /*_.VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) & cdat->dobj_152__MKDOC_CITERATORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_152__MKDOC_CITERATORS", 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_152__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_152__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_152__MKDOC_CITERATORS.obj_num = 3; cdat->dobj_152__MKDOC_CITERATORS.obj_hash = 902827880; cdat->dobj_152__MKDOC_CITERATORS.obj_len = 4; /*inistring dstr_153__MKDOC_CITERATORS*/ /*_.VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) & cdat->dstr_153__MKDOC_CITERATORS; cdat->dstr_153__MKDOC_CITERATORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_153__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (cdat->dstr_153__MKDOC_CITERATORS. val) - 1); cdat->dstr_153__MKDOC_CITERATORS.val[16] = (char) 0; cdat->dstr_153__MKDOC_CITERATORS.slen = 16; /*iniobj dsym_154__MKDOC_CMATCHERS*/ /*uniqueobj*/ if (! /*_.VALDATA___V259*/ meltfptr[258]) /*_.VALDATA___V259*/ meltfptr[258] = (melt_ptr_t) & cdat->dsym_154__MKDOC_CMATCHERS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_154__MKDOC_CMATCHERS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_154__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_154__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_154__MKDOC_CMATCHERS.obj_hash = 75005304; cdat->dsym_154__MKDOC_CMATCHERS.obj_len = 3; /*inistring dstr_155__MKDOC_CMATCHERS*/ /*_.VALSTR___V260*/ meltfptr[259] = (melt_ptr_t) & cdat->dstr_155__MKDOC_CMATCHERS; cdat->dstr_155__MKDOC_CMATCHERS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_155__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (cdat->dstr_155__MKDOC_CMATCHERS.val) - 1); cdat->dstr_155__MKDOC_CMATCHERS.val[15] = (char) 0; cdat->dstr_155__MKDOC_CMATCHERS.slen = 15; /*^iniobj */ /*iniobj dobj_156__MKDOC_CMATCHERS*/ /*_.VALDATA___V228*/ meltfptr[227] = (melt_ptr_t) & cdat->dobj_156__MKDOC_CMATCHERS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_156__MKDOC_CMATCHERS", 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_156__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_156__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_156__MKDOC_CMATCHERS.obj_num = 4; cdat->dobj_156__MKDOC_CMATCHERS.obj_hash = 280853299; cdat->dobj_156__MKDOC_CMATCHERS.obj_len = 4; /*inistring dstr_157__MKDOC_CMATCHERS*/ /*_.VALSTR___V229*/ meltfptr[228] = (melt_ptr_t) & cdat->dstr_157__MKDOC_CMATCHERS; cdat->dstr_157__MKDOC_CMATCHERS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_157__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (cdat->dstr_157__MKDOC_CMATCHERS.val) - 1); cdat->dstr_157__MKDOC_CMATCHERS.val[15] = (char) 0; cdat->dstr_157__MKDOC_CMATCHERS.slen = 15; /*iniobj dsym_158__MKDOC_SELECTORS*/ /*uniqueobj*/ if (! /*_.VALDATA___V261*/ meltfptr[260]) /*_.VALDATA___V261*/ meltfptr[260] = (melt_ptr_t) & cdat->dsym_158__MKDOC_SELECTORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_158__MKDOC_SELECTORS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_158__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_158__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_158__MKDOC_SELECTORS.obj_hash = 360893471; cdat->dsym_158__MKDOC_SELECTORS.obj_len = 3; /*inistring dstr_159__MKDOC_SELECTORS*/ /*_.VALSTR___V262*/ meltfptr[261] = (melt_ptr_t) & cdat->dstr_159__MKDOC_SELECTORS; cdat->dstr_159__MKDOC_SELECTORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_159__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (cdat->dstr_159__MKDOC_SELECTORS.val) - 1); cdat->dstr_159__MKDOC_SELECTORS.val[15] = (char) 0; cdat->dstr_159__MKDOC_SELECTORS.slen = 15; /*^iniobj */ /*iniobj dobj_160__MKDOC_SELECTORS*/ /*_.VALDATA___V230*/ meltfptr[229] = (melt_ptr_t) & cdat->dobj_160__MKDOC_SELECTORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_160__MKDOC_SELECTORS", 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_160__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_160__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_160__MKDOC_SELECTORS.obj_num = 5; cdat->dobj_160__MKDOC_SELECTORS.obj_hash = 647948259; cdat->dobj_160__MKDOC_SELECTORS.obj_len = 4; /*inistring dstr_161__MKDOC_SELECTORS*/ /*_.VALSTR___V231*/ meltfptr[230] = (melt_ptr_t) & cdat->dstr_161__MKDOC_SELECTORS; cdat->dstr_161__MKDOC_SELECTORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_161__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (cdat->dstr_161__MKDOC_SELECTORS.val) - 1); cdat->dstr_161__MKDOC_SELECTORS.val[15] = (char) 0; cdat->dstr_161__MKDOC_SELECTORS.slen = 15; /*iniobj dsym_162__MKDOC_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V263*/ meltfptr[262]) /*_.VALDATA___V263*/ meltfptr[262] = (melt_ptr_t) & cdat->dsym_162__MKDOC_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_162__MKDOC_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_162__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_162__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_162__MKDOC_FIELDS.obj_hash = 896623907; cdat->dsym_162__MKDOC_FIELDS.obj_len = 3; /*inistring dstr_163__MKDOC_FIELDS*/ /*_.VALSTR___V264*/ meltfptr[263] = (melt_ptr_t) & cdat->dstr_163__MKDOC_FIELDS; cdat->dstr_163__MKDOC_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_163__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (cdat->dstr_163__MKDOC_FIELDS.val) - 1); cdat->dstr_163__MKDOC_FIELDS.val[12] = (char) 0; cdat->dstr_163__MKDOC_FIELDS.slen = 12; /*^iniobj */ /*iniobj dobj_164__MKDOC_FIELDS*/ /*_.VALDATA___V232*/ meltfptr[231] = (melt_ptr_t) & cdat->dobj_164__MKDOC_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_164__MKDOC_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_164__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_164__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_164__MKDOC_FIELDS.obj_num = 6; cdat->dobj_164__MKDOC_FIELDS.obj_hash = 733531769; cdat->dobj_164__MKDOC_FIELDS.obj_len = 4; /*inistring dstr_165__MKDOC_FIELDS*/ /*_.VALSTR___V233*/ meltfptr[232] = (melt_ptr_t) & cdat->dstr_165__MKDOC_FIELDS; cdat->dstr_165__MKDOC_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_165__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (cdat->dstr_165__MKDOC_FIELDS.val) - 1); cdat->dstr_165__MKDOC_FIELDS.val[12] = (char) 0; cdat->dstr_165__MKDOC_FIELDS.slen = 12; /*iniobj dsym_166__MKDOC_CLASSES*/ /*uniqueobj*/ if (! /*_.VALDATA___V265*/ meltfptr[264]) /*_.VALDATA___V265*/ meltfptr[264] = (melt_ptr_t) & cdat->dsym_166__MKDOC_CLASSES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_166__MKDOC_CLASSES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_166__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_166__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_166__MKDOC_CLASSES.obj_hash = 333195267; cdat->dsym_166__MKDOC_CLASSES.obj_len = 3; /*inistring dstr_167__MKDOC_CLASSES*/ /*_.VALSTR___V266*/ meltfptr[265] = (melt_ptr_t) & cdat->dstr_167__MKDOC_CLASSES; cdat->dstr_167__MKDOC_CLASSES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_167__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (cdat->dstr_167__MKDOC_CLASSES.val) - 1); cdat->dstr_167__MKDOC_CLASSES.val[13] = (char) 0; cdat->dstr_167__MKDOC_CLASSES.slen = 13; /*^iniobj */ /*iniobj dobj_168__MKDOC_CLASSES*/ /*_.VALDATA___V234*/ meltfptr[233] = (melt_ptr_t) & cdat->dobj_168__MKDOC_CLASSES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_168__MKDOC_CLASSES", 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_168__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_168__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_168__MKDOC_CLASSES.obj_num = 7; cdat->dobj_168__MKDOC_CLASSES.obj_hash = 529684551; cdat->dobj_168__MKDOC_CLASSES.obj_len = 4; /*inistring dstr_169__MKDOC_CLASSES*/ /*_.VALSTR___V235*/ meltfptr[234] = (melt_ptr_t) & cdat->dstr_169__MKDOC_CLASSES; cdat->dstr_169__MKDOC_CLASSES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_169__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (cdat->dstr_169__MKDOC_CLASSES.val) - 1); cdat->dstr_169__MKDOC_CLASSES.val[13] = (char) 0; cdat->dstr_169__MKDOC_CLASSES.slen = 13; /*iniobj dsym_170__MKDOC_INSTANCES*/ /*uniqueobj*/ if (! /*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (melt_ptr_t) & cdat->dsym_170__MKDOC_INSTANCES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_170__MKDOC_INSTANCES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_170__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_170__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_170__MKDOC_INSTANCES.obj_hash = 1005424692; cdat->dsym_170__MKDOC_INSTANCES.obj_len = 3; /*inistring dstr_171__MKDOC_INSTANCES*/ /*_.VALSTR___V268*/ meltfptr[267] = (melt_ptr_t) & cdat->dstr_171__MKDOC_INSTANCES; cdat->dstr_171__MKDOC_INSTANCES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_171__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (cdat->dstr_171__MKDOC_INSTANCES.val) - 1); cdat->dstr_171__MKDOC_INSTANCES.val[15] = (char) 0; cdat->dstr_171__MKDOC_INSTANCES.slen = 15; /*^iniobj */ /*iniobj dobj_172__MKDOC_INSTANCES*/ /*_.VALDATA___V236*/ meltfptr[235] = (melt_ptr_t) & cdat->dobj_172__MKDOC_INSTANCES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_172__MKDOC_INSTANCES", 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_172__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_172__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_172__MKDOC_INSTANCES.obj_num = 8; cdat->dobj_172__MKDOC_INSTANCES.obj_hash = 2677325; cdat->dobj_172__MKDOC_INSTANCES.obj_len = 4; /*inistring dstr_173__MKDOC_INSTANCES*/ /*_.VALSTR___V237*/ meltfptr[236] = (melt_ptr_t) & cdat->dstr_173__MKDOC_INSTANCES; cdat->dstr_173__MKDOC_INSTANCES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_173__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (cdat->dstr_173__MKDOC_INSTANCES.val) - 1); cdat->dstr_173__MKDOC_INSTANCES.val[15] = (char) 0; cdat->dstr_173__MKDOC_INSTANCES.slen = 15; /*iniobj dsym_174__MKDOC_MACROS*/ /*uniqueobj*/ if (! /*_.VALDATA___V269*/ meltfptr[268]) /*_.VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) & cdat->dsym_174__MKDOC_MACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_174__MKDOC_MACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_174__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_174__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_174__MKDOC_MACROS.obj_hash = 422260974; cdat->dsym_174__MKDOC_MACROS.obj_len = 3; /*inistring dstr_175__MKDOC_MACROS*/ /*_.VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) & cdat->dstr_175__MKDOC_MACROS; cdat->dstr_175__MKDOC_MACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_175__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (cdat->dstr_175__MKDOC_MACROS.val) - 1); cdat->dstr_175__MKDOC_MACROS.val[12] = (char) 0; cdat->dstr_175__MKDOC_MACROS.slen = 12; /*^iniobj */ /*iniobj dobj_176__MKDOC_MACROS*/ /*_.VALDATA___V238*/ meltfptr[237] = (melt_ptr_t) & cdat->dobj_176__MKDOC_MACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_176__MKDOC_MACROS", 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_176__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_176__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_176__MKDOC_MACROS.obj_num = 9; cdat->dobj_176__MKDOC_MACROS.obj_hash = 594360340; cdat->dobj_176__MKDOC_MACROS.obj_len = 4; /*inistring dstr_177__MKDOC_MACROS*/ /*_.VALSTR___V239*/ meltfptr[238] = (melt_ptr_t) & cdat->dstr_177__MKDOC_MACROS; cdat->dstr_177__MKDOC_MACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_177__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (cdat->dstr_177__MKDOC_MACROS.val) - 1); cdat->dstr_177__MKDOC_MACROS.val[12] = (char) 0; cdat->dstr_177__MKDOC_MACROS.slen = 12; /*iniobj dsym_178__MKDOC_PATMACROS*/ /*uniqueobj*/ if (! /*_.VALDATA___V271*/ meltfptr[270]) /*_.VALDATA___V271*/ meltfptr[270] = (melt_ptr_t) & cdat->dsym_178__MKDOC_PATMACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_178__MKDOC_PATMACROS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_178__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_178__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_178__MKDOC_PATMACROS.obj_hash = 443350062; cdat->dsym_178__MKDOC_PATMACROS.obj_len = 3; /*inistring dstr_179__MKDOC_PATMACROS*/ /*_.VALSTR___V272*/ meltfptr[271] = (melt_ptr_t) & cdat->dstr_179__MKDOC_PATMACROS; cdat->dstr_179__MKDOC_PATMACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_179__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (cdat->dstr_179__MKDOC_PATMACROS.val) - 1); cdat->dstr_179__MKDOC_PATMACROS.val[15] = (char) 0; cdat->dstr_179__MKDOC_PATMACROS.slen = 15; /*^iniobj */ /*iniobj dobj_180__MKDOC_PATMACROS*/ /*_.VALDATA___V240*/ meltfptr[239] = (melt_ptr_t) & cdat->dobj_180__MKDOC_PATMACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_180__MKDOC_PATMACROS", 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_180__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_180__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_180__MKDOC_PATMACROS.obj_num = 10; cdat->dobj_180__MKDOC_PATMACROS.obj_hash = 499892805; cdat->dobj_180__MKDOC_PATMACROS.obj_len = 4; /*inistring dstr_181__MKDOC_PATMACROS*/ /*_.VALSTR___V241*/ meltfptr[240] = (melt_ptr_t) & cdat->dstr_181__MKDOC_PATMACROS; cdat->dstr_181__MKDOC_PATMACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_181__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (cdat->dstr_181__MKDOC_PATMACROS.val) - 1); cdat->dstr_181__MKDOC_PATMACROS.val[15] = (char) 0; cdat->dstr_181__MKDOC_PATMACROS.slen = 15; /*iniobj dsym_182__MKDOC_FORMALOCCMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V273*/ meltfptr[272]) /*_.VALDATA___V273*/ meltfptr[272] = (melt_ptr_t) & cdat->dsym_182__MKDOC_FORMALOCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_182__MKDOC_FORMALOCCMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_182__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_182__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_182__MKDOC_FORMALOCCMAP.obj_hash = 863623674; cdat->dsym_182__MKDOC_FORMALOCCMAP.obj_len = 3; /*inistring dstr_183__MKDOC_FORMALOCCM*/ /*_.VALSTR___V274*/ meltfptr[273] = (melt_ptr_t) & cdat->dstr_183__MKDOC_FORMALOCCM; cdat->dstr_183__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_183__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof (cdat->dstr_183__MKDOC_FORMALOCCM. val) - 1); cdat->dstr_183__MKDOC_FORMALOCCM.val[18] = (char) 0; cdat->dstr_183__MKDOC_FORMALOCCM.slen = 18; /*^iniobj */ /*iniobj dobj_184__MKDOC_FORMALOCCMAP*/ /*_.VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) & cdat->dobj_184__MKDOC_FORMALOCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_184__MKDOC_FORMALOCCMAP", 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_184__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_184__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_184__MKDOC_FORMALOCCMAP.obj_num = 11; cdat->dobj_184__MKDOC_FORMALOCCMAP.obj_hash = 268873609; cdat->dobj_184__MKDOC_FORMALOCCMAP.obj_len = 4; /*inistring dstr_185__MKDOC_FORMALOCCM*/ /*_.VALSTR___V243*/ meltfptr[242] = (melt_ptr_t) & cdat->dstr_185__MKDOC_FORMALOCCM; cdat->dstr_185__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_185__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof (cdat->dstr_185__MKDOC_FORMALOCCM. val) - 1); cdat->dstr_185__MKDOC_FORMALOCCM.val[18] = (char) 0; cdat->dstr_185__MKDOC_FORMALOCCM.slen = 18; /*iniobj dsym_186__MKDOC_PREDEFMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V275*/ meltfptr[274]) /*_.VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) & cdat->dsym_186__MKDOC_PREDEFMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_186__MKDOC_PREDEFMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_186__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_186__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_186__MKDOC_PREDEFMAP.obj_hash = 973470356; cdat->dsym_186__MKDOC_PREDEFMAP.obj_len = 3; /*inistring dstr_187__MKDOC_PREDEFMAP*/ /*_.VALSTR___V276*/ meltfptr[275] = (melt_ptr_t) & cdat->dstr_187__MKDOC_PREDEFMAP; cdat->dstr_187__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_187__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (cdat->dstr_187__MKDOC_PREDEFMAP.val) - 1); cdat->dstr_187__MKDOC_PREDEFMAP.val[15] = (char) 0; cdat->dstr_187__MKDOC_PREDEFMAP.slen = 15; /*^iniobj */ /*iniobj dobj_188__MKDOC_PREDEFMAP*/ /*_.VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) & cdat->dobj_188__MKDOC_PREDEFMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_188__MKDOC_PREDEFMAP", 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_188__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_188__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_188__MKDOC_PREDEFMAP.obj_num = 12; cdat->dobj_188__MKDOC_PREDEFMAP.obj_hash = 816330032; cdat->dobj_188__MKDOC_PREDEFMAP.obj_len = 4; /*inistring dstr_189__MKDOC_PREDEFMAP*/ /*_.VALSTR___V245*/ meltfptr[244] = (melt_ptr_t) & cdat->dstr_189__MKDOC_PREDEFMAP; cdat->dstr_189__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_189__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (cdat->dstr_189__MKDOC_PREDEFMAP.val) - 1); cdat->dstr_189__MKDOC_PREDEFMAP.val[15] = (char) 0; cdat->dstr_189__MKDOC_PREDEFMAP.slen = 15; /*iniobj dsym_190__MKDOC_DOCSYMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V277*/ meltfptr[276]) /*_.VALDATA___V277*/ meltfptr[276] = (melt_ptr_t) & cdat->dsym_190__MKDOC_DOCSYMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_190__MKDOC_DOCSYMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_190__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_190__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_190__MKDOC_DOCSYMAP.obj_hash = 1068743696; cdat->dsym_190__MKDOC_DOCSYMAP.obj_len = 3; /*inistring dstr_191__MKDOC_DOCSYMAP*/ /*_.VALSTR___V278*/ meltfptr[277] = (melt_ptr_t) & cdat->dstr_191__MKDOC_DOCSYMAP; cdat->dstr_191__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_191__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (cdat->dstr_191__MKDOC_DOCSYMAP.val) - 1); cdat->dstr_191__MKDOC_DOCSYMAP.val[14] = (char) 0; cdat->dstr_191__MKDOC_DOCSYMAP.slen = 14; /*^iniobj */ /*iniobj dobj_192__MKDOC_DOCSYMAP*/ /*_.VALDATA___V246*/ meltfptr[245] = (melt_ptr_t) & cdat->dobj_192__MKDOC_DOCSYMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_192__MKDOC_DOCSYMAP", 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_192__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_192__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_192__MKDOC_DOCSYMAP.obj_num = 13; cdat->dobj_192__MKDOC_DOCSYMAP.obj_hash = 991121763; cdat->dobj_192__MKDOC_DOCSYMAP.obj_len = 4; /*inistring dstr_193__MKDOC_DOCSYMAP*/ /*_.VALSTR___V247*/ meltfptr[246] = (melt_ptr_t) & cdat->dstr_193__MKDOC_DOCSYMAP; cdat->dstr_193__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_193__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (cdat->dstr_193__MKDOC_DOCSYMAP.val) - 1); cdat->dstr_193__MKDOC_DOCSYMAP.val[14] = (char) 0; cdat->dstr_193__MKDOC_DOCSYMAP.slen = 14; /*iniobj dsym_194__MKDOC_SUBCLASSMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V279*/ meltfptr[278]) /*_.VALDATA___V279*/ meltfptr[278] = (melt_ptr_t) & cdat->dsym_194__MKDOC_SUBCLASSMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_194__MKDOC_SUBCLASSMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_194__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_194__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_194__MKDOC_SUBCLASSMAP.obj_hash = 814093375; cdat->dsym_194__MKDOC_SUBCLASSMAP.obj_len = 3; /*inistring dstr_195__MKDOC_SUBCLASSMA*/ /*_.VALSTR___V280*/ meltfptr[279] = (melt_ptr_t) & cdat->dstr_195__MKDOC_SUBCLASSMA; cdat->dstr_195__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_195__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof (cdat->dstr_195__MKDOC_SUBCLASSMA. val) - 1); cdat->dstr_195__MKDOC_SUBCLASSMA.val[17] = (char) 0; cdat->dstr_195__MKDOC_SUBCLASSMA.slen = 17; /*^iniobj */ /*iniobj dobj_196__MKDOC_SUBCLASSMAP*/ /*_.VALDATA___V248*/ meltfptr[247] = (melt_ptr_t) & cdat->dobj_196__MKDOC_SUBCLASSMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_196__MKDOC_SUBCLASSMAP", 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_196__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_196__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_196__MKDOC_SUBCLASSMAP.obj_num = 14; cdat->dobj_196__MKDOC_SUBCLASSMAP.obj_hash = 994742699; cdat->dobj_196__MKDOC_SUBCLASSMAP.obj_len = 4; /*inistring dstr_197__MKDOC_SUBCLASSMA*/ /*_.VALSTR___V249*/ meltfptr[248] = (melt_ptr_t) & cdat->dstr_197__MKDOC_SUBCLASSMA; cdat->dstr_197__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_197__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof (cdat->dstr_197__MKDOC_SUBCLASSMA. val) - 1); cdat->dstr_197__MKDOC_SUBCLASSMA.val[17] = (char) 0; cdat->dstr_197__MKDOC_SUBCLASSMA.slen = 17; /*iniobj dsym_198__MKDOC_BOXCOUNTER*/ /*uniqueobj*/ if (! /*_.VALDATA___V281*/ meltfptr[280]) /*_.VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) & cdat->dsym_198__MKDOC_BOXCOUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_198__MKDOC_BOXCOUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_198__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_198__MKDOC_BOXCOUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_198__MKDOC_BOXCOUNTER.obj_hash = 6048860; cdat->dsym_198__MKDOC_BOXCOUNTER.obj_len = 3; /*inistring dstr_199__MKDOC_BOXCOUNTER*/ /*_.VALSTR___V282*/ meltfptr[281] = (melt_ptr_t) & cdat->dstr_199__MKDOC_BOXCOUNTER; cdat->dstr_199__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_199__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (cdat->dstr_199__MKDOC_BOXCOUNTER. val) - 1); cdat->dstr_199__MKDOC_BOXCOUNTER.val[16] = (char) 0; cdat->dstr_199__MKDOC_BOXCOUNTER.slen = 16; /*^iniobj */ /*iniobj dobj_200__MKDOC_BOXCOUNTER*/ /*_.VALDATA___V250*/ meltfptr[249] = (melt_ptr_t) & cdat->dobj_200__MKDOC_BOXCOUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_200__MKDOC_BOXCOUNTER", 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_200__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_200__MKDOC_BOXCOUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_200__MKDOC_BOXCOUNTER.obj_num = 15; cdat->dobj_200__MKDOC_BOXCOUNTER.obj_hash = 392613572; cdat->dobj_200__MKDOC_BOXCOUNTER.obj_len = 4; /*inistring dstr_201__MKDOC_BOXCOUNTER*/ /*_.VALSTR___V251*/ meltfptr[250] = (melt_ptr_t) & cdat->dstr_201__MKDOC_BOXCOUNTER; cdat->dstr_201__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_201__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (cdat->dstr_201__MKDOC_BOXCOUNTER. val) - 1); cdat->dstr_201__MKDOC_BOXCOUNTER.val[16] = (char) 0; cdat->dstr_201__MKDOC_BOXCOUNTER.slen = 16; /*inirout drout_202__INCREMENT_MKDOC_COUNTER */ /*_.VALROUT___V283*/ meltfptr[282] = (melt_ptr_t) & cdat->drout_202__INCREMENT_MKDOC_COUNTER; cdat->drout_202__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_202__INCREMENT_MKDOC_COUNTER.routdescr, "INCREMENT_MKDOC_COUNTER @warmelt-modes.melt:476", MELT_ROUTDESCR_LEN - 1); cdat->drout_202__INCREMENT_MKDOC_COUNTER.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_202__INCREMENT_MKDOC_COUNTER, meltrout_13_warmelt_modes_INCREMENT_MKDOC_COUNTER); /*iniclos dclo_203__INCREMENT_MKDOC_COUNTER */ /*_.VALCLO___V284*/ meltfptr[283] = (melt_ptr_t) & cdat->dclo_203__INCREMENT_MKDOC_COUNTER; cdat->dclo_203__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_203__INCREMENT_MKDOC_COUNTER.nbval = 0; /*inirout drout_204__MAKEDOC_SCANINPUT */ /*_.VALROUT___V285*/ meltfptr[284] = (melt_ptr_t) & cdat->drout_204__MAKEDOC_SCANINPUT; cdat->drout_204__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_204__MAKEDOC_SCANINPUT.routdescr, "MAKEDOC_SCANINPUT @warmelt-modes.melt:486", MELT_ROUTDESCR_LEN - 1); cdat->drout_204__MAKEDOC_SCANINPUT.nbval = 32; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_204__MAKEDOC_SCANINPUT, meltrout_14_warmelt_modes_MAKEDOC_SCANINPUT); /*iniclos dclo_205__MAKEDOC_SCANINPUT */ /*_.VALCLO___V290*/ meltfptr[289] = (melt_ptr_t) & cdat->dclo_205__MAKEDOC_SCANINPUT; cdat->dclo_205__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_205__MAKEDOC_SCANINPUT.nbval = 0; /*inirout drout_206__LAMBDA_ */ /*_.VALROUT___V286*/ meltfptr[285] = (melt_ptr_t) & cdat->drout_206__LAMBDA_; cdat->drout_206__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_206__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:493", MELT_ROUTDESCR_LEN - 1); cdat->drout_206__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_206__LAMBDA_, meltrout_15_warmelt_modes_LAMBDA___6__); /*iniobj dsym_207__CLASS_SYMBOL*/ /*uniqueobj*/ if (! /*_.VALDATA___V291*/ meltfptr[290]) /*_.VALDATA___V291*/ meltfptr[290] = (melt_ptr_t) & cdat->dsym_207__CLASS_SYMBOL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_207__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_207__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_207__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_207__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_207__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_208__CLASS_SYMBOL*/ /*_.VALSTR___V292*/ meltfptr[291] = (melt_ptr_t) & cdat->dstr_208__CLASS_SYMBOL; cdat->dstr_208__CLASS_SYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_208__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_208__CLASS_SYMBOL.val) - 1); cdat->dstr_208__CLASS_SYMBOL.val[12] = (char) 0; cdat->dstr_208__CLASS_SYMBOL.slen = 12; /*inirout drout_209__LAMBDA_ */ /*_.VALROUT___V287*/ meltfptr[286] = (melt_ptr_t) & cdat->drout_209__LAMBDA_; cdat->drout_209__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_209__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:506", MELT_ROUTDESCR_LEN - 1); cdat->drout_209__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_209__LAMBDA_, meltrout_16_warmelt_modes_LAMBDA___7__); /*inirout drout_210__LAMBDA_ */ /*_.VALROUT___V288*/ meltfptr[287] = (melt_ptr_t) & cdat->drout_210__LAMBDA_; cdat->drout_210__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_210__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:516", MELT_ROUTDESCR_LEN - 1); cdat->drout_210__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_210__LAMBDA_, meltrout_17_warmelt_modes_LAMBDA___8__); /*iniobj dsym_211__CLASS_FORMAL_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V293*/ meltfptr[292]) /*_.VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) & cdat->dsym_211__CLASS_FORMAL_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_211__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_211__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_211__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_211__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_211__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_212__CLASS_FORMAL_BIN*/ /*_.VALSTR___V294*/ meltfptr[293] = (melt_ptr_t) & cdat->dstr_212__CLASS_FORMAL_BIN; cdat->dstr_212__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_212__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_212__CLASS_FORMAL_BIN. val) - 1); cdat->dstr_212__CLASS_FORMAL_BIN.val[20] = (char) 0; cdat->dstr_212__CLASS_FORMAL_BIN.slen = 20; /*iniobj dsym_213__CLASS_SOURCE_DEFINITION*/ /*uniqueobj*/ if (! /*_.VALDATA___V295*/ meltfptr[294]) /*_.VALDATA___V295*/ meltfptr[294] = (melt_ptr_t) & cdat->dsym_213__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_213__CLASS_SOURCE_DEFINITION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_213__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_213__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_213__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; cdat->dsym_213__CLASS_SOURCE_DEFINITION.obj_len = 3; /*inistring dstr_214__CLASS_SOURCE_DEF*/ /*_.VALSTR___V296*/ meltfptr[295] = (melt_ptr_t) & cdat->dstr_214__CLASS_SOURCE_DEF; cdat->dstr_214__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_214__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_214__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_214__CLASS_SOURCE_DEF.val[23] = (char) 0; cdat->dstr_214__CLASS_SOURCE_DEF.slen = 23; /*iniobj dsym_215__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) & cdat->dsym_215__CLASS_ANY_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_215__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_215__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_215__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_215__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_215__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_216__CLASS_ANY_BINDIN*/ /*_.VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) & cdat->dstr_216__CLASS_ANY_BINDIN; cdat->dstr_216__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_216__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_216__CLASS_ANY_BINDIN. val) - 1); cdat->dstr_216__CLASS_ANY_BINDIN.val[17] = (char) 0; cdat->dstr_216__CLASS_ANY_BINDIN.slen = 17; /*iniobj dsym_217__DISCR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) & cdat->dsym_217__DISCR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_217__DISCR_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_217__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_217__DISCR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_217__DISCR_LIST.obj_hash = 98407634; cdat->dsym_217__DISCR_LIST.obj_len = 3; /*inistring dstr_218__DISCR_LIST*/ /*_.VALSTR___V300*/ meltfptr[299] = (melt_ptr_t) & cdat->dstr_218__DISCR_LIST; cdat->dstr_218__DISCR_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_218__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_218__DISCR_LIST.val) - 1); cdat->dstr_218__DISCR_LIST.val[10] = (char) 0; cdat->dstr_218__DISCR_LIST.slen = 10; /*iniobj dsym_219__LIST_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V301*/ meltfptr[300]) /*_.VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) & cdat->dsym_219__LIST_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_219__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_219__LIST_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_219__LIST_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_219__LIST_EVERY.obj_hash = 942863429; cdat->dsym_219__LIST_EVERY.obj_len = 3; /*inistring dstr_220__LIST_EVERY*/ /*_.VALSTR___V302*/ meltfptr[301] = (melt_ptr_t) & cdat->dstr_220__LIST_EVERY; cdat->dstr_220__LIST_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_220__LIST_EVERY.val, "LIST_EVERY", sizeof (cdat->dstr_220__LIST_EVERY.val) - 1); cdat->dstr_220__LIST_EVERY.val[10] = (char) 0; cdat->dstr_220__LIST_EVERY.slen = 10; /*inirout drout_221__LAMBDA_ */ /*_.VALROUT___V289*/ meltfptr[288] = (melt_ptr_t) & cdat->drout_221__LAMBDA_; cdat->drout_221__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_221__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:538", MELT_ROUTDESCR_LEN - 1); cdat->drout_221__LAMBDA_.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_221__LAMBDA_, meltrout_18_warmelt_modes_LAMBDA___9__); /*iniobj dsym_222__CLASS_SOURCE_DEFCLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) & cdat->dsym_222__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_222__CLASS_SOURCE_DEFCLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_222__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_222__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_222__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; cdat->dsym_222__CLASS_SOURCE_DEFCLASS.obj_len = 3; /*inistring dstr_223__CLASS_SOURCE_DEF*/ /*_.VALSTR___V304*/ meltfptr[303] = (melt_ptr_t) & cdat->dstr_223__CLASS_SOURCE_DEF; cdat->dstr_223__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_223__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_223__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_223__CLASS_SOURCE_DEF.val[21] = (char) 0; cdat->dstr_223__CLASS_SOURCE_DEF.slen = 21; /*iniobj dsym_224__CLASS_SEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (melt_ptr_t) & cdat->dsym_224__CLASS_SEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_224__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_224__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_224__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_224__CLASS_SEXPR.obj_hash = 53411612; cdat->dsym_224__CLASS_SEXPR.obj_len = 3; /*inistring dstr_225__CLASS_SEXPR*/ /*_.VALSTR___V306*/ meltfptr[305] = (melt_ptr_t) & cdat->dstr_225__CLASS_SEXPR; cdat->dstr_225__CLASS_SEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_225__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (cdat->dstr_225__CLASS_SEXPR.val) - 1); cdat->dstr_225__CLASS_SEXPR.val[11] = (char) 0; cdat->dstr_225__CLASS_SEXPR.slen = 11; /*iniobj dsym_226__CLASS_CLASS_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V307*/ meltfptr[306]) /*_.VALDATA___V307*/ meltfptr[306] = (melt_ptr_t) & cdat->dsym_226__CLASS_CLASS_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_226__CLASS_CLASS_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_226__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_226__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_226__CLASS_CLASS_BINDING.obj_hash = 848133131; cdat->dsym_226__CLASS_CLASS_BINDING.obj_len = 3; /*inistring dstr_227__CLASS_CLASS_BIND*/ /*_.VALSTR___V308*/ meltfptr[307] = (melt_ptr_t) & cdat->dstr_227__CLASS_CLASS_BIND; cdat->dstr_227__CLASS_CLASS_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_227__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof (cdat->dstr_227__CLASS_CLASS_BIND. val) - 1); cdat->dstr_227__CLASS_CLASS_BIND.val[19] = (char) 0; cdat->dstr_227__CLASS_CLASS_BIND.slen = 19; /*iniobj dsym_228__CLASS_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (melt_ptr_t) & cdat->dsym_228__CLASS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_228__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_228__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_228__CLASS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_228__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_228__CLASS_CLASS.obj_len = 3; /*inistring dstr_229__CLASS_CLASS*/ /*_.VALSTR___V310*/ meltfptr[309] = (melt_ptr_t) & cdat->dstr_229__CLASS_CLASS; cdat->dstr_229__CLASS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_229__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_229__CLASS_CLASS.val) - 1); cdat->dstr_229__CLASS_CLASS.val[11] = (char) 0; cdat->dstr_229__CLASS_CLASS.slen = 11; /*iniobj dsym_230__CLASS_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) & cdat->dsym_230__CLASS_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_230__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_230__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_230__CLASS_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_230__CLASS_FIELD.obj_hash = 523073; cdat->dsym_230__CLASS_FIELD.obj_len = 3; /*inistring dstr_231__CLASS_FIELD*/ /*_.VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) & cdat->dstr_231__CLASS_FIELD; cdat->dstr_231__CLASS_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_231__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_231__CLASS_FIELD.val) - 1); cdat->dstr_231__CLASS_FIELD.val[11] = (char) 0; cdat->dstr_231__CLASS_FIELD.slen = 11; /*iniobj dsym_232__CLASS_SOURCE_DEFSELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V313*/ meltfptr[312]) /*_.VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) & cdat->dsym_232__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_232__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_232__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_232__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_232__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; cdat->dsym_232__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; /*inistring dstr_233__CLASS_SOURCE_DEF*/ /*_.VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) & cdat->dstr_233__CLASS_SOURCE_DEF; cdat->dstr_233__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_233__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_233__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_233__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_233__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_234__CLASS_SOURCE_DEFINSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V315*/ meltfptr[314]) /*_.VALDATA___V315*/ meltfptr[314] = (melt_ptr_t) & cdat->dsym_234__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_234__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_234__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_234__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_234__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; cdat->dsym_234__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; /*inistring dstr_235__CLASS_SOURCE_DEF*/ /*_.VALSTR___V316*/ meltfptr[315] = (melt_ptr_t) & cdat->dstr_235__CLASS_SOURCE_DEF; cdat->dstr_235__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_235__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_235__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_235__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_235__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_236__CLASS_SOURCE_DEFPRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V317*/ meltfptr[316]) /*_.VALDATA___V317*/ meltfptr[316] = (melt_ptr_t) & cdat->dsym_236__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_236__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_236__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_236__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_236__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; cdat->dsym_236__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_237__CLASS_SOURCE_DEF*/ /*_.VALSTR___V318*/ meltfptr[317] = (melt_ptr_t) & cdat->dstr_237__CLASS_SOURCE_DEF; cdat->dstr_237__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_237__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_237__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_237__CLASS_SOURCE_DEF.val[25] = (char) 0; cdat->dstr_237__CLASS_SOURCE_DEF.slen = 25; /*iniobj dsym_238__CLASS_SOURCE_DEFUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) & cdat->dsym_238__CLASS_SOURCE_DEFUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_238__CLASS_SOURCE_DEFUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_238__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_238__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_238__CLASS_SOURCE_DEFUN.obj_hash = 872711296; cdat->dsym_238__CLASS_SOURCE_DEFUN.obj_len = 3; /*inistring dstr_239__CLASS_SOURCE_DEF*/ /*_.VALSTR___V320*/ meltfptr[319] = (melt_ptr_t) & cdat->dstr_239__CLASS_SOURCE_DEF; cdat->dstr_239__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_239__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_239__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_239__CLASS_SOURCE_DEF.val[18] = (char) 0; cdat->dstr_239__CLASS_SOURCE_DEF.slen = 18; /*iniobj dsym_240__CLASS_SOURCE_DEFCITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V321*/ meltfptr[320]) /*_.VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) & cdat->dsym_240__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_240__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_240__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_240__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_240__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; cdat->dsym_240__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; /*inistring dstr_241__CLASS_SOURCE_DEF*/ /*_.VALSTR___V322*/ meltfptr[321] = (melt_ptr_t) & cdat->dstr_241__CLASS_SOURCE_DEF; cdat->dstr_241__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_241__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_241__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_241__CLASS_SOURCE_DEF.val[25] = (char) 0; cdat->dstr_241__CLASS_SOURCE_DEF.slen = 25; /*iniobj dsym_242__CLASS_SOURCE_DEFCMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) & cdat->dsym_242__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_242__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_242__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_242__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_242__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; cdat->dsym_242__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_243__CLASS_SOURCE_DEF*/ /*_.VALSTR___V324*/ meltfptr[323] = (melt_ptr_t) & cdat->dstr_243__CLASS_SOURCE_DEF; cdat->dstr_243__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_243__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_243__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_243__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_243__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_244__CLASS_SOURCE_EXPORT_PATMACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V325*/ meltfptr[324]) /*_.VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) & cdat->dsym_244__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_244__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_244__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_244__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_244__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; cdat->dsym_244__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_245__CLASS_SOURCE_EXP*/ /*_.VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) & cdat->dstr_245__CLASS_SOURCE_EXP; cdat->dstr_245__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_245__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_245__CLASS_SOURCE_EXP. val) - 1); cdat->dstr_245__CLASS_SOURCE_EXP.val[28] = (char) 0; cdat->dstr_245__CLASS_SOURCE_EXP.slen = 28; /*iniobj dsym_246__CLASS_SOURCE_EXPORT_MACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V327*/ meltfptr[326]) /*_.VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) & cdat->dsym_246__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_246__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_246__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_246__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_246__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; cdat->dsym_246__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; /*inistring dstr_247__CLASS_SOURCE_EXP*/ /*_.VALSTR___V328*/ meltfptr[327] = (melt_ptr_t) & cdat->dstr_247__CLASS_SOURCE_EXP; cdat->dstr_247__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_247__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_247__CLASS_SOURCE_EXP. val) - 1); cdat->dstr_247__CLASS_SOURCE_EXP.val[25] = (char) 0; cdat->dstr_247__CLASS_SOURCE_EXP.slen = 25; /*inirout drout_248__MAKEDOC_OUTDEFLOC */ /*_.VALROUT___V329*/ meltfptr[328] = (melt_ptr_t) & cdat->drout_248__MAKEDOC_OUTDEFLOC; cdat->drout_248__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_248__MAKEDOC_OUTDEFLOC.routdescr, "MAKEDOC_OUTDEFLOC @warmelt-modes.melt:738", MELT_ROUTDESCR_LEN - 1); cdat->drout_248__MAKEDOC_OUTDEFLOC.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_248__MAKEDOC_OUTDEFLOC, meltrout_19_warmelt_modes_MAKEDOC_OUTDEFLOC); /*iniclos dclo_249__MAKEDOC_OUTDEFLOC */ /*_.VALCLO___V330*/ meltfptr[329] = (melt_ptr_t) & cdat->dclo_249__MAKEDOC_OUTDEFLOC; cdat->dclo_249__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_249__MAKEDOC_OUTDEFLOC.nbval = 0; /*iniobj dsym_250__CLASS_LOCATED*/ /*uniqueobj*/ if (! /*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) & cdat->dsym_250__CLASS_LOCATED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_250__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_250__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_250__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_250__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_250__CLASS_LOCATED.obj_len = 3; /*inistring dstr_251__CLASS_LOCATED*/ /*_.VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) & cdat->dstr_251__CLASS_LOCATED; cdat->dstr_251__CLASS_LOCATED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_251__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_251__CLASS_LOCATED.val) - 1); cdat->dstr_251__CLASS_LOCATED.val[13] = (char) 0; cdat->dstr_251__CLASS_LOCATED.slen = 13; /*inirout drout_252__MAKEDOC_OUTFORMALS */ /*_.VALROUT___V333*/ meltfptr[332] = (melt_ptr_t) & cdat->drout_252__MAKEDOC_OUTFORMALS; cdat->drout_252__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_252__MAKEDOC_OUTFORMALS.routdescr, "MAKEDOC_OUTFORMALS @warmelt-modes.melt:752", MELT_ROUTDESCR_LEN - 1); cdat->drout_252__MAKEDOC_OUTFORMALS.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_252__MAKEDOC_OUTFORMALS, meltrout_20_warmelt_modes_MAKEDOC_OUTFORMALS); /*iniclos dclo_253__MAKEDOC_OUTFORMALS */ /*_.VALCLO___V334*/ meltfptr[333] = (melt_ptr_t) & cdat->dclo_253__MAKEDOC_OUTFORMALS; cdat->dclo_253__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_253__MAKEDOC_OUTFORMALS.nbval = 0; /*iniobj dsym_254__CLASS_QUASI_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V335*/ meltfptr[334]) /*_.VALDATA___V335*/ meltfptr[334] = (melt_ptr_t) & cdat->dsym_254__CLASS_QUASI_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_254__CLASS_QUASI_CTYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_254__CLASS_QUASI_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_254__CLASS_QUASI_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_254__CLASS_QUASI_CTYPE.obj_hash = 680718258; cdat->dsym_254__CLASS_QUASI_CTYPE.obj_len = 3; /*inistring dstr_255__CLASS_QUASI_CTYP*/ /*_.VALSTR___V336*/ meltfptr[335] = (melt_ptr_t) & cdat->dstr_255__CLASS_QUASI_CTYP; cdat->dstr_255__CLASS_QUASI_CTYP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_255__CLASS_QUASI_CTYP.val, "CLASS_QUASI_CTYPE", sizeof (cdat->dstr_255__CLASS_QUASI_CTYP. val) - 1); cdat->dstr_255__CLASS_QUASI_CTYP.val[17] = (char) 0; cdat->dstr_255__CLASS_QUASI_CTYP.slen = 17; /*inirout drout_256__MAKEDOC_OUTDOC */ /*_.VALROUT___V337*/ meltfptr[336] = (melt_ptr_t) & cdat->drout_256__MAKEDOC_OUTDOC; cdat->drout_256__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_256__MAKEDOC_OUTDOC.routdescr, "MAKEDOC_OUTDOC @warmelt-modes.melt:792", MELT_ROUTDESCR_LEN - 1); cdat->drout_256__MAKEDOC_OUTDOC.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_256__MAKEDOC_OUTDOC, meltrout_21_warmelt_modes_MAKEDOC_OUTDOC); /*iniclos dclo_257__MAKEDOC_OUTDOC */ /*_.VALCLO___V338*/ meltfptr[337] = (melt_ptr_t) & cdat->dclo_257__MAKEDOC_OUTDOC; cdat->dclo_257__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_257__MAKEDOC_OUTDOC.nbval = 0; /*inirout drout_258__MAKEDOC_OUTCLASSDEF */ /*_.VALROUT___V339*/ meltfptr[338] = (melt_ptr_t) & cdat->drout_258__MAKEDOC_OUTCLASSDEF; cdat->drout_258__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_258__MAKEDOC_OUTCLASSDEF.routdescr, "MAKEDOC_OUTCLASSDEF @warmelt-modes.melt:828", MELT_ROUTDESCR_LEN - 1); cdat->drout_258__MAKEDOC_OUTCLASSDEF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_258__MAKEDOC_OUTCLASSDEF, meltrout_22_warmelt_modes_MAKEDOC_OUTCLASSDEF); /*iniclos dclo_259__MAKEDOC_OUTCLASSDEF */ /*_.VALCLO___V340*/ meltfptr[339] = (melt_ptr_t) & cdat->dclo_259__MAKEDOC_OUTCLASSDEF; cdat->dclo_259__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_259__MAKEDOC_OUTCLASSDEF.nbval = 0; /*iniobj dsym_260__LIST_TO_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) & cdat->dsym_260__LIST_TO_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_260__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_260__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_260__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_260__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_260__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_261__LIST_TO_MULTIPLE*/ /*_.VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) & cdat->dstr_261__LIST_TO_MULTIPLE; cdat->dstr_261__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_261__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_261__LIST_TO_MULTIPLE. val) - 1); cdat->dstr_261__LIST_TO_MULTIPLE.val[16] = (char) 0; cdat->dstr_261__LIST_TO_MULTIPLE.slen = 16; /*iniobj dsym_262__DISCR_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) & cdat->dsym_262__DISCR_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_262__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_262__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_262__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_262__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_262__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_263__DISCR_MULTIPLE*/ /*_.VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) & cdat->dstr_263__DISCR_MULTIPLE; cdat->dstr_263__DISCR_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_263__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_263__DISCR_MULTIPLE.val) - 1); cdat->dstr_263__DISCR_MULTIPLE.val[14] = (char) 0; cdat->dstr_263__DISCR_MULTIPLE.slen = 14; /*iniobj dsym_264__COMPARE_NAMED_ALPHA*/ /*uniqueobj*/ if (! /*_.VALDATA___V345*/ meltfptr[344]) /*_.VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) & cdat->dsym_264__COMPARE_NAMED_ALPHA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_264__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_264__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_264__COMPARE_NAMED_ALPHA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_264__COMPARE_NAMED_ALPHA.obj_hash = 155514911; cdat->dsym_264__COMPARE_NAMED_ALPHA.obj_len = 3; /*inistring dstr_265__COMPARE_NAMED_AL*/ /*_.VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) & cdat->dstr_265__COMPARE_NAMED_AL; cdat->dstr_265__COMPARE_NAMED_AL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_265__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof (cdat->dstr_265__COMPARE_NAMED_AL. val) - 1); cdat->dstr_265__COMPARE_NAMED_AL.val[19] = (char) 0; cdat->dstr_265__COMPARE_NAMED_AL.slen = 19; /*inirout drout_266__MAKEDOC_GENMACRO */ /*_.VALROUT___V347*/ meltfptr[346] = (melt_ptr_t) & cdat->drout_266__MAKEDOC_GENMACRO; cdat->drout_266__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_266__MAKEDOC_GENMACRO.routdescr, "MAKEDOC_GENMACRO @warmelt-modes.melt:954", MELT_ROUTDESCR_LEN - 1); cdat->drout_266__MAKEDOC_GENMACRO.nbval = 12; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_266__MAKEDOC_GENMACRO, meltrout_23_warmelt_modes_MAKEDOC_GENMACRO); /*iniclos dclo_267__MAKEDOC_GENMACRO */ /*_.VALCLO___V349*/ meltfptr[348] = (melt_ptr_t) & cdat->dclo_267__MAKEDOC_GENMACRO; cdat->dclo_267__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_267__MAKEDOC_GENMACRO.nbval = 0; /*inirout drout_268__LAMBDA_ */ /*_.VALROUT___V348*/ meltfptr[347] = (melt_ptr_t) & cdat->drout_268__LAMBDA_; cdat->drout_268__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_268__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:966", MELT_ROUTDESCR_LEN - 1); cdat->drout_268__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_268__LAMBDA_, meltrout_24_warmelt_modes_LAMBDA___10__); /*inirout drout_269__MAKEDOC_GENPATMACRO */ /*_.VALROUT___V350*/ meltfptr[349] = (melt_ptr_t) & cdat->drout_269__MAKEDOC_GENPATMACRO; cdat->drout_269__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_269__MAKEDOC_GENPATMACRO.routdescr, "MAKEDOC_GENPATMACRO @warmelt-modes.melt:1017", MELT_ROUTDESCR_LEN - 1); cdat->drout_269__MAKEDOC_GENPATMACRO.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_269__MAKEDOC_GENPATMACRO, meltrout_25_warmelt_modes_MAKEDOC_GENPATMACRO); /*iniclos dclo_270__MAKEDOC_GENPATMACRO */ /*_.VALCLO___V352*/ meltfptr[351] = (melt_ptr_t) & cdat->dclo_270__MAKEDOC_GENPATMACRO; cdat->dclo_270__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_270__MAKEDOC_GENPATMACRO.nbval = 0; /*inirout drout_271__LAMBDA_ */ /*_.VALROUT___V351*/ meltfptr[350] = (melt_ptr_t) & cdat->drout_271__LAMBDA_; cdat->drout_271__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_271__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1035", MELT_ROUTDESCR_LEN - 1); cdat->drout_271__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_271__LAMBDA_, meltrout_26_warmelt_modes_LAMBDA___11__); /*inirout drout_272__MAKEDOC_GENCLASS */ /*_.VALROUT___V353*/ meltfptr[352] = (melt_ptr_t) & cdat->drout_272__MAKEDOC_GENCLASS; cdat->drout_272__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_272__MAKEDOC_GENCLASS.routdescr, "MAKEDOC_GENCLASS @warmelt-modes.melt:1085", MELT_ROUTDESCR_LEN - 1); cdat->drout_272__MAKEDOC_GENCLASS.nbval = 21; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_272__MAKEDOC_GENCLASS, meltrout_27_warmelt_modes_MAKEDOC_GENCLASS); /*iniclos dclo_273__MAKEDOC_GENCLASS */ /*_.VALCLO___V361*/ meltfptr[360] = (melt_ptr_t) & cdat->dclo_273__MAKEDOC_GENCLASS; cdat->dclo_273__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_273__MAKEDOC_GENCLASS.nbval = 0; /*iniboxint dint_274__ */ /*_.VALBXINT___V354*/ meltfptr[353] = (melt_ptr_t) & cdat->dint_274__; cdat->dint_274__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_274__.val = 1; /*iniboxint dint_275__ */ /*_.VALBXINT___V355*/ meltfptr[354] = (melt_ptr_t) & cdat->dint_275__; cdat->dint_275__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_275__.val = 0; /*iniboxint dint_276__ */ /*_.VALBXINT___V356*/ meltfptr[355] = (melt_ptr_t) & cdat->dint_276__; cdat->dint_276__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_276__.val = -1; /*inirout drout_277__LAMBDA_ */ /*_.VALROUT___V357*/ meltfptr[356] = (melt_ptr_t) & cdat->drout_277__LAMBDA_; cdat->drout_277__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_277__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1101", MELT_ROUTDESCR_LEN - 1); cdat->drout_277__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_277__LAMBDA_, meltrout_28_warmelt_modes_LAMBDA___12__); /*inirout drout_278__LAMBDA_ */ /*_.VALROUT___V358*/ meltfptr[357] = (melt_ptr_t) & cdat->drout_278__LAMBDA_; cdat->drout_278__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_278__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1106", MELT_ROUTDESCR_LEN - 1); cdat->drout_278__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_278__LAMBDA_, meltrout_29_warmelt_modes_LAMBDA___13__); /*inirout drout_279__LAMBDA_ */ /*_.VALROUT___V359*/ meltfptr[358] = (melt_ptr_t) & cdat->drout_279__LAMBDA_; cdat->drout_279__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1136", MELT_ROUTDESCR_LEN - 1); cdat->drout_279__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_279__LAMBDA_, meltrout_30_warmelt_modes_LAMBDA___14__); /*inirout drout_280__LAMBDA_ */ /*_.VALROUT___V360*/ meltfptr[359] = (melt_ptr_t) & cdat->drout_280__LAMBDA_; cdat->drout_280__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_280__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1159", MELT_ROUTDESCR_LEN - 1); cdat->drout_280__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_280__LAMBDA_, meltrout_31_warmelt_modes_LAMBDA___15__); /*inirout drout_281__MAKEDOC_OUTPRIMITIVEDEF */ /*_.VALROUT___V362*/ meltfptr[361] = (melt_ptr_t) & cdat->drout_281__MAKEDOC_OUTPRIMITIVEDEF; cdat->drout_281__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_281__MAKEDOC_OUTPRIMITIVEDEF.routdescr, "MAKEDOC_OUTPRIMITIVEDEF @warmelt-modes.melt:1212", MELT_ROUTDESCR_LEN - 1); cdat->drout_281__MAKEDOC_OUTPRIMITIVEDEF.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_281__MAKEDOC_OUTPRIMITIVEDEF, meltrout_32_warmelt_modes_MAKEDOC_OUTPRIMITIVEDEF); /*iniclos dclo_282__MAKEDOC_OUTPRIMITIVEDEF */ /*_.VALCLO___V363*/ meltfptr[362] = (melt_ptr_t) & cdat->dclo_282__MAKEDOC_OUTPRIMITIVEDEF; cdat->dclo_282__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_282__MAKEDOC_OUTPRIMITIVEDEF.nbval = 0; /*iniobj dsym_283__CLASS_SOURCE_DEFINITION_FORMAL*/ /*uniqueobj*/ if (! /*_.VALDATA___V364*/ meltfptr[363]) /*_.VALDATA___V364*/ meltfptr[363] = (melt_ptr_t) & cdat->dsym_283__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_283__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_283__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_283__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_283__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; cdat->dsym_283__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; /*inistring dstr_284__CLASS_SOURCE_DEF*/ /*_.VALSTR___V365*/ meltfptr[364] = (melt_ptr_t) & cdat->dstr_284__CLASS_SOURCE_DEF; cdat->dstr_284__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_284__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_284__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_284__CLASS_SOURCE_DEF.val[30] = (char) 0; cdat->dstr_284__CLASS_SOURCE_DEF.slen = 30; /*inirout drout_285__MAKEDOC_GENPRIMITIVE */ /*_.VALROUT___V366*/ meltfptr[365] = (melt_ptr_t) & cdat->drout_285__MAKEDOC_GENPRIMITIVE; cdat->drout_285__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_285__MAKEDOC_GENPRIMITIVE.routdescr, "MAKEDOC_GENPRIMITIVE @warmelt-modes.melt:1243", MELT_ROUTDESCR_LEN - 1); cdat->drout_285__MAKEDOC_GENPRIMITIVE.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_285__MAKEDOC_GENPRIMITIVE, meltrout_33_warmelt_modes_MAKEDOC_GENPRIMITIVE); /*iniclos dclo_286__MAKEDOC_GENPRIMITIVE */ /*_.VALCLO___V368*/ meltfptr[367] = (melt_ptr_t) & cdat->dclo_286__MAKEDOC_GENPRIMITIVE; cdat->dclo_286__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_286__MAKEDOC_GENPRIMITIVE.nbval = 0; /*inirout drout_287__LAMBDA_ */ /*_.VALROUT___V367*/ meltfptr[366] = (melt_ptr_t) & cdat->drout_287__LAMBDA_; cdat->drout_287__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_287__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1262", MELT_ROUTDESCR_LEN - 1); cdat->drout_287__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_287__LAMBDA_, meltrout_34_warmelt_modes_LAMBDA___16__); /*inirout drout_288__MAKEDOC_OUTFUNCTIONDEF */ /*_.VALROUT___V369*/ meltfptr[368] = (melt_ptr_t) & cdat->drout_288__MAKEDOC_OUTFUNCTIONDEF; cdat->drout_288__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_288__MAKEDOC_OUTFUNCTIONDEF.routdescr, "MAKEDOC_OUTFUNCTIONDEF @warmelt-modes.melt:1287", MELT_ROUTDESCR_LEN - 1); cdat->drout_288__MAKEDOC_OUTFUNCTIONDEF.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_288__MAKEDOC_OUTFUNCTIONDEF, meltrout_35_warmelt_modes_MAKEDOC_OUTFUNCTIONDEF); /*iniclos dclo_289__MAKEDOC_OUTFUNCTIONDEF */ /*_.VALCLO___V370*/ meltfptr[369] = (melt_ptr_t) & cdat->dclo_289__MAKEDOC_OUTFUNCTIONDEF; cdat->dclo_289__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_289__MAKEDOC_OUTFUNCTIONDEF.nbval = 0; /*inirout drout_290__MAKEDOC_GENFUNCTION */ /*_.VALROUT___V371*/ meltfptr[370] = (melt_ptr_t) & cdat->drout_290__MAKEDOC_GENFUNCTION; cdat->drout_290__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_290__MAKEDOC_GENFUNCTION.routdescr, "MAKEDOC_GENFUNCTION @warmelt-modes.melt:1313", MELT_ROUTDESCR_LEN - 1); cdat->drout_290__MAKEDOC_GENFUNCTION.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_290__MAKEDOC_GENFUNCTION, meltrout_36_warmelt_modes_MAKEDOC_GENFUNCTION); /*iniclos dclo_291__MAKEDOC_GENFUNCTION */ /*_.VALCLO___V373*/ meltfptr[372] = (melt_ptr_t) & cdat->dclo_291__MAKEDOC_GENFUNCTION; cdat->dclo_291__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_291__MAKEDOC_GENFUNCTION.nbval = 0; /*inirout drout_292__LAMBDA_ */ /*_.VALROUT___V372*/ meltfptr[371] = (melt_ptr_t) & cdat->drout_292__LAMBDA_; cdat->drout_292__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_292__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1325", MELT_ROUTDESCR_LEN - 1); cdat->drout_292__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_292__LAMBDA_, meltrout_37_warmelt_modes_LAMBDA___17__); /*inirout drout_293__MAKEDOC_GENCITERATOR */ /*_.VALROUT___V374*/ meltfptr[373] = (melt_ptr_t) & cdat->drout_293__MAKEDOC_GENCITERATOR; cdat->drout_293__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_293__MAKEDOC_GENCITERATOR.routdescr, "MAKEDOC_GENCITERATOR @warmelt-modes.melt:1348", MELT_ROUTDESCR_LEN - 1); cdat->drout_293__MAKEDOC_GENCITERATOR.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_293__MAKEDOC_GENCITERATOR, meltrout_38_warmelt_modes_MAKEDOC_GENCITERATOR); /*iniclos dclo_294__MAKEDOC_GENCITERATOR */ /*_.VALCLO___V376*/ meltfptr[375] = (melt_ptr_t) & cdat->dclo_294__MAKEDOC_GENCITERATOR; cdat->dclo_294__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_294__MAKEDOC_GENCITERATOR.nbval = 0; /*inirout drout_295__LAMBDA_ */ /*_.VALROUT___V375*/ meltfptr[374] = (melt_ptr_t) & cdat->drout_295__LAMBDA_; cdat->drout_295__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_295__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1361", MELT_ROUTDESCR_LEN - 1); cdat->drout_295__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_295__LAMBDA_, meltrout_39_warmelt_modes_LAMBDA___18__); /*iniobj dsym_296__CLASS_CITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V377*/ meltfptr[376]) /*_.VALDATA___V377*/ meltfptr[376] = (melt_ptr_t) & cdat->dsym_296__CLASS_CITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_296__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_296__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_296__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_296__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_296__CLASS_CITERATOR.obj_len = 3; /*inistring dstr_297__CLASS_CITERATOR*/ /*_.VALSTR___V378*/ meltfptr[377] = (melt_ptr_t) & cdat->dstr_297__CLASS_CITERATOR; cdat->dstr_297__CLASS_CITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_297__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (cdat->dstr_297__CLASS_CITERATOR.val) - 1); cdat->dstr_297__CLASS_CITERATOR.val[15] = (char) 0; cdat->dstr_297__CLASS_CITERATOR.slen = 15; /*inirout drout_298__MAKEDOC_GENCMATCHER */ /*_.VALROUT___V379*/ meltfptr[378] = (melt_ptr_t) & cdat->drout_298__MAKEDOC_GENCMATCHER; cdat->drout_298__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_298__MAKEDOC_GENCMATCHER.routdescr, "MAKEDOC_GENCMATCHER @warmelt-modes.melt:1410", MELT_ROUTDESCR_LEN - 1); cdat->drout_298__MAKEDOC_GENCMATCHER.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_298__MAKEDOC_GENCMATCHER, meltrout_40_warmelt_modes_MAKEDOC_GENCMATCHER); /*iniclos dclo_299__MAKEDOC_GENCMATCHER */ /*_.VALCLO___V381*/ meltfptr[380] = (melt_ptr_t) & cdat->dclo_299__MAKEDOC_GENCMATCHER; cdat->dclo_299__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_299__MAKEDOC_GENCMATCHER.nbval = 0; /*inirout drout_300__LAMBDA_ */ /*_.VALROUT___V380*/ meltfptr[379] = (melt_ptr_t) & cdat->drout_300__LAMBDA_; cdat->drout_300__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_300__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1423", MELT_ROUTDESCR_LEN - 1); cdat->drout_300__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_300__LAMBDA_, meltrout_41_warmelt_modes_LAMBDA___19__); /*iniobj dsym_301__CLASS_ANY_MATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V382*/ meltfptr[381]) /*_.VALDATA___V382*/ meltfptr[381] = (melt_ptr_t) & cdat->dsym_301__CLASS_ANY_MATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_301__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_301__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_301__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_301__CLASS_ANY_MATCHER.obj_hash = 781265508; cdat->dsym_301__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_302__CLASS_ANY_MATCHE*/ /*_.VALSTR___V383*/ meltfptr[382] = (melt_ptr_t) & cdat->dstr_302__CLASS_ANY_MATCHE; cdat->dstr_302__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_302__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_302__CLASS_ANY_MATCHE. val) - 1); cdat->dstr_302__CLASS_ANY_MATCHE.val[17] = (char) 0; cdat->dstr_302__CLASS_ANY_MATCHE.slen = 17; /*inirout drout_303__MAKEDOC_GENOUTPUT */ /*_.VALROUT___V384*/ meltfptr[383] = (melt_ptr_t) & cdat->drout_303__MAKEDOC_GENOUTPUT; cdat->drout_303__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_303__MAKEDOC_GENOUTPUT.routdescr, "MAKEDOC_GENOUTPUT @warmelt-modes.melt:1486", MELT_ROUTDESCR_LEN - 1); cdat->drout_303__MAKEDOC_GENOUTPUT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_303__MAKEDOC_GENOUTPUT, meltrout_42_warmelt_modes_MAKEDOC_GENOUTPUT); /*iniclos dclo_304__MAKEDOC_GENOUTPUT */ /*_.VALCLO___V385*/ meltfptr[384] = (melt_ptr_t) & cdat->dclo_304__MAKEDOC_GENOUTPUT; cdat->dclo_304__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_304__MAKEDOC_GENOUTPUT.nbval = 0; /*iniobj dsym_305__DISCR_STRBUF*/ /*uniqueobj*/ if (! /*_.VALDATA___V386*/ meltfptr[385]) /*_.VALDATA___V386*/ meltfptr[385] = (melt_ptr_t) & cdat->dsym_305__DISCR_STRBUF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_305__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_305__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_305__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_305__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_305__DISCR_STRBUF.obj_len = 3; /*inistring dstr_306__DISCR_STRBUF*/ /*_.VALSTR___V387*/ meltfptr[386] = (melt_ptr_t) & cdat->dstr_306__DISCR_STRBUF; cdat->dstr_306__DISCR_STRBUF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_306__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_306__DISCR_STRBUF.val) - 1); cdat->dstr_306__DISCR_STRBUF.val[12] = (char) 0; cdat->dstr_306__DISCR_STRBUF.slen = 12; /*inirout drout_307__MAKEDOC_DOCMD */ /*_.VALROUT___V388*/ meltfptr[387] = (melt_ptr_t) & cdat->drout_307__MAKEDOC_DOCMD; cdat->drout_307__MAKEDOC_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_307__MAKEDOC_DOCMD.routdescr, "MAKEDOC_DOCMD @warmelt-modes.melt:1569", MELT_ROUTDESCR_LEN - 1); cdat->drout_307__MAKEDOC_DOCMD.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_307__MAKEDOC_DOCMD, meltrout_43_warmelt_modes_MAKEDOC_DOCMD); /*iniclos dclo_308__MAKEDOC_DOCMD */ /*_.VALCLO___V390*/ meltfptr[389] = (melt_ptr_t) & cdat->dclo_308__MAKEDOC_DOCMD; cdat->dclo_308__MAKEDOC_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_308__MAKEDOC_DOCMD.nbval = 0; /*iniobj dsym_309__MELT_MODE_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) & cdat->dsym_309__MELT_MODE_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_309__MELT_MODE_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_309__MELT_MODE_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_309__MELT_MODE_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_309__MELT_MODE_REFERENCE.obj_hash = 1035850925; cdat->dsym_309__MELT_MODE_REFERENCE.obj_len = 3; /*inistring dstr_310__MELT_MODE_REFERE*/ /*_.VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) & cdat->dstr_310__MELT_MODE_REFERE; cdat->dstr_310__MELT_MODE_REFERE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_310__MELT_MODE_REFERE.val, "MELT_MODE_REFERENCE", sizeof (cdat->dstr_310__MELT_MODE_REFERE. val) - 1); cdat->dstr_310__MELT_MODE_REFERE.val[19] = (char) 0; cdat->dstr_310__MELT_MODE_REFERE.slen = 19; /*inirout drout_311__LAMBDA_ */ /*_.VALROUT___V389*/ meltfptr[388] = (melt_ptr_t) & cdat->drout_311__LAMBDA_; cdat->drout_311__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_311__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1609", MELT_ROUTDESCR_LEN - 1); cdat->drout_311__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_311__LAMBDA_, meltrout_44_warmelt_modes_LAMBDA___20__); /*iniobj dsym_312__LIST_APPEND2LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V393*/ meltfptr[392]) /*_.VALDATA___V393*/ meltfptr[392] = (melt_ptr_t) & cdat->dsym_312__LIST_APPEND2LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_312__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_312__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_312__LIST_APPEND2LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_312__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_312__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_313__LIST_APPEND2LIST*/ /*_.VALSTR___V394*/ meltfptr[393] = (melt_ptr_t) & cdat->dstr_313__LIST_APPEND2LIST; cdat->dstr_313__LIST_APPEND2LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_313__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_313__LIST_APPEND2LIST. val) - 1); cdat->dstr_313__LIST_APPEND2LIST.val[16] = (char) 0; cdat->dstr_313__LIST_APPEND2LIST.slen = 16; /*iniobj dsym_314__MACROEXPAND_TOPLEVEL_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V395*/ meltfptr[394]) /*_.VALDATA___V395*/ meltfptr[394] = (melt_ptr_t) & cdat->dsym_314__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_314__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_314__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_314__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_314__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; cdat->dsym_314__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; /*inistring dstr_315__MACROEXPAND_TOPL*/ /*_.VALSTR___V396*/ meltfptr[395] = (melt_ptr_t) & cdat->dstr_315__MACROEXPAND_TOPL; cdat->dstr_315__MACROEXPAND_TOPL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_315__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (cdat->dstr_315__MACROEXPAND_TOPL. val) - 1); cdat->dstr_315__MACROEXPAND_TOPL.val[25] = (char) 0; cdat->dstr_315__MACROEXPAND_TOPL.slen = 25; /*iniobj dsym_316__MACROEXPAND_1*/ /*uniqueobj*/ if (! /*_.VALDATA___V397*/ meltfptr[396]) /*_.VALDATA___V397*/ meltfptr[396] = (melt_ptr_t) & cdat->dsym_316__MACROEXPAND_1; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_316__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_316__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_316__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_316__MACROEXPAND_1.obj_hash = 858793911; cdat->dsym_316__MACROEXPAND_1.obj_len = 3; /*inistring dstr_317__MACROEXPAND_1*/ /*_.VALSTR___V398*/ meltfptr[397] = (melt_ptr_t) & cdat->dstr_317__MACROEXPAND_1; cdat->dstr_317__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_317__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (cdat->dstr_317__MACROEXPAND_1.val) - 1); cdat->dstr_317__MACROEXPAND_1.val[13] = (char) 0; cdat->dstr_317__MACROEXPAND_1.slen = 13; /*iniobj dsym_318__MAKEDOC_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V399*/ meltfptr[398]) /*_.VALDATA___V399*/ meltfptr[398] = (melt_ptr_t) & cdat->dsym_318__MAKEDOC_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_318__MAKEDOC_MODE", melt_magic_discr ((melt_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__MAKEDOC_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_318__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_318__MAKEDOC_MODE.obj_hash = 913116697; cdat->dsym_318__MAKEDOC_MODE.obj_len = 3; /*inistring dstr_319__MAKEDOC_MODE*/ /*_.VALSTR___V400*/ meltfptr[399] = (melt_ptr_t) & cdat->dstr_319__MAKEDOC_MODE; cdat->dstr_319__MAKEDOC_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_319__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof (cdat->dstr_319__MAKEDOC_MODE.val) - 1); cdat->dstr_319__MAKEDOC_MODE.val[12] = (char) 0; cdat->dstr_319__MAKEDOC_MODE.slen = 12; MELT_LOCATION ("warmelt-modes.melt:1635:/ iniobj"); /*iniobj dobj_320__MAKEDOC_MODE*/ /*_.VALDATA___V401*/ meltfptr[400] = (melt_ptr_t) & cdat->dobj_320__MAKEDOC_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_320__MAKEDOC_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_320__MAKEDOC_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_320__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_320__MAKEDOC_MODE.obj_hash = 747540350; cdat->dobj_320__MAKEDOC_MODE.obj_len = 5; /*inistring dstr_321__makedoc*/ /*_.VALSTR___V402*/ meltfptr[401] = (melt_ptr_t) & cdat->dstr_321__makedoc; cdat->dstr_321__makedoc.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_321__makedoc.val, "makedoc", sizeof (cdat->dstr_321__makedoc.val) - 1); cdat->dstr_321__makedoc.val[7] = (char) 0; cdat->dstr_321__makedoc.slen = 7; /*inistring dstr_322__generate_texi_d*/ /*_.VALSTR___V403*/ meltfptr[402] = (melt_ptr_t) & cdat->dstr_322__generate_texi_d; cdat->dstr_322__generate_texi_d.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_322__generate_texi_d.val, "generate .texi documentation from .melt source files;\ \n\n\t ARGLIST= input file, ...; OUTPUT= generated file", sizeof (cdat->dstr_322__generate_texi_d.val) - 1); cdat->dstr_322__generate_texi_d.val[105] = (char) 0; cdat->dstr_322__generate_texi_d.slen = 105; /*inirout drout_323__SHOWVAR_DOCMD */ /*_.VALROUT___V404*/ meltfptr[403] = (melt_ptr_t) & cdat->drout_323__SHOWVAR_DOCMD; cdat->drout_323__SHOWVAR_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_323__SHOWVAR_DOCMD.routdescr, "SHOWVAR_DOCMD @warmelt-modes.melt:1648", MELT_ROUTDESCR_LEN - 1); cdat->drout_323__SHOWVAR_DOCMD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_323__SHOWVAR_DOCMD, meltrout_45_warmelt_modes_SHOWVAR_DOCMD); /*iniclos dclo_324__SHOWVAR_DOCMD */ /*_.VALCLO___V405*/ meltfptr[404] = (melt_ptr_t) & cdat->dclo_324__SHOWVAR_DOCMD; cdat->dclo_324__SHOWVAR_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_324__SHOWVAR_DOCMD.nbval = 0; /*iniobj dsym_325__FIND_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V406*/ meltfptr[405]) /*_.VALDATA___V406*/ meltfptr[405] = (melt_ptr_t) & cdat->dsym_325__FIND_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_325__FIND_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_325__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_325__FIND_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_325__FIND_ENV.obj_hash = 233459738; cdat->dsym_325__FIND_ENV.obj_len = 3; /*inistring dstr_326__FIND_ENV*/ /*_.VALSTR___V407*/ meltfptr[406] = (melt_ptr_t) & cdat->dstr_326__FIND_ENV; cdat->dstr_326__FIND_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_326__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_326__FIND_ENV.val) - 1); cdat->dstr_326__FIND_ENV.val[8] = (char) 0; cdat->dstr_326__FIND_ENV.slen = 8; /*inirout drout_327__HELP_DOCMD */ /*_.VALROUT___V408*/ meltfptr[407] = (melt_ptr_t) & cdat->drout_327__HELP_DOCMD; cdat->drout_327__HELP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_327__HELP_DOCMD.routdescr, "HELP_DOCMD @warmelt-modes.melt:1673", MELT_ROUTDESCR_LEN - 1); cdat->drout_327__HELP_DOCMD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_327__HELP_DOCMD, meltrout_46_warmelt_modes_HELP_DOCMD); /*iniclos dclo_328__HELP_DOCMD */ /*_.VALCLO___V409*/ meltfptr[408] = (melt_ptr_t) & cdat->dclo_328__HELP_DOCMD; cdat->dclo_328__HELP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_328__HELP_DOCMD.nbval = 0; /*iniobj dsym_329__HELP_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V410*/ meltfptr[409]) /*_.VALDATA___V410*/ meltfptr[409] = (melt_ptr_t) & cdat->dsym_329__HELP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_329__HELP_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_329__HELP_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_329__HELP_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_329__HELP_MODE.obj_hash = 475164999; cdat->dsym_329__HELP_MODE.obj_len = 3; /*inistring dstr_330__HELP_MODE*/ /*_.VALSTR___V411*/ meltfptr[410] = (melt_ptr_t) & cdat->dstr_330__HELP_MODE; cdat->dstr_330__HELP_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_330__HELP_MODE.val, "HELP_MODE", sizeof (cdat->dstr_330__HELP_MODE.val) - 1); cdat->dstr_330__HELP_MODE.val[9] = (char) 0; cdat->dstr_330__HELP_MODE.slen = 9; MELT_LOCATION ("warmelt-modes.melt:1726:/ iniobj"); /*iniobj dobj_331__HELP_MODE*/ /*_.VALDATA___V412*/ meltfptr[411] = (melt_ptr_t) & cdat->dobj_331__HELP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_331__HELP_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_331__HELP_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_331__HELP_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_331__HELP_MODE.obj_hash = 120027044; cdat->dobj_331__HELP_MODE.obj_len = 5; /*inistring dstr_332__help*/ /*_.VALSTR___V413*/ meltfptr[412] = (melt_ptr_t) & cdat->dstr_332__help; cdat->dstr_332__help.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_332__help.val, "help", sizeof (cdat->dstr_332__help.val) - 1); cdat->dstr_332__help.val[4] = (char) 0; cdat->dstr_332__help.slen = 4; /*inistring dstr_333__MELT_help_about_*/ /*_.VALSTR___V414*/ meltfptr[413] = (melt_ptr_t) & cdat->dstr_333__MELT_help_about_; cdat->dstr_333__MELT_help_about_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_333__MELT_help_about_.val, "MELT help about available modes.", sizeof (cdat->dstr_333__MELT_help_about_. val) - 1); cdat->dstr_333__MELT_help_about_.val[32] = (char) 0; cdat->dstr_333__MELT_help_about_.slen = 32; /*inirout drout_334__NOP_DOCMD */ /*_.VALROUT___V415*/ meltfptr[414] = (melt_ptr_t) & cdat->drout_334__NOP_DOCMD; cdat->drout_334__NOP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_334__NOP_DOCMD.routdescr, "NOP_DOCMD @warmelt-modes.melt:1735", MELT_ROUTDESCR_LEN - 1); cdat->drout_334__NOP_DOCMD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_334__NOP_DOCMD, meltrout_47_warmelt_modes_NOP_DOCMD); /*iniclos dclo_335__NOP_DOCMD */ /*_.VALCLO___V416*/ meltfptr[415] = (melt_ptr_t) & cdat->dclo_335__NOP_DOCMD; cdat->dclo_335__NOP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_335__NOP_DOCMD.nbval = 0; /*iniobj dsym_336__NOP_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V417*/ meltfptr[416]) /*_.VALDATA___V417*/ meltfptr[416] = (melt_ptr_t) & cdat->dsym_336__NOP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_336__NOP_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_336__NOP_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_336__NOP_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_336__NOP_MODE.obj_hash = 441820775; cdat->dsym_336__NOP_MODE.obj_len = 3; /*inistring dstr_337__NOP_MODE*/ /*_.VALSTR___V418*/ meltfptr[417] = (melt_ptr_t) & cdat->dstr_337__NOP_MODE; cdat->dstr_337__NOP_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_337__NOP_MODE.val, "NOP_MODE", sizeof (cdat->dstr_337__NOP_MODE.val) - 1); cdat->dstr_337__NOP_MODE.val[8] = (char) 0; cdat->dstr_337__NOP_MODE.slen = 8; MELT_LOCATION ("warmelt-modes.melt:1740:/ iniobj"); /*iniobj dobj_338__NOP_MODE*/ /*_.VALDATA___V419*/ meltfptr[418] = (melt_ptr_t) & cdat->dobj_338__NOP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_338__NOP_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_338__NOP_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_338__NOP_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_338__NOP_MODE.obj_hash = 786283715; cdat->dobj_338__NOP_MODE.obj_len = 5; /*inistring dstr_339__nop*/ /*_.VALSTR___V420*/ meltfptr[419] = (melt_ptr_t) & cdat->dstr_339__nop; cdat->dstr_339__nop.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_339__nop.val, "nop", sizeof (cdat->dstr_339__nop.val) - 1); cdat->dstr_339__nop.val[3] = (char) 0; cdat->dstr_339__nop.slen = 3; /*inistring dstr_340__a_mode_doing_not*/ /*_.VALSTR___V421*/ meltfptr[420] = (melt_ptr_t) & cdat->dstr_340__a_mode_doing_not; cdat->dstr_340__a_mode_doing_not.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_340__a_mode_doing_not.val, "a mode doing nothing.", sizeof (cdat->dstr_340__a_mode_doing_not. val) - 1); cdat->dstr_340__a_mode_doing_not.val[21] = (char) 0; cdat->dstr_340__a_mode_doing_not.slen = 21; /*inirout drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ /*_.VALROUT___V422*/ meltfptr[421] = (melt_ptr_t) & cdat->drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; cdat->drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.routdescr, "GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC @warmelt-modes.melt:1752", MELT_ROUTDESCR_LEN - 1); cdat->drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC, meltrout_48_warmelt_modes_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC); /*iniclos dclo_342__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ /*_.VALCLO___V424*/ meltfptr[423] = (melt_ptr_t) & cdat->dclo_342__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; cdat->dclo_342__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_342__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 0; /*inistring dstr_343__from_genera*/ /*_.VALSTR___V423*/ meltfptr[422] = (melt_ptr_t) & cdat->dstr_343__from_genera; cdat->dstr_343__from_genera.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_343__from_genera.val, " /** from generate_runtypesupport_enum_objmagic **/\ \n enum meltobmag_en /*generated*/ { MELTOBMAG__NONE = 0,\ \n ", sizeof (cdat->dstr_343__from_genera.val) - 1); cdat->dstr_343__from_genera.val[117] = (char) 0; cdat->dstr_343__from_genera.slen = 117; /*iniobj dsym_344__CLASS_VALUE_DESCRIPTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V425*/ meltfptr[424]) /*_.VALDATA___V425*/ meltfptr[424] = (melt_ptr_t) & cdat->dsym_344__CLASS_VALUE_DESCRIPTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_344__CLASS_VALUE_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_344__CLASS_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_344__CLASS_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_344__CLASS_VALUE_DESCRIPTOR.obj_hash = 1011656692; cdat->dsym_344__CLASS_VALUE_DESCRIPTOR.obj_len = 3; /*inistring dstr_345__CLASS_VALUE_DESC*/ /*_.VALSTR___V426*/ meltfptr[425] = (melt_ptr_t) & cdat->dstr_345__CLASS_VALUE_DESC; cdat->dstr_345__CLASS_VALUE_DESC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_345__CLASS_VALUE_DESC.val, "CLASS_VALUE_DESCRIPTOR", sizeof (cdat->dstr_345__CLASS_VALUE_DESC. val) - 1); cdat->dstr_345__CLASS_VALUE_DESC.val[22] = (char) 0; cdat->dstr_345__CLASS_VALUE_DESC.slen = 22; /*iniobj dsym_346__CLASS_CTYPE_GTY*/ /*uniqueobj*/ if (! /*_.VALDATA___V427*/ meltfptr[426]) /*_.VALDATA___V427*/ meltfptr[426] = (melt_ptr_t) & cdat->dsym_346__CLASS_CTYPE_GTY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_346__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_346__CLASS_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_346__CLASS_CTYPE_GTY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_346__CLASS_CTYPE_GTY.obj_hash = 167272739; cdat->dsym_346__CLASS_CTYPE_GTY.obj_len = 3; /*inistring dstr_347__CLASS_CTYPE_GTY*/ /*_.VALSTR___V428*/ meltfptr[427] = (melt_ptr_t) & cdat->dstr_347__CLASS_CTYPE_GTY; cdat->dstr_347__CLASS_CTYPE_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_347__CLASS_CTYPE_GTY.val, "CLASS_CTYPE_GTY", sizeof (cdat->dstr_347__CLASS_CTYPE_GTY.val) - 1); cdat->dstr_347__CLASS_CTYPE_GTY.val[15] = (char) 0; cdat->dstr_347__CLASS_CTYPE_GTY.slen = 15; /*inirout drout_348__GENERATE_RUNTYPESUPPORT_GTY */ /*_.VALROUT___V429*/ meltfptr[428] = (melt_ptr_t) & cdat->drout_348__GENERATE_RUNTYPESUPPORT_GTY; cdat->drout_348__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_348__GENERATE_RUNTYPESUPPORT_GTY.routdescr, "GENERATE_RUNTYPESUPPORT_GTY @warmelt-modes.melt:1842", MELT_ROUTDESCR_LEN - 1); cdat->drout_348__GENERATE_RUNTYPESUPPORT_GTY.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_348__GENERATE_RUNTYPESUPPORT_GTY, meltrout_49_warmelt_modes_GENERATE_RUNTYPESUPPORT_GTY); /*iniclos dclo_349__GENERATE_RUNTYPESUPPORT_GTY */ /*_.VALCLO___V435*/ meltfptr[434] = (melt_ptr_t) & cdat->dclo_349__GENERATE_RUNTYPESUPPORT_GTY; cdat->dclo_349__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_349__GENERATE_RUNTYPESUPPORT_GTY.nbval = 0; /*inistring dstr_350__ifndef_meltobj*/ /*_.VALSTR___V430*/ meltfptr[429] = (melt_ptr_t) & cdat->dstr_350__ifndef_meltobj; cdat->dstr_350__ifndef_meltobj.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_350__ifndef_meltobj.val, "\n#ifndef meltobject_ptr_t_TYPEDEFINED\ \ntypedef struct meltobject_st* meltobject_ptr_t ;\ \n#define meltobject_ptr_t_TYPEDEFINED\ \n#endif /*meltobject_ptr_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_350__ifndef_meltobj.val) - 1); cdat->dstr_350__ifndef_meltobj.val[164] = (char) 0; cdat->dstr_350__ifndef_meltobj.slen = 164; /*inistring dstr_351__ifndef_melt_pt*/ /*_.VALSTR___V431*/ meltfptr[430] = (melt_ptr_t) & cdat->dstr_351__ifndef_melt_pt; cdat->dstr_351__ifndef_melt_pt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_351__ifndef_melt_pt.val, "\n#ifndef melt_ptr_t_TYPEDEFINED\ntypedef union melt_un* melt_ptr_t\ ;\n#define melt_ptr_t_TYPEDEFINED\ \n#endif /*melt_ptr_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_351__ifndef_melt_pt.val) - 1); cdat->dstr_351__ifndef_melt_pt.val[133] = (char) 0; cdat->dstr_351__ifndef_melt_pt.slen = 133; /*inistring dstr_352__ifndef_meltrou*/ /*_.VALSTR___V432*/ meltfptr[431] = (melt_ptr_t) & cdat->dstr_352__ifndef_meltrou; cdat->dstr_352__ifndef_meltrou.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_352__ifndef_meltrou.val, "\n#ifndef meltroutine_ptr_t_TYPEDEFINED\ \ntypedef struct meltroutine_st *meltroutine_ptr_t ;\ \n#define meltroutine_ptr_t_TYPEDEFINED\ \n#endif /*meltroutine_ptr_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_352__ifndef_meltrou.val) - 1); cdat->dstr_352__ifndef_meltrou.val[169] = (char) 0; cdat->dstr_352__ifndef_meltrou.slen = 169; /*inistring dstr_353__ifndef_meltclo*/ /*_.VALSTR___V433*/ meltfptr[432] = (melt_ptr_t) & cdat->dstr_353__ifndef_meltclo; cdat->dstr_353__ifndef_meltclo.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_353__ifndef_meltclo.val, "\n#ifndef meltclosure_ptr_t_TYPEDEFINED\ \ntypedef struct meltclosure_st *meltclosure_ptr_t ;\ \n#define meltclosure_ptr_t_TYPEDEFINED\ \n#endif /*meltclosure_ptr_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_353__ifndef_meltclo.val) - 1); cdat->dstr_353__ifndef_meltclo.val[169] = (char) 0; cdat->dstr_353__ifndef_meltclo.slen = 169; /*inistring dstr_354__ifndef_meltrou*/ /*_.VALSTR___V434*/ meltfptr[433] = (melt_ptr_t) & cdat->dstr_354__ifndef_meltrou; cdat->dstr_354__ifndef_meltrou.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_354__ifndef_meltrou.val + 0, "\n#ifndef meltroutfun_t_TYPEDEFINED\ \ntypedef melt_ptr_t meltroutfu" "n_t (struct meltclosure_st* meltclosp_,\ \n " " melt_ptr_t meltfirstargp_,\ \n " " const melt_argdescr_cell_t meltxargdescr_[],\ \n ", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_354__ifndef_meltrou.val + 256, " union meltparam_un *meltxargtab_,\ \n " " const melt_argdescr_cell_t meltxresdes" "cr_[],\n union meltparam_un *mel" "txrestab_) ;\n#define meltroutfun_t_TYPEDEFINED\ \n#endif /*meltrout", /*big */ 256); /*end big inistring */ strncpy (cdat->dstr_354__ifndef_meltrou.val + 512, "fun_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_354__ifndef_meltrou. val) - 513); cdat->dstr_354__ifndef_meltrou.val[532] = (char) 0; cdat->dstr_354__ifndef_meltrou.slen = 532; /*iniobj dsym_355__CLASS_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V436*/ meltfptr[435]) /*_.VALDATA___V436*/ meltfptr[435] = (melt_ptr_t) & cdat->dsym_355__CLASS_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_355__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_355__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_355__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_355__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_355__CLASS_CTYPE.obj_len = 3; /*inistring dstr_356__CLASS_CTYPE*/ /*_.VALSTR___V437*/ meltfptr[436] = (melt_ptr_t) & cdat->dstr_356__CLASS_CTYPE; cdat->dstr_356__CLASS_CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_356__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_356__CLASS_CTYPE.val) - 1); cdat->dstr_356__CLASS_CTYPE.val[11] = (char) 0; cdat->dstr_356__CLASS_CTYPE.slen = 11; /*iniobj dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V438*/ meltfptr[437]) /*_.VALDATA___V438*/ meltfptr[437] = (melt_ptr_t) & cdat->dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_357__CLASS_VARISIZED_VALUE_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_357__CLASS_VARISIZED_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_hash = 268580272; cdat->dsym_357__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_len = 3; /*inistring dstr_358__CLASS_VARISIZED_*/ /*_.VALSTR___V439*/ meltfptr[438] = (melt_ptr_t) & cdat->dstr_358__CLASS_VARISIZED_; cdat->dstr_358__CLASS_VARISIZED_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_358__CLASS_VARISIZED_.val, "CLASS_VARISIZED_VALUE_DESCRIPTOR", sizeof (cdat->dstr_358__CLASS_VARISIZED_. val) - 1); cdat->dstr_358__CLASS_VARISIZED_.val[32] = (char) 0; cdat->dstr_358__CLASS_VARISIZED_.slen = 32; /*inirout drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ /*_.VALROUT___V440*/ meltfptr[439] = (melt_ptr_t) & cdat->drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; cdat->drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN @warmelt-modes.melt:2108", MELT_ROUTDESCR_LEN - 1); cdat->drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN, meltrout_50_warmelt_modes_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN); /*iniclos dclo_360__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ /*_.VALCLO___V443*/ meltfptr[442] = (melt_ptr_t) & cdat->dclo_360__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; cdat->dclo_360__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_360__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 0; /*inistring dstr_361__cheney_like_*/ /*_.VALSTR___V441*/ meltfptr[440] = (melt_ptr_t) & cdat->dstr_361__cheney_like_; cdat->dstr_361__cheney_like_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_361__cheney_like_.val + 0, "\n/* cheney like forwarding generated function */\ \nmelt_ptr_t \nmel" "t_forwarded_copy (melt_ptr_t p)\n{ /* header generated by generat" "e_runtypesupport_forwcopy_fun */\n melt_ptr_t n = 0;\ \n int mag =" " 0;\n gcc_assert (melt_is_young (p));\ \n gcc_assert (p->u_discr &", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_361__cheney_like_.val + 256, "& p->u_discr != MELT_FORWARDED_DISCR);\ \n if (p->u_discr->meltobj" "_class == MELT_FORWARDED_DISCR)\n mag =\ \n ((meltobject_ptr" "_t)\n (((struct meltforward_st *) p->u_discr)->forward))->m" "eltobj_magic;\n else\n mag = p->u_discr->meltobj_magic;\ \n melt", /*big */ 256); /*end big inistring */ strncpy (cdat->dstr_361__cheney_like_.val + 512, "_forward_counter++;\n switch (mag) { /* end of generated header */\n", sizeof (cdat->dstr_361__cheney_like_.val) - 513); cdat->dstr_361__cheney_like_.val[579] = (char) 0; cdat->dstr_361__cheney_like_.slen = 579; /*inistring dstr_362__trailer_gene*/ /*_.VALSTR___V442*/ meltfptr[441] = (melt_ptr_t) & cdat->dstr_362__trailer_gene; cdat->dstr_362__trailer_gene.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 0, " /* trailer generated by generate_runtypesupport_forwcopy_fun *" "/\n default:\n fatal_error (\"corruption: forward invalid p" "=%p discr=%p magic=%d\",\n\t\t (void *) p, (void *) p->u_discr, ma" "g);\n } /* end switch (mag) */\n\ \n melt_debuggc_eprintf (\"melt", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 256, "_forwarded_copy#%ld/%04ld %p => %p %s\", \ \n\t\t\t melt_nb_garbcoll, " "melt_forward_counter, (void*)p, \n (void" "*)n, melt_obmag_string (mag));\n if (n)\ \n {\n#if ENABLE_CHECKIN" "G\n if (melt_alptr_1 && (void*)melt_alptr_1 == (void*)n) \ \n\t{", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 512, "\n\t fprintf (stderr, \"melt_forwarded_copy to alptr_1 %p mag %d\\n" "\", melt_alptr_1, mag);\n\t fflush (stderr);\ \n\t melt_debuggc_epri" "ntf(\"melt_forwarded_copy #%ld alptr_1 %p mag %d\", \ \n\t\t\t mel" "t_nb_garbcoll, melt_alptr_1, mag);\ \n\t melt_break_alptr_1 (\"forwa", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 768, "rded copy to alptr_1\");\n\t}\n if (melt_alptr_2 && (void*)melt" "_alptr_2 == (void*)n) \n\t{\n\t fprintf (stderr, \"melt_forwarded_co" "py to alptr_2 %p mag %d\\n\", melt_alptr_2, mag);\ \n\t fflush (stde" "rr);\n\t melt_debuggc_eprintf(\"melt_forwarded_copy #%ld alptr_2 %", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 1024, "p\", \n\t\t\t melt_nb_garbcoll, melt_alptr_2);\ \n\t melt_break_al" "ptr_2 (\"forwarded copy to alptr_2\");\ \n\t};\n#endif /*ENABLE_CHECKIN" "G*/\n\n p->u_forward.discr = MELT_FORWARDED_DISCR;\ \n p->u" "_forward.forward = n;\n\n gcc_assert (melt_scangcvect != NULL", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 1280, ");\n {\n\tunsigned long ulen = melt_scangcvect->vv_ulen;\ \n\tif (" "MELT_UNLIKELY(ulen + 3 < melt_scangcvect->vv_size)) {\ \n\t unsigne" "d long newsiz = (ulen + ulen/4 + 100);\ \n\t melt_resize_scangcvect" " (newsiz);\n\t}\n\tmelt_scangcvect->vv_tab[ulen] = n;\ \n\tmelt_scangcve", /*big */ 256); /*quite big chunk inistring */ memcpy (cdat->dstr_362__trailer_gene.val + 1536, "ct->vv_ulen = ulen+1;\n }\n\n }\ \n return n;\n} /* end of me" "lt_forwarded_copy generated by generate_runtypesupport_forwcopy_", /*lessbig */ 128); /*end big inistring */ strncpy (cdat->dstr_362__trailer_gene.val + 1664, "fun */\n", sizeof (cdat->dstr_362__trailer_gene.val) - 1665); cdat->dstr_362__trailer_gene.val[1671] = (char) 0; cdat->dstr_362__trailer_gene.slen = 1671; /*inirout drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN */ /*_.VALROUT___V444*/ meltfptr[443] = (melt_ptr_t) & cdat->drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN; cdat->drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_CLONING_FUN @warmelt-modes.melt:2376", MELT_ROUTDESCR_LEN - 1); cdat->drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN, meltrout_51_warmelt_modes_GENERATE_RUNTYPESUPPORT_CLONING_FUN); /*iniclos dclo_364__GENERATE_RUNTYPESUPPORT_CLONING_FUN */ /*_.VALCLO___V445*/ meltfptr[444] = (melt_ptr_t) & cdat->dclo_364__GENERATE_RUNTYPESUPPORT_CLONING_FUN; cdat->dclo_364__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_364__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 0; /*inirout drout_365__GENERATE_RUNTYPESUPPORT_SCANNING */ /*_.VALROUT___V446*/ meltfptr[445] = (melt_ptr_t) & cdat->drout_365__GENERATE_RUNTYPESUPPORT_SCANNING; cdat->drout_365__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_365__GENERATE_RUNTYPESUPPORT_SCANNING.routdescr, "GENERATE_RUNTYPESUPPORT_SCANNING @warmelt-modes.melt:2572", MELT_ROUTDESCR_LEN - 1); cdat->drout_365__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_365__GENERATE_RUNTYPESUPPORT_SCANNING, meltrout_52_warmelt_modes_GENERATE_RUNTYPESUPPORT_SCANNING); /*iniclos dclo_366__GENERATE_RUNTYPESUPPORT_SCANNING */ /*_.VALCLO___V449*/ meltfptr[448] = (melt_ptr_t) & cdat->dclo_366__GENERATE_RUNTYPESUPPORT_SCANNING; cdat->dclo_366__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_366__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 0; /*inistring dstr_367__header_from_*/ /*_.VALSTR___V447*/ meltfptr[446] = (melt_ptr_t) & cdat->dstr_367__header_from_; cdat->dstr_367__header_from_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_367__header_from_.val + 0, " /* header from generate_runtypesupport_scanning */\ \n/* The melt_" "scanning routine is mostly Chesney like ; however some types,\ \n " " including objects, strbuf, stringmaps, objectmaps, all the othe" "r\n *maps, contain a pointer to a non value ; this pointer shou", /*big */ 256); /*really big chunk inistring */ memcpy (cdat->dstr_367__header_from_.val + 256, "ld be\n carefully updated if it was young. */\ \nstatic void\nmelt_" "scanning (melt_ptr_t p)\n{\n unsigned omagic = 0;\ \n if (!p)\n r" "eturn;\n gcc_assert (p != (void *) HTAB_DELETED_ENTRY);\ \n gcc_as" "sert (p->u_discr && p->u_discr != (meltobject_ptr_t) 1);\ \n MELT_", /*big */ 256); /*quite big chunk inistring */ memcpy (cdat->dstr_367__header_from_.val + 512, "FORWARDED (p->u_discr);\n gcc_assert (!melt_is_young (p));\ \n oma" "gic = p->u_discr->meltobj_magic;\n switch (omagic)\ \n {\n/* end ", /*lessbig */ 128); /*end big inistring */ strncpy (cdat->dstr_367__header_from_.val + 640, "of header from generate_runtypesupport_scanning*/", sizeof (cdat->dstr_367__header_from_.val) - 641); cdat->dstr_367__header_from_.val[689] = (char) 0; cdat->dstr_367__header_from_.slen = 689; /*inistring dstr_368__trailer_gene*/ /*_.VALSTR___V448*/ meltfptr[447] = (melt_ptr_t) & cdat->dstr_368__trailer_gene; cdat->dstr_368__trailer_gene.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_368__trailer_gene.val + 0, " /* trailer generated by generate_runtypesupport_scanning */\ \n " " default:\n /* gcc_unreachable (); */\ \n fatal_error (\"me" "lt melt_scanning GC: corrupted heap, p=%p omagic=%d\\n\",\ \n\t\t (vo" "id *) p, (int) omagic);\n }\n} /* end of melt_scanning generate", /*big */ 256); /*end big inistring */ strncpy (cdat->dstr_368__trailer_gene.val + 256, "d by generate_runtypesupport_scanning */\ \n ", sizeof (cdat->dstr_368__trailer_gene.val) - 257); cdat->dstr_368__trailer_gene.val[300] = (char) 0; cdat->dstr_368__trailer_gene.slen = 300; /*inirout drout_369__GENERATE_RUNTYPESUPPORT_PARAM */ /*_.VALROUT___V450*/ meltfptr[449] = (melt_ptr_t) & cdat->drout_369__GENERATE_RUNTYPESUPPORT_PARAM; cdat->drout_369__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_369__GENERATE_RUNTYPESUPPORT_PARAM.routdescr, "GENERATE_RUNTYPESUPPORT_PARAM @warmelt-modes.melt:2744", MELT_ROUTDESCR_LEN - 1); cdat->drout_369__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_369__GENERATE_RUNTYPESUPPORT_PARAM, meltrout_53_warmelt_modes_GENERATE_RUNTYPESUPPORT_PARAM); /*iniclos dclo_370__GENERATE_RUNTYPESUPPORT_PARAM */ /*_.VALCLO___V451*/ meltfptr[450] = (melt_ptr_t) & cdat->dclo_370__GENERATE_RUNTYPESUPPORT_PARAM; cdat->dclo_370__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_370__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 0; /*inirout drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE */ /*_.VALROUT___V452*/ meltfptr[451] = (melt_ptr_t) & cdat->drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE; cdat->drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE.routdescr, "GENERATE_RUNTYPESUPPORT_COD2CTYPE @warmelt-modes.melt:2886", MELT_ROUTDESCR_LEN - 1); cdat->drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE, meltrout_54_warmelt_modes_GENERATE_RUNTYPESUPPORT_COD2CTYPE); /*iniclos dclo_372__GENERATE_RUNTYPESUPPORT_COD2CTYPE */ /*_.VALCLO___V453*/ meltfptr[452] = (melt_ptr_t) & cdat->dclo_372__GENERATE_RUNTYPESUPPORT_COD2CTYPE; cdat->dclo_372__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_372__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 0; /*inirout drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR */ /*_.VALROUT___V454*/ meltfptr[453] = (melt_ptr_t) & cdat->drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR; cdat->drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR.routdescr, "GENERATE_RUNTYPESUPPORT_MAG2STR @warmelt-modes.melt:2936", MELT_ROUTDESCR_LEN - 1); cdat->drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR, meltrout_55_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAG2STR); /*iniclos dclo_374__GENERATE_RUNTYPESUPPORT_MAG2STR */ /*_.VALCLO___V457*/ meltfptr[456] = (melt_ptr_t) & cdat->dclo_374__GENERATE_RUNTYPESUPPORT_MAG2STR; cdat->dclo_374__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_374__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 0; /*inistring dstr_375__const_char_melt*/ /*_.VALSTR___V455*/ meltfptr[454] = (melt_ptr_t) & cdat->dstr_375__const_char_melt; cdat->dstr_375__const_char_melt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_375__const_char_melt.val, "const char* melt_obmag_string (int i) {\ \n#define MELT_MAG2STR_CACHEBUF 17\ \n#define MELT_MAG2STR_MAGLEN 16\ \n static char melt_cacheobmagbuf[MELT_MAG2STR_CACHEBUF][MELT_MAG2STR_MAGLE\ N] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (cdat->dstr_375__const_char_melt.val) - 1); cdat->dstr_375__const_char_melt.val[237] = (char) 0; cdat->dstr_375__const_char_melt.slen = 237; /*inistring dstr_376__default_int*/ /*_.VALSTR___V456*/ meltfptr[455] = (melt_ptr_t) & cdat->dstr_376__default_int; cdat->dstr_376__default_int.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_376__default_int.val, "default:\n { int ix = (i & 0x3ffffff) % MELT_MAG2STR_CACHEBUF;\ \n snprintf (melt_cacheobmagbuf[ix], MELT_MAG2STR_MAGLEN-1, \"?MeltObjMag\ ?%d\", i);\n return melt_cacheobmagbuf[ix];\ \n }\n } /* end switch */\n} /* end generated melt_obmag_string */\n", sizeof (cdat->dstr_376__default_int.val) - 1); cdat->dstr_376__default_int.val[245] = (char) 0; cdat->dstr_376__default_int.slen = 245; /*inirout drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN */ /*_.VALROUT___V458*/ meltfptr[457] = (melt_ptr_t) & cdat->drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN; cdat->drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN.routdescr, "GENERATE_RUNTYPESUPPORT_BOXINGFUN @warmelt-modes.melt:3060", MELT_ROUTDESCR_LEN - 1); cdat->drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN, meltrout_56_warmelt_modes_GENERATE_RUNTYPESUPPORT_BOXINGFUN); /*iniclos dclo_378__GENERATE_RUNTYPESUPPORT_BOXINGFUN */ /*_.VALCLO___V459*/ meltfptr[458] = (melt_ptr_t) & cdat->dclo_378__GENERATE_RUNTYPESUPPORT_BOXINGFUN; cdat->dclo_378__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_378__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 0; /*iniobj dsym_379__SOME_STRING_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V460*/ meltfptr[459]) /*_.VALDATA___V460*/ meltfptr[459] = (melt_ptr_t) & cdat->dsym_379__SOME_STRING_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_379__SOME_STRING_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_379__SOME_STRING_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_379__SOME_STRING_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_379__SOME_STRING_VALUE.obj_hash = 73266032; cdat->dsym_379__SOME_STRING_VALUE.obj_len = 3; /*inistring dstr_380__SOME_STRING_VALU*/ /*_.VALSTR___V461*/ meltfptr[460] = (melt_ptr_t) & cdat->dstr_380__SOME_STRING_VALU; cdat->dstr_380__SOME_STRING_VALU.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_380__SOME_STRING_VALU.val, "SOME_STRING_VALUE", sizeof (cdat->dstr_380__SOME_STRING_VALU. val) - 1); cdat->dstr_380__SOME_STRING_VALU.val[17] = (char) 0; cdat->dstr_380__SOME_STRING_VALU.slen = 17; /*iniobj dsym_381__CLASS_DISCRIMINANT*/ /*uniqueobj*/ if (! /*_.VALDATA___V462*/ meltfptr[461]) /*_.VALDATA___V462*/ meltfptr[461] = (melt_ptr_t) & cdat->dsym_381__CLASS_DISCRIMINANT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_381__CLASS_DISCRIMINANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_381__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_381__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_381__CLASS_DISCRIMINANT.obj_hash = 535191995; cdat->dsym_381__CLASS_DISCRIMINANT.obj_len = 3; /*inistring dstr_382__CLASS_DISCRIMINA*/ /*_.VALSTR___V463*/ meltfptr[462] = (melt_ptr_t) & cdat->dstr_382__CLASS_DISCRIMINA; cdat->dstr_382__CLASS_DISCRIMINA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_382__CLASS_DISCRIMINA.val, "CLASS_DISCRIMINANT", sizeof (cdat->dstr_382__CLASS_DISCRIMINA. val) - 1); cdat->dstr_382__CLASS_DISCRIMINA.val[18] = (char) 0; cdat->dstr_382__CLASS_DISCRIMINA.slen = 18; /*inirout drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN */ /*_.VALROUT___V464*/ meltfptr[463] = (melt_ptr_t) & cdat->drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN; cdat->drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN.routdescr, "GENERATE_RUNTYPESUPPORT_MAPFUN @warmelt-modes.melt:3278", MELT_ROUTDESCR_LEN - 1); cdat->drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN, meltrout_57_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAPFUN); /*iniclos dclo_384__GENERATE_RUNTYPESUPPORT_MAPFUN */ /*_.VALCLO___V467*/ meltfptr[466] = (melt_ptr_t) & cdat->dclo_384__GENERATE_RUNTYPESUPPORT_MAPFUN; cdat->dclo_384__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_384__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 0; /*inistring dstr_385__generated_map*/ /*_.VALSTR___V465*/ meltfptr[464] = (melt_ptr_t) & cdat->dstr_385__generated_map; cdat->dstr_385__generated_map.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_385__generated_map.val, " /*generated map creation */\n\t\t\t if (melt_magic_discr ((melt_ptr_t\ ) discr) != MELTOBMAG_OBJECT)\n\t\t\t return NULL ;\ \n\t\t\t if (discr->meltobj_magic != ", sizeof (cdat->dstr_385__generated_map.val) - 1); cdat->dstr_385__generated_map.val[164] = (char) 0; cdat->dstr_385__generated_map.slen = 164; /*inistring dstr_386__not_map_mag*/ /*_.VALSTR___V466*/ meltfptr[465] = (melt_ptr_t) & cdat->dstr_386__not_map_mag; cdat->dstr_386__not_map_mag.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_386__not_map_mag.val, ") /* not map magic */\n\t\t\t return NULL ;\ \n\t\t\t return (melt_ptr_t) meltgc_raw_new_mappointers (discr\ , len) ;\n\t\t\t } /*end generated new map\ for ", sizeof (cdat->dstr_386__not_map_mag.val) - 1); cdat->dstr_386__not_map_mag.val[158] = (char) 0; cdat->dstr_386__not_map_mag.slen = 158; /*inirout drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ /*_.VALROUT___V468*/ meltfptr[467] = (melt_ptr_t) & cdat->drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; cdat->drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.routdescr, "GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS @warmelt-modes.melt:3655", MELT_ROUTDESCR_LEN - 1); cdat->drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS, meltrout_58_warmelt_modes_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS); /*iniclos dclo_388__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ /*_.VALCLO___V469*/ meltfptr[468] = (melt_ptr_t) & cdat->dclo_388__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; cdat->dclo_388__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_388__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 0; /*inirout drout_389__RUNTYPESUPPORT_DOCMD */ /*_.VALROUT___V470*/ meltfptr[469] = (melt_ptr_t) & cdat->drout_389__RUNTYPESUPPORT_DOCMD; cdat->drout_389__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_389__RUNTYPESUPPORT_DOCMD.routdescr, "RUNTYPESUPPORT_DOCMD @warmelt-modes.melt:3713", MELT_ROUTDESCR_LEN - 1); cdat->drout_389__RUNTYPESUPPORT_DOCMD.nbval = 23; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_389__RUNTYPESUPPORT_DOCMD, meltrout_59_warmelt_modes_RUNTYPESUPPORT_DOCMD); /*iniclos dclo_390__RUNTYPESUPPORT_DOCMD */ /*_.VALCLO___V472*/ meltfptr[471] = (melt_ptr_t) & cdat->dclo_390__RUNTYPESUPPORT_DOCMD; cdat->dclo_390__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_390__RUNTYPESUPPORT_DOCMD.nbval = 0; /*inistring dstr_391__meltrunsup*/ /*_.VALSTR___V471*/ meltfptr[470] = (melt_ptr_t) & cdat->dstr_391__meltrunsup; cdat->dstr_391__meltrunsup.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_391__meltrunsup.val, "meltrunsup", sizeof (cdat->dstr_391__meltrunsup.val) - 1); cdat->dstr_391__meltrunsup.val[10] = (char) 0; cdat->dstr_391__meltrunsup.slen = 10; /*iniobj dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY*/ /*uniqueobj*/ if (! /*_.VALDATA___V473*/ meltfptr[472]) /*_.VALDATA___V473*/ meltfptr[472] = (melt_ptr_t) & cdat->dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_392__RETRIEVE_DICTIONNARY_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_392__RETRIEVE_DICTIONNARY_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY.obj_hash = 620180244; cdat->dsym_392__RETRIEVE_DICTIONNARY_CTYPE_GTY.obj_len = 3; /*inistring dstr_393__RETRIEVE_DICTION*/ /*_.VALSTR___V474*/ meltfptr[473] = (melt_ptr_t) & cdat->dstr_393__RETRIEVE_DICTION; cdat->dstr_393__RETRIEVE_DICTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_393__RETRIEVE_DICTION.val, "RETRIEVE_DICTIONNARY_CTYPE_GTY", sizeof (cdat->dstr_393__RETRIEVE_DICTION. val) - 1); cdat->dstr_393__RETRIEVE_DICTION.val[30] = (char) 0; cdat->dstr_393__RETRIEVE_DICTION.slen = 30; /*iniobj dsym_394__RETRIEVE_DICTIONNARY_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V475*/ meltfptr[474]) /*_.VALDATA___V475*/ meltfptr[474] = (melt_ptr_t) & cdat->dsym_394__RETRIEVE_DICTIONNARY_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_394__RETRIEVE_DICTIONNARY_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_394__RETRIEVE_DICTIONNARY_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_394__RETRIEVE_DICTIONNARY_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_394__RETRIEVE_DICTIONNARY_CTYPE.obj_hash = 493540919; cdat->dsym_394__RETRIEVE_DICTIONNARY_CTYPE.obj_len = 3; /*inistring dstr_395__RETRIEVE_DICTION*/ /*_.VALSTR___V476*/ meltfptr[475] = (melt_ptr_t) & cdat->dstr_395__RETRIEVE_DICTION; cdat->dstr_395__RETRIEVE_DICTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_395__RETRIEVE_DICTION.val, "RETRIEVE_DICTIONNARY_CTYPE", sizeof (cdat->dstr_395__RETRIEVE_DICTION. val) - 1); cdat->dstr_395__RETRIEVE_DICTION.val[26] = (char) 0; cdat->dstr_395__RETRIEVE_DICTION.slen = 26; /*iniobj dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V477*/ meltfptr[476]) /*_.VALDATA___V477*/ meltfptr[476] = (melt_ptr_t) & cdat-> dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_396__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_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_hash = 10057023; cdat->dsym_396__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_len = 3; /*inistring dstr_397__GENERATE_GPLV3PL*/ /*_.VALSTR___V478*/ meltfptr[477] = (melt_ptr_t) & cdat->dstr_397__GENERATE_GPLV3PL; cdat->dstr_397__GENERATE_GPLV3PL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_397__GENERATE_GPLV3PL.val, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", sizeof (cdat->dstr_397__GENERATE_GPLV3PL. val) - 1); cdat->dstr_397__GENERATE_GPLV3PL.val[45] = (char) 0; cdat->dstr_397__GENERATE_GPLV3PL.slen = 45; /*iniobj dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V479*/ meltfptr[478]) /*_.VALDATA___V479*/ meltfptr[478] = (melt_ptr_t) & cdat->dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_398__RETRIEVE_VALUE_DESCRIPTOR_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_398__RETRIEVE_VALUE_DESCRIPTOR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST.obj_hash = 622106470; cdat->dsym_398__RETRIEVE_VALUE_DESCRIPTOR_LIST.obj_len = 3; /*inistring dstr_399__RETRIEVE_VALUE_D*/ /*_.VALSTR___V480*/ meltfptr[479] = (melt_ptr_t) & cdat->dstr_399__RETRIEVE_VALUE_D; cdat->dstr_399__RETRIEVE_VALUE_D.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_399__RETRIEVE_VALUE_D.val, "RETRIEVE_VALUE_DESCRIPTOR_LIST", sizeof (cdat->dstr_399__RETRIEVE_VALUE_D. val) - 1); cdat->dstr_399__RETRIEVE_VALUE_D.val[30] = (char) 0; cdat->dstr_399__RETRIEVE_VALUE_D.slen = 30; /*iniobj dsym_400__RUNTYPESUPPORT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V481*/ meltfptr[480]) /*_.VALDATA___V481*/ meltfptr[480] = (melt_ptr_t) & cdat->dsym_400__RUNTYPESUPPORT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_400__RUNTYPESUPPORT_MODE", melt_magic_discr ((melt_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__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_400__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_400__RUNTYPESUPPORT_MODE.obj_hash = 409734414; cdat->dsym_400__RUNTYPESUPPORT_MODE.obj_len = 3; /*inistring dstr_401__RUNTYPESUPPORT_M*/ /*_.VALSTR___V482*/ meltfptr[481] = (melt_ptr_t) & cdat->dstr_401__RUNTYPESUPPORT_M; cdat->dstr_401__RUNTYPESUPPORT_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_401__RUNTYPESUPPORT_M.val, "RUNTYPESUPPORT_MODE", sizeof (cdat->dstr_401__RUNTYPESUPPORT_M. val) - 1); cdat->dstr_401__RUNTYPESUPPORT_M.val[19] = (char) 0; cdat->dstr_401__RUNTYPESUPPORT_M.slen = 19; MELT_LOCATION ("warmelt-modes.melt:3853:/ iniobj"); /*iniobj dobj_402__RUNTYPESUPPORT_MODE*/ /*_.VALDATA___V483*/ meltfptr[482] = (melt_ptr_t) & cdat->dobj_402__RUNTYPESUPPORT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_402__RUNTYPESUPPORT_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_402__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_402__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_402__RUNTYPESUPPORT_MODE.obj_hash = 755832662; cdat->dobj_402__RUNTYPESUPPORT_MODE.obj_len = 5; /*inistring dstr_403__runtypesupport*/ /*_.VALSTR___V484*/ meltfptr[483] = (melt_ptr_t) & cdat->dstr_403__runtypesupport; cdat->dstr_403__runtypesupport.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_403__runtypesupport.val, "runtypesupport", sizeof (cdat->dstr_403__runtypesupport.val) - 1); cdat->dstr_403__runtypesupport.val[14] = (char) 0; cdat->dstr_403__runtypesupport.slen = 14; /*inistring dstr_404__generate_runtime*/ /*_.VALSTR___V485*/ meltfptr[484] = (melt_ptr_t) & cdat->dstr_404__generate_runtime; cdat->dstr_404__generate_runtime.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_404__generate_runtime.val, "generate runtime support for our GTY types (ctypes, values);\ \n\n\t OUTPUT=generated file prefix", sizeof (cdat->dstr_404__generate_runtime.val) - 1); cdat->dstr_404__generate_runtime.val[92] = (char) 0; cdat->dstr_404__generate_runtime.slen = 92; /*inirout drout_405__TRANSLATE_TO_FLAVORED_MODULE */ /*_.VALROUT___V486*/ meltfptr[485] = (melt_ptr_t) & cdat->drout_405__TRANSLATE_TO_FLAVORED_MODULE; cdat->drout_405__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_405__TRANSLATE_TO_FLAVORED_MODULE.routdescr, "TRANSLATE_TO_FLAVORED_MODULE @warmelt-modes.melt:3866", MELT_ROUTDESCR_LEN - 1); cdat->drout_405__TRANSLATE_TO_FLAVORED_MODULE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_405__TRANSLATE_TO_FLAVORED_MODULE, meltrout_60_warmelt_modes_TRANSLATE_TO_FLAVORED_MODULE); /*iniclos dclo_406__TRANSLATE_TO_FLAVORED_MODULE */ /*_.VALCLO___V487*/ meltfptr[486] = (melt_ptr_t) & cdat->dclo_406__TRANSLATE_TO_FLAVORED_MODULE; cdat->dclo_406__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_406__TRANSLATE_TO_FLAVORED_MODULE.nbval = 0; /*inirout drout_407__TRANSLATETOMODULE_DOCMD */ /*_.VALROUT___V488*/ meltfptr[487] = (melt_ptr_t) & cdat->drout_407__TRANSLATETOMODULE_DOCMD; cdat->drout_407__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_407__TRANSLATETOMODULE_DOCMD.routdescr, "TRANSLATETOMODULE_DOCMD @warmelt-modes.melt:3914", MELT_ROUTDESCR_LEN - 1); cdat->drout_407__TRANSLATETOMODULE_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_407__TRANSLATETOMODULE_DOCMD, meltrout_61_warmelt_modes_TRANSLATETOMODULE_DOCMD); /*iniclos dclo_408__TRANSLATETOMODULE_DOCMD */ /*_.VALCLO___V492*/ meltfptr[491] = (melt_ptr_t) & cdat->dclo_408__TRANSLATETOMODULE_DOCMD; cdat->dclo_408__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_408__TRANSLATETOMODULE_DOCMD.nbval = 0; /*inistring dstr_409__quicklybuilt*/ /*_.VALSTR___V489*/ meltfptr[488] = (melt_ptr_t) & cdat->dstr_409__quicklybuilt; cdat->dstr_409__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_409__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_409__quicklybuilt.val) - 1); cdat->dstr_409__quicklybuilt.val[12] = (char) 0; cdat->dstr_409__quicklybuilt.slen = 12; /*inistring dstr_410__optimized*/ /*_.VALSTR___V490*/ meltfptr[489] = (melt_ptr_t) & cdat->dstr_410__optimized; cdat->dstr_410__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_410__optimized.val, "optimized", sizeof (cdat->dstr_410__optimized.val) - 1); cdat->dstr_410__optimized.val[9] = (char) 0; cdat->dstr_410__optimized.slen = 9; /*inistring dstr_411__debugnoline*/ /*_.VALSTR___V491*/ meltfptr[490] = (melt_ptr_t) & cdat->dstr_411__debugnoline; cdat->dstr_411__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_411__debugnoline.val, "debugnoline", sizeof (cdat->dstr_411__debugnoline.val) - 1); cdat->dstr_411__debugnoline.val[11] = (char) 0; cdat->dstr_411__debugnoline.slen = 11; /*iniobj dsym_412__TRANSLATETOMODULE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V493*/ meltfptr[492]) /*_.VALDATA___V493*/ meltfptr[492] = (melt_ptr_t) & cdat->dsym_412__TRANSLATETOMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_412__TRANSLATETOMODULE_MODE", melt_magic_discr ((melt_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__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_412__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_412__TRANSLATETOMODULE_MODE.obj_hash = 39082242; cdat->dsym_412__TRANSLATETOMODULE_MODE.obj_len = 3; /*inistring dstr_413__TRANSLATETOMODUL*/ /*_.VALSTR___V494*/ meltfptr[493] = (melt_ptr_t) & cdat->dstr_413__TRANSLATETOMODUL; cdat->dstr_413__TRANSLATETOMODUL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_413__TRANSLATETOMODUL.val, "TRANSLATETOMODULE_MODE", sizeof (cdat->dstr_413__TRANSLATETOMODUL. val) - 1); cdat->dstr_413__TRANSLATETOMODUL.val[22] = (char) 0; cdat->dstr_413__TRANSLATETOMODUL.slen = 22; MELT_LOCATION ("warmelt-modes.melt:3932:/ iniobj"); /*iniobj dobj_414__TRANSLATETOMODULE_MODE*/ /*_.VALDATA___V495*/ meltfptr[494] = (melt_ptr_t) & cdat->dobj_414__TRANSLATETOMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_414__TRANSLATETOMODULE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_414__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_414__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_414__TRANSLATETOMODULE_MODE.obj_hash = 419843015; cdat->dobj_414__TRANSLATETOMODULE_MODE.obj_len = 5; /*inistring dstr_415__translatetomodul*/ /*_.VALSTR___V496*/ meltfptr[495] = (melt_ptr_t) & cdat->dstr_415__translatetomodul; cdat->dstr_415__translatetomodul.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_415__translatetomodul.val, "translatetomodule", sizeof (cdat->dstr_415__translatetomodul. val) - 1); cdat->dstr_415__translatetomodul.val[17] = (char) 0; cdat->dstr_415__translatetomodul.slen = 17; /*inistring dstr_416__translate_a_mel*/ /*_.VALSTR___V497*/ meltfptr[496] = (melt_ptr_t) & cdat->dstr_416__translate_a_mel; cdat->dstr_416__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_416__translate_a_mel.val, "translate a .melt file to MELT_DYNLOADED_SUFFIX modules in quicklybuilt\ , optimized, debugnoline flavors;\ \n\n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUF\ FIX; OUTPUTC= generated *.c file.", sizeof (cdat->dstr_416__translate_a_mel.val) - 1); cdat->dstr_416__translate_a_mel.val[211] = (char) 0; cdat->dstr_416__translate_a_mel.slen = 211; /*inirout drout_417__TRANSLATEDEBUG_DOCMD */ /*_.VALROUT___V498*/ meltfptr[497] = (melt_ptr_t) & cdat->drout_417__TRANSLATEDEBUG_DOCMD; cdat->drout_417__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_417__TRANSLATEDEBUG_DOCMD.routdescr, "TRANSLATEDEBUG_DOCMD @warmelt-modes.melt:3943", MELT_ROUTDESCR_LEN - 1); cdat->drout_417__TRANSLATEDEBUG_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_417__TRANSLATEDEBUG_DOCMD, meltrout_62_warmelt_modes_TRANSLATEDEBUG_DOCMD); /*iniclos dclo_418__TRANSLATEDEBUG_DOCMD */ /*_.VALCLO___V500*/ meltfptr[499] = (melt_ptr_t) & cdat->dclo_418__TRANSLATEDEBUG_DOCMD; cdat->dclo_418__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_418__TRANSLATEDEBUG_DOCMD.nbval = 0; /*inistring dstr_419__debugnoline*/ /*_.VALSTR___V499*/ meltfptr[498] = (melt_ptr_t) & cdat->dstr_419__debugnoline; cdat->dstr_419__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_419__debugnoline.val, "debugnoline", sizeof (cdat->dstr_419__debugnoline.val) - 1); cdat->dstr_419__debugnoline.val[11] = (char) 0; cdat->dstr_419__debugnoline.slen = 11; /*iniobj dsym_420__TRANSLATEDEBUG_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V501*/ meltfptr[500]) /*_.VALDATA___V501*/ meltfptr[500] = (melt_ptr_t) & cdat->dsym_420__TRANSLATEDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_420__TRANSLATEDEBUG_MODE", melt_magic_discr ((melt_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__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_420__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_420__TRANSLATEDEBUG_MODE.obj_hash = 310232635; cdat->dsym_420__TRANSLATEDEBUG_MODE.obj_len = 3; /*inistring dstr_421__TRANSLATEDEBUG_M*/ /*_.VALSTR___V502*/ meltfptr[501] = (melt_ptr_t) & cdat->dstr_421__TRANSLATEDEBUG_M; cdat->dstr_421__TRANSLATEDEBUG_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_421__TRANSLATEDEBUG_M.val, "TRANSLATEDEBUG_MODE", sizeof (cdat->dstr_421__TRANSLATEDEBUG_M. val) - 1); cdat->dstr_421__TRANSLATEDEBUG_M.val[19] = (char) 0; cdat->dstr_421__TRANSLATEDEBUG_M.slen = 19; MELT_LOCATION ("warmelt-modes.melt:3958:/ iniobj"); /*iniobj dobj_422__TRANSLATEDEBUG_MODE*/ /*_.VALDATA___V503*/ meltfptr[502] = (melt_ptr_t) & cdat->dobj_422__TRANSLATEDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_422__TRANSLATEDEBUG_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_422__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_422__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_422__TRANSLATEDEBUG_MODE.obj_hash = 29114681; cdat->dobj_422__TRANSLATEDEBUG_MODE.obj_len = 5; /*inistring dstr_423__translatedebug*/ /*_.VALSTR___V504*/ meltfptr[503] = (melt_ptr_t) & cdat->dstr_423__translatedebug; cdat->dstr_423__translatedebug.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_423__translatedebug.val, "translatedebug", sizeof (cdat->dstr_423__translatedebug.val) - 1); cdat->dstr_423__translatedebug.val[14] = (char) 0; cdat->dstr_423__translatedebug.slen = 14; /*inistring dstr_424__translate_a_mel*/ /*_.VALSTR___V505*/ meltfptr[504] = (melt_ptr_t) & cdat->dstr_424__translate_a_mel; cdat->dstr_424__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_424__translate_a_mel.val + 0, "translate a .melt file to .debugnoline module for low-level\ \ndebu" "g, including gdb;\n\n\t ARGUMENT= input file; OUTPUT= generated mod" "ule with MELT_DYNLOADED_SUFFIX; COUTPUT= generated *.c file\ \n\n\t g" "enerates also *.c and no MELT line number;\ \n\n\t Useful for running", /*big */ 256); /*end big inistring */ strncpy (cdat->dstr_424__translate_a_mel.val + 256, " gdb on the module. MELT debugging (DEBUG,\ \nASSERT_MSG) is enabled", sizeof (cdat->dstr_424__translate_a_mel.val) - 257); cdat->dstr_424__translate_a_mel.val[321] = (char) 0; cdat->dstr_424__translate_a_mel.slen = 321; /*inirout drout_425__TRANSLATEQUICKLY_DOCMD */ /*_.VALROUT___V506*/ meltfptr[505] = (melt_ptr_t) & cdat->drout_425__TRANSLATEQUICKLY_DOCMD; cdat->drout_425__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_425__TRANSLATEQUICKLY_DOCMD.routdescr, "TRANSLATEQUICKLY_DOCMD @warmelt-modes.melt:3972", MELT_ROUTDESCR_LEN - 1); cdat->drout_425__TRANSLATEQUICKLY_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_425__TRANSLATEQUICKLY_DOCMD, meltrout_63_warmelt_modes_TRANSLATEQUICKLY_DOCMD); /*iniclos dclo_426__TRANSLATEQUICKLY_DOCMD */ /*_.VALCLO___V508*/ meltfptr[507] = (melt_ptr_t) & cdat->dclo_426__TRANSLATEQUICKLY_DOCMD; cdat->dclo_426__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_426__TRANSLATEQUICKLY_DOCMD.nbval = 0; /*inistring dstr_427__quicklybuilt*/ /*_.VALSTR___V507*/ meltfptr[506] = (melt_ptr_t) & cdat->dstr_427__quicklybuilt; cdat->dstr_427__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_427__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_427__quicklybuilt.val) - 1); cdat->dstr_427__quicklybuilt.val[12] = (char) 0; cdat->dstr_427__quicklybuilt.slen = 12; /*iniobj dsym_428__TRANSLATEQUICKLY_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V509*/ meltfptr[508]) /*_.VALDATA___V509*/ meltfptr[508] = (melt_ptr_t) & cdat->dsym_428__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_428__TRANSLATEQUICKLY_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_428__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_428__TRANSLATEQUICKLY_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_428__TRANSLATEQUICKLY_MODE.obj_hash = 514918979; cdat->dsym_428__TRANSLATEQUICKLY_MODE.obj_len = 3; /*inistring dstr_429__TRANSLATEQUICKLY*/ /*_.VALSTR___V510*/ meltfptr[509] = (melt_ptr_t) & cdat->dstr_429__TRANSLATEQUICKLY; cdat->dstr_429__TRANSLATEQUICKLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_429__TRANSLATEQUICKLY.val, "TRANSLATEQUICKLY_MODE", sizeof (cdat->dstr_429__TRANSLATEQUICKLY. val) - 1); cdat->dstr_429__TRANSLATEQUICKLY.val[21] = (char) 0; cdat->dstr_429__TRANSLATEQUICKLY.slen = 21; MELT_LOCATION ("warmelt-modes.melt:3989:/ iniobj"); /*iniobj dobj_430__TRANSLATEQUICKLY_MODE*/ /*_.VALDATA___V511*/ meltfptr[510] = (melt_ptr_t) & cdat->dobj_430__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_430__TRANSLATEQUICKLY_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_430__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_430__TRANSLATEQUICKLY_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_430__TRANSLATEQUICKLY_MODE.obj_hash = 290757609; cdat->dobj_430__TRANSLATEQUICKLY_MODE.obj_len = 5; /*inistring dstr_431__translatequickly*/ /*_.VALSTR___V512*/ meltfptr[511] = (melt_ptr_t) & cdat->dstr_431__translatequickly; cdat->dstr_431__translatequickly.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_431__translatequickly.val, "translatequickly", sizeof (cdat->dstr_431__translatequickly. val) - 1); cdat->dstr_431__translatequickly.val[16] = (char) 0; cdat->dstr_431__translatequickly.slen = 16; /*inistring dstr_432__translate_quickl*/ /*_.VALSTR___V513*/ meltfptr[512] = (melt_ptr_t) & cdat->dstr_432__translate_quickl; cdat->dstr_432__translate_quickl.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_432__translate_quickl.val, "translate quickly a .melt file to .quicklybuilt module with MELT debugging\ enabled (DEBUG, ASSERT_MSG...);\n\ \n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUFFI\ X; COUTPUT= generated *.c file\n.", sizeof (cdat->dstr_432__translate_quickl.val) - 1); cdat->dstr_432__translate_quickl.val[214] = (char) 0; cdat->dstr_432__translate_quickl.slen = 214; /*inirout drout_433__TRANSLATEOPTIMIZED_DOCMD */ /*_.VALROUT___V514*/ meltfptr[513] = (melt_ptr_t) & cdat->drout_433__TRANSLATEOPTIMIZED_DOCMD; cdat->drout_433__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_433__TRANSLATEOPTIMIZED_DOCMD.routdescr, "TRANSLATEOPTIMIZED_DOCMD @warmelt-modes.melt:4000", MELT_ROUTDESCR_LEN - 1); cdat->drout_433__TRANSLATEOPTIMIZED_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_433__TRANSLATEOPTIMIZED_DOCMD, meltrout_64_warmelt_modes_TRANSLATEOPTIMIZED_DOCMD); /*iniclos dclo_434__TRANSLATEOPTIMIZED_DOCMD */ /*_.VALCLO___V516*/ meltfptr[515] = (melt_ptr_t) & cdat->dclo_434__TRANSLATEOPTIMIZED_DOCMD; cdat->dclo_434__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_434__TRANSLATEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_435__optimized*/ /*_.VALSTR___V515*/ meltfptr[514] = (melt_ptr_t) & cdat->dstr_435__optimized; cdat->dstr_435__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_435__optimized.val, "optimized", sizeof (cdat->dstr_435__optimized.val) - 1); cdat->dstr_435__optimized.val[9] = (char) 0; cdat->dstr_435__optimized.slen = 9; /*iniobj dsym_436__TRANSLATEOPTIMIZED_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V517*/ meltfptr[516]) /*_.VALDATA___V517*/ meltfptr[516] = (melt_ptr_t) & cdat->dsym_436__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_436__TRANSLATEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_436__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_436__TRANSLATEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_436__TRANSLATEOPTIMIZED_MODE.obj_hash = 609230229; cdat->dsym_436__TRANSLATEOPTIMIZED_MODE.obj_len = 3; /*inistring dstr_437__TRANSLATEOPTIMIZ*/ /*_.VALSTR___V518*/ meltfptr[517] = (melt_ptr_t) & cdat->dstr_437__TRANSLATEOPTIMIZ; cdat->dstr_437__TRANSLATEOPTIMIZ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_437__TRANSLATEOPTIMIZ.val, "TRANSLATEOPTIMIZED_MODE", sizeof (cdat->dstr_437__TRANSLATEOPTIMIZ. val) - 1); cdat->dstr_437__TRANSLATEOPTIMIZ.val[23] = (char) 0; cdat->dstr_437__TRANSLATEOPTIMIZ.slen = 23; MELT_LOCATION ("warmelt-modes.melt:4017:/ iniobj"); /*iniobj dobj_438__TRANSLATEOPTIMIZED_MODE*/ /*_.VALDATA___V519*/ meltfptr[518] = (melt_ptr_t) & cdat->dobj_438__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_438__TRANSLATEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_438__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_438__TRANSLATEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_438__TRANSLATEOPTIMIZED_MODE.obj_hash = 892651274; cdat->dobj_438__TRANSLATEOPTIMIZED_MODE.obj_len = 5; /*inistring dstr_439__translateoptimiz*/ /*_.VALSTR___V520*/ meltfptr[519] = (melt_ptr_t) & cdat->dstr_439__translateoptimiz; cdat->dstr_439__translateoptimiz.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_439__translateoptimiz.val, "translateoptimized", sizeof (cdat->dstr_439__translateoptimiz. val) - 1); cdat->dstr_439__translateoptimiz.val[18] = (char) 0; cdat->dstr_439__translateoptimiz.slen = 18; /*inistring dstr_440__translate_a_me*/ /*_.VALSTR___V521*/ meltfptr[520] = (melt_ptr_t) & cdat->dstr_440__translate_a_me; cdat->dstr_440__translate_a_me.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_440__translate_a_me.val, "translate a .melt file to an .optimized module without MELT debugging\ \ \n\n\t ARGUMENT= input file; OUTPUT= generated module with MELT_DYNLOADED_SUF\ FIX; COUTPUT= generated *.c file\n.", sizeof (cdat->dstr_440__translate_a_me.val) - 1); cdat->dstr_440__translate_a_me.val[178] = (char) 0; cdat->dstr_440__translate_a_me.slen = 178; /*inirout drout_441__TRANSLATEFILE_DOCMD */ /*_.VALROUT___V522*/ meltfptr[521] = (melt_ptr_t) & cdat->drout_441__TRANSLATEFILE_DOCMD; cdat->drout_441__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_441__TRANSLATEFILE_DOCMD.routdescr, "TRANSLATEFILE_DOCMD @warmelt-modes.melt:4029", MELT_ROUTDESCR_LEN - 1); cdat->drout_441__TRANSLATEFILE_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_441__TRANSLATEFILE_DOCMD, meltrout_65_warmelt_modes_TRANSLATEFILE_DOCMD); /*iniclos dclo_442__TRANSLATEFILE_DOCMD */ /*_.VALCLO___V523*/ meltfptr[522] = (melt_ptr_t) & cdat->dclo_442__TRANSLATEFILE_DOCMD; cdat->dclo_442__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_442__TRANSLATEFILE_DOCMD.nbval = 0; /*iniobj dsym_443__TRANSLATEFILE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V524*/ meltfptr[523]) /*_.VALDATA___V524*/ meltfptr[523] = (melt_ptr_t) & cdat->dsym_443__TRANSLATEFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_443__TRANSLATEFILE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_443__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_443__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_443__TRANSLATEFILE_MODE.obj_hash = 798309888; cdat->dsym_443__TRANSLATEFILE_MODE.obj_len = 3; /*inistring dstr_444__TRANSLATEFILE_MO*/ /*_.VALSTR___V525*/ meltfptr[524] = (melt_ptr_t) & cdat->dstr_444__TRANSLATEFILE_MO; cdat->dstr_444__TRANSLATEFILE_MO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_444__TRANSLATEFILE_MO.val, "TRANSLATEFILE_MODE", sizeof (cdat->dstr_444__TRANSLATEFILE_MO. val) - 1); cdat->dstr_444__TRANSLATEFILE_MO.val[18] = (char) 0; cdat->dstr_444__TRANSLATEFILE_MO.slen = 18; MELT_LOCATION ("warmelt-modes.melt:4071:/ iniobj"); /*iniobj dobj_445__TRANSLATEFILE_MODE*/ /*_.VALDATA___V526*/ meltfptr[525] = (melt_ptr_t) & cdat->dobj_445__TRANSLATEFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_445__TRANSLATEFILE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_445__TRANSLATEFILE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_445__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_445__TRANSLATEFILE_MODE.obj_hash = 1018984106; cdat->dobj_445__TRANSLATEFILE_MODE.obj_len = 5; /*inistring dstr_446__translatefile*/ /*_.VALSTR___V527*/ meltfptr[526] = (melt_ptr_t) & cdat->dstr_446__translatefile; cdat->dstr_446__translatefile.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_446__translatefile.val, "translatefile", sizeof (cdat->dstr_446__translatefile.val) - 1); cdat->dstr_446__translatefile.val[13] = (char) 0; cdat->dstr_446__translatefile.slen = 13; /*inistring dstr_447__translate_a_mel*/ /*_.VALSTR___V528*/ meltfptr[527] = (melt_ptr_t) & cdat->dstr_447__translate_a_mel; cdat->dstr_447__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_447__translate_a_mel.val, "translate a .melt file to .c;\n\n\t ARGUMENT= input file; OUTPUT= generated\ C file", sizeof (cdat->dstr_447__translate_a_mel.val) - 1); cdat->dstr_447__translate_a_mel.val[79] = (char) 0; cdat->dstr_447__translate_a_mel.slen = 79; /*inirout drout_448__TRANSLATEINIT_DOCMD */ /*_.VALROUT___V529*/ meltfptr[528] = (melt_ptr_t) & cdat->drout_448__TRANSLATEINIT_DOCMD; cdat->drout_448__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_448__TRANSLATEINIT_DOCMD.routdescr, "TRANSLATEINIT_DOCMD @warmelt-modes.melt:4083", MELT_ROUTDESCR_LEN - 1); cdat->drout_448__TRANSLATEINIT_DOCMD.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_448__TRANSLATEINIT_DOCMD, meltrout_66_warmelt_modes_TRANSLATEINIT_DOCMD); /*iniclos dclo_449__TRANSLATEINIT_DOCMD */ /*_.VALCLO___V531*/ meltfptr[530] = (melt_ptr_t) & cdat->dclo_449__TRANSLATEINIT_DOCMD; cdat->dclo_449__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_449__TRANSLATEINIT_DOCMD.nbval = 0; /*inirout drout_450__LAMBDA_ */ /*_.VALROUT___V530*/ meltfptr[529] = (melt_ptr_t) & cdat->drout_450__LAMBDA_; cdat->drout_450__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_450__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4126", MELT_ROUTDESCR_LEN - 1); cdat->drout_450__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_450__LAMBDA_, meltrout_67_warmelt_modes_LAMBDA___21__); /*iniobj dsym_451__COMPILE_LIST_SEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V532*/ meltfptr[531]) /*_.VALDATA___V532*/ meltfptr[531] = (melt_ptr_t) & cdat->dsym_451__COMPILE_LIST_SEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_451__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_451__COMPILE_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_451__COMPILE_LIST_SEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_451__COMPILE_LIST_SEXPR.obj_hash = 346985953; cdat->dsym_451__COMPILE_LIST_SEXPR.obj_len = 3; /*inistring dstr_452__COMPILE_LIST_SEX*/ /*_.VALSTR___V533*/ meltfptr[532] = (melt_ptr_t) & cdat->dstr_452__COMPILE_LIST_SEX; cdat->dstr_452__COMPILE_LIST_SEX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_452__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR", sizeof (cdat->dstr_452__COMPILE_LIST_SEX. val) - 1); cdat->dstr_452__COMPILE_LIST_SEX.val[18] = (char) 0; cdat->dstr_452__COMPILE_LIST_SEX.slen = 18; /*iniobj dsym_453__TRANSLATEINIT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V534*/ meltfptr[533]) /*_.VALDATA___V534*/ meltfptr[533] = (melt_ptr_t) & cdat->dsym_453__TRANSLATEINIT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_453__TRANSLATEINIT_MODE", melt_magic_discr ((melt_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__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_453__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_453__TRANSLATEINIT_MODE.obj_hash = 941353815; cdat->dsym_453__TRANSLATEINIT_MODE.obj_len = 3; /*inistring dstr_454__TRANSLATEINIT_MO*/ /*_.VALSTR___V535*/ meltfptr[534] = (melt_ptr_t) & cdat->dstr_454__TRANSLATEINIT_MO; cdat->dstr_454__TRANSLATEINIT_MO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_454__TRANSLATEINIT_MO.val, "TRANSLATEINIT_MODE", sizeof (cdat->dstr_454__TRANSLATEINIT_MO. val) - 1); cdat->dstr_454__TRANSLATEINIT_MO.val[18] = (char) 0; cdat->dstr_454__TRANSLATEINIT_MO.slen = 18; MELT_LOCATION ("warmelt-modes.melt:4149:/ iniobj"); /*iniobj dobj_455__TRANSLATEINIT_MODE*/ /*_.VALDATA___V536*/ meltfptr[535] = (melt_ptr_t) & cdat->dobj_455__TRANSLATEINIT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_455__TRANSLATEINIT_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_455__TRANSLATEINIT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_455__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_455__TRANSLATEINIT_MODE.obj_hash = 176839839; cdat->dobj_455__TRANSLATEINIT_MODE.obj_len = 5; /*inistring dstr_456__translateinit*/ /*_.VALSTR___V537*/ meltfptr[536] = (melt_ptr_t) & cdat->dstr_456__translateinit; cdat->dstr_456__translateinit.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_456__translateinit.val, "translateinit", sizeof (cdat->dstr_456__translateinit.val) - 1); cdat->dstr_456__translateinit.val[13] = (char) 0; cdat->dstr_456__translateinit.slen = 13; /*inistring dstr_457__translate_the_ve*/ /*_.VALSTR___V538*/ meltfptr[537] = (melt_ptr_t) & cdat->dstr_457__translate_the_ve; cdat->dstr_457__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_457__translate_the_ve.val, "translate the very first *.melt file;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated file.", sizeof (cdat->dstr_457__translate_the_ve.val) - 1); cdat->dstr_457__translate_the_ve.val[120] = (char) 0; cdat->dstr_457__translate_the_ve.slen = 120; /*inirout drout_458__TRANSLATEINIT_FLAVORED */ /*_.VALROUT___V539*/ meltfptr[538] = (melt_ptr_t) & cdat->drout_458__TRANSLATEINIT_FLAVORED; cdat->drout_458__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_458__TRANSLATEINIT_FLAVORED.routdescr, "TRANSLATEINIT_FLAVORED @warmelt-modes.melt:4162", MELT_ROUTDESCR_LEN - 1); cdat->drout_458__TRANSLATEINIT_FLAVORED.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_458__TRANSLATEINIT_FLAVORED, meltrout_68_warmelt_modes_TRANSLATEINIT_FLAVORED); /*iniclos dclo_459__TRANSLATEINIT_FLAVORED */ /*_.VALCLO___V541*/ meltfptr[540] = (melt_ptr_t) & cdat->dclo_459__TRANSLATEINIT_FLAVORED; cdat->dclo_459__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_459__TRANSLATEINIT_FLAVORED.nbval = 0; /*inirout drout_460__LAMBDA_ */ /*_.VALROUT___V540*/ meltfptr[539] = (melt_ptr_t) & cdat->drout_460__LAMBDA_; cdat->drout_460__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_460__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4203", MELT_ROUTDESCR_LEN - 1); cdat->drout_460__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_460__LAMBDA_, meltrout_69_warmelt_modes_LAMBDA___22__); /*inirout drout_461__TRANSLATEINITMODULE_DOCMD */ /*_.VALROUT___V542*/ meltfptr[541] = (melt_ptr_t) & cdat->drout_461__TRANSLATEINITMODULE_DOCMD; cdat->drout_461__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_461__TRANSLATEINITMODULE_DOCMD.routdescr, "TRANSLATEINITMODULE_DOCMD @warmelt-modes.melt:4251", MELT_ROUTDESCR_LEN - 1); cdat->drout_461__TRANSLATEINITMODULE_DOCMD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_461__TRANSLATEINITMODULE_DOCMD, meltrout_70_warmelt_modes_TRANSLATEINITMODULE_DOCMD); /*iniclos dclo_462__TRANSLATEINITMODULE_DOCMD */ /*_.VALCLO___V546*/ meltfptr[545] = (melt_ptr_t) & cdat->dclo_462__TRANSLATEINITMODULE_DOCMD; cdat->dclo_462__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_462__TRANSLATEINITMODULE_DOCMD.nbval = 0; /*inistring dstr_463__quicklybuilt*/ /*_.VALSTR___V543*/ meltfptr[542] = (melt_ptr_t) & cdat->dstr_463__quicklybuilt; cdat->dstr_463__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_463__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_463__quicklybuilt.val) - 1); cdat->dstr_463__quicklybuilt.val[12] = (char) 0; cdat->dstr_463__quicklybuilt.slen = 12; /*inistring dstr_464__debugnoline*/ /*_.VALSTR___V544*/ meltfptr[543] = (melt_ptr_t) & cdat->dstr_464__debugnoline; cdat->dstr_464__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_464__debugnoline.val, "debugnoline", sizeof (cdat->dstr_464__debugnoline.val) - 1); cdat->dstr_464__debugnoline.val[11] = (char) 0; cdat->dstr_464__debugnoline.slen = 11; /*inistring dstr_465__optimized*/ /*_.VALSTR___V545*/ meltfptr[544] = (melt_ptr_t) & cdat->dstr_465__optimized; cdat->dstr_465__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_465__optimized.val, "optimized", sizeof (cdat->dstr_465__optimized.val) - 1); cdat->dstr_465__optimized.val[9] = (char) 0; cdat->dstr_465__optimized.slen = 9; /*iniobj dsym_466__TRANSLATEINITMODULE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V547*/ meltfptr[546]) /*_.VALDATA___V547*/ meltfptr[546] = (melt_ptr_t) & cdat->dsym_466__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_466__TRANSLATEINITMODULE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_466__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_466__TRANSLATEINITMODULE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_466__TRANSLATEINITMODULE_MODE.obj_hash = 127033754; cdat->dsym_466__TRANSLATEINITMODULE_MODE.obj_len = 3; /*inistring dstr_467__TRANSLATEINITMOD*/ /*_.VALSTR___V548*/ meltfptr[547] = (melt_ptr_t) & cdat->dstr_467__TRANSLATEINITMOD; cdat->dstr_467__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_467__TRANSLATEINITMOD.val, "TRANSLATEINITMODULE_MODE", sizeof (cdat->dstr_467__TRANSLATEINITMOD. val) - 1); cdat->dstr_467__TRANSLATEINITMOD.val[24] = (char) 0; cdat->dstr_467__TRANSLATEINITMOD.slen = 24; MELT_LOCATION ("warmelt-modes.melt:4260:/ iniobj"); /*iniobj dobj_468__TRANSLATEINITMODULE_MODE*/ /*_.VALDATA___V549*/ meltfptr[548] = (melt_ptr_t) & cdat->dobj_468__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_468__TRANSLATEINITMODULE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_468__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_468__TRANSLATEINITMODULE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_468__TRANSLATEINITMODULE_MODE.obj_hash = 532851531; cdat->dobj_468__TRANSLATEINITMODULE_MODE.obj_len = 5; /*inistring dstr_469__translateinitmod*/ /*_.VALSTR___V550*/ meltfptr[549] = (melt_ptr_t) & cdat->dstr_469__translateinitmod; cdat->dstr_469__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_469__translateinitmod.val, "translateinitmodule", sizeof (cdat->dstr_469__translateinitmod. val) - 1); cdat->dstr_469__translateinitmod.val[19] = (char) 0; cdat->dstr_469__translateinitmod.slen = 19; /*inistring dstr_470__translate_the_ve*/ /*_.VALSTR___V551*/ meltfptr[550] = (melt_ptr_t) & cdat->dstr_470__translate_the_ve; cdat->dstr_470__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_470__translate_the_ve.val, "translate the very first *.melt file into quicklybuilt, optimized,\ debugnoline falvors of modules;\n\ \n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (cdat->dstr_470__translate_the_ve.val) - 1); cdat->dstr_470__translate_the_ve.val[188] = (char) 0; cdat->dstr_470__translate_the_ve.slen = 188; /*inirout drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD */ /*_.VALROUT___V552*/ meltfptr[551] = (melt_ptr_t) & cdat->drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; cdat->drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.routdescr, "TRANSLATEINITMODULEQUICKLYBUILT_DOCMD @warmelt-modes.melt:4271", MELT_ROUTDESCR_LEN - 1); cdat->drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD, meltrout_71_warmelt_modes_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD); /*iniclos dclo_472__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD */ /*_.VALCLO___V554*/ meltfptr[553] = (melt_ptr_t) & cdat->dclo_472__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; cdat->dclo_472__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_472__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 0; /*inistring dstr_473__quicklybuilt*/ /*_.VALSTR___V553*/ meltfptr[552] = (melt_ptr_t) & cdat->dstr_473__quicklybuilt; cdat->dstr_473__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_473__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_473__quicklybuilt.val) - 1); cdat->dstr_473__quicklybuilt.val[12] = (char) 0; cdat->dstr_473__quicklybuilt.slen = 12; /*iniobj dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V555*/ meltfptr[554]) /*_.VALDATA___V555*/ meltfptr[554] = (melt_ptr_t) & cdat->dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_hash = 390251417; cdat->dsym_474__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_len = 3; /*inistring dstr_475__TRANSLATEINITMOD*/ /*_.VALSTR___V556*/ meltfptr[555] = (melt_ptr_t) & cdat->dstr_475__TRANSLATEINITMOD; cdat->dstr_475__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_475__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEQUICKLYBUILT_MODE", sizeof (cdat->dstr_475__TRANSLATEINITMOD. val) - 1); cdat->dstr_475__TRANSLATEINITMOD.val[36] = (char) 0; cdat->dstr_475__TRANSLATEINITMOD.slen = 36; MELT_LOCATION ("warmelt-modes.melt:4278:/ iniobj"); /*iniobj dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ /*_.VALDATA___V557*/ meltfptr[556] = (melt_ptr_t) & cdat->dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_hash = 726185137; cdat->dobj_476__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_len = 5; /*inistring dstr_477__translateinitmod*/ /*_.VALSTR___V558*/ meltfptr[557] = (melt_ptr_t) & cdat->dstr_477__translateinitmod; cdat->dstr_477__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_477__translateinitmod.val, "translateinitmodulequicklybuilt", sizeof (cdat->dstr_477__translateinitmod. val) - 1); cdat->dstr_477__translateinitmod.val[31] = (char) 0; cdat->dstr_477__translateinitmod.slen = 31; /*inistring dstr_478__translate_the_ve*/ /*_.VALSTR___V559*/ meltfptr[558] = (melt_ptr_t) & cdat->dstr_478__translate_the_ve; cdat->dstr_478__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_478__translate_the_ve.val, "translate the very first *.melt file into quicklybuilt module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (cdat->dstr_478__translate_the_ve.val) - 1); cdat->dstr_478__translate_the_ve.val[152] = (char) 0; cdat->dstr_478__translate_the_ve.slen = 152; /*inirout drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD */ /*_.VALROUT___V560*/ meltfptr[559] = (melt_ptr_t) & cdat->drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; cdat->drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.routdescr, "TRANSLATEINITMODULEDEBUGNOLINE_DOCMD @warmelt-modes.melt:4289", MELT_ROUTDESCR_LEN - 1); cdat->drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD, meltrout_72_warmelt_modes_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD); /*iniclos dclo_480__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD */ /*_.VALCLO___V562*/ meltfptr[561] = (melt_ptr_t) & cdat->dclo_480__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; cdat->dclo_480__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_480__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 0; /*inistring dstr_481__debugnoline*/ /*_.VALSTR___V561*/ meltfptr[560] = (melt_ptr_t) & cdat->dstr_481__debugnoline; cdat->dstr_481__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_481__debugnoline.val, "debugnoline", sizeof (cdat->dstr_481__debugnoline.val) - 1); cdat->dstr_481__debugnoline.val[11] = (char) 0; cdat->dstr_481__debugnoline.slen = 11; /*iniobj dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V563*/ meltfptr[562]) /*_.VALDATA___V563*/ meltfptr[562] = (melt_ptr_t) & cdat->dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_hash = 507442246; cdat->dsym_482__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_len = 3; /*inistring dstr_483__TRANSLATEINITMOD*/ /*_.VALSTR___V564*/ meltfptr[563] = (melt_ptr_t) & cdat->dstr_483__TRANSLATEINITMOD; cdat->dstr_483__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_483__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEDEBUGNOLINE_MODE", sizeof (cdat->dstr_483__TRANSLATEINITMOD. val) - 1); cdat->dstr_483__TRANSLATEINITMOD.val[35] = (char) 0; cdat->dstr_483__TRANSLATEINITMOD.slen = 35; MELT_LOCATION ("warmelt-modes.melt:4296:/ iniobj"); /*iniobj dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ /*_.VALDATA___V565*/ meltfptr[564] = (melt_ptr_t) & cdat->dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_hash = 642703600; cdat->dobj_484__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_len = 5; /*inistring dstr_485__translateinitmod*/ /*_.VALSTR___V566*/ meltfptr[565] = (melt_ptr_t) & cdat->dstr_485__translateinitmod; cdat->dstr_485__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_485__translateinitmod.val, "translateinitmoduledebugnoline", sizeof (cdat->dstr_485__translateinitmod. val) - 1); cdat->dstr_485__translateinitmod.val[30] = (char) 0; cdat->dstr_485__translateinitmod.slen = 30; /*inistring dstr_486__translate_the_ve*/ /*_.VALSTR___V567*/ meltfptr[566] = (melt_ptr_t) & cdat->dstr_486__translate_the_ve; cdat->dstr_486__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_486__translate_the_ve.val, "translate the very first *.melt file into debugnoline module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (cdat->dstr_486__translate_the_ve.val) - 1); cdat->dstr_486__translate_the_ve.val[151] = (char) 0; cdat->dstr_486__translate_the_ve.slen = 151; /*inirout drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD */ /*_.VALROUT___V568*/ meltfptr[567] = (melt_ptr_t) & cdat->drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD; cdat->drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD.routdescr, "TRANSLATEINITMODULEOPTIMIZED_DOCMD @warmelt-modes.melt:4307", MELT_ROUTDESCR_LEN - 1); cdat->drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD, meltrout_73_warmelt_modes_TRANSLATEINITMODULEOPTIMIZED_DOCMD); /*iniclos dclo_488__TRANSLATEINITMODULEOPTIMIZED_DOCMD */ /*_.VALCLO___V570*/ meltfptr[569] = (melt_ptr_t) & cdat->dclo_488__TRANSLATEINITMODULEOPTIMIZED_DOCMD; cdat->dclo_488__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_488__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_489__optimized*/ /*_.VALSTR___V569*/ meltfptr[568] = (melt_ptr_t) & cdat->dstr_489__optimized; cdat->dstr_489__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_489__optimized.val, "optimized", sizeof (cdat->dstr_489__optimized.val) - 1); cdat->dstr_489__optimized.val[9] = (char) 0; cdat->dstr_489__optimized.slen = 9; /*iniobj dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V571*/ meltfptr[570]) /*_.VALDATA___V571*/ meltfptr[570] = (melt_ptr_t) & cdat->dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_hash = 17107115; cdat->dsym_490__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_len = 3; /*inistring dstr_491__TRANSLATEINITMOD*/ /*_.VALSTR___V572*/ meltfptr[571] = (melt_ptr_t) & cdat->dstr_491__TRANSLATEINITMOD; cdat->dstr_491__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_491__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEOPTIMIZED_MODE", sizeof (cdat->dstr_491__TRANSLATEINITMOD. val) - 1); cdat->dstr_491__TRANSLATEINITMOD.val[33] = (char) 0; cdat->dstr_491__TRANSLATEINITMOD.slen = 33; MELT_LOCATION ("warmelt-modes.melt:4314:/ iniobj"); /*iniobj dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE*/ /*_.VALDATA___V573*/ meltfptr[572] = (melt_ptr_t) & cdat->dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_hash = 800312941; cdat->dobj_492__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_len = 5; /*inistring dstr_493__translateinitmod*/ /*_.VALSTR___V574*/ meltfptr[573] = (melt_ptr_t) & cdat->dstr_493__translateinitmod; cdat->dstr_493__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_493__translateinitmod.val, "translateinitmoduleoptimized", sizeof (cdat->dstr_493__translateinitmod. val) - 1); cdat->dstr_493__translateinitmod.val[28] = (char) 0; cdat->dstr_493__translateinitmod.slen = 28; /*inistring dstr_494__translate_the_ve*/ /*_.VALSTR___V575*/ meltfptr[574] = (melt_ptr_t) & cdat->dstr_494__translate_the_ve; cdat->dstr_494__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_494__translate_the_ve.val, "translate the very first *.melt file into optimized module;\ \n\n\t useful only at MELT installation! ARGUMENT= input file; OUTPUT\ = generated module base.", sizeof (cdat->dstr_494__translate_the_ve.val) - 1); cdat->dstr_494__translate_the_ve.val[149] = (char) 0; cdat->dstr_494__translate_the_ve.slen = 149; /*inirout drout_495__REGISTER_INPUT_CHANNEL_HANDLER */ /*_.VALROUT___V191*/ meltfptr[190] = (melt_ptr_t) & cdat->drout_495__REGISTER_INPUT_CHANNEL_HANDLER; cdat->drout_495__REGISTER_INPUT_CHANNEL_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_495__REGISTER_INPUT_CHANNEL_HANDLER.routdescr, "REGISTER_INPUT_CHANNEL_HANDLER @warmelt-modes.melt:4326", MELT_ROUTDESCR_LEN - 1); cdat->drout_495__REGISTER_INPUT_CHANNEL_HANDLER.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_495__REGISTER_INPUT_CHANNEL_HANDLER, meltrout_74_warmelt_modes_REGISTER_INPUT_CHANNEL_HANDLER); /*iniclos dclo_496__REGISTER_INPUT_CHANNEL_HANDLER */ /*_.VALCLO___V190*/ meltfptr[189] = (melt_ptr_t) & cdat->dclo_496__REGISTER_INPUT_CHANNEL_HANDLER; cdat->dclo_496__REGISTER_INPUT_CHANNEL_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_496__REGISTER_INPUT_CHANNEL_HANDLER.nbval = 0; /*iniobj dsym_497__DISCR_BUCKET_LONGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V576*/ meltfptr[575]) /*_.VALDATA___V576*/ meltfptr[575] = (melt_ptr_t) & cdat->dsym_497__DISCR_BUCKET_LONGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_497__DISCR_BUCKET_LONGS", melt_magic_discr ((melt_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__DISCR_BUCKET_LONGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_497__DISCR_BUCKET_LONGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_497__DISCR_BUCKET_LONGS.obj_hash = 603682282; cdat->dsym_497__DISCR_BUCKET_LONGS.obj_len = 3; /*inistring dstr_498__DISCR_BUCKET_LON*/ /*_.VALSTR___V577*/ meltfptr[576] = (melt_ptr_t) & cdat->dstr_498__DISCR_BUCKET_LON; cdat->dstr_498__DISCR_BUCKET_LON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_498__DISCR_BUCKET_LON.val, "DISCR_BUCKET_LONGS", sizeof (cdat->dstr_498__DISCR_BUCKET_LON. val) - 1); cdat->dstr_498__DISCR_BUCKET_LON.val[18] = (char) 0; cdat->dstr_498__DISCR_BUCKET_LON.slen = 18; /*iniobj dsym_499__ALARM_BUCKET_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V578*/ meltfptr[577]) /*_.VALDATA___V578*/ meltfptr[577] = (melt_ptr_t) & cdat->dsym_499__ALARM_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_499__ALARM_BUCKET_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_499__ALARM_BUCKET_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_499__ALARM_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_499__ALARM_BUCKET_REFERENCE.obj_hash = 584404197; cdat->dsym_499__ALARM_BUCKET_REFERENCE.obj_len = 3; /*inistring dstr_500__ALARM_BUCKET_REF*/ /*_.VALSTR___V579*/ meltfptr[578] = (melt_ptr_t) & cdat->dstr_500__ALARM_BUCKET_REF; cdat->dstr_500__ALARM_BUCKET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_500__ALARM_BUCKET_REF.val, "ALARM_BUCKET_REFERENCE", sizeof (cdat->dstr_500__ALARM_BUCKET_REF. val) - 1); cdat->dstr_500__ALARM_BUCKET_REF.val[22] = (char) 0; cdat->dstr_500__ALARM_BUCKET_REF.slen = 22; MELT_LOCATION ("warmelt-modes.melt:4381:/ iniobj"); /*iniobj dobj_501__ALARM_BUCKET_REFERENCE*/ /*_.VALDATA___V580*/ meltfptr[579] = (melt_ptr_t) & cdat->dobj_501__ALARM_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_501__ALARM_BUCKET_REFERENCE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_501__ALARM_BUCKET_REFERENCE", ((meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_501__ALARM_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); cdat->dobj_501__ALARM_BUCKET_REFERENCE.obj_hash = 529485904; cdat->dobj_501__ALARM_BUCKET_REFERENCE.obj_len = 1; /*inirout drout_502__HANDLE_ALARM_SIGNAL */ /*_.VALROUT___V581*/ meltfptr[580] = (melt_ptr_t) & cdat->drout_502__HANDLE_ALARM_SIGNAL; cdat->drout_502__HANDLE_ALARM_SIGNAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_502__HANDLE_ALARM_SIGNAL.routdescr, "HANDLE_ALARM_SIGNAL @warmelt-modes.melt:4384", MELT_ROUTDESCR_LEN - 1); cdat->drout_502__HANDLE_ALARM_SIGNAL.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_502__HANDLE_ALARM_SIGNAL, meltrout_75_warmelt_modes_HANDLE_ALARM_SIGNAL); /*iniclos dclo_503__HANDLE_ALARM_SIGNAL */ /*_.VALCLO___V583*/ meltfptr[582] = (melt_ptr_t) & cdat->dclo_503__HANDLE_ALARM_SIGNAL; cdat->dclo_503__HANDLE_ALARM_SIGNAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_503__HANDLE_ALARM_SIGNAL.nbval = 0; /*inirout drout_504__LAMBDA_ */ /*_.VALROUT___V582*/ meltfptr[581] = (melt_ptr_t) & cdat->drout_504__LAMBDA_; cdat->drout_504__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_504__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4396", MELT_ROUTDESCR_LEN - 1); cdat->drout_504__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_504__LAMBDA_, meltrout_76_warmelt_modes_LAMBDA___23__); /*iniobj dsym_505__CLASS_ALARM_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V584*/ meltfptr[583]) /*_.VALDATA___V584*/ meltfptr[583] = (melt_ptr_t) & cdat->dsym_505__CLASS_ALARM_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_505__CLASS_ALARM_HANDLER", melt_magic_discr ((melt_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_ALARM_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_505__CLASS_ALARM_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_505__CLASS_ALARM_HANDLER.obj_hash = 841081062; cdat->dsym_505__CLASS_ALARM_HANDLER.obj_len = 3; /*inistring dstr_506__CLASS_ALARM_HAND*/ /*_.VALSTR___V585*/ meltfptr[584] = (melt_ptr_t) & cdat->dstr_506__CLASS_ALARM_HAND; cdat->dstr_506__CLASS_ALARM_HAND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_506__CLASS_ALARM_HAND.val, "CLASS_ALARM_HANDLER", sizeof (cdat->dstr_506__CLASS_ALARM_HAND. val) - 1); cdat->dstr_506__CLASS_ALARM_HAND.val[19] = (char) 0; cdat->dstr_506__CLASS_ALARM_HAND.slen = 19; /*inirout drout_507__REGISTER_ALARM_TIMER */ /*_.VALROUT___V586*/ meltfptr[585] = (melt_ptr_t) & cdat->drout_507__REGISTER_ALARM_TIMER; cdat->drout_507__REGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_507__REGISTER_ALARM_TIMER.routdescr, "REGISTER_ALARM_TIMER @warmelt-modes.melt:4441", MELT_ROUTDESCR_LEN - 1); cdat->drout_507__REGISTER_ALARM_TIMER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_507__REGISTER_ALARM_TIMER, meltrout_77_warmelt_modes_REGISTER_ALARM_TIMER); /*iniclos dclo_508__REGISTER_ALARM_TIMER */ /*_.VALCLO___V587*/ meltfptr[586] = (melt_ptr_t) & cdat->dclo_508__REGISTER_ALARM_TIMER; cdat->dclo_508__REGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_508__REGISTER_ALARM_TIMER.nbval = 0; /*inirout drout_509__UNREGISTER_ALARM_TIMER */ /*_.VALROUT___V588*/ meltfptr[587] = (melt_ptr_t) & cdat->drout_509__UNREGISTER_ALARM_TIMER; cdat->drout_509__UNREGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_509__UNREGISTER_ALARM_TIMER.routdescr, "UNREGISTER_ALARM_TIMER @warmelt-modes.melt:4474", MELT_ROUTDESCR_LEN - 1); cdat->drout_509__UNREGISTER_ALARM_TIMER.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_509__UNREGISTER_ALARM_TIMER, meltrout_78_warmelt_modes_UNREGISTER_ALARM_TIMER); /*iniclos dclo_510__UNREGISTER_ALARM_TIMER */ /*_.VALCLO___V589*/ meltfptr[588] = (melt_ptr_t) & cdat->dclo_510__UNREGISTER_ALARM_TIMER; cdat->dclo_510__UNREGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_510__UNREGISTER_ALARM_TIMER.nbval = 0; /*iniobj dsym_511__CHILDPROC_BUCKET_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V590*/ meltfptr[589]) /*_.VALDATA___V590*/ meltfptr[589] = (melt_ptr_t) & cdat->dsym_511__CHILDPROC_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_511__CHILDPROC_BUCKET_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_511__CHILDPROC_BUCKET_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_511__CHILDPROC_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_511__CHILDPROC_BUCKET_REFERENCE.obj_hash = 519792561; cdat->dsym_511__CHILDPROC_BUCKET_REFERENCE.obj_len = 3; /*inistring dstr_512__CHILDPROC_BUCKET*/ /*_.VALSTR___V591*/ meltfptr[590] = (melt_ptr_t) & cdat->dstr_512__CHILDPROC_BUCKET; cdat->dstr_512__CHILDPROC_BUCKET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_512__CHILDPROC_BUCKET.val, "CHILDPROC_BUCKET_REFERENCE", sizeof (cdat->dstr_512__CHILDPROC_BUCKET. val) - 1); cdat->dstr_512__CHILDPROC_BUCKET.val[26] = (char) 0; cdat->dstr_512__CHILDPROC_BUCKET.slen = 26; MELT_LOCATION ("warmelt-modes.melt:4506:/ iniobj"); /*iniobj dobj_513__CHILDPROC_BUCKET_REFERENCE*/ /*_.VALDATA___V592*/ meltfptr[591] = (melt_ptr_t) & cdat->dobj_513__CHILDPROC_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_513__CHILDPROC_BUCKET_REFERENCE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_513__CHILDPROC_BUCKET_REFERENCE", ((meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_513__CHILDPROC_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); cdat->dobj_513__CHILDPROC_BUCKET_REFERENCE.obj_hash = 471986073; cdat->dobj_513__CHILDPROC_BUCKET_REFERENCE.obj_len = 1; /*inirout drout_514__CHILD_PROCESS_SIGCHLD_HANDLER */ /*_.VALROUT___V593*/ meltfptr[592] = (melt_ptr_t) & cdat->drout_514__CHILD_PROCESS_SIGCHLD_HANDLER; cdat->drout_514__CHILD_PROCESS_SIGCHLD_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_514__CHILD_PROCESS_SIGCHLD_HANDLER.routdescr, "CHILD_PROCESS_SIGCHLD_HANDLER @warmelt-modes.melt:4509", MELT_ROUTDESCR_LEN - 1); cdat->drout_514__CHILD_PROCESS_SIGCHLD_HANDLER.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_514__CHILD_PROCESS_SIGCHLD_HANDLER, meltrout_79_warmelt_modes_CHILD_PROCESS_SIGCHLD_HANDLER); /*iniclos dclo_515__CHILD_PROCESS_SIGCHLD_HANDLER */ /*_.VALCLO___V594*/ meltfptr[593] = (melt_ptr_t) & cdat->dclo_515__CHILD_PROCESS_SIGCHLD_HANDLER; cdat->dclo_515__CHILD_PROCESS_SIGCHLD_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_515__CHILD_PROCESS_SIGCHLD_HANDLER.nbval = 0; /*iniobj dsym_516__CLASS_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V595*/ meltfptr[594]) /*_.VALDATA___V595*/ meltfptr[594] = (melt_ptr_t) & cdat->dsym_516__CLASS_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_516__CLASS_CHILD_PROCESS_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_516__CLASS_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_516__CLASS_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_516__CLASS_CHILD_PROCESS_HANDLER.obj_hash = 438603295; cdat->dsym_516__CLASS_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_517__CLASS_CHILD_PROC*/ /*_.VALSTR___V596*/ meltfptr[595] = (melt_ptr_t) & cdat->dstr_517__CLASS_CHILD_PROC; cdat->dstr_517__CLASS_CHILD_PROC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_517__CLASS_CHILD_PROC.val, "CLASS_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_517__CLASS_CHILD_PROC. val) - 1); cdat->dstr_517__CLASS_CHILD_PROC.val[27] = (char) 0; cdat->dstr_517__CLASS_CHILD_PROC.slen = 27; /*inirout drout_518__REGISTER_CHILD_PROCESS_HANDLER */ /*_.VALROUT___V597*/ meltfptr[596] = (melt_ptr_t) & cdat->drout_518__REGISTER_CHILD_PROCESS_HANDLER; cdat->drout_518__REGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_518__REGISTER_CHILD_PROCESS_HANDLER.routdescr, "REGISTER_CHILD_PROCESS_HANDLER @warmelt-modes.melt:4617", MELT_ROUTDESCR_LEN - 1); cdat->drout_518__REGISTER_CHILD_PROCESS_HANDLER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_518__REGISTER_CHILD_PROCESS_HANDLER, meltrout_80_warmelt_modes_REGISTER_CHILD_PROCESS_HANDLER); /*iniclos dclo_519__REGISTER_CHILD_PROCESS_HANDLER */ /*_.VALCLO___V598*/ meltfptr[597] = (melt_ptr_t) & cdat->dclo_519__REGISTER_CHILD_PROCESS_HANDLER; cdat->dclo_519__REGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_519__REGISTER_CHILD_PROCESS_HANDLER.nbval = 0; /*inirout drout_520__UNREGISTER_CHILD_PROCESS_HANDLER */ /*_.VALROUT___V599*/ meltfptr[598] = (melt_ptr_t) & cdat->drout_520__UNREGISTER_CHILD_PROCESS_HANDLER; cdat->drout_520__UNREGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_520__UNREGISTER_CHILD_PROCESS_HANDLER.routdescr, "UNREGISTER_CHILD_PROCESS_HANDLER @warmelt-modes.melt:4661", MELT_ROUTDESCR_LEN - 1); cdat->drout_520__UNREGISTER_CHILD_PROCESS_HANDLER.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_520__UNREGISTER_CHILD_PROCESS_HANDLER, meltrout_81_warmelt_modes_UNREGISTER_CHILD_PROCESS_HANDLER); /*iniclos dclo_521__UNREGISTER_CHILD_PROCESS_HANDLER */ /*_.VALCLO___V600*/ meltfptr[599] = (melt_ptr_t) & cdat->dclo_521__UNREGISTER_CHILD_PROCESS_HANDLER; cdat->dclo_521__UNREGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_521__UNREGISTER_CHILD_PROCESS_HANDLER.nbval = 0; /*iniobj dsym_522__REGISTER_ALARM_TIMER*/ /*uniqueobj*/ if (! /*_.VALDATA___V601*/ meltfptr[600]) /*_.VALDATA___V601*/ meltfptr[600] = (melt_ptr_t) & cdat->dsym_522__REGISTER_ALARM_TIMER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_522__REGISTER_ALARM_TIMER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_522__REGISTER_ALARM_TIMER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_522__REGISTER_ALARM_TIMER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_522__REGISTER_ALARM_TIMER.obj_hash = 507442246; cdat->dsym_522__REGISTER_ALARM_TIMER.obj_len = 3; /*inistring dstr_523__REGISTER_ALARM_T*/ /*_.VALSTR___V602*/ meltfptr[601] = (melt_ptr_t) & cdat->dstr_523__REGISTER_ALARM_T; cdat->dstr_523__REGISTER_ALARM_T.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_523__REGISTER_ALARM_T.val, "REGISTER_ALARM_TIMER", sizeof (cdat->dstr_523__REGISTER_ALARM_T. val) - 1); cdat->dstr_523__REGISTER_ALARM_T.val[20] = (char) 0; cdat->dstr_523__REGISTER_ALARM_T.slen = 20; /*iniobj dsym_524__REGISTER_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V603*/ meltfptr[602]) /*_.VALDATA___V603*/ meltfptr[602] = (melt_ptr_t) & cdat->dsym_524__REGISTER_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_524__REGISTER_CHILD_PROCESS_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_524__REGISTER_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_524__REGISTER_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_524__REGISTER_CHILD_PROCESS_HANDLER.obj_hash = 303087376; cdat->dsym_524__REGISTER_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_525__REGISTER_CHILD_P*/ /*_.VALSTR___V604*/ meltfptr[603] = (melt_ptr_t) & cdat->dstr_525__REGISTER_CHILD_P; cdat->dstr_525__REGISTER_CHILD_P.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_525__REGISTER_CHILD_P.val, "REGISTER_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_525__REGISTER_CHILD_P. val) - 1); cdat->dstr_525__REGISTER_CHILD_P.val[30] = (char) 0; cdat->dstr_525__REGISTER_CHILD_P.slen = 30; /*iniobj dsym_526__REGISTER_INPUT_CHANNEL_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V605*/ meltfptr[604]) /*_.VALDATA___V605*/ meltfptr[604] = (melt_ptr_t) & cdat->dsym_526__REGISTER_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_526__REGISTER_INPUT_CHANNEL_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_526__REGISTER_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_526__REGISTER_INPUT_CHANNEL_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_526__REGISTER_INPUT_CHANNEL_HANDLER.obj_hash = 237908126; cdat->dsym_526__REGISTER_INPUT_CHANNEL_HANDLER.obj_len = 3; /*inistring dstr_527__REGISTER_INPUT_C*/ /*_.VALSTR___V606*/ meltfptr[605] = (melt_ptr_t) & cdat->dstr_527__REGISTER_INPUT_C; cdat->dstr_527__REGISTER_INPUT_C.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_527__REGISTER_INPUT_C.val, "REGISTER_INPUT_CHANNEL_HANDLER", sizeof (cdat->dstr_527__REGISTER_INPUT_C. val) - 1); cdat->dstr_527__REGISTER_INPUT_C.val[30] = (char) 0; cdat->dstr_527__REGISTER_INPUT_C.slen = 30; /*iniobj dsym_528__UNREGISTER_ALARM_TIMER*/ /*uniqueobj*/ if (! /*_.VALDATA___V607*/ meltfptr[606]) /*_.VALDATA___V607*/ meltfptr[606] = (melt_ptr_t) & cdat->dsym_528__UNREGISTER_ALARM_TIMER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_528__UNREGISTER_ALARM_TIMER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_528__UNREGISTER_ALARM_TIMER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_528__UNREGISTER_ALARM_TIMER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_528__UNREGISTER_ALARM_TIMER.obj_hash = 943290870; cdat->dsym_528__UNREGISTER_ALARM_TIMER.obj_len = 3; /*inistring dstr_529__UNREGISTER_ALARM*/ /*_.VALSTR___V608*/ meltfptr[607] = (melt_ptr_t) & cdat->dstr_529__UNREGISTER_ALARM; cdat->dstr_529__UNREGISTER_ALARM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_529__UNREGISTER_ALARM.val, "UNREGISTER_ALARM_TIMER", sizeof (cdat->dstr_529__UNREGISTER_ALARM. val) - 1); cdat->dstr_529__UNREGISTER_ALARM.val[22] = (char) 0; cdat->dstr_529__UNREGISTER_ALARM.slen = 22; /*iniobj dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V609*/ meltfptr[608]) /*_.VALDATA___V609*/ meltfptr[608] = (melt_ptr_t) & cdat->dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER.obj_hash = 167696883; cdat->dsym_530__UNREGISTER_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_531__UNREGISTER_CHILD*/ /*_.VALSTR___V610*/ meltfptr[609] = (melt_ptr_t) & cdat->dstr_531__UNREGISTER_CHILD; cdat->dstr_531__UNREGISTER_CHILD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_531__UNREGISTER_CHILD.val, "UNREGISTER_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_531__UNREGISTER_CHILD. val) - 1); cdat->dstr_531__UNREGISTER_CHILD.val[32] = (char) 0; cdat->dstr_531__UNREGISTER_CHILD.slen = 32; cdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ } /*end initialize_module_meltdata_warmelt_modes */ #if MELT_HAVE_DEBUG const char meltmodule_warmelt_modes__melt_have_debug_enabled[] = "MELT module warmelt-modes have debug enabled"; #else /*!MELT_HAVE_DEBUG */ const char meltmodule_warmelt_modes__melt_have_debug_disabled[] = "MELT module warmelt-modes have debug disabled"; #endif /*MELT_HAVE_DEBUG */ void * melt_start_this_module (void *modargp_) { char meltpredefinited[MELTGLOB__LASTGLOB + 8]; #if MELT_HAVE_DEBUG static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++call_counter__; #undef meltcallcount #define meltcallcount thiscallcounter__ #else #undef meltcallcount #define meltcallcount 0L #endif initial_frame_st meltfram__; /*declfrastruct */ #define meltframe meltfram__ /*melt_start_this_module is initial declstructinit */ memset (&meltfram__, 0, sizeof (meltfram__)); /* declstructinit initial routine melt_start_this_module minihash 1031*/ meltfram__.mcfr_nbvar = -1031 /*minihash */ ; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmarking_melt_start_this_module; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; /**initial routine prologue**/ /* set initial frame marking */ ((struct melt_callframe_st *) &meltfram__)->mcfr_nbvar = /*minihash */ -1031; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmod__warmelt_modes__forward_or_mark_module_start_frame; /**COMMENT: get previous environment **/ ; /*^compute */ /*_.PREVENV___V4*/ meltfptr[3] = /*getprevenv */ (melt_ptr_t) modargp_; /*^comment */ /**COMMENT: compute boxloc **/ ; /*^cond */ /*cond */ if ( /*_.CONTENV___V2*/ meltfptr[1] || melt_object_length ((melt_ptr_t) MELT_PREDEF (INITIAL_SYSTEM_DATA)) < MELTFIELD_SYSDATA_CONT_FRESH_ENV) /*then */ { } else { /*^cond.else */ /*^block */ /*com.block:compute fresh module environment */ { /*^comment */ /**COMMENT: start computing boxloc **/ ; ; /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "SYSDATA_CONT_FRESH_ENV"); /*_.FRESHENV___V3*/ meltfptr[2] = slot; }; ; /*^compute */ /*checkfreshenv */ if (( /*_.PREVENV___V4*/ meltfptr[3]) && melt_magic_discr ((melt_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "MELT corruption: bad FRESH_ENV @%p in system data <%s:%d>", (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; /*^apply */ /*apply */ { /*_.CONTENV___V2*/ meltfptr[1] = melt_apply ((meltclosure_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; } /*com.end block:compute fresh module environment */ ; } /*^comment */ /**COMMENT: get symbols & keywords **/ ; /*^getnamedsymbol */ /*getnamedsym:CLASS_MELT_MODE */ { melt_ptr_t sy_CLASS_MELT_MODE = meltgc_named_symbol ("CLASS_MELT_MODE", MELT_GET); if (sy_CLASS_MELT_MODE && NULL == /*_.VALDATA___V82*/ meltfptr[81]) /*_.VALDATA___V82*/ meltfptr[81] = (melt_ptr_t) sy_CLASS_MELT_MODE; } /*^getnamedsymbol */ /*getnamedsym:INITIAL_SYSTEM_DATA */ { melt_ptr_t sy_INITIAL_SYSTEM_DATA = meltgc_named_symbol ("INITIAL_SYSTEM_DATA", MELT_GET); if (sy_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V84*/ meltfptr[83]) /*_.VALDATA___V84*/ meltfptr[83] = (melt_ptr_t) sy_INITIAL_SYSTEM_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SYSTEM_DATA */ { melt_ptr_t sy_CLASS_SYSTEM_DATA = meltgc_named_symbol ("CLASS_SYSTEM_DATA", MELT_GET); if (sy_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V86*/ meltfptr[85]) /*_.VALDATA___V86*/ meltfptr[85] = (melt_ptr_t) sy_CLASS_SYSTEM_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_NAMED */ { melt_ptr_t sy_CLASS_NAMED = meltgc_named_symbol ("CLASS_NAMED", MELT_GET); if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V88*/ meltfptr[87]) /*_.VALDATA___V88*/ meltfptr[87] = (melt_ptr_t) sy_CLASS_NAMED; } /*^getnamedsymbol */ /*getnamedsym:MELT_DEBUG_FUN */ { melt_ptr_t sy_MELT_DEBUG_FUN = meltgc_named_symbol ("MELT_DEBUG_FUN", MELT_GET); if (sy_MELT_DEBUG_FUN && NULL == /*_.VALDATA___V90*/ meltfptr[89]) /*_.VALDATA___V90*/ meltfptr[89] = (melt_ptr_t) sy_MELT_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:INSTALL_MELT_MODE */ { melt_ptr_t sy_INSTALL_MELT_MODE = meltgc_named_symbol ("INSTALL_MELT_MODE", MELT_GET); if (sy_INSTALL_MELT_MODE && NULL == /*_.VALDATA___V92*/ meltfptr[91]) /*_.VALDATA___V92*/ meltfptr[91] = (melt_ptr_t) sy_INSTALL_MELT_MODE; } /*^getnamedsymbol */ /*getnamedsym:INITIAL_ENVIRONMENT */ { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol ("INITIAL_ENVIRONMENT", MELT_GET); if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V100*/ meltfptr[99]) /*_.VALDATA___V100*/ meltfptr[99] = (melt_ptr_t) sy_INITIAL_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRING */ { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol ("DISCR_STRING", MELT_GET); if (sy_DISCR_STRING && NULL == /*_.VALDATA___V102*/ meltfptr[101]) /*_.VALDATA___V102*/ meltfptr[101] = (melt_ptr_t) sy_DISCR_STRING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ENVIRONMENT */ { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol ("CLASS_ENVIRONMENT", MELT_GET); if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V104*/ meltfptr[103]) /*_.VALDATA___V104*/ meltfptr[103] = (melt_ptr_t) sy_CLASS_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATE_TO_C_MODULE_MELT_SOURCES */ { melt_ptr_t sy_TRANSLATE_TO_C_MODULE_MELT_SOURCES = meltgc_named_symbol ("TRANSLATE_TO_C_MODULE_MELT_SOURCES", MELT_GET); if (sy_TRANSLATE_TO_C_MODULE_MELT_SOURCES && NULL == /*_.VALDATA___V106*/ meltfptr[105]) /*_.VALDATA___V106*/ meltfptr[105] = (melt_ptr_t) sy_TRANSLATE_TO_C_MODULE_MELT_SOURCES; } /*^getnamedkeyword */ /*getnamedkeyw:TRUE */ { melt_ptr_t kw_TRUE = meltgc_named_keyword ("TRUE", MELT_GET); if (kw_TRUE) /*_.VALDATA___V97*/ meltfptr[96] = (melt_ptr_t) kw_TRUE; } /*^getnamedsymbol */ /*getnamedsym:RUNFILE_MODE */ { melt_ptr_t sy_RUNFILE_MODE = meltgc_named_symbol ("RUNFILE_MODE", MELT_GET); if (sy_RUNFILE_MODE && NULL == /*_.VALDATA___V108*/ meltfptr[107]) /*_.VALDATA___V108*/ meltfptr[107] = (melt_ptr_t) sy_RUNFILE_MODE; } /*^getnamedsymbol */ /*getnamedsym:RUNDEBUG_MODE */ { melt_ptr_t sy_RUNDEBUG_MODE = meltgc_named_symbol ("RUNDEBUG_MODE", MELT_GET); if (sy_RUNDEBUG_MODE && NULL == /*_.VALDATA___V117*/ meltfptr[116]) /*_.VALDATA___V117*/ meltfptr[116] = (melt_ptr_t) sy_RUNDEBUG_MODE; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MAP_OBJECTS */ { melt_ptr_t sy_DISCR_MAP_OBJECTS = meltgc_named_symbol ("DISCR_MAP_OBJECTS", MELT_GET); if (sy_DISCR_MAP_OBJECTS && NULL == /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol */ /*getnamedsym:FRESH_ENV */ { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol ("FRESH_ENV", MELT_GET); if (sy_FRESH_ENV && NULL == /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) sy_FRESH_ENV; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATE_RUN_MELT_EXPRESSIONS */ { melt_ptr_t sy_TRANSLATE_RUN_MELT_EXPRESSIONS = meltgc_named_symbol ("TRANSLATE_RUN_MELT_EXPRESSIONS", MELT_GET); if (sy_TRANSLATE_RUN_MELT_EXPRESSIONS && NULL == /*_.VALDATA___V128*/ meltfptr[127]) /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) sy_TRANSLATE_RUN_MELT_EXPRESSIONS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_DEBUG_OUTPUT_INFORMATION */ { melt_ptr_t sy_CLASS_DEBUG_OUTPUT_INFORMATION = meltgc_named_symbol ("CLASS_DEBUG_OUTPUT_INFORMATION", MELT_GET); if (sy_CLASS_DEBUG_OUTPUT_INFORMATION && NULL == /*_.VALDATA___V130*/ meltfptr[129]) /*_.VALDATA___V130*/ meltfptr[129] = (melt_ptr_t) sy_CLASS_DEBUG_OUTPUT_INFORMATION; } /*^getnamedsymbol */ /*getnamedsym:DISCR_CONSTANT_INTEGER */ { melt_ptr_t sy_DISCR_CONSTANT_INTEGER = meltgc_named_symbol ("DISCR_CONSTANT_INTEGER", MELT_GET); if (sy_DISCR_CONSTANT_INTEGER && NULL == /*_.VALDATA___V132*/ meltfptr[131]) /*_.VALDATA___V132*/ meltfptr[131] = (melt_ptr_t) sy_DISCR_CONSTANT_INTEGER; } /*^getnamedsymbol */ /*getnamedsym:ADD2OUT */ { melt_ptr_t sy_ADD2OUT = meltgc_named_symbol ("ADD2OUT", MELT_GET); if (sy_ADD2OUT && NULL == /*_.VALDATA___V134*/ meltfptr[133]) /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) sy_ADD2OUT; } /*^getnamedsymbol */ /*getnamedsym:DBG_OUT */ { melt_ptr_t sy_DBG_OUT = meltgc_named_symbol ("DBG_OUT", MELT_GET); if (sy_DBG_OUT && NULL == /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) sy_DBG_OUT; } /*^getnamedsymbol */ /*getnamedsym:EVAL_MODE */ { melt_ptr_t sy_EVAL_MODE = meltgc_named_symbol ("EVAL_MODE", MELT_GET); if (sy_EVAL_MODE && NULL == /*_.VALDATA___V138*/ meltfptr[137]) /*_.VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) sy_EVAL_MODE; } /*^getnamedsymbol */ /*getnamedsym:EVALFILE_MODE */ { melt_ptr_t sy_EVALFILE_MODE = meltgc_named_symbol ("EVALFILE_MODE", MELT_GET); if (sy_EVALFILE_MODE && NULL == /*_.VALDATA___V145*/ meltfptr[144]) /*_.VALDATA___V145*/ meltfptr[144] = (melt_ptr_t) sy_EVALFILE_MODE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_READ_EVAL_PRINT_LOOP_DATA */ { melt_ptr_t sy_CLASS_READ_EVAL_PRINT_LOOP_DATA = meltgc_named_symbol ("CLASS_READ_EVAL_PRINT_LOOP_DATA", MELT_GET); if (sy_CLASS_READ_EVAL_PRINT_LOOP_DATA && NULL == /*_.VALDATA___V150*/ meltfptr[149]) /*_.VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) sy_CLASS_READ_EVAL_PRINT_LOOP_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PROPED */ { melt_ptr_t sy_CLASS_PROPED = meltgc_named_symbol ("CLASS_PROPED", MELT_GET); if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V152*/ meltfptr[151]) /*_.VALDATA___V152*/ meltfptr[151] = (melt_ptr_t) sy_CLASS_PROPED; } /*^getnamedsymbol */ /*getnamedsym:REPL_ENV */ { melt_ptr_t sy_REPL_ENV = meltgc_named_symbol ("REPL_ENV", MELT_GET); if (sy_REPL_ENV && NULL == /*_.VALDATA___V166*/ meltfptr[165]) /*_.VALDATA___V166*/ meltfptr[165] = (melt_ptr_t) sy_REPL_ENV; } /*^getnamedsymbol */ /*getnamedsym:REPL_COUNTER */ { melt_ptr_t sy_REPL_COUNTER = meltgc_named_symbol ("REPL_COUNTER", MELT_GET); if (sy_REPL_COUNTER && NULL == /*_.VALDATA___V168*/ meltfptr[167]) /*_.VALDATA___V168*/ meltfptr[167] = (melt_ptr_t) sy_REPL_COUNTER; } /*^getnamedsymbol */ /*getnamedsym:REPL_CONTREF */ { melt_ptr_t sy_REPL_CONTREF = meltgc_named_symbol ("REPL_CONTREF", MELT_GET); if (sy_REPL_CONTREF && NULL == /*_.VALDATA___V170*/ meltfptr[169]) /*_.VALDATA___V170*/ meltfptr[169] = (melt_ptr_t) sy_REPL_CONTREF; } /*^getnamedsymbol */ /*getnamedsym:REPL_DATA */ { melt_ptr_t sy_REPL_DATA = meltgc_named_symbol ("REPL_DATA", MELT_GET); if (sy_REPL_DATA && NULL == /*_.VALDATA___V172*/ meltfptr[171]) /*_.VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) sy_REPL_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_INPUT_CHANNEL_HANDLER */ { melt_ptr_t sy_CLASS_INPUT_CHANNEL_HANDLER = meltgc_named_symbol ("CLASS_INPUT_CHANNEL_HANDLER", MELT_GET); if (sy_CLASS_INPUT_CHANNEL_HANDLER && NULL == /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) sy_CLASS_INPUT_CHANNEL_HANDLER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_REFERENCE */ { melt_ptr_t sy_CLASS_REFERENCE = meltgc_named_symbol ("CLASS_REFERENCE", MELT_GET); if (sy_CLASS_REFERENCE && NULL == /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) sy_CLASS_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_DEBUG_INFORMATION */ { melt_ptr_t sy_CLASS_DEBUG_INFORMATION = meltgc_named_symbol ("CLASS_DEBUG_INFORMATION", MELT_GET); if (sy_CLASS_DEBUG_INFORMATION && NULL == /*_.VALDATA___V180*/ meltfptr[179]) /*_.VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) sy_CLASS_DEBUG_INFORMATION; } /*^getnamedsymbol */ /*getnamedsym:DISCR_INTEGER */ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol ("DISCR_INTEGER", MELT_GET); if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) sy_DISCR_INTEGER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_VALUE_BINDING */ { melt_ptr_t sy_CLASS_VALUE_BINDING = meltgc_named_symbol ("CLASS_VALUE_BINDING", MELT_GET); if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) sy_CLASS_VALUE_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CONTINUE */ { melt_ptr_t sy_CONTINUE = meltgc_named_symbol ("CONTINUE", MELT_GET); if (sy_CONTINUE && NULL == /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) sy_CONTINUE; } /*^getnamedsymbol */ /*getnamedsym:WAIT-REPL */ { melt_ptr_t sy_WAIT_REPL = meltgc_named_symbol ("WAIT-REPL", MELT_GET); if (sy_WAIT_REPL && NULL == /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) sy_WAIT_REPL; } /*^getnamedsymbol */ /*getnamedsym:PUT_ENV */ { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol ("PUT_ENV", MELT_GET); if (sy_PUT_ENV && NULL == /*_.VALDATA___V204*/ meltfptr[203]) /*_.VALDATA___V204*/ meltfptr[203] = (melt_ptr_t) sy_PUT_ENV; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_ALL_PASSES_END_HOOK_FIRST */ { melt_ptr_t sy_REGISTER_ALL_PASSES_END_HOOK_FIRST = meltgc_named_symbol ("REGISTER_ALL_PASSES_END_HOOK_FIRST", MELT_GET); if (sy_REGISTER_ALL_PASSES_END_HOOK_FIRST && NULL == /*_.VALDATA___V206*/ meltfptr[205]) /*_.VALDATA___V206*/ meltfptr[205] = (melt_ptr_t) sy_REGISTER_ALL_PASSES_END_HOOK_FIRST; } /*^getnamedsymbol */ /*getnamedsym:AT_FINISH_UNIT_FIRST */ { melt_ptr_t sy_AT_FINISH_UNIT_FIRST = meltgc_named_symbol ("AT_FINISH_UNIT_FIRST", MELT_GET); if (sy_AT_FINISH_UNIT_FIRST && NULL == /*_.VALDATA___V208*/ meltfptr[207]) /*_.VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) sy_AT_FINISH_UNIT_FIRST; } /*^getnamedsymbol */ /*getnamedsym:AT_EXIT_LAST */ { melt_ptr_t sy_AT_EXIT_LAST = meltgc_named_symbol ("AT_EXIT_LAST", MELT_GET); if (sy_AT_EXIT_LAST && NULL == /*_.VALDATA___V210*/ meltfptr[209]) /*_.VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) sy_AT_EXIT_LAST; } /*^getnamedsymbol */ /*getnamedsym:REPL_MODE */ { melt_ptr_t sy_REPL_MODE = meltgc_named_symbol ("REPL_MODE", MELT_GET); if (sy_REPL_MODE && NULL == /*_.VALDATA___V212*/ meltfptr[211]) /*_.VALDATA___V212*/ meltfptr[211] = (melt_ptr_t) sy_REPL_MODE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_MAKEDOC_INFO */ { melt_ptr_t sy_CLASS_MAKEDOC_INFO = meltgc_named_symbol ("CLASS_MAKEDOC_INFO", MELT_GET); if (sy_CLASS_MAKEDOC_INFO && NULL == /*_.VALDATA___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (melt_ptr_t) sy_CLASS_MAKEDOC_INFO; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_PRIMITIVES */ { melt_ptr_t sy_MKDOC_PRIMITIVES = meltgc_named_symbol ("MKDOC_PRIMITIVES", MELT_GET); if (sy_MKDOC_PRIMITIVES && NULL == /*_.VALDATA___V253*/ meltfptr[252]) /*_.VALDATA___V253*/ meltfptr[252] = (melt_ptr_t) sy_MKDOC_PRIMITIVES; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_FUNCTIONS */ { melt_ptr_t sy_MKDOC_FUNCTIONS = meltgc_named_symbol ("MKDOC_FUNCTIONS", MELT_GET); if (sy_MKDOC_FUNCTIONS && NULL == /*_.VALDATA___V255*/ meltfptr[254]) /*_.VALDATA___V255*/ meltfptr[254] = (melt_ptr_t) sy_MKDOC_FUNCTIONS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_CITERATORS */ { melt_ptr_t sy_MKDOC_CITERATORS = meltgc_named_symbol ("MKDOC_CITERATORS", MELT_GET); if (sy_MKDOC_CITERATORS && NULL == /*_.VALDATA___V257*/ meltfptr[256]) /*_.VALDATA___V257*/ meltfptr[256] = (melt_ptr_t) sy_MKDOC_CITERATORS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_CMATCHERS */ { melt_ptr_t sy_MKDOC_CMATCHERS = meltgc_named_symbol ("MKDOC_CMATCHERS", MELT_GET); if (sy_MKDOC_CMATCHERS && NULL == /*_.VALDATA___V259*/ meltfptr[258]) /*_.VALDATA___V259*/ meltfptr[258] = (melt_ptr_t) sy_MKDOC_CMATCHERS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_SELECTORS */ { melt_ptr_t sy_MKDOC_SELECTORS = meltgc_named_symbol ("MKDOC_SELECTORS", MELT_GET); if (sy_MKDOC_SELECTORS && NULL == /*_.VALDATA___V261*/ meltfptr[260]) /*_.VALDATA___V261*/ meltfptr[260] = (melt_ptr_t) sy_MKDOC_SELECTORS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_FIELDS */ { melt_ptr_t sy_MKDOC_FIELDS = meltgc_named_symbol ("MKDOC_FIELDS", MELT_GET); if (sy_MKDOC_FIELDS && NULL == /*_.VALDATA___V263*/ meltfptr[262]) /*_.VALDATA___V263*/ meltfptr[262] = (melt_ptr_t) sy_MKDOC_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_CLASSES */ { melt_ptr_t sy_MKDOC_CLASSES = meltgc_named_symbol ("MKDOC_CLASSES", MELT_GET); if (sy_MKDOC_CLASSES && NULL == /*_.VALDATA___V265*/ meltfptr[264]) /*_.VALDATA___V265*/ meltfptr[264] = (melt_ptr_t) sy_MKDOC_CLASSES; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_INSTANCES */ { melt_ptr_t sy_MKDOC_INSTANCES = meltgc_named_symbol ("MKDOC_INSTANCES", MELT_GET); if (sy_MKDOC_INSTANCES && NULL == /*_.VALDATA___V267*/ meltfptr[266]) /*_.VALDATA___V267*/ meltfptr[266] = (melt_ptr_t) sy_MKDOC_INSTANCES; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_MACROS */ { melt_ptr_t sy_MKDOC_MACROS = meltgc_named_symbol ("MKDOC_MACROS", MELT_GET); if (sy_MKDOC_MACROS && NULL == /*_.VALDATA___V269*/ meltfptr[268]) /*_.VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) sy_MKDOC_MACROS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_PATMACROS */ { melt_ptr_t sy_MKDOC_PATMACROS = meltgc_named_symbol ("MKDOC_PATMACROS", MELT_GET); if (sy_MKDOC_PATMACROS && NULL == /*_.VALDATA___V271*/ meltfptr[270]) /*_.VALDATA___V271*/ meltfptr[270] = (melt_ptr_t) sy_MKDOC_PATMACROS; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_FORMALOCCMAP */ { melt_ptr_t sy_MKDOC_FORMALOCCMAP = meltgc_named_symbol ("MKDOC_FORMALOCCMAP", MELT_GET); if (sy_MKDOC_FORMALOCCMAP && NULL == /*_.VALDATA___V273*/ meltfptr[272]) /*_.VALDATA___V273*/ meltfptr[272] = (melt_ptr_t) sy_MKDOC_FORMALOCCMAP; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_PREDEFMAP */ { melt_ptr_t sy_MKDOC_PREDEFMAP = meltgc_named_symbol ("MKDOC_PREDEFMAP", MELT_GET); if (sy_MKDOC_PREDEFMAP && NULL == /*_.VALDATA___V275*/ meltfptr[274]) /*_.VALDATA___V275*/ meltfptr[274] = (melt_ptr_t) sy_MKDOC_PREDEFMAP; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_DOCSYMAP */ { melt_ptr_t sy_MKDOC_DOCSYMAP = meltgc_named_symbol ("MKDOC_DOCSYMAP", MELT_GET); if (sy_MKDOC_DOCSYMAP && NULL == /*_.VALDATA___V277*/ meltfptr[276]) /*_.VALDATA___V277*/ meltfptr[276] = (melt_ptr_t) sy_MKDOC_DOCSYMAP; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_SUBCLASSMAP */ { melt_ptr_t sy_MKDOC_SUBCLASSMAP = meltgc_named_symbol ("MKDOC_SUBCLASSMAP", MELT_GET); if (sy_MKDOC_SUBCLASSMAP && NULL == /*_.VALDATA___V279*/ meltfptr[278]) /*_.VALDATA___V279*/ meltfptr[278] = (melt_ptr_t) sy_MKDOC_SUBCLASSMAP; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_BOXCOUNTER */ { melt_ptr_t sy_MKDOC_BOXCOUNTER = meltgc_named_symbol ("MKDOC_BOXCOUNTER", MELT_GET); if (sy_MKDOC_BOXCOUNTER && NULL == /*_.VALDATA___V281*/ meltfptr[280]) /*_.VALDATA___V281*/ meltfptr[280] = (melt_ptr_t) sy_MKDOC_BOXCOUNTER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SYMBOL */ { melt_ptr_t sy_CLASS_SYMBOL = meltgc_named_symbol ("CLASS_SYMBOL", MELT_GET); if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V291*/ meltfptr[290]) /*_.VALDATA___V291*/ meltfptr[290] = (melt_ptr_t) sy_CLASS_SYMBOL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FORMAL_BINDING */ { melt_ptr_t sy_CLASS_FORMAL_BINDING = meltgc_named_symbol ("CLASS_FORMAL_BINDING", MELT_GET); if (sy_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V293*/ meltfptr[292]) /*_.VALDATA___V293*/ meltfptr[292] = (melt_ptr_t) sy_CLASS_FORMAL_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFINITION */ { melt_ptr_t sy_CLASS_SOURCE_DEFINITION = meltgc_named_symbol ("CLASS_SOURCE_DEFINITION", MELT_GET); if (sy_CLASS_SOURCE_DEFINITION && NULL == /*_.VALDATA___V295*/ meltfptr[294]) /*_.VALDATA___V295*/ meltfptr[294] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINITION; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ANY_BINDING */ { melt_ptr_t sy_CLASS_ANY_BINDING = meltgc_named_symbol ("CLASS_ANY_BINDING", MELT_GET); if (sy_CLASS_ANY_BINDING && NULL == /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) sy_CLASS_ANY_BINDING; } /*^getnamedsymbol */ /*getnamedsym:DISCR_LIST */ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol ("DISCR_LIST", MELT_GET); if (sy_DISCR_LIST && NULL == /*_.VALDATA___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) sy_DISCR_LIST; } /*^getnamedsymbol */ /*getnamedsym:LIST_EVERY */ { melt_ptr_t sy_LIST_EVERY = meltgc_named_symbol ("LIST_EVERY", MELT_GET); if (sy_LIST_EVERY && NULL == /*_.VALDATA___V301*/ meltfptr[300]) /*_.VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) sy_LIST_EVERY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFCLASS */ { melt_ptr_t sy_CLASS_SOURCE_DEFCLASS = meltgc_named_symbol ("CLASS_SOURCE_DEFCLASS", MELT_GET); if (sy_CLASS_SOURCE_DEFCLASS && NULL == /*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCLASS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SEXPR */ { melt_ptr_t sy_CLASS_SEXPR = meltgc_named_symbol ("CLASS_SEXPR", MELT_GET); if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (melt_ptr_t) sy_CLASS_SEXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CLASS_BINDING */ { melt_ptr_t sy_CLASS_CLASS_BINDING = meltgc_named_symbol ("CLASS_CLASS_BINDING", MELT_GET); if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V307*/ meltfptr[306]) /*_.VALDATA___V307*/ meltfptr[306] = (melt_ptr_t) sy_CLASS_CLASS_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CLASS */ { melt_ptr_t sy_CLASS_CLASS = meltgc_named_symbol ("CLASS_CLASS", MELT_GET); if (sy_CLASS_CLASS && NULL == /*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (melt_ptr_t) sy_CLASS_CLASS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FIELD */ { melt_ptr_t sy_CLASS_FIELD = meltgc_named_symbol ("CLASS_FIELD", MELT_GET); if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) sy_CLASS_FIELD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFSELECTOR */ { melt_ptr_t sy_CLASS_SOURCE_DEFSELECTOR = meltgc_named_symbol ("CLASS_SOURCE_DEFSELECTOR", MELT_GET); if (sy_CLASS_SOURCE_DEFSELECTOR && NULL == /*_.VALDATA___V313*/ meltfptr[312]) /*_.VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) sy_CLASS_SOURCE_DEFSELECTOR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFINSTANCE */ { melt_ptr_t sy_CLASS_SOURCE_DEFINSTANCE = meltgc_named_symbol ("CLASS_SOURCE_DEFINSTANCE", MELT_GET); if (sy_CLASS_SOURCE_DEFINSTANCE && NULL == /*_.VALDATA___V315*/ meltfptr[314]) /*_.VALDATA___V315*/ meltfptr[314] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINSTANCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFPRIMITIVE */ { melt_ptr_t sy_CLASS_SOURCE_DEFPRIMITIVE = meltgc_named_symbol ("CLASS_SOURCE_DEFPRIMITIVE", MELT_GET); if (sy_CLASS_SOURCE_DEFPRIMITIVE && NULL == /*_.VALDATA___V317*/ meltfptr[316]) /*_.VALDATA___V317*/ meltfptr[316] = (melt_ptr_t) sy_CLASS_SOURCE_DEFPRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFUN */ { melt_ptr_t sy_CLASS_SOURCE_DEFUN = meltgc_named_symbol ("CLASS_SOURCE_DEFUN", MELT_GET); if (sy_CLASS_SOURCE_DEFUN && NULL == /*_.VALDATA___V319*/ meltfptr[318]) /*_.VALDATA___V319*/ meltfptr[318] = (melt_ptr_t) sy_CLASS_SOURCE_DEFUN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFCITERATOR */ { melt_ptr_t sy_CLASS_SOURCE_DEFCITERATOR = meltgc_named_symbol ("CLASS_SOURCE_DEFCITERATOR", MELT_GET); if (sy_CLASS_SOURCE_DEFCITERATOR && NULL == /*_.VALDATA___V321*/ meltfptr[320]) /*_.VALDATA___V321*/ meltfptr[320] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCITERATOR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFCMATCHER */ { melt_ptr_t sy_CLASS_SOURCE_DEFCMATCHER = meltgc_named_symbol ("CLASS_SOURCE_DEFCMATCHER", MELT_GET); if (sy_CLASS_SOURCE_DEFCMATCHER && NULL == /*_.VALDATA___V323*/ meltfptr[322]) /*_.VALDATA___V323*/ meltfptr[322] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCMATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORT_PATMACRO */ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_PATMACRO = meltgc_named_symbol ("CLASS_SOURCE_EXPORT_PATMACRO", MELT_GET); if (sy_CLASS_SOURCE_EXPORT_PATMACRO && NULL == /*_.VALDATA___V325*/ meltfptr[324]) /*_.VALDATA___V325*/ meltfptr[324] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_PATMACRO; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORT_MACRO */ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_MACRO = meltgc_named_symbol ("CLASS_SOURCE_EXPORT_MACRO", MELT_GET); if (sy_CLASS_SOURCE_EXPORT_MACRO && NULL == /*_.VALDATA___V327*/ meltfptr[326]) /*_.VALDATA___V327*/ meltfptr[326] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_MACRO; } /*^getnamedsymbol */ /*getnamedsym:CLASS_LOCATED */ { melt_ptr_t sy_CLASS_LOCATED = meltgc_named_symbol ("CLASS_LOCATED", MELT_GET); if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V331*/ meltfptr[330]) /*_.VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) sy_CLASS_LOCATED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_QUASI_CTYPE */ { melt_ptr_t sy_CLASS_QUASI_CTYPE = meltgc_named_symbol ("CLASS_QUASI_CTYPE", MELT_GET); if (sy_CLASS_QUASI_CTYPE && NULL == /*_.VALDATA___V335*/ meltfptr[334]) /*_.VALDATA___V335*/ meltfptr[334] = (melt_ptr_t) sy_CLASS_QUASI_CTYPE; } /*^getnamedsymbol */ /*getnamedsym:LIST_TO_MULTIPLE */ { melt_ptr_t sy_LIST_TO_MULTIPLE = meltgc_named_symbol ("LIST_TO_MULTIPLE", MELT_GET); if (sy_LIST_TO_MULTIPLE && NULL == /*_.VALDATA___V341*/ meltfptr[340]) /*_.VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) sy_LIST_TO_MULTIPLE; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MULTIPLE */ { melt_ptr_t sy_DISCR_MULTIPLE = meltgc_named_symbol ("DISCR_MULTIPLE", MELT_GET); if (sy_DISCR_MULTIPLE && NULL == /*_.VALDATA___V343*/ meltfptr[342]) /*_.VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) sy_DISCR_MULTIPLE; } /*^getnamedsymbol */ /*getnamedsym:COMPARE_NAMED_ALPHA */ { melt_ptr_t sy_COMPARE_NAMED_ALPHA = meltgc_named_symbol ("COMPARE_NAMED_ALPHA", MELT_GET); if (sy_COMPARE_NAMED_ALPHA && NULL == /*_.VALDATA___V345*/ meltfptr[344]) /*_.VALDATA___V345*/ meltfptr[344] = (melt_ptr_t) sy_COMPARE_NAMED_ALPHA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFINITION_FORMAL */ { melt_ptr_t sy_CLASS_SOURCE_DEFINITION_FORMAL = meltgc_named_symbol ("CLASS_SOURCE_DEFINITION_FORMAL", MELT_GET); if (sy_CLASS_SOURCE_DEFINITION_FORMAL && NULL == /*_.VALDATA___V364*/ meltfptr[363]) /*_.VALDATA___V364*/ meltfptr[363] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINITION_FORMAL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CITERATOR */ { melt_ptr_t sy_CLASS_CITERATOR = meltgc_named_symbol ("CLASS_CITERATOR", MELT_GET); if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V377*/ meltfptr[376]) /*_.VALDATA___V377*/ meltfptr[376] = (melt_ptr_t) sy_CLASS_CITERATOR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ANY_MATCHER */ { melt_ptr_t sy_CLASS_ANY_MATCHER = meltgc_named_symbol ("CLASS_ANY_MATCHER", MELT_GET); if (sy_CLASS_ANY_MATCHER && NULL == /*_.VALDATA___V382*/ meltfptr[381]) /*_.VALDATA___V382*/ meltfptr[381] = (melt_ptr_t) sy_CLASS_ANY_MATCHER; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRBUF */ { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol ("DISCR_STRBUF", MELT_GET); if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V386*/ meltfptr[385]) /*_.VALDATA___V386*/ meltfptr[385] = (melt_ptr_t) sy_DISCR_STRBUF; } /*^getnamedsymbol */ /*getnamedsym:MELT_MODE_REFERENCE */ { melt_ptr_t sy_MELT_MODE_REFERENCE = meltgc_named_symbol ("MELT_MODE_REFERENCE", MELT_GET); if (sy_MELT_MODE_REFERENCE && NULL == /*_.VALDATA___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) sy_MELT_MODE_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:LIST_APPEND2LIST */ { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol ("LIST_APPEND2LIST", MELT_GET); if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V393*/ meltfptr[392]) /*_.VALDATA___V393*/ meltfptr[392] = (melt_ptr_t) sy_LIST_APPEND2LIST; } /*^getnamedsymbol */ /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST */ { melt_ptr_t sy_MACROEXPAND_TOPLEVEL_LIST = meltgc_named_symbol ("MACROEXPAND_TOPLEVEL_LIST", MELT_GET); if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V395*/ meltfptr[394]) /*_.VALDATA___V395*/ meltfptr[394] = (melt_ptr_t) sy_MACROEXPAND_TOPLEVEL_LIST; } /*^getnamedsymbol */ /*getnamedsym:MACROEXPAND_1 */ { melt_ptr_t sy_MACROEXPAND_1 = meltgc_named_symbol ("MACROEXPAND_1", MELT_GET); if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V397*/ meltfptr[396]) /*_.VALDATA___V397*/ meltfptr[396] = (melt_ptr_t) sy_MACROEXPAND_1; } /*^getnamedsymbol */ /*getnamedsym:MAKEDOC_MODE */ { melt_ptr_t sy_MAKEDOC_MODE = meltgc_named_symbol ("MAKEDOC_MODE", MELT_GET); if (sy_MAKEDOC_MODE && NULL == /*_.VALDATA___V399*/ meltfptr[398]) /*_.VALDATA___V399*/ meltfptr[398] = (melt_ptr_t) sy_MAKEDOC_MODE; } /*^getnamedsymbol */ /*getnamedsym:FIND_ENV */ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol ("FIND_ENV", MELT_GET); if (sy_FIND_ENV && NULL == /*_.VALDATA___V406*/ meltfptr[405]) /*_.VALDATA___V406*/ meltfptr[405] = (melt_ptr_t) sy_FIND_ENV; } /*^getnamedsymbol */ /*getnamedsym:HELP_MODE */ { melt_ptr_t sy_HELP_MODE = meltgc_named_symbol ("HELP_MODE", MELT_GET); if (sy_HELP_MODE && NULL == /*_.VALDATA___V410*/ meltfptr[409]) /*_.VALDATA___V410*/ meltfptr[409] = (melt_ptr_t) sy_HELP_MODE; } /*^getnamedsymbol */ /*getnamedsym:NOP_MODE */ { melt_ptr_t sy_NOP_MODE = meltgc_named_symbol ("NOP_MODE", MELT_GET); if (sy_NOP_MODE && NULL == /*_.VALDATA___V417*/ meltfptr[416]) /*_.VALDATA___V417*/ meltfptr[416] = (melt_ptr_t) sy_NOP_MODE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_VALUE_DESCRIPTOR */ { melt_ptr_t sy_CLASS_VALUE_DESCRIPTOR = meltgc_named_symbol ("CLASS_VALUE_DESCRIPTOR", MELT_GET); if (sy_CLASS_VALUE_DESCRIPTOR && NULL == /*_.VALDATA___V425*/ meltfptr[424]) /*_.VALDATA___V425*/ meltfptr[424] = (melt_ptr_t) sy_CLASS_VALUE_DESCRIPTOR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CTYPE_GTY */ { melt_ptr_t sy_CLASS_CTYPE_GTY = meltgc_named_symbol ("CLASS_CTYPE_GTY", MELT_GET); if (sy_CLASS_CTYPE_GTY && NULL == /*_.VALDATA___V427*/ meltfptr[426]) /*_.VALDATA___V427*/ meltfptr[426] = (melt_ptr_t) sy_CLASS_CTYPE_GTY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CTYPE */ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol ("CLASS_CTYPE", MELT_GET); if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V436*/ meltfptr[435]) /*_.VALDATA___V436*/ meltfptr[435] = (melt_ptr_t) sy_CLASS_CTYPE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_VARISIZED_VALUE_DESCRIPTOR */ { melt_ptr_t sy_CLASS_VARISIZED_VALUE_DESCRIPTOR = meltgc_named_symbol ("CLASS_VARISIZED_VALUE_DESCRIPTOR", MELT_GET); if (sy_CLASS_VARISIZED_VALUE_DESCRIPTOR && NULL == /*_.VALDATA___V438*/ meltfptr[437]) /*_.VALDATA___V438*/ meltfptr[437] = (melt_ptr_t) sy_CLASS_VARISIZED_VALUE_DESCRIPTOR; } /*^getnamedsymbol */ /*getnamedsym:SOME_STRING_VALUE */ { melt_ptr_t sy_SOME_STRING_VALUE = meltgc_named_symbol ("SOME_STRING_VALUE", MELT_GET); if (sy_SOME_STRING_VALUE && NULL == /*_.VALDATA___V460*/ meltfptr[459]) /*_.VALDATA___V460*/ meltfptr[459] = (melt_ptr_t) sy_SOME_STRING_VALUE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_DISCRIMINANT */ { melt_ptr_t sy_CLASS_DISCRIMINANT = meltgc_named_symbol ("CLASS_DISCRIMINANT", MELT_GET); if (sy_CLASS_DISCRIMINANT && NULL == /*_.VALDATA___V462*/ meltfptr[461]) /*_.VALDATA___V462*/ meltfptr[461] = (melt_ptr_t) sy_CLASS_DISCRIMINANT; } /*^getnamedsymbol */ /*getnamedsym:RETRIEVE_DICTIONNARY_CTYPE_GTY */ { melt_ptr_t sy_RETRIEVE_DICTIONNARY_CTYPE_GTY = meltgc_named_symbol ("RETRIEVE_DICTIONNARY_CTYPE_GTY", MELT_GET); if (sy_RETRIEVE_DICTIONNARY_CTYPE_GTY && NULL == /*_.VALDATA___V473*/ meltfptr[472]) /*_.VALDATA___V473*/ meltfptr[472] = (melt_ptr_t) sy_RETRIEVE_DICTIONNARY_CTYPE_GTY; } /*^getnamedsymbol */ /*getnamedsym:RETRIEVE_DICTIONNARY_CTYPE */ { melt_ptr_t sy_RETRIEVE_DICTIONNARY_CTYPE = meltgc_named_symbol ("RETRIEVE_DICTIONNARY_CTYPE", MELT_GET); if (sy_RETRIEVE_DICTIONNARY_CTYPE && NULL == /*_.VALDATA___V475*/ meltfptr[474]) /*_.VALDATA___V475*/ meltfptr[474] = (melt_ptr_t) sy_RETRIEVE_DICTIONNARY_CTYPE; } /*^getnamedsymbol */ /*getnamedsym:GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT */ { melt_ptr_t sy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT = meltgc_named_symbol ("GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", MELT_GET); if (sy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT && NULL == /*_.VALDATA___V477*/ meltfptr[476]) /*_.VALDATA___V477*/ meltfptr[476] = (melt_ptr_t) sy_GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; } /*^getnamedsymbol */ /*getnamedsym:RETRIEVE_VALUE_DESCRIPTOR_LIST */ { melt_ptr_t sy_RETRIEVE_VALUE_DESCRIPTOR_LIST = meltgc_named_symbol ("RETRIEVE_VALUE_DESCRIPTOR_LIST", MELT_GET); if (sy_RETRIEVE_VALUE_DESCRIPTOR_LIST && NULL == /*_.VALDATA___V479*/ meltfptr[478]) /*_.VALDATA___V479*/ meltfptr[478] = (melt_ptr_t) sy_RETRIEVE_VALUE_DESCRIPTOR_LIST; } /*^getnamedsymbol */ /*getnamedsym:RUNTYPESUPPORT_MODE */ { melt_ptr_t sy_RUNTYPESUPPORT_MODE = meltgc_named_symbol ("RUNTYPESUPPORT_MODE", MELT_GET); if (sy_RUNTYPESUPPORT_MODE && NULL == /*_.VALDATA___V481*/ meltfptr[480]) /*_.VALDATA___V481*/ meltfptr[480] = (melt_ptr_t) sy_RUNTYPESUPPORT_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATETOMODULE_MODE */ { melt_ptr_t sy_TRANSLATETOMODULE_MODE = meltgc_named_symbol ("TRANSLATETOMODULE_MODE", MELT_GET); if (sy_TRANSLATETOMODULE_MODE && NULL == /*_.VALDATA___V493*/ meltfptr[492]) /*_.VALDATA___V493*/ meltfptr[492] = (melt_ptr_t) sy_TRANSLATETOMODULE_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEDEBUG_MODE */ { melt_ptr_t sy_TRANSLATEDEBUG_MODE = meltgc_named_symbol ("TRANSLATEDEBUG_MODE", MELT_GET); if (sy_TRANSLATEDEBUG_MODE && NULL == /*_.VALDATA___V501*/ meltfptr[500]) /*_.VALDATA___V501*/ meltfptr[500] = (melt_ptr_t) sy_TRANSLATEDEBUG_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEQUICKLY_MODE */ { melt_ptr_t sy_TRANSLATEQUICKLY_MODE = meltgc_named_symbol ("TRANSLATEQUICKLY_MODE", MELT_GET); if (sy_TRANSLATEQUICKLY_MODE && NULL == /*_.VALDATA___V509*/ meltfptr[508]) /*_.VALDATA___V509*/ meltfptr[508] = (melt_ptr_t) sy_TRANSLATEQUICKLY_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEOPTIMIZED_MODE */ { melt_ptr_t sy_TRANSLATEOPTIMIZED_MODE = meltgc_named_symbol ("TRANSLATEOPTIMIZED_MODE", MELT_GET); if (sy_TRANSLATEOPTIMIZED_MODE && NULL == /*_.VALDATA___V517*/ meltfptr[516]) /*_.VALDATA___V517*/ meltfptr[516] = (melt_ptr_t) sy_TRANSLATEOPTIMIZED_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEFILE_MODE */ { melt_ptr_t sy_TRANSLATEFILE_MODE = meltgc_named_symbol ("TRANSLATEFILE_MODE", MELT_GET); if (sy_TRANSLATEFILE_MODE && NULL == /*_.VALDATA___V524*/ meltfptr[523]) /*_.VALDATA___V524*/ meltfptr[523] = (melt_ptr_t) sy_TRANSLATEFILE_MODE; } /*^getnamedsymbol */ /*getnamedsym:COMPILE_LIST_SEXPR */ { melt_ptr_t sy_COMPILE_LIST_SEXPR = meltgc_named_symbol ("COMPILE_LIST_SEXPR", MELT_GET); if (sy_COMPILE_LIST_SEXPR && NULL == /*_.VALDATA___V532*/ meltfptr[531]) /*_.VALDATA___V532*/ meltfptr[531] = (melt_ptr_t) sy_COMPILE_LIST_SEXPR; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEINIT_MODE */ { melt_ptr_t sy_TRANSLATEINIT_MODE = meltgc_named_symbol ("TRANSLATEINIT_MODE", MELT_GET); if (sy_TRANSLATEINIT_MODE && NULL == /*_.VALDATA___V534*/ meltfptr[533]) /*_.VALDATA___V534*/ meltfptr[533] = (melt_ptr_t) sy_TRANSLATEINIT_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEINITMODULE_MODE */ { melt_ptr_t sy_TRANSLATEINITMODULE_MODE = meltgc_named_symbol ("TRANSLATEINITMODULE_MODE", MELT_GET); if (sy_TRANSLATEINITMODULE_MODE && NULL == /*_.VALDATA___V547*/ meltfptr[546]) /*_.VALDATA___V547*/ meltfptr[546] = (melt_ptr_t) sy_TRANSLATEINITMODULE_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEINITMODULEQUICKLYBUILT_MODE */ { melt_ptr_t sy_TRANSLATEINITMODULEQUICKLYBUILT_MODE = meltgc_named_symbol ("TRANSLATEINITMODULEQUICKLYBUILT_MODE", MELT_GET); if (sy_TRANSLATEINITMODULEQUICKLYBUILT_MODE && NULL == /*_.VALDATA___V555*/ meltfptr[554]) /*_.VALDATA___V555*/ meltfptr[554] = (melt_ptr_t) sy_TRANSLATEINITMODULEQUICKLYBUILT_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEINITMODULEDEBUGNOLINE_MODE */ { melt_ptr_t sy_TRANSLATEINITMODULEDEBUGNOLINE_MODE = meltgc_named_symbol ("TRANSLATEINITMODULEDEBUGNOLINE_MODE", MELT_GET); if (sy_TRANSLATEINITMODULEDEBUGNOLINE_MODE && NULL == /*_.VALDATA___V563*/ meltfptr[562]) /*_.VALDATA___V563*/ meltfptr[562] = (melt_ptr_t) sy_TRANSLATEINITMODULEDEBUGNOLINE_MODE; } /*^getnamedsymbol */ /*getnamedsym:TRANSLATEINITMODULEOPTIMIZED_MODE */ { melt_ptr_t sy_TRANSLATEINITMODULEOPTIMIZED_MODE = meltgc_named_symbol ("TRANSLATEINITMODULEOPTIMIZED_MODE", MELT_GET); if (sy_TRANSLATEINITMODULEOPTIMIZED_MODE && NULL == /*_.VALDATA___V571*/ meltfptr[570]) /*_.VALDATA___V571*/ meltfptr[570] = (melt_ptr_t) sy_TRANSLATEINITMODULEOPTIMIZED_MODE; } /*^getnamedsymbol */ /*getnamedsym:DISCR_BUCKET_LONGS */ { melt_ptr_t sy_DISCR_BUCKET_LONGS = meltgc_named_symbol ("DISCR_BUCKET_LONGS", MELT_GET); if (sy_DISCR_BUCKET_LONGS && NULL == /*_.VALDATA___V576*/ meltfptr[575]) /*_.VALDATA___V576*/ meltfptr[575] = (melt_ptr_t) sy_DISCR_BUCKET_LONGS; } /*^getnamedsymbol */ /*getnamedsym:ALARM_BUCKET_REFERENCE */ { melt_ptr_t sy_ALARM_BUCKET_REFERENCE = meltgc_named_symbol ("ALARM_BUCKET_REFERENCE", MELT_GET); if (sy_ALARM_BUCKET_REFERENCE && NULL == /*_.VALDATA___V578*/ meltfptr[577]) /*_.VALDATA___V578*/ meltfptr[577] = (melt_ptr_t) sy_ALARM_BUCKET_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ALARM_HANDLER */ { melt_ptr_t sy_CLASS_ALARM_HANDLER = meltgc_named_symbol ("CLASS_ALARM_HANDLER", MELT_GET); if (sy_CLASS_ALARM_HANDLER && NULL == /*_.VALDATA___V584*/ meltfptr[583]) /*_.VALDATA___V584*/ meltfptr[583] = (melt_ptr_t) sy_CLASS_ALARM_HANDLER; } /*^getnamedsymbol */ /*getnamedsym:CHILDPROC_BUCKET_REFERENCE */ { melt_ptr_t sy_CHILDPROC_BUCKET_REFERENCE = meltgc_named_symbol ("CHILDPROC_BUCKET_REFERENCE", MELT_GET); if (sy_CHILDPROC_BUCKET_REFERENCE && NULL == /*_.VALDATA___V590*/ meltfptr[589]) /*_.VALDATA___V590*/ meltfptr[589] = (melt_ptr_t) sy_CHILDPROC_BUCKET_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CHILD_PROCESS_HANDLER */ { melt_ptr_t sy_CLASS_CHILD_PROCESS_HANDLER = meltgc_named_symbol ("CLASS_CHILD_PROCESS_HANDLER", MELT_GET); if (sy_CLASS_CHILD_PROCESS_HANDLER && NULL == /*_.VALDATA___V595*/ meltfptr[594]) /*_.VALDATA___V595*/ meltfptr[594] = (melt_ptr_t) sy_CLASS_CHILD_PROCESS_HANDLER; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_ALARM_TIMER */ { melt_ptr_t sy_REGISTER_ALARM_TIMER = meltgc_named_symbol ("REGISTER_ALARM_TIMER", MELT_GET); if (sy_REGISTER_ALARM_TIMER && NULL == /*_.VALDATA___V601*/ meltfptr[600]) /*_.VALDATA___V601*/ meltfptr[600] = (melt_ptr_t) sy_REGISTER_ALARM_TIMER; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_CHILD_PROCESS_HANDLER */ { melt_ptr_t sy_REGISTER_CHILD_PROCESS_HANDLER = meltgc_named_symbol ("REGISTER_CHILD_PROCESS_HANDLER", MELT_GET); if (sy_REGISTER_CHILD_PROCESS_HANDLER && NULL == /*_.VALDATA___V603*/ meltfptr[602]) /*_.VALDATA___V603*/ meltfptr[602] = (melt_ptr_t) sy_REGISTER_CHILD_PROCESS_HANDLER; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_INPUT_CHANNEL_HANDLER */ { melt_ptr_t sy_REGISTER_INPUT_CHANNEL_HANDLER = meltgc_named_symbol ("REGISTER_INPUT_CHANNEL_HANDLER", MELT_GET); if (sy_REGISTER_INPUT_CHANNEL_HANDLER && NULL == /*_.VALDATA___V605*/ meltfptr[604]) /*_.VALDATA___V605*/ meltfptr[604] = (melt_ptr_t) sy_REGISTER_INPUT_CHANNEL_HANDLER; } /*^getnamedsymbol */ /*getnamedsym:UNREGISTER_ALARM_TIMER */ { melt_ptr_t sy_UNREGISTER_ALARM_TIMER = meltgc_named_symbol ("UNREGISTER_ALARM_TIMER", MELT_GET); if (sy_UNREGISTER_ALARM_TIMER && NULL == /*_.VALDATA___V607*/ meltfptr[606]) /*_.VALDATA___V607*/ meltfptr[606] = (melt_ptr_t) sy_UNREGISTER_ALARM_TIMER; } /*^getnamedsymbol */ /*getnamedsym:UNREGISTER_CHILD_PROCESS_HANDLER */ { melt_ptr_t sy_UNREGISTER_CHILD_PROCESS_HANDLER = meltgc_named_symbol ("UNREGISTER_CHILD_PROCESS_HANDLER", MELT_GET); if (sy_UNREGISTER_CHILD_PROCESS_HANDLER && NULL == /*_.VALDATA___V609*/ meltfptr[608]) /*_.VALDATA___V609*/ meltfptr[608] = (melt_ptr_t) sy_UNREGISTER_CHILD_PROCESS_HANDLER; } /*^comment */ /**COMMENT: get the value importer **/ ; /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 12, "SYSDATA_VALUE_IMPORTER"); /*_.VALIMPORT___V6*/ meltfptr[5] = slot; }; /*^comment */ /**COMMENT: before getting imported values **/ ; /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_MELT_MODE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_MELT_MODE__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "INITIAL_SYSTEM_DATA"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SYSTEM_DATA"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_NAMED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_NAMED__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MELT_DEBUG_FUN"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "INITIAL_ENVIRONMENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_STRING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_STRING__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ENVIRONMENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "TRANSLATE_TO_C_MODULE_MELT_SOURCES"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V106*/ meltfptr[105]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MAP_OBJECTS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "FRESH_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.FRESH_ENV__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "TRANSLATE_RUN_MELT_EXPRESSIONS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_DEBUG_OUTPUT_INFORMATION"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_CONSTANT_INTEGER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "ADD2OUT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.ADD2OUT__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DBG_OUT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DBG_OUT__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_PROPED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_PROPED__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_INPUT_CHANNEL_HANDLER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_INPUT_CHANNEL_HANDLER__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_REFERENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_REFERENCE__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_DEBUG_INFORMATION"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_DEBUG_INFORMATION__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_INTEGER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_INTEGER__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_VALUE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_VALUE_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "PUT_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.PUT_ENV__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "REGISTER_ALL_PASSES_END_HOOK_FIRST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.REGISTER_ALL_PASSES_END_HOOK_FIRST__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "AT_FINISH_UNIT_FIRST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.AT_FINISH_UNIT_FIRST__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "AT_EXIT_LAST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.AT_EXIT_LAST__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SYMBOL"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SYMBOL__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V291*/ meltfptr[290]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_FORMAL_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFINITION"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V295*/ meltfptr[294]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ANY_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_LIST__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "LIST_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.LIST_EVERY__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFCLASS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SEXPR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SEXPR__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CLASS_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CLASS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CLASS__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_FIELD"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_FIELD__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFSELECTOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFSELECTOR__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFINSTANCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFINSTANCE__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFPRIMITIVE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V317*/ meltfptr[316]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFUN"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFCITERATOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V321*/ meltfptr[320]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFCMATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_EXPORT_PATMACRO"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_EXPORT_MACRO"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_LOCATED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_LOCATED__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_QUASI_CTYPE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "LIST_TO_MULTIPLE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MULTIPLE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_MULTIPLE__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "COMPARE_NAMED_ALPHA"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_DEFINITION_FORMAL"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_DEFINITION_FORMAL__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CITERATOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CITERATOR__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V377*/ meltfptr[376]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ANY_MATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_ANY_MATCHER__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V382*/ meltfptr[381]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_STRBUF"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_STRBUF__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MELT_MODE_REFERENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MELT_MODE_REFERENCE__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "LIST_APPEND2LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.LIST_APPEND2LIST__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MACROEXPAND_TOPLEVEL_LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MACROEXPAND_TOPLEVEL_LIST__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MACROEXPAND_1"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MACROEXPAND_1__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V397*/ meltfptr[396]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "FIND_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.FIND_ENV__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V406*/ meltfptr[405]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_VALUE_DESCRIPTOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V425*/ meltfptr[424]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CTYPE_GTY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V427*/ meltfptr[426]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CTYPE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CTYPE__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_VARISIZED_VALUE_DESCRIPTOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "SOME_STRING_VALUE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.SOME_STRING_VALUE__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V460*/ meltfptr[459]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_DISCRIMINANT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_DISCRIMINANT__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V462*/ meltfptr[461]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "RETRIEVE_DICTIONNARY_CTYPE_GTY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V473*/ meltfptr[472]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "RETRIEVE_DICTIONNARY_CTYPE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.RETRIEVE_DICTIONNARY_CTYPE__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V475*/ meltfptr[474]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "RETRIEVE_VALUE_DESCRIPTOR_LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V479*/ meltfptr[478]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "COMPILE_LIST_SEXPR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.COMPILE_LIST_SEXPR__V76*/ meltfptr[75] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_BUCKET_LONGS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V576*/ meltfptr[575]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ALARM_HANDLER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_CHILD_PROCESS_HANDLER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_CHILD_PROCESS_HANDLER__V79*/ meltfptr[78] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^comment */ /**COMMENT: after getting imported values **/ ; /**initial routine cdata initializer**/ memset (meltpredefinited, 0, sizeof (meltpredefinited)); initialize_module_meltdata_warmelt_modes (&meltfram__, meltpredefinited); /**initial routine body**/ meltmod__warmelt_modes__initialmeltchunk_0 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_1 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_2 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_3 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_4 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_5 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_6 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_7 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_8 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_9 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_10 (&meltfram__, meltpredefinited); meltmod__warmelt_modes__initialmeltchunk_11 (&meltfram__, meltpredefinited);; goto labend_rout; labend_rout:; melt_topframe = (struct melt_callframe_st *) meltfram__.mcfr_prev; /* popped initial frame */ { /* clear initial frame & return */ melt_ptr_t retval = /*_.RETINIT___V1*/ meltfptr[0]; memset ((void *) &meltfram__, 0, sizeof (meltfram__)); return retval; } #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /* end */ void meltmod__warmelt_modes__initialmeltchunk_0 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /**COMMENT: start of oinibody **/ ; MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1__INSTALL_MELT_MODE#0", NULL != ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V80*/ meltfptr[79])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1__INSTALL_MELT_MODE#1", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V80*/ meltfptr[79])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1__INSTALL_MELT_MODE#2", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V80*/ meltfptr[79])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1__INSTALL_MELT_MODE#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V80*/ meltfptr[79])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1__INSTALL_MELT_MODE#4", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V80*/ meltfptr[79])->tabval[4] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V80*/ meltfptr[79]); /*putclosurout#1 */ melt_assertmsg ("putclosrout#1 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#1 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V81*/ meltfptr[80])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V80*/ meltfptr[79]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V81*/ meltfptr[80]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])))); ((meltobject_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V83*/ meltfptr[82]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V82*/ meltfptr[81]); melt_dbgtrace_written_object ( /*_.VALDATA___V82*/ meltfptr[81], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])))); ((meltobject_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V85*/ meltfptr[84]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V84*/ meltfptr[83]); melt_dbgtrace_written_object ( /*_.VALDATA___V84*/ meltfptr[83], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V87*/ meltfptr[86]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V86*/ meltfptr[85]); melt_dbgtrace_written_object ( /*_.VALDATA___V86*/ meltfptr[85], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])))); ((meltobject_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V89*/ meltfptr[88]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V88*/ meltfptr[87]); melt_dbgtrace_written_object ( /*_.VALDATA___V88*/ meltfptr[87], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])))); ((meltobject_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V91*/ meltfptr[90]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V90*/ meltfptr[89]); melt_dbgtrace_written_object ( /*_.VALDATA___V90*/ meltfptr[89], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91])))); ((meltobject_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V93*/ meltfptr[92]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V92*/ meltfptr[91]); melt_dbgtrace_written_object ( /*_.VALDATA___V92*/ meltfptr[91], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#4", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#5", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[5] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#6", NULL != ( /*_.VALSTR___V95*/ meltfptr[94])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V95*/ meltfptr[94]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#7", NULL != ( /*_.VALSTR___V96*/ meltfptr[95])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V96*/ meltfptr[95]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])))); ((meltobject_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V98*/ meltfptr[97]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V97*/ meltfptr[96]); melt_dbgtrace_written_object ( /*_.VALDATA___V97*/ meltfptr[96], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#8", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V94*/ meltfptr[93])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V94*/ meltfptr[93]); /*putclosurout#2 */ melt_assertmsg ("putclosrout#2 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V99*/ meltfptr[98])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#2 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V99*/ meltfptr[98])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V94*/ meltfptr[93]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V99*/ meltfptr[98]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])))); ((meltobject_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V101*/ meltfptr[100]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V100*/ meltfptr[99]); melt_dbgtrace_written_object ( /*_.VALDATA___V100*/ meltfptr[99], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])))); ((meltobject_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V103*/ meltfptr[102]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V102*/ meltfptr[101]); melt_dbgtrace_written_object ( /*_.VALDATA___V102*/ meltfptr[101], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])))); ((meltobject_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V105*/ meltfptr[104]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V104*/ meltfptr[103]); melt_dbgtrace_written_object ( /*_.VALDATA___V104*/ meltfptr[103], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V106*/ meltfptr[105])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V106*/ meltfptr[105])))); ((meltobject_ptr_t) ( /*_.VALDATA___V106*/ meltfptr[105]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V107*/ meltfptr[106]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V106*/ meltfptr[105]); melt_dbgtrace_written_object ( /*_.VALDATA___V106*/ meltfptr[105], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V108*/ meltfptr[107])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V108*/ meltfptr[107])))); ((meltobject_ptr_t) ( /*_.VALDATA___V108*/ meltfptr[107]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V109*/ meltfptr[108]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V108*/ meltfptr[107]); melt_dbgtrace_written_object ( /*_.VALDATA___V108*/ meltfptr[107], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])))); ((meltobject_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])))); ((meltobject_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V112*/ meltfptr[111]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109])))); ((meltobject_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V99*/ meltfptr[98]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V110*/ meltfptr[109]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V110*/ meltfptr[109], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#4", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#5", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[5] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#6", NULL != ( /*_.VALSTR___V114*/ meltfptr[113])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V114*/ meltfptr[113]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#7", NULL != ( /*_.VALSTR___V115*/ meltfptr[114])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V115*/ meltfptr[114]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#8", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V113*/ meltfptr[112])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V113*/ meltfptr[112]); /*putclosurout#3 */ melt_assertmsg ("putclosrout#3 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V116*/ meltfptr[115])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#3 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V116*/ meltfptr[115])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V113*/ meltfptr[112]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V116*/ meltfptr[115]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V117*/ meltfptr[116])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V117*/ meltfptr[116])))); ((meltobject_ptr_t) ( /*_.VALDATA___V117*/ meltfptr[116]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V118*/ meltfptr[117]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V117*/ meltfptr[116]); melt_dbgtrace_written_object ( /*_.VALDATA___V117*/ meltfptr[116], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])))); ((meltobject_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V120*/ meltfptr[119]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])))); ((meltobject_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V121*/ meltfptr[120]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118])))); ((meltobject_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V116*/ meltfptr[115]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V119*/ meltfptr[118]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V119*/ meltfptr[118], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#4", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#5", NULL != ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#6", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#7", NULL != ( /*_.FRESH_ENV__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[7] = (melt_ptr_t) ( /*_.FRESH_ENV__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#8", NULL != ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[8] = (melt_ptr_t) ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#9", NULL != ( /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#10", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#11", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[11] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#12", NULL != ( /*_.DBG_OUT__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[12] = (melt_ptr_t) ( /*_.DBG_OUT__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#13", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V122*/ meltfptr[121])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V122*/ meltfptr[121]); /*putclosurout#4 */ melt_assertmsg ("putclosrout#4 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V123*/ meltfptr[122])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#4 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V123*/ meltfptr[122])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V122*/ meltfptr[121]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V123*/ meltfptr[122]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])))); ((meltobject_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V125*/ meltfptr[124]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V124*/ meltfptr[123]); melt_dbgtrace_written_object ( /*_.VALDATA___V124*/ meltfptr[123], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])))); ((meltobject_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V127*/ meltfptr[126]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V126*/ meltfptr[125]); melt_dbgtrace_written_object ( /*_.VALDATA___V126*/ meltfptr[125], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V129*/ meltfptr[128]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V128*/ meltfptr[127]); melt_dbgtrace_written_object ( /*_.VALDATA___V128*/ meltfptr[127], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V131*/ meltfptr[130]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V130*/ meltfptr[129]); melt_dbgtrace_written_object ( /*_.VALDATA___V130*/ meltfptr[129], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131])))); ((meltobject_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V133*/ meltfptr[132]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V132*/ meltfptr[131]); melt_dbgtrace_written_object ( /*_.VALDATA___V132*/ meltfptr[131], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V135*/ meltfptr[134]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V134*/ meltfptr[133]); melt_dbgtrace_written_object ( /*_.VALDATA___V134*/ meltfptr[133], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])))); ((meltobject_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V137*/ meltfptr[136]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V136*/ meltfptr[135]); melt_dbgtrace_written_object ( /*_.VALDATA___V136*/ meltfptr[135], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V139*/ meltfptr[138]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V138*/ meltfptr[137]); melt_dbgtrace_written_object ( /*_.VALDATA___V138*/ meltfptr[137], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:215:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V141*/ meltfptr[140]); MELT_LOCATION ("warmelt-modes.melt:215:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V142*/ meltfptr[141]); MELT_LOCATION ("warmelt-modes.melt:215:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V123*/ meltfptr[122]); MELT_LOCATION ("warmelt-modes.melt:215:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V140*/ meltfptr[139]); MELT_LOCATION ("warmelt-modes.melt:215:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V140*/ meltfptr[139], "new static instance"); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_0 */ void meltmod__warmelt_modes__initialmeltchunk_1 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#4", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#5", NULL != ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#6", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#7", NULL != ( /*_.FRESH_ENV__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[7] = (melt_ptr_t) ( /*_.FRESH_ENV__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#8", NULL != ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[8] = (melt_ptr_t) ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#9", NULL != ( /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_DEBUG_OUTPUT_INFORMATION__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#10", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#11", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[11] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#12", NULL != ( /*_.DBG_OUT__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[12] = (melt_ptr_t) ( /*_.DBG_OUT__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_64__EVALFILE_DOCMD#13", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V143*/ meltfptr[142])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:228:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V143*/ meltfptr[142]); /*putclosurout#5 */ melt_assertmsg ("putclosrout#5 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V144*/ meltfptr[143])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#5 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V144*/ meltfptr[143])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V143*/ meltfptr[142]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V144*/ meltfptr[143]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V145*/ meltfptr[144])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V145*/ meltfptr[144])))); ((meltobject_ptr_t) ( /*_.VALDATA___V145*/ meltfptr[144]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V146*/ meltfptr[145]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V145*/ meltfptr[144]); melt_dbgtrace_written_object ( /*_.VALDATA___V145*/ meltfptr[144], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:265:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])))); ((meltobject_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V148*/ meltfptr[147]); MELT_LOCATION ("warmelt-modes.melt:265:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])))); ((meltobject_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V149*/ meltfptr[148]); MELT_LOCATION ("warmelt-modes.melt:265:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146])))); ((meltobject_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V144*/ meltfptr[143]); MELT_LOCATION ("warmelt-modes.melt:265:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V147*/ meltfptr[146]); MELT_LOCATION ("warmelt-modes.melt:265:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V147*/ meltfptr[146], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])))); ((meltobject_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V151*/ meltfptr[150]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V150*/ meltfptr[149]); melt_dbgtrace_written_object ( /*_.VALDATA___V150*/ meltfptr[149], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V153*/ meltfptr[152]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V152*/ meltfptr[151]); melt_dbgtrace_written_object ( /*_.VALDATA___V152*/ meltfptr[151], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V155*/ meltfptr[154]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]); /*putupl#7 */ melt_assertmsg ("putupl #7 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #7 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]), 5))), (0)))); /*putupl#8 */ melt_assertmsg ("putupl #8 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #8 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155]))->tabval[1] = (melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V156*/ meltfptr[155]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V156*/ meltfptr[155]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156])))); ((meltobject_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156])))); ((meltobject_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V157*/ meltfptr[156]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V157*/ meltfptr[156], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158])))); ((meltobject_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V160*/ meltfptr[159]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158])))); ((meltobject_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V159*/ meltfptr[158]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V159*/ meltfptr[158], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])))); ((meltobject_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V162*/ meltfptr[161]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])))); ((meltobject_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V161*/ meltfptr[160]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V161*/ meltfptr[160], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162])))); ((meltobject_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V164*/ meltfptr[163]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162])))); ((meltobject_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V163*/ meltfptr[162]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V163*/ meltfptr[162], "new static instance"); /*putupl#9 */ melt_assertmsg ("putupl #9 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #9 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]), 6))), (0)))); /*putupl#10 */ melt_assertmsg ("putupl #10 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #10 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V157*/ meltfptr[156]); /*putupl#11 */ melt_assertmsg ("putupl #11 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #11 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158]); /*putupl#12 */ melt_assertmsg ("putupl #12 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #12 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]); /*putupl#13 */ melt_assertmsg ("putupl #13 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #13 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V165*/ meltfptr[164]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V165*/ meltfptr[164]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V154*/ meltfptr[153], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])))); ((meltobject_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V167*/ meltfptr[166]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V166*/ meltfptr[165]); melt_dbgtrace_written_object ( /*_.VALDATA___V166*/ meltfptr[165], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167])))); ((meltobject_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V169*/ meltfptr[168]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V168*/ meltfptr[167]); melt_dbgtrace_written_object ( /*_.VALDATA___V168*/ meltfptr[167], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V170*/ meltfptr[169])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V170*/ meltfptr[169])))); ((meltobject_ptr_t) ( /*_.VALDATA___V170*/ meltfptr[169]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V171*/ meltfptr[170]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V170*/ meltfptr[169]); melt_dbgtrace_written_object ( /*_.VALDATA___V170*/ meltfptr[169], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])))); ((meltobject_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V173*/ meltfptr[172]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V172*/ meltfptr[171]); melt_dbgtrace_written_object ( /*_.VALDATA___V172*/ meltfptr[171], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#1", NULL != ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V154*/ meltfptr[153]); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#3", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#4", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#5", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#6", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[6] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#7", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#8", NULL != ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#9", NULL != ( /*_.CLASS_DEBUG_INFORMATION__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_DEBUG_INFORMATION__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#10", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#11", NULL != ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[11] = (melt_ptr_t) ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#12", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[12] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_95__REPL_PROCESSOR#13", NULL != ( /*_.DBG_OUT__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V174*/ meltfptr[173])->tabval[13] = (melt_ptr_t) ( /*_.DBG_OUT__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:285:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V174*/ meltfptr[173]); /*putclosurout#6 */ melt_assertmsg ("putclosrout#6 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V175*/ meltfptr[174])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#6 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V175*/ meltfptr[174])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V174*/ meltfptr[173]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V175*/ meltfptr[174]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])))); ((meltobject_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V177*/ meltfptr[176]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V176*/ meltfptr[175]); melt_dbgtrace_written_object ( /*_.VALDATA___V176*/ meltfptr[175], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])))); ((meltobject_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V179*/ meltfptr[178]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V178*/ meltfptr[177]); melt_dbgtrace_written_object ( /*_.VALDATA___V178*/ meltfptr[177], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V181*/ meltfptr[180]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V180*/ meltfptr[179]); melt_dbgtrace_written_object ( /*_.VALDATA___V180*/ meltfptr[179], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#0", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#1", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#2", NULL != ( /*_.FRESH_ENV__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#3", NULL != ( /*_.VALSTR___V183*/ meltfptr[182])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V183*/ meltfptr[182]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#4", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#5", NULL != ( /*_.DISCR_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V154*/ meltfptr[153]); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#7", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:365:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_108__LAMBDA_#0", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:365:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_108__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V184*/ meltfptr[183])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:365:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V184*/ meltfptr[183]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#8", NULL != ( /*_.VALROUT___V184*/ meltfptr[183])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V184*/ meltfptr[183]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#9", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[9] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#10", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:366:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V185*/ meltfptr[184])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_109__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V185*/ meltfptr[184])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:366:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V185*/ meltfptr[184])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_109__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V185*/ meltfptr[184])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:366:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V185*/ meltfptr[184]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#11", NULL != ( /*_.VALROUT___V185*/ meltfptr[184])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V185*/ meltfptr[184]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#12", NULL != ( /*_.CLASS_VALUE_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V28*/ meltfptr[27]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])))); ((meltobject_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V187*/ meltfptr[186]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V186*/ meltfptr[185]); melt_dbgtrace_written_object ( /*_.VALDATA___V186*/ meltfptr[185], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#13", NULL != ( /*_.VALDATA___V186*/ meltfptr[185])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])))); ((meltobject_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V189*/ meltfptr[188]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V188*/ meltfptr[187]); melt_dbgtrace_written_object ( /*_.VALDATA___V188*/ meltfptr[187], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#14", NULL != ( /*_.VALDATA___V188*/ meltfptr[187])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#15", NULL != ( /*_.PUT_ENV__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[15] = (melt_ptr_t) ( /*_.PUT_ENV__V29*/ meltfptr[28]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_1 */ void meltmod__warmelt_modes__initialmeltchunk_2 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#1", NULL != ( /*_.DISCR_STRBUF__V60*/ meltfptr[59])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V60*/ meltfptr[59]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#2", NULL != ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#4", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_495__REGISTER_INPUT_CHANNEL_HANDLER#5", NULL != ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76]); MELT_LOCATION ("warmelt-modes.melt:4326:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V191*/ meltfptr[190]); /*putclosurout#7 */ melt_assertmsg ("putclosrout#7 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#7 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V190*/ meltfptr[189])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V175*/ meltfptr[174]); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V175*/ meltfptr[174]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#18", NULL != ( /*_.REGISTER_ALL_PASSES_END_HOOK_FIRST__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[18] = (melt_ptr_t) ( /*_.REGISTER_ALL_PASSES_END_HOOK_FIRST__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#19", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[19] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:402:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V192*/ meltfptr[191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_120__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V192*/ meltfptr[191])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:402:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V192*/ meltfptr[191])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_120__LAMBDA_#1", NULL != ( /*_.VALSTR___V193*/ meltfptr[192])); ((meltroutine_ptr_t) /*_.VALROUT___V192*/ meltfptr[191])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V193*/ meltfptr[192]); MELT_LOCATION ("warmelt-modes.melt:402:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#20", NULL != ( /*_.VALROUT___V192*/ meltfptr[191])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[20] = (melt_ptr_t) ( /*_.VALROUT___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#21", NULL != ( /*_.AT_FINISH_UNIT_FIRST__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[21] = (melt_ptr_t) ( /*_.AT_FINISH_UNIT_FIRST__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#22", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[22] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:413:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_124__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:413:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_124__LAMBDA_#1", NULL != ( /*_.VALSTR___V195*/ meltfptr[194])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-modes.melt:413:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V194*/ meltfptr[193]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#23", NULL != ( /*_.VALROUT___V194*/ meltfptr[193])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[23] = (melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#24", NULL != ( /*_.AT_EXIT_LAST__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[24] = (melt_ptr_t) ( /*_.AT_EXIT_LAST__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#25", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[25] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:424:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_128__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V196*/ meltfptr[195])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:424:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_128__LAMBDA_#1", NULL != ( /*_.VALSTR___V197*/ meltfptr[196])); ((meltroutine_ptr_t) /*_.VALROUT___V196*/ meltfptr[195])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V197*/ meltfptr[196]); MELT_LOCATION ("warmelt-modes.melt:424:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V196*/ meltfptr[195]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#26", NULL != ( /*_.VALROUT___V196*/ meltfptr[195])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[26] = (melt_ptr_t) ( /*_.VALROUT___V196*/ meltfptr[195]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_103__REPL_DOCMD#27", NULL != ( /*_.VALSTR___V198*/ meltfptr[197])); ((meltroutine_ptr_t) /*_.VALROUT___V182*/ meltfptr[181])->tabval[27] = (melt_ptr_t) ( /*_.VALSTR___V198*/ meltfptr[197]); MELT_LOCATION ("warmelt-modes.melt:345:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V182*/ meltfptr[181]); /*putclosurout#8 */ melt_assertmsg ("putclosrout#8 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V199*/ meltfptr[198])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#8 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V199*/ meltfptr[198])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V182*/ meltfptr[181]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V199*/ meltfptr[198]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])))); ((meltobject_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V201*/ meltfptr[200]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V200*/ meltfptr[199]); melt_dbgtrace_written_object ( /*_.VALDATA___V200*/ meltfptr[199], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])))); ((meltobject_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V203*/ meltfptr[202]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V202*/ meltfptr[201]); melt_dbgtrace_written_object ( /*_.VALDATA___V202*/ meltfptr[201], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V205*/ meltfptr[204]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V204*/ meltfptr[203]); melt_dbgtrace_written_object ( /*_.VALDATA___V204*/ meltfptr[203], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])))); ((meltobject_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V207*/ meltfptr[206]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V206*/ meltfptr[205]); melt_dbgtrace_written_object ( /*_.VALDATA___V206*/ meltfptr[205], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])))); ((meltobject_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V209*/ meltfptr[208]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V208*/ meltfptr[207]); melt_dbgtrace_written_object ( /*_.VALDATA___V208*/ meltfptr[207], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V211*/ meltfptr[210]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V210*/ meltfptr[209]); melt_dbgtrace_written_object ( /*_.VALDATA___V210*/ meltfptr[209], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V212*/ meltfptr[211])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V212*/ meltfptr[211])))); ((meltobject_ptr_t) ( /*_.VALDATA___V212*/ meltfptr[211]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V213*/ meltfptr[212]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V212*/ meltfptr[211]); melt_dbgtrace_written_object ( /*_.VALDATA___V212*/ meltfptr[211], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:437:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V215*/ meltfptr[214]); MELT_LOCATION ("warmelt-modes.melt:437:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V216*/ meltfptr[215]); MELT_LOCATION ("warmelt-modes.melt:437:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V199*/ meltfptr[198]); MELT_LOCATION ("warmelt-modes.melt:437:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V214*/ meltfptr[213]); MELT_LOCATION ("warmelt-modes.melt:437:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V214*/ meltfptr[213], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]); /*putupl#14 */ melt_assertmsg ("putupl #14 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #14 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]), 5))), (0)))); /*putupl#15 */ melt_assertmsg ("putupl #15 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #15 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]))->tabval[1] = (melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V221*/ meltfptr[220]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])))); ((meltobject_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V223*/ meltfptr[222]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])))); ((meltobject_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V222*/ meltfptr[221]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V222*/ meltfptr[221], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])))); ((meltobject_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V224*/ meltfptr[223]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V224*/ meltfptr[223], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V227*/ meltfptr[226]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V226*/ meltfptr[225]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V226*/ meltfptr[225], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227])))); ((meltobject_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V229*/ meltfptr[228]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227])))); ((meltobject_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V228*/ meltfptr[227]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V228*/ meltfptr[227], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])))); ((meltobject_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V231*/ meltfptr[230]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])))); ((meltobject_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V230*/ meltfptr[229]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V230*/ meltfptr[229], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V233*/ meltfptr[232]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V232*/ meltfptr[231]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V232*/ meltfptr[231], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233])))); ((meltobject_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V235*/ meltfptr[234]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233])))); ((meltobject_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V234*/ meltfptr[233]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V234*/ meltfptr[233], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235])))); ((meltobject_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V237*/ meltfptr[236]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235])))); ((meltobject_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V236*/ meltfptr[235], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237])))); ((meltobject_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V239*/ meltfptr[238]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237])))); ((meltobject_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V238*/ meltfptr[237]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V238*/ meltfptr[237], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])))); ((meltobject_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V241*/ meltfptr[240]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])))); ((meltobject_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V240*/ meltfptr[239]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V240*/ meltfptr[239], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])))); ((meltobject_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V243*/ meltfptr[242]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])))); ((meltobject_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V242*/ meltfptr[241]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V242*/ meltfptr[241], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])))); ((meltobject_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V245*/ meltfptr[244]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])))); ((meltobject_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V244*/ meltfptr[243], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V247*/ meltfptr[246]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V246*/ meltfptr[245], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V249*/ meltfptr[248]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V248*/ meltfptr[247]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V248*/ meltfptr[247], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249])))); ((meltobject_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249])))); ((meltobject_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V250*/ meltfptr[249]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V250*/ meltfptr[249], "new static instance"); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_2 */ void meltmod__warmelt_modes__initialmeltchunk_3 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#16*/ melt_assertmsg ("putupl #16 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #16 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V23*/ meltfptr[22]), 6))), (0)))); /*putupl#17 */ melt_assertmsg ("putupl #17 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #17 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]); /*putupl#18 */ melt_assertmsg ("putupl #18 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #18 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223]); /*putupl#19 */ melt_assertmsg ("putupl #19 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #19 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]); /*putupl#20 */ melt_assertmsg ("putupl #20 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #20 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V228*/ meltfptr[227]); /*putupl#21 */ melt_assertmsg ("putupl #21 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #21 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229]); /*putupl#22 */ melt_assertmsg ("putupl #22 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #22 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]); /*putupl#23 */ melt_assertmsg ("putupl #23 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #23 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V234*/ meltfptr[233]); /*putupl#24 */ melt_assertmsg ("putupl #24 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #24 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V236*/ meltfptr[235]); /*putupl#25 */ melt_assertmsg ("putupl #25 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #25 checkoff", (9 >= 0 && 9 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V238*/ meltfptr[237]); /*putupl#26 */ melt_assertmsg ("putupl #26 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #26 checkoff", (10 >= 0 && 10 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239]); /*putupl#27 */ melt_assertmsg ("putupl #27 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #27 checkoff", (11 >= 0 && 11 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241]); /*putupl#28 */ melt_assertmsg ("putupl #28 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #28 checkoff", (12 >= 0 && 12 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243]); /*putupl#29 */ melt_assertmsg ("putupl #29 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #29 checkoff", (13 >= 0 && 13 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]); /*putupl#30 */ melt_assertmsg ("putupl #30 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #30 checkoff", (14 >= 0 && 14 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V248*/ meltfptr[247]); /*putupl#31 */ melt_assertmsg ("putupl #31 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #31 checkoff", (15 >= 0 && 15 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]))->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V250*/ meltfptr[249]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V252*/ meltfptr[251]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V252*/ meltfptr[251]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:447:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V219*/ meltfptr[218], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])))); ((meltobject_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V254*/ meltfptr[253]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V253*/ meltfptr[252]); melt_dbgtrace_written_object ( /*_.VALDATA___V253*/ meltfptr[252], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])))); ((meltobject_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V256*/ meltfptr[255]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V255*/ meltfptr[254]); melt_dbgtrace_written_object ( /*_.VALDATA___V255*/ meltfptr[254], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])))); ((meltobject_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V258*/ meltfptr[257]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V257*/ meltfptr[256]); melt_dbgtrace_written_object ( /*_.VALDATA___V257*/ meltfptr[256], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])))); ((meltobject_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V260*/ meltfptr[259]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V259*/ meltfptr[258]); melt_dbgtrace_written_object ( /*_.VALDATA___V259*/ meltfptr[258], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V261*/ meltfptr[260])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V261*/ meltfptr[260])))); ((meltobject_ptr_t) ( /*_.VALDATA___V261*/ meltfptr[260]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V262*/ meltfptr[261]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V261*/ meltfptr[260]); melt_dbgtrace_written_object ( /*_.VALDATA___V261*/ meltfptr[260], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V263*/ meltfptr[262])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); melt_dbgtrace_written_object ( /*_.VALDATA___V263*/ meltfptr[262], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V265*/ meltfptr[264])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])))); ((meltobject_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V268*/ meltfptr[267]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V267*/ meltfptr[266]); melt_dbgtrace_written_object ( /*_.VALDATA___V267*/ meltfptr[266], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])))); ((meltobject_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V270*/ meltfptr[269]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V269*/ meltfptr[268]); melt_dbgtrace_written_object ( /*_.VALDATA___V269*/ meltfptr[268], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V271*/ meltfptr[270])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V271*/ meltfptr[270])))); ((meltobject_ptr_t) ( /*_.VALDATA___V271*/ meltfptr[270]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V272*/ meltfptr[271]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V271*/ meltfptr[270]); melt_dbgtrace_written_object ( /*_.VALDATA___V271*/ meltfptr[270], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V273*/ meltfptr[272])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])))); ((meltobject_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V276*/ meltfptr[275]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V275*/ meltfptr[274]); melt_dbgtrace_written_object ( /*_.VALDATA___V275*/ meltfptr[274], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276])))); ((meltobject_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V278*/ meltfptr[277]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V277*/ meltfptr[276]); melt_dbgtrace_written_object ( /*_.VALDATA___V277*/ meltfptr[276], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])))); ((meltobject_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V280*/ meltfptr[279]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V279*/ meltfptr[278]); melt_dbgtrace_written_object ( /*_.VALDATA___V279*/ meltfptr[278], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])))); ((meltobject_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V282*/ meltfptr[281]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V281*/ meltfptr[280]); melt_dbgtrace_written_object ( /*_.VALDATA___V281*/ meltfptr[280], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:476:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V283*/ meltfptr[282])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:476:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V283*/ meltfptr[282]); /*putclosurout#9 */ melt_assertmsg ("putclosrout#9 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#9 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V284*/ meltfptr[283])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V283*/ meltfptr[282]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#1", NULL != ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:493:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V286*/ meltfptr[285])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V286*/ meltfptr[285])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:493:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V286*/ meltfptr[285])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__LAMBDA_#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V286*/ meltfptr[285])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:493:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#3", NULL != ( /*_.VALROUT___V286*/ meltfptr[285])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[3] = (melt_ptr_t) ( /*_.VALROUT___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#4", NULL != ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#5", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:506:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_209__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V287*/ meltfptr[286])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:506:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V287*/ meltfptr[286])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_209__LAMBDA_#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V287*/ meltfptr[286])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:506:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V287*/ meltfptr[286]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#6", NULL != ( /*_.VALROUT___V287*/ meltfptr[286])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V287*/ meltfptr[286]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#7", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#8", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#9", NULL != ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#10", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:516:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V288*/ meltfptr[287])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#0", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V288*/ meltfptr[287])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:516:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V288*/ meltfptr[287])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V288*/ meltfptr[287])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:516:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V288*/ meltfptr[287])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#2", NULL != ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V288*/ meltfptr[287])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:516:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V288*/ meltfptr[287])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#3", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V288*/ meltfptr[287])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:516:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V288*/ meltfptr[287]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#11", NULL != ( /*_.VALROUT___V288*/ meltfptr[287])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V288*/ meltfptr[287]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#12", NULL != ( /*_.LIST_EVERY__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[12] = (melt_ptr_t) ( /*_.LIST_EVERY__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#13", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#14", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#15", NULL != ( /*_.CLASS_SEXPR__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#16", NULL != ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#17", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#19", NULL != ( /*_.CLASS_FIELD__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_FIELD__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#20", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[20] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#21", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[21] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#22", NULL != ( /*_.CLASS_SOURCE_DEFSELECTOR__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[22] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFSELECTOR__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#23", NULL != ( /*_.CLASS_SOURCE_DEFINSTANCE__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[23] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINSTANCE__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#24", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[24] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#25", NULL != ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[25] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#26", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[26] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#27", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[27] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#28", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[28] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#29", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[29] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#30", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[30] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#2", NULL != ( /*_.CLASS_SEXPR__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#3", NULL != ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#4", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:538:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#6", NULL != ( /*_.CLASS_FIELD__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_FIELD__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#7", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#8", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#9", NULL != ( /*_.CLASS_SOURCE_DEFSELECTOR__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFSELECTOR__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#10", NULL != ( /*_.CLASS_SOURCE_DEFINSTANCE__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINSTANCE__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#11", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#12", NULL != ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#13", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#14", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#15", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#16", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_3 */ void meltmod__warmelt_modes__initialmeltchunk_4 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:538:/ 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_221__LAMBDA_#17", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V289*/ meltfptr[288])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:538:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V289*/ meltfptr[288]); MELT_LOCATION ("warmelt-modes.melt:486:/ 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_204__MAKEDOC_SCANINPUT#31", NULL != ( /*_.VALROUT___V289*/ meltfptr[288])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[31] = (melt_ptr_t) ( /*_.VALROUT___V289*/ meltfptr[288]); MELT_LOCATION ("warmelt-modes.melt:486:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V285*/ meltfptr[284]); /*putclosurout#10 */ melt_assertmsg ("putclosrout#10 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V290*/ meltfptr[289])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#10 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V290*/ meltfptr[289])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V290*/ meltfptr[289]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V291*/ meltfptr[290])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V291*/ meltfptr[290])))); ((meltobject_ptr_t) ( /*_.VALDATA___V291*/ meltfptr[290]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V292*/ meltfptr[291]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V291*/ meltfptr[290]); melt_dbgtrace_written_object ( /*_.VALDATA___V291*/ meltfptr[290], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])))); ((meltobject_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V294*/ meltfptr[293]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V293*/ meltfptr[292]); melt_dbgtrace_written_object ( /*_.VALDATA___V293*/ meltfptr[292], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V295*/ meltfptr[294])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V295*/ meltfptr[294])))); ((meltobject_ptr_t) ( /*_.VALDATA___V295*/ meltfptr[294]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V296*/ meltfptr[295]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V295*/ meltfptr[294]); melt_dbgtrace_written_object ( /*_.VALDATA___V295*/ meltfptr[294], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])))); ((meltobject_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V298*/ meltfptr[297]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V297*/ meltfptr[296]); melt_dbgtrace_written_object ( /*_.VALDATA___V297*/ meltfptr[296], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298])))); ((meltobject_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V300*/ meltfptr[299]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V299*/ meltfptr[298]); melt_dbgtrace_written_object ( /*_.VALDATA___V299*/ meltfptr[298], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300])))); ((meltobject_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V302*/ meltfptr[301]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V301*/ meltfptr[300]); melt_dbgtrace_written_object ( /*_.VALDATA___V301*/ meltfptr[300], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])))); ((meltobject_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V304*/ meltfptr[303]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V303*/ meltfptr[302]); melt_dbgtrace_written_object ( /*_.VALDATA___V303*/ meltfptr[302], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304])))); ((meltobject_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V306*/ meltfptr[305]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V305*/ meltfptr[304]); melt_dbgtrace_written_object ( /*_.VALDATA___V305*/ meltfptr[304], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306])))); ((meltobject_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V308*/ meltfptr[307]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V307*/ meltfptr[306]); melt_dbgtrace_written_object ( /*_.VALDATA___V307*/ meltfptr[306], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])))); ((meltobject_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V310*/ meltfptr[309]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V309*/ meltfptr[308]); melt_dbgtrace_written_object ( /*_.VALDATA___V309*/ meltfptr[308], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])))); ((meltobject_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V312*/ meltfptr[311]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V311*/ meltfptr[310]); melt_dbgtrace_written_object ( /*_.VALDATA___V311*/ meltfptr[310], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V317*/ meltfptr[316])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V317*/ meltfptr[316])))); ((meltobject_ptr_t) ( /*_.VALDATA___V317*/ meltfptr[316]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V318*/ meltfptr[317]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V317*/ meltfptr[316]); melt_dbgtrace_written_object ( /*_.VALDATA___V317*/ meltfptr[316], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])))); ((meltobject_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V320*/ meltfptr[319]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V319*/ meltfptr[318]); melt_dbgtrace_written_object ( /*_.VALDATA___V319*/ meltfptr[318], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V321*/ meltfptr[320])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])))); ((meltobject_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V324*/ meltfptr[323]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V323*/ meltfptr[322]); melt_dbgtrace_written_object ( /*_.VALDATA___V323*/ meltfptr[322], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])))); ((meltobject_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V326*/ meltfptr[325]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V325*/ meltfptr[324]); melt_dbgtrace_written_object ( /*_.VALDATA___V325*/ meltfptr[324], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])))); ((meltobject_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V328*/ meltfptr[327]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V327*/ meltfptr[326]); melt_dbgtrace_written_object ( /*_.VALDATA___V327*/ meltfptr[326], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:738:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_248__MAKEDOC_OUTDEFLOC#0", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V329*/ meltfptr[328])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:738:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_248__MAKEDOC_OUTDEFLOC#1", NULL != ( /*_.CLASS_LOCATED__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V329*/ meltfptr[328])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-modes.melt:738:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V329*/ meltfptr[328]); /*putclosurout#11 */ melt_assertmsg ("putclosrout#11 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#11 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V329*/ meltfptr[328])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V330*/ meltfptr[329])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V329*/ meltfptr[328]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V330*/ meltfptr[329]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])))); ((meltobject_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V332*/ meltfptr[331]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V331*/ meltfptr[330]); melt_dbgtrace_written_object ( /*_.VALDATA___V331*/ meltfptr[330], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_252__MAKEDOC_OUTFORMALS#0", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V333*/ meltfptr[332])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_252__MAKEDOC_OUTFORMALS#1", NULL != ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V333*/ meltfptr[332])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-modes.melt:752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_252__MAKEDOC_OUTFORMALS#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V333*/ meltfptr[332])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_252__MAKEDOC_OUTFORMALS#3", NULL != ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V333*/ meltfptr[332])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:752:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V333*/ meltfptr[332]); /*putclosurout#12 */ melt_assertmsg ("putclosrout#12 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V334*/ meltfptr[333])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#12 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V334*/ meltfptr[333])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V333*/ meltfptr[332]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V334*/ meltfptr[333]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])))); ((meltobject_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V336*/ meltfptr[335]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V335*/ meltfptr[334]); melt_dbgtrace_written_object ( /*_.VALDATA___V335*/ meltfptr[334], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:792:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V337*/ meltfptr[336])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_256__MAKEDOC_OUTDOC#0", NULL != ( /*_.CLASS_SEXPR__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:792:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V337*/ meltfptr[336])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_256__MAKEDOC_OUTDOC#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V337*/ meltfptr[336])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:792:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V337*/ meltfptr[336]); /*putclosurout#13 */ melt_assertmsg ("putclosrout#13 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#13 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V337*/ meltfptr[336])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V338*/ meltfptr[337])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V337*/ meltfptr[336]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#2", NULL != ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#3", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#5", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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___V330*/ meltfptr[329]); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#8", NULL != ( /*_.CLASS_FIELD__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_FIELD__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#9", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[9] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#10", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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_258__MAKEDOC_OUTCLASSDEF#11", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[11] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:828:/ 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___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V339*/ meltfptr[338])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:828:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V339*/ meltfptr[338]); /*putclosurout#14 */ melt_assertmsg ("putclosrout#14 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V340*/ meltfptr[339])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#14 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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])))); ((meltobject_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V342*/ meltfptr[341]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V341*/ meltfptr[340]); melt_dbgtrace_written_object ( /*_.VALDATA___V341*/ meltfptr[340], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])))); ((meltobject_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V344*/ meltfptr[343]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V343*/ meltfptr[342]); melt_dbgtrace_written_object ( /*_.VALDATA___V343*/ meltfptr[342], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])))); ((meltobject_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V346*/ meltfptr[345]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V345*/ meltfptr[344]); melt_dbgtrace_written_object ( /*_.VALDATA___V345*/ meltfptr[344], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#4", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:966:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V348*/ meltfptr[347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_268__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V348*/ meltfptr[347])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:966:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V348*/ meltfptr[347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_268__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V348*/ meltfptr[347])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:966:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V348*/ meltfptr[347]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#5", NULL != ( /*_.VALROUT___V348*/ meltfptr[347])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V348*/ meltfptr[347]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#7", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#8", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_266__MAKEDOC_GENMACRO#9", NULL != ( /*_.CLASS_LOCATED__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V347*/ meltfptr[346])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:954:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V347*/ meltfptr[346]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_4 */ void meltmod__warmelt_modes__initialmeltchunk_5 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putclosurout#15*/ melt_assertmsg ("putclosrout#15 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V349*/ meltfptr[348])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#15 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V349*/ meltfptr[348])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V347*/ meltfptr[346]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V349*/ meltfptr[348]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#3", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#4", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[4] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#5", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:1035:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_271__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V351*/ meltfptr[350])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1035:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V351*/ meltfptr[350])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_271__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V351*/ meltfptr[350])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:1035:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V351*/ meltfptr[350]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#6", NULL != ( /*_.VALROUT___V351*/ meltfptr[350])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V351*/ meltfptr[350]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#8", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#9", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_269__MAKEDOC_GENPATMACRO#10", NULL != ( /*_.CLASS_LOCATED__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:1017:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V350*/ meltfptr[349]); /*putclosurout#16 */ melt_assertmsg ("putclosrout#16 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V352*/ meltfptr[351])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#16 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V352*/ meltfptr[351])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V352*/ meltfptr[351]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#1", NULL != ( /*_.VALBXINT___V354*/ meltfptr[353])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[1] = (melt_ptr_t) ( /*_.VALBXINT___V354*/ meltfptr[353]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#2", NULL != ( /*_.VALBXINT___V355*/ meltfptr[354])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[2] = (melt_ptr_t) ( /*_.VALBXINT___V355*/ meltfptr[354]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#3", NULL != ( /*_.VALBXINT___V356*/ meltfptr[355])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[3] = (melt_ptr_t) ( /*_.VALBXINT___V356*/ meltfptr[355]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#4", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[4] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#5", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#6", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#7", NULL != ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1101:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V357*/ meltfptr[356])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_277__LAMBDA_#0", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V357*/ meltfptr[356])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1101:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V357*/ meltfptr[356])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_277__LAMBDA_#1", NULL != ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V357*/ meltfptr[356])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1101:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V357*/ meltfptr[356]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#8", NULL != ( /*_.VALROUT___V357*/ meltfptr[356])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V357*/ meltfptr[356]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#9", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1106:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V358*/ meltfptr[357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_278__LAMBDA_#0", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1106:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V358*/ meltfptr[357]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#10", NULL != ( /*_.VALROUT___V358*/ meltfptr[357])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V358*/ meltfptr[357]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#11", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1136:/ 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_279__LAMBDA_#0", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V359*/ meltfptr[358])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1136:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V359*/ meltfptr[358]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#12", NULL != ( /*_.VALROUT___V359*/ meltfptr[358])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V359*/ meltfptr[358]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#13", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#14", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[14] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#15", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1159:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V360*/ meltfptr[359])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_280__LAMBDA_#0", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V360*/ meltfptr[359])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1159:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V360*/ meltfptr[359])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_280__LAMBDA_#1", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V360*/ meltfptr[359])->tabval[1] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1159:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V360*/ meltfptr[359])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_280__LAMBDA_#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V360*/ meltfptr[359])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1159:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V360*/ meltfptr[359]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#16", NULL != ( /*_.VALROUT___V360*/ meltfptr[359])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V360*/ meltfptr[359]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#17", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#18", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1085:/ 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_272__MAKEDOC_GENCLASS#19", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1085:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V340*/ meltfptr[339]); ((meltroutine_ptr_t) /*_.VALROUT___V353*/ meltfptr[352])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V340*/ meltfptr[339]); MELT_LOCATION ("warmelt-modes.melt:1085:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V353*/ meltfptr[352]); /*putclosurout#17 */ melt_assertmsg ("putclosrout#17 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V361*/ meltfptr[360])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#17 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V353*/ meltfptr[352])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V361*/ meltfptr[360])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V353*/ meltfptr[352]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_281__MAKEDOC_OUTPRIMITIVEDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_281__MAKEDOC_OUTPRIMITIVEDEF#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_281__MAKEDOC_OUTPRIMITIVEDEF#3", NULL != ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_281__MAKEDOC_OUTPRIMITIVEDEF#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V330*/ meltfptr[329]); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_281__MAKEDOC_OUTPRIMITIVEDEF#6", NULL != ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V334*/ meltfptr[333]); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V334*/ meltfptr[333]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:1212:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V362*/ meltfptr[361]); /*putclosurout#18 */ melt_assertmsg ("putclosrout#18 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V363*/ meltfptr[362])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#18 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V363*/ meltfptr[362])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V362*/ meltfptr[361]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V363*/ meltfptr[362]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])))); ((meltobject_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V365*/ meltfptr[364]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V364*/ meltfptr[363]); melt_dbgtrace_written_object ( /*_.VALDATA___V364*/ meltfptr[363], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#3", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#4", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[4] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#5", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1262:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V367*/ meltfptr[366])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_287__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V367*/ meltfptr[366])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1262:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V367*/ meltfptr[366])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_287__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V367*/ meltfptr[366])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1262:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V367*/ meltfptr[366]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#6", NULL != ( /*_.VALROUT___V367*/ meltfptr[366])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V367*/ meltfptr[366]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__MAKEDOC_GENPRIMITIVE#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V363*/ meltfptr[362]); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V363*/ meltfptr[362]); MELT_LOCATION ("warmelt-modes.melt:1243:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V366*/ meltfptr[365]); /*putclosurout#19 */ melt_assertmsg ("putclosrout#19 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V368*/ meltfptr[367])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#19 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V368*/ meltfptr[367])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V368*/ meltfptr[367]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_288__MAKEDOC_OUTFUNCTIONDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_288__MAKEDOC_OUTFUNCTIONDEF#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_288__MAKEDOC_OUTFUNCTIONDEF#3", NULL != ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_288__MAKEDOC_OUTFUNCTIONDEF#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V330*/ meltfptr[329]); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V334*/ meltfptr[333]); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V334*/ meltfptr[333]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V369*/ meltfptr[368])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:1287:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V369*/ meltfptr[368]); /*putclosurout#20 */ melt_assertmsg ("putclosrout#20 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V370*/ meltfptr[369])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#20 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V370*/ meltfptr[369])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V369*/ meltfptr[368]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V370*/ meltfptr[369]); MELT_LOCATION ("warmelt-modes.melt:1313:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1325:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V372*/ meltfptr[371])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_292__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V372*/ meltfptr[371])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1325:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V372*/ meltfptr[371])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_292__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V372*/ meltfptr[371])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1325:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V372*/ meltfptr[371]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#5", NULL != ( /*_.VALROUT___V372*/ meltfptr[371])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V372*/ meltfptr[371]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1313:/ 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_290__MAKEDOC_GENFUNCTION#7", NULL != ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-modes.melt:1313:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V370*/ meltfptr[369]); ((meltroutine_ptr_t) /*_.VALROUT___V371*/ meltfptr[370])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V370*/ meltfptr[369]); MELT_LOCATION ("warmelt-modes.melt:1313:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V371*/ meltfptr[370]); /*putclosurout#21 */ melt_assertmsg ("putclosrout#21 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V373*/ meltfptr[372])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#21 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V371*/ meltfptr[370])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V373*/ meltfptr[372])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V371*/ meltfptr[370]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V373*/ meltfptr[372]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1361:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V375*/ meltfptr[374])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V375*/ meltfptr[374])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1361:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V375*/ meltfptr[374])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V375*/ meltfptr[374])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1361:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V375*/ meltfptr[374]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#5", NULL != ( /*_.VALROUT___V375*/ meltfptr[374])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V375*/ meltfptr[374]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#7", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#8", NULL != ( /*_.CLASS_LOCATED__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#9", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#10", NULL != ( /*_.CLASS_CITERATOR__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V58*/ meltfptr[57]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_5 */ void meltmod__warmelt_modes__initialmeltchunk_6 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_293__MAKEDOC_GENCITERATOR#11", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V330*/ meltfptr[329]); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V334*/ meltfptr[333]); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V334*/ meltfptr[333]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V374*/ meltfptr[373])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:1348:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V374*/ meltfptr[373]); /*putclosurout#22 */ melt_assertmsg ("putclosrout#22 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V376*/ meltfptr[375])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#22 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V376*/ meltfptr[375])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V374*/ meltfptr[373]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V376*/ meltfptr[375]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V377*/ meltfptr[376])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V377*/ meltfptr[376])))); ((meltobject_ptr_t) ( /*_.VALDATA___V377*/ meltfptr[376]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V378*/ meltfptr[377]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V377*/ meltfptr[376]); melt_dbgtrace_written_object ( /*_.VALDATA___V377*/ meltfptr[376], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#1", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#2", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1423:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V380*/ meltfptr[379])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_300__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1423:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V380*/ meltfptr[379])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_300__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1423:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V380*/ meltfptr[379]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#5", NULL != ( /*_.VALROUT___V380*/ meltfptr[379])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V380*/ meltfptr[379]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#7", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V49*/ meltfptr[48]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#8", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#9", NULL != ( /*_.CLASS_ANY_MATCHER__V59*/ meltfptr[58])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#10", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V330*/ meltfptr[329]); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V330*/ meltfptr[329]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#12", NULL != ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#13", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_298__MAKEDOC_GENCMATCHER#14", NULL != ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_QUASI_CTYPE__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V334*/ meltfptr[333]); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V334*/ meltfptr[333]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V338*/ meltfptr[337]); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V284*/ meltfptr[283]); ((meltroutine_ptr_t) /*_.VALROUT___V379*/ meltfptr[378])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-modes.melt:1410:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V379*/ meltfptr[378]); /*putclosurout#23 */ melt_assertmsg ("putclosrout#23 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V381*/ meltfptr[380])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#23 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V381*/ meltfptr[380])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V379*/ meltfptr[378]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V381*/ meltfptr[380]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V382*/ meltfptr[381])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V382*/ meltfptr[381])))); ((meltobject_ptr_t) ( /*_.VALDATA___V382*/ meltfptr[381]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V383*/ meltfptr[382]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V382*/ meltfptr[381]); melt_dbgtrace_written_object ( /*_.VALDATA___V382*/ meltfptr[381], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_303__MAKEDOC_GENOUTPUT#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_303__MAKEDOC_GENOUTPUT#2", NULL != ( /*_.DISCR_STRBUF__V60*/ meltfptr[59])); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V60*/ meltfptr[59]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V349*/ meltfptr[348]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V349*/ meltfptr[348]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V352*/ meltfptr[351]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V352*/ meltfptr[351]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V361*/ meltfptr[360]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V368*/ meltfptr[367]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V368*/ meltfptr[367]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V373*/ meltfptr[372]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V373*/ meltfptr[372]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V376*/ meltfptr[375]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V376*/ meltfptr[375]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V381*/ meltfptr[380]); ((meltroutine_ptr_t) /*_.VALROUT___V384*/ meltfptr[383])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V381*/ meltfptr[380]); MELT_LOCATION ("warmelt-modes.melt:1486:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V384*/ meltfptr[383]); /*putclosurout#24 */ melt_assertmsg ("putclosrout#24 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V385*/ meltfptr[384])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#24 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V385*/ meltfptr[384])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V384*/ meltfptr[383]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V385*/ meltfptr[384]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])))); ((meltobject_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V387*/ meltfptr[386]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V386*/ meltfptr[385]); melt_dbgtrace_written_object ( /*_.VALDATA___V386*/ meltfptr[385], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#2", NULL != ( /*_.CONTENV___V2*/ meltfptr[1])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[2] = (melt_ptr_t) ( /*_.CONTENV___V2*/ meltfptr[1]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#3", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#4", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#5", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V219*/ meltfptr[218]); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#7", NULL != ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#8", NULL != ( /*_.DISCR_INTEGER__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#9", NULL != ( /*_.MELT_MODE_REFERENCE__V61*/ meltfptr[60])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[9] = (melt_ptr_t) ( /*_.MELT_MODE_REFERENCE__V61*/ meltfptr[60]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#10", NULL != ( /*_.LIST_EVERY__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[10] = (melt_ptr_t) ( /*_.LIST_EVERY__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#11", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[11] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#12", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[12] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:1609:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V389*/ meltfptr[388])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_311__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1609:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V389*/ meltfptr[388])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_311__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V389*/ meltfptr[388])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:1609:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V389*/ meltfptr[388]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#13", NULL != ( /*_.VALROUT___V389*/ meltfptr[388])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V389*/ meltfptr[388]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#14", NULL != ( /*_.MACROEXPAND_TOPLEVEL_LIST__V63*/ meltfptr[62])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[14] = (melt_ptr_t) ( /*_.MACROEXPAND_TOPLEVEL_LIST__V63*/ meltfptr[62]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#15", NULL != ( /*_.MACROEXPAND_1__V64*/ meltfptr[63])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[15] = (melt_ptr_t) ( /*_.MACROEXPAND_1__V64*/ meltfptr[63]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V290*/ meltfptr[289]); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V290*/ meltfptr[289]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V385*/ meltfptr[384]); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V385*/ meltfptr[384]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__MAKEDOC_DOCMD#18", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:1569:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V388*/ meltfptr[387]); /*putclosurout#25 */ melt_assertmsg ("putclosrout#25 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V390*/ meltfptr[389])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#25 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V390*/ meltfptr[389])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V390*/ meltfptr[389]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])))); ((meltobject_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V392*/ meltfptr[391]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V391*/ meltfptr[390]); melt_dbgtrace_written_object ( /*_.VALDATA___V391*/ meltfptr[390], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392])))); ((meltobject_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V394*/ meltfptr[393]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V393*/ meltfptr[392]); melt_dbgtrace_written_object ( /*_.VALDATA___V393*/ meltfptr[392], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])))); ((meltobject_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V396*/ meltfptr[395]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V395*/ meltfptr[394]); melt_dbgtrace_written_object ( /*_.VALDATA___V395*/ meltfptr[394], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V397*/ meltfptr[396])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V399*/ meltfptr[398])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V399*/ meltfptr[398])))); ((meltobject_ptr_t) ( /*_.VALDATA___V399*/ meltfptr[398]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V400*/ meltfptr[399]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V399*/ meltfptr[398]); melt_dbgtrace_written_object ( /*_.VALDATA___V399*/ meltfptr[398], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1635:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])))); ((meltobject_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V402*/ meltfptr[401]); MELT_LOCATION ("warmelt-modes.melt:1635:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])))); ((meltobject_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V403*/ meltfptr[402]); MELT_LOCATION ("warmelt-modes.melt:1635:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])))); ((meltobject_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V390*/ meltfptr[389]); MELT_LOCATION ("warmelt-modes.melt:1635:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V401*/ meltfptr[400]); MELT_LOCATION ("warmelt-modes.melt:1635:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V401*/ meltfptr[400], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#3", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#4", NULL != ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_323__SHOWVAR_DOCMD#5", NULL != ( /*_.FIND_ENV__V65*/ meltfptr[64])); ((meltroutine_ptr_t) /*_.VALROUT___V404*/ meltfptr[403])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V65*/ meltfptr[64]); MELT_LOCATION ("warmelt-modes.melt:1648:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V404*/ meltfptr[403]); /*putclosurout#26 */ melt_assertmsg ("putclosrout#26 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V405*/ meltfptr[404])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#26 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V405*/ meltfptr[404])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V404*/ meltfptr[403]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V405*/ meltfptr[404]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V406*/ meltfptr[405])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V406*/ meltfptr[405])))); ((meltobject_ptr_t) ( /*_.VALDATA___V406*/ meltfptr[405]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V407*/ meltfptr[406]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V406*/ meltfptr[405]); melt_dbgtrace_written_object ( /*_.VALDATA___V406*/ meltfptr[405], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#0", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[0] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#1", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#2", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#3", NULL != ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#4", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[4] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#5", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[5] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#6", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_327__HELP_DOCMD#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V408*/ meltfptr[407])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1673:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V408*/ meltfptr[407]); /*putclosurout#27 */ melt_assertmsg ("putclosrout#27 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V409*/ meltfptr[408])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#27 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V409*/ meltfptr[408])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V408*/ meltfptr[407]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V409*/ meltfptr[408]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])))); ((meltobject_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V411*/ meltfptr[410]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V410*/ meltfptr[409]); melt_dbgtrace_written_object ( /*_.VALDATA___V410*/ meltfptr[409], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1726:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])))); ((meltobject_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V413*/ meltfptr[412]); MELT_LOCATION ("warmelt-modes.melt:1726:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])))); ((meltobject_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V414*/ meltfptr[413]); MELT_LOCATION ("warmelt-modes.melt:1726:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])))); ((meltobject_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V409*/ meltfptr[408]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_6 */ void meltmod__warmelt_modes__initialmeltchunk_7 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:1726:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V412*/ meltfptr[411]); MELT_LOCATION ("warmelt-modes.melt:1726:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V412*/ meltfptr[411], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1735:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V415*/ meltfptr[414])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_334__NOP_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V415*/ meltfptr[414])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1735:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V415*/ meltfptr[414])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_334__NOP_DOCMD#1", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V415*/ meltfptr[414])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:1735:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V415*/ meltfptr[414]); /*putclosurout#28 */ melt_assertmsg ("putclosrout#28 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V416*/ meltfptr[415])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#28 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V415*/ meltfptr[414])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V416*/ meltfptr[415])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V415*/ meltfptr[414]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V416*/ meltfptr[415]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V417*/ meltfptr[416])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V417*/ meltfptr[416])))); ((meltobject_ptr_t) ( /*_.VALDATA___V417*/ meltfptr[416]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V418*/ meltfptr[417]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V417*/ meltfptr[416]); melt_dbgtrace_written_object ( /*_.VALDATA___V417*/ meltfptr[416], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1740:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); MELT_LOCATION ("warmelt-modes.melt:1740:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])))); ((meltobject_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V421*/ meltfptr[420]); MELT_LOCATION ("warmelt-modes.melt:1740:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])))); ((meltobject_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-modes.melt:1740:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V419*/ meltfptr[418]); MELT_LOCATION ("warmelt-modes.melt:1740:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V419*/ meltfptr[418], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#1", NULL != ( /*_.VALSTR___V423*/ meltfptr[422])); ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V423*/ meltfptr[422]); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#4", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V422*/ meltfptr[421])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:1752:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V422*/ meltfptr[421]); /*putclosurout#29 */ melt_assertmsg ("putclosrout#29 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V424*/ meltfptr[423])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#29 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V424*/ meltfptr[423])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V422*/ meltfptr[421]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V424*/ meltfptr[423]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V425*/ meltfptr[424])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V427*/ meltfptr[426])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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"); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#1", NULL != ( /*_.VALSTR___V430*/ meltfptr[429])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V430*/ meltfptr[429]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#2", NULL != ( /*_.VALSTR___V431*/ meltfptr[430])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[2] = (melt_ptr_t) ( /*_.VALSTR___V431*/ meltfptr[430]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#3", NULL != ( /*_.VALSTR___V432*/ meltfptr[431])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V432*/ meltfptr[431]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#4", NULL != ( /*_.VALSTR___V433*/ meltfptr[432])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[4] = (melt_ptr_t) ( /*_.VALSTR___V433*/ meltfptr[432]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#5", NULL != ( /*_.VALSTR___V434*/ meltfptr[433])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#6", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#7", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#8", NULL != ( /*_.CLASS_CTYPE__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#9", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_348__GENERATE_RUNTYPESUPPORT_GTY#10", NULL != ( /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V69*/ meltfptr[68])); ((meltroutine_ptr_t) /*_.VALROUT___V429*/ meltfptr[428])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V69*/ meltfptr[68]); MELT_LOCATION ("warmelt-modes.melt:1842:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V429*/ meltfptr[428]); /*putclosurout#30 */ melt_assertmsg ("putclosrout#30 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V435*/ meltfptr[434])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#30 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V435*/ meltfptr[434])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V429*/ meltfptr[428]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V435*/ meltfptr[434]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435])))); ((meltobject_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V437*/ meltfptr[436]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V436*/ meltfptr[435]); melt_dbgtrace_written_object ( /*_.VALDATA___V436*/ meltfptr[435], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])))); ((meltobject_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V439*/ meltfptr[438]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V438*/ meltfptr[437]); melt_dbgtrace_written_object ( /*_.VALDATA___V438*/ meltfptr[437], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#1", NULL != ( /*_.VALSTR___V441*/ meltfptr[440])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V441*/ meltfptr[440]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#4", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_359__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#5", NULL != ( /*_.VALSTR___V442*/ meltfptr[441])); ((meltroutine_ptr_t) /*_.VALROUT___V440*/ meltfptr[439])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V442*/ meltfptr[441]); MELT_LOCATION ("warmelt-modes.melt:2108:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V440*/ meltfptr[439]); /*putclosurout#31 */ melt_assertmsg ("putclosrout#31 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V443*/ meltfptr[442])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#31 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V443*/ meltfptr[442])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V440*/ meltfptr[439]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V443*/ meltfptr[442]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#1", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[1] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#2", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#4", NULL != ( /*_.CLASS_CTYPE__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#5", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_363__GENERATE_RUNTYPESUPPORT_CLONING_FUN#6", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V444*/ meltfptr[443])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:2376:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V444*/ meltfptr[443]); /*putclosurout#32 */ melt_assertmsg ("putclosrout#32 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V445*/ meltfptr[444])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#32 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V445*/ meltfptr[444])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V444*/ meltfptr[443]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V445*/ meltfptr[444]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#1", NULL != ( /*_.VALSTR___V447*/ meltfptr[446])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V447*/ meltfptr[446]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#4", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#5", NULL != ( /*_.CLASS_CTYPE__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:2572:/ 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_365__GENERATE_RUNTYPESUPPORT_SCANNING#6", NULL != ( /*_.VALSTR___V448*/ meltfptr[447])); ((meltroutine_ptr_t) /*_.VALROUT___V446*/ meltfptr[445])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V448*/ meltfptr[447]); MELT_LOCATION ("warmelt-modes.melt:2572:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V446*/ meltfptr[445]); /*putclosurout#33 */ melt_assertmsg ("putclosrout#33 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V449*/ meltfptr[448])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#33 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V446*/ meltfptr[445])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V449*/ meltfptr[448])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V446*/ meltfptr[445]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V449*/ meltfptr[448]); MELT_LOCATION ("warmelt-modes.melt:2744:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V450*/ meltfptr[449])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_369__GENERATE_RUNTYPESUPPORT_PARAM#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V450*/ meltfptr[449])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2744:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V450*/ meltfptr[449])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_369__GENERATE_RUNTYPESUPPORT_PARAM#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V450*/ meltfptr[449])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2744:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V450*/ meltfptr[449])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_369__GENERATE_RUNTYPESUPPORT_PARAM#2", NULL != ( /*_.CLASS_CTYPE__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V450*/ meltfptr[449])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:2744:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V450*/ meltfptr[449]); /*putclosurout#34 */ melt_assertmsg ("putclosrout#34 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V451*/ meltfptr[450])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#34 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V450*/ meltfptr[449])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V451*/ meltfptr[450])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V450*/ meltfptr[449]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V451*/ meltfptr[450]); MELT_LOCATION ("warmelt-modes.melt:2886:/ 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_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2886:/ 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_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE#1", NULL != ( /*_.CLASS_CTYPE__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:2886:/ 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_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2886:/ 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_371__GENERATE_RUNTYPESUPPORT_COD2CTYPE#3", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[3] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:2886:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V452*/ meltfptr[451]); /*putclosurout#35 */ melt_assertmsg ("putclosrout#35 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#35 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V452*/ meltfptr[451])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V453*/ meltfptr[452])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V452*/ meltfptr[451]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#1", NULL != ( /*_.VALSTR___V455*/ meltfptr[454])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V455*/ meltfptr[454]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#3", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#4", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_373__GENERATE_RUNTYPESUPPORT_MAG2STR#5", NULL != ( /*_.VALSTR___V456*/ meltfptr[455])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-modes.melt:2936:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V454*/ meltfptr[453]); /*putclosurout#36 */ melt_assertmsg ("putclosrout#36 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V457*/ meltfptr[456])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#36 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V457*/ meltfptr[456])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V457*/ meltfptr[456]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#1", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#2", NULL != ( /*_.SOME_STRING_VALUE__V70*/ meltfptr[69])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[2] = (melt_ptr_t) ( /*_.SOME_STRING_VALUE__V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#3", NULL != ( /*_.CLASS_DISCRIMINANT__V71*/ meltfptr[70])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_DISCRIMINANT__V71*/ meltfptr[70]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_377__GENERATE_RUNTYPESUPPORT_BOXINGFUN#5", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V458*/ meltfptr[457])->tabval[5] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:3060:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V458*/ meltfptr[457]); /*putclosurout#37 */ melt_assertmsg ("putclosrout#37 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V459*/ meltfptr[458])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#37 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V459*/ meltfptr[458])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V458*/ meltfptr[457]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V459*/ meltfptr[458]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V460*/ meltfptr[459])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V460*/ meltfptr[459])))); ((meltobject_ptr_t) ( /*_.VALDATA___V460*/ meltfptr[459]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V461*/ meltfptr[460]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V460*/ meltfptr[459]); melt_dbgtrace_written_object ( /*_.VALDATA___V460*/ meltfptr[459], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V462*/ meltfptr[461])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V462*/ meltfptr[461])))); ((meltobject_ptr_t) ( /*_.VALDATA___V462*/ meltfptr[461]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V463*/ meltfptr[462]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V462*/ meltfptr[461]); melt_dbgtrace_written_object ( /*_.VALDATA___V462*/ meltfptr[461], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#1", NULL != ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#3", NULL != ( /*_.SOME_STRING_VALUE__V70*/ meltfptr[69])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[3] = (melt_ptr_t) ( /*_.SOME_STRING_VALUE__V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#4", NULL != ( /*_.CLASS_DISCRIMINANT__V71*/ meltfptr[70])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_DISCRIMINANT__V71*/ meltfptr[70]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#5", NULL != ( /*_.VALSTR___V465*/ meltfptr[464])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V465*/ meltfptr[464]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#6", NULL != ( /*_.VALSTR___V466*/ meltfptr[465])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V466*/ meltfptr[465]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_383__GENERATE_RUNTYPESUPPORT_MAPFUN#7", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[7] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:3278:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V464*/ meltfptr[463]); /*putclosurout#38 */ melt_assertmsg ("putclosrout#38 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V467*/ meltfptr[466])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#38 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V467*/ meltfptr[466])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V467*/ meltfptr[466]); MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#1", NULL != ( /*_.CLASS_CLASS__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLASS__V42*/ meltfptr[41]); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_7 */ void meltmod__warmelt_modes__initialmeltchunk_8 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#3", NULL != ( /*_.ADD2OUT__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[3] = (melt_ptr_t) ( /*_.ADD2OUT__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_387__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#4", NULL != ( /*_.CLASS_FIELD__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V468*/ meltfptr[467])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_FIELD__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-modes.melt:3655:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V468*/ meltfptr[467]); /*putclosurout#39 */ melt_assertmsg ("putclosrout#39 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V469*/ meltfptr[468])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#39 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V469*/ meltfptr[468])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V468*/ meltfptr[467]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V469*/ meltfptr[468]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#1", NULL != ( /*_.VALSTR___V471*/ meltfptr[470])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V471*/ meltfptr[470]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#3", NULL != ( /*_.DISCR_STRBUF__V60*/ meltfptr[59])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V60*/ meltfptr[59]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#4", NULL != ( /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V72*/ meltfptr[71])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[4] = (melt_ptr_t) ( /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V72*/ meltfptr[71]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#5", NULL != ( /*_.RETRIEVE_DICTIONNARY_CTYPE__V73*/ meltfptr[72])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[5] = (melt_ptr_t) ( /*_.RETRIEVE_DICTIONNARY_CTYPE__V73*/ meltfptr[72]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#6", NULL != ( /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V74*/ meltfptr[73])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[6] = (melt_ptr_t) ( /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V74*/ meltfptr[73]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#7", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[7] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#8", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#9", NULL != ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[9] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#10", NULL != ( /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[10] = (melt_ptr_t) ( /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V75*/ meltfptr[74]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V424*/ meltfptr[423]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V424*/ meltfptr[423]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V435*/ meltfptr[434]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V435*/ meltfptr[434]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V451*/ meltfptr[450]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V451*/ meltfptr[450]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V453*/ meltfptr[452]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V457*/ meltfptr[456]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V457*/ meltfptr[456]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V443*/ meltfptr[442]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V443*/ meltfptr[442]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V449*/ meltfptr[448]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V449*/ meltfptr[448]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V459*/ meltfptr[458]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V459*/ meltfptr[458]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V445*/ meltfptr[444]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[19] = (melt_ptr_t) ( /*_.VALCLO___V445*/ meltfptr[444]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V467*/ meltfptr[466]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V467*/ meltfptr[466]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V469*/ meltfptr[468]); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V469*/ meltfptr[468]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_389__RUNTYPESUPPORT_DOCMD#22", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V470*/ meltfptr[469])->tabval[22] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:3713:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V470*/ meltfptr[469]); /*putclosurout#40 */ melt_assertmsg ("putclosrout#40 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V472*/ meltfptr[471])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#40 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V472*/ meltfptr[471])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V470*/ meltfptr[469]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V472*/ meltfptr[471]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V473*/ meltfptr[472])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V475*/ meltfptr[474])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])))); ((meltobject_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V478*/ meltfptr[477]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V477*/ meltfptr[476]); melt_dbgtrace_written_object ( /*_.VALDATA___V477*/ meltfptr[476], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V479*/ meltfptr[478])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V479*/ meltfptr[478])))); ((meltobject_ptr_t) ( /*_.VALDATA___V479*/ meltfptr[478]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V480*/ meltfptr[479]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V479*/ meltfptr[478]); melt_dbgtrace_written_object ( /*_.VALDATA___V479*/ meltfptr[478], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V481*/ meltfptr[480])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V481*/ meltfptr[480])))); ((meltobject_ptr_t) ( /*_.VALDATA___V481*/ meltfptr[480]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V482*/ meltfptr[481]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V481*/ meltfptr[480]); melt_dbgtrace_written_object ( /*_.VALDATA___V481*/ meltfptr[480], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3853:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])))); ((meltobject_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V484*/ meltfptr[483]); MELT_LOCATION ("warmelt-modes.melt:3853:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])))); ((meltobject_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V485*/ meltfptr[484]); MELT_LOCATION ("warmelt-modes.melt:3853:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])))); ((meltobject_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V472*/ meltfptr[471]); MELT_LOCATION ("warmelt-modes.melt:3853:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V483*/ meltfptr[482]); MELT_LOCATION ("warmelt-modes.melt:3853:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V483*/ meltfptr[482], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3866:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_405__TRANSLATE_TO_FLAVORED_MODULE#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V486*/ meltfptr[485])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3866:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_405__TRANSLATE_TO_FLAVORED_MODULE#1", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V486*/ meltfptr[485])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3866:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_405__TRANSLATE_TO_FLAVORED_MODULE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V486*/ meltfptr[485])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:3866:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_405__TRANSLATE_TO_FLAVORED_MODULE#3", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V486*/ meltfptr[485])->tabval[3] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:3866:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V486*/ meltfptr[485]); /*putclosurout#41 */ melt_assertmsg ("putclosrout#41 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V487*/ meltfptr[486])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#41 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V487*/ meltfptr[486])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V486*/ meltfptr[485]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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___V487*/ meltfptr[486]); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#5", NULL != ( /*_.VALSTR___V489*/ meltfptr[488])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V489*/ meltfptr[488]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#6", NULL != ( /*_.VALSTR___V490*/ meltfptr[489])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V490*/ meltfptr[489]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#7", NULL != ( /*_.VALSTR___V491*/ meltfptr[490])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V491*/ meltfptr[490]); MELT_LOCATION ("warmelt-modes.melt:3914:/ 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_407__TRANSLATETOMODULE_DOCMD#8", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:3914:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V488*/ meltfptr[487]); /*putclosurout#42 */ melt_assertmsg ("putclosrout#42 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V492*/ meltfptr[491])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#42 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V492*/ meltfptr[491])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V488*/ meltfptr[487]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V492*/ meltfptr[491]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V493*/ meltfptr[492])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V493*/ meltfptr[492])))); ((meltobject_ptr_t) ( /*_.VALDATA___V493*/ meltfptr[492]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V494*/ meltfptr[493]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V493*/ meltfptr[492]); melt_dbgtrace_written_object ( /*_.VALDATA___V493*/ meltfptr[492], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3932:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-modes.melt:3932:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V497*/ meltfptr[496]); MELT_LOCATION ("warmelt-modes.melt:3932:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V492*/ meltfptr[491]); MELT_LOCATION ("warmelt-modes.melt:3932:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V495*/ meltfptr[494]); MELT_LOCATION ("warmelt-modes.melt:3932:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V495*/ meltfptr[494], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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___V487*/ meltfptr[486]); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#5", NULL != ( /*_.VALSTR___V499*/ meltfptr[498])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V499*/ meltfptr[498]); MELT_LOCATION ("warmelt-modes.melt:3943:/ 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_417__TRANSLATEDEBUG_DOCMD#6", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:3943:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V498*/ meltfptr[497]); /*putclosurout#43 */ melt_assertmsg ("putclosrout#43 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V500*/ meltfptr[499])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#43 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V498*/ meltfptr[497])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V500*/ meltfptr[499])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V498*/ meltfptr[497]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V500*/ meltfptr[499]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V501*/ meltfptr[500])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V501*/ meltfptr[500])))); ((meltobject_ptr_t) ( /*_.VALDATA___V501*/ meltfptr[500]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V502*/ meltfptr[501]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V501*/ meltfptr[500]); melt_dbgtrace_written_object ( /*_.VALDATA___V501*/ meltfptr[500], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3958:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])))); ((meltobject_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V504*/ meltfptr[503]); MELT_LOCATION ("warmelt-modes.melt:3958:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])))); ((meltobject_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V505*/ meltfptr[504]); MELT_LOCATION ("warmelt-modes.melt:3958:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502])))); ((meltobject_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V500*/ meltfptr[499]); MELT_LOCATION ("warmelt-modes.melt:3958:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V503*/ meltfptr[502]); MELT_LOCATION ("warmelt-modes.melt:3958:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V503*/ meltfptr[502], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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___V487*/ meltfptr[486]); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#5", NULL != ( /*_.VALSTR___V507*/ meltfptr[506])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V507*/ meltfptr[506]); MELT_LOCATION ("warmelt-modes.melt:3972:/ 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_425__TRANSLATEQUICKLY_DOCMD#6", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:3972:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V506*/ meltfptr[505]); /*putclosurout#44 */ melt_assertmsg ("putclosrout#44 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V508*/ meltfptr[507])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#44 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V508*/ meltfptr[507])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V506*/ meltfptr[505]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V508*/ meltfptr[507]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V509*/ meltfptr[508])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V509*/ meltfptr[508])))); ((meltobject_ptr_t) ( /*_.VALDATA___V509*/ meltfptr[508]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V510*/ meltfptr[509]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V509*/ meltfptr[508]); melt_dbgtrace_written_object ( /*_.VALDATA___V509*/ meltfptr[508], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:3989:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])))); ((meltobject_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V512*/ meltfptr[511]); MELT_LOCATION ("warmelt-modes.melt:3989:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])))); ((meltobject_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V513*/ meltfptr[512]); MELT_LOCATION ("warmelt-modes.melt:3989:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510])))); ((meltobject_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V508*/ meltfptr[507]); MELT_LOCATION ("warmelt-modes.melt:3989:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V511*/ meltfptr[510]); MELT_LOCATION ("warmelt-modes.melt:3989:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V511*/ meltfptr[510], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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___V487*/ meltfptr[486]); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#5", NULL != ( /*_.VALSTR___V515*/ meltfptr[514])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V515*/ meltfptr[514]); MELT_LOCATION ("warmelt-modes.melt:4000:/ 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_433__TRANSLATEOPTIMIZED_DOCMD#6", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V514*/ meltfptr[513])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:4000:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V514*/ meltfptr[513]); /*putclosurout#45 */ melt_assertmsg ("putclosrout#45 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V516*/ meltfptr[515])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#45 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V514*/ meltfptr[513])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V516*/ meltfptr[515])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V514*/ meltfptr[513]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V516*/ meltfptr[515]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])))); ((meltobject_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V518*/ meltfptr[517]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V517*/ meltfptr[516]); melt_dbgtrace_written_object ( /*_.VALDATA___V517*/ meltfptr[516], "new static instance"); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_8 */ void meltmod__warmelt_modes__initialmeltchunk_9 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V520*/ meltfptr[519]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V521*/ meltfptr[520]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V519*/ meltfptr[518]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V519*/ meltfptr[518], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#4", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#5", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[5] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:4029:/ 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_441__TRANSLATEFILE_DOCMD#6", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V522*/ meltfptr[521])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:4029:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V522*/ meltfptr[521]); /*putclosurout#46 */ melt_assertmsg ("putclosrout#46 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V523*/ meltfptr[522])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#46 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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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-modes.melt:4071:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])))); ((meltobject_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V527*/ meltfptr[526]); MELT_LOCATION ("warmelt-modes.melt:4071:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])))); ((meltobject_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V528*/ meltfptr[527]); MELT_LOCATION ("warmelt-modes.melt:4071:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])))); ((meltobject_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V523*/ meltfptr[522]); MELT_LOCATION ("warmelt-modes.melt:4071:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V526*/ meltfptr[525]); MELT_LOCATION ("warmelt-modes.melt:4071:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V526*/ meltfptr[525], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#2", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#4", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[4] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#5", NULL != ( /*_.LIST_EVERY__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[5] = (melt_ptr_t) ( /*_.LIST_EVERY__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#7", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[7] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4126:/ 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_450__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V530*/ meltfptr[529])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4126:/ 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_450__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V530*/ meltfptr[529])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4126:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V530*/ meltfptr[529]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#8", NULL != ( /*_.VALROUT___V530*/ meltfptr[529])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V530*/ meltfptr[529]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#9", NULL != ( /*_.COMPILE_LIST_SEXPR__V76*/ meltfptr[75])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[9] = (melt_ptr_t) ( /*_.COMPILE_LIST_SEXPR__V76*/ meltfptr[75]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__TRANSLATEINIT_DOCMD#10", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V529*/ meltfptr[528])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:4083:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V529*/ meltfptr[528]); /*putclosurout#47 */ melt_assertmsg ("putclosrout#47 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V531*/ meltfptr[530])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#47 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V531*/ meltfptr[530])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V529*/ meltfptr[528]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V531*/ meltfptr[530]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); melt_dbgtrace_written_object ( /*_.VALDATA___V532*/ meltfptr[531], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V534*/ meltfptr[533])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V534*/ meltfptr[533])))); ((meltobject_ptr_t) ( /*_.VALDATA___V534*/ meltfptr[533]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V535*/ meltfptr[534]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V534*/ meltfptr[533]); melt_dbgtrace_written_object ( /*_.VALDATA___V534*/ meltfptr[533], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4149:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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]); MELT_LOCATION ("warmelt-modes.melt:4149:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535])))); ((meltobject_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V538*/ meltfptr[537]); MELT_LOCATION ("warmelt-modes.melt:4149:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535])))); ((meltobject_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V531*/ meltfptr[530]); MELT_LOCATION ("warmelt-modes.melt:4149:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V536*/ meltfptr[535]); MELT_LOCATION ("warmelt-modes.melt:4149:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V536*/ meltfptr[535], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#0", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#1", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#2", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#3", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[3] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#4", NULL != ( /*_.LIST_EVERY__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[4] = (melt_ptr_t) ( /*_.LIST_EVERY__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#5", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[5] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#6", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[6] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4203:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V540*/ meltfptr[539])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_460__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V540*/ meltfptr[539])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4203:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V540*/ meltfptr[539])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_460__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V540*/ meltfptr[539])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:4203:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V540*/ meltfptr[539]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#7", NULL != ( /*_.VALROUT___V540*/ meltfptr[539])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V540*/ meltfptr[539]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_458__TRANSLATEINIT_FLAVORED#8", NULL != ( /*_.COMPILE_LIST_SEXPR__V76*/ meltfptr[75])); ((meltroutine_ptr_t) /*_.VALROUT___V539*/ meltfptr[538])->tabval[8] = (melt_ptr_t) ( /*_.COMPILE_LIST_SEXPR__V76*/ meltfptr[75]); MELT_LOCATION ("warmelt-modes.melt:4162:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V539*/ meltfptr[538]); /*putclosurout#48 */ melt_assertmsg ("putclosrout#48 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V541*/ meltfptr[540])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#48 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V541*/ meltfptr[540])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V539*/ meltfptr[538]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V541*/ meltfptr[540]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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_461__TRANSLATEINITMODULE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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_461__TRANSLATEINITMODULE_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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___V541*/ meltfptr[540]); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V541*/ meltfptr[540]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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_461__TRANSLATEINITMODULE_DOCMD#3", NULL != ( /*_.VALSTR___V543*/ meltfptr[542])); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V543*/ meltfptr[542]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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_461__TRANSLATEINITMODULE_DOCMD#4", NULL != ( /*_.VALSTR___V544*/ meltfptr[543])); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[4] = (melt_ptr_t) ( /*_.VALSTR___V544*/ meltfptr[543]); MELT_LOCATION ("warmelt-modes.melt:4251:/ 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_461__TRANSLATEINITMODULE_DOCMD#5", NULL != ( /*_.VALSTR___V545*/ meltfptr[544])); ((meltroutine_ptr_t) /*_.VALROUT___V542*/ meltfptr[541])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V545*/ meltfptr[544]); MELT_LOCATION ("warmelt-modes.melt:4251:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V542*/ meltfptr[541]); /*putclosurout#49 */ melt_assertmsg ("putclosrout#49 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V546*/ meltfptr[545])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#49 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V542*/ meltfptr[541])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V546*/ meltfptr[545])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V542*/ meltfptr[541]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V546*/ meltfptr[545]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V548*/ meltfptr[547]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V547*/ meltfptr[546]); melt_dbgtrace_written_object ( /*_.VALDATA___V547*/ meltfptr[546], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4260:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])))); ((meltobject_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V550*/ meltfptr[549]); MELT_LOCATION ("warmelt-modes.melt:4260:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])))); ((meltobject_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V551*/ meltfptr[550]); MELT_LOCATION ("warmelt-modes.melt:4260:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548])))); ((meltobject_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V546*/ meltfptr[545]); MELT_LOCATION ("warmelt-modes.melt:4260:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V549*/ meltfptr[548]); MELT_LOCATION ("warmelt-modes.melt:4260:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V549*/ meltfptr[548], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4271:/ 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_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V552*/ meltfptr[551])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4271:/ 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_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V552*/ meltfptr[551])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4271:/ 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___V541*/ meltfptr[540]); ((meltroutine_ptr_t) /*_.VALROUT___V552*/ meltfptr[551])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V541*/ meltfptr[540]); MELT_LOCATION ("warmelt-modes.melt:4271:/ 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_471__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#3", NULL != ( /*_.VALSTR___V553*/ meltfptr[552])); ((meltroutine_ptr_t) /*_.VALROUT___V552*/ meltfptr[551])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V553*/ meltfptr[552]); MELT_LOCATION ("warmelt-modes.melt:4271:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V552*/ meltfptr[551]); /*putclosurout#50 */ melt_assertmsg ("putclosrout#50 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V554*/ meltfptr[553])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#50 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V552*/ meltfptr[551])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V554*/ meltfptr[553])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V552*/ meltfptr[551]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V554*/ meltfptr[553]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V555*/ meltfptr[554])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V555*/ meltfptr[554])))); ((meltobject_ptr_t) ( /*_.VALDATA___V555*/ meltfptr[554]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V556*/ meltfptr[555]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V555*/ meltfptr[554]); melt_dbgtrace_written_object ( /*_.VALDATA___V555*/ meltfptr[554], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])))); ((meltobject_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V558*/ meltfptr[557]); MELT_LOCATION ("warmelt-modes.melt:4278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])))); ((meltobject_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V559*/ meltfptr[558]); MELT_LOCATION ("warmelt-modes.melt:4278:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556])))); ((meltobject_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V554*/ meltfptr[553]); MELT_LOCATION ("warmelt-modes.melt:4278:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V557*/ meltfptr[556]); MELT_LOCATION ("warmelt-modes.melt:4278:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V557*/ meltfptr[556], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4289:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V560*/ meltfptr[559])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4289:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V560*/ meltfptr[559])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4289:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V541*/ meltfptr[540]); ((meltroutine_ptr_t) /*_.VALROUT___V560*/ meltfptr[559])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V541*/ meltfptr[540]); MELT_LOCATION ("warmelt-modes.melt:4289:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_479__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#3", NULL != ( /*_.VALSTR___V561*/ meltfptr[560])); ((meltroutine_ptr_t) /*_.VALROUT___V560*/ meltfptr[559])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V561*/ meltfptr[560]); MELT_LOCATION ("warmelt-modes.melt:4289:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V560*/ meltfptr[559]); /*putclosurout#51 */ melt_assertmsg ("putclosrout#51 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V562*/ meltfptr[561])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#51 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V562*/ meltfptr[561])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V560*/ meltfptr[559]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V562*/ meltfptr[561]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V564*/ meltfptr[563]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V563*/ meltfptr[562]); melt_dbgtrace_written_object ( /*_.VALDATA___V563*/ meltfptr[562], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4296:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])))); ((meltobject_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V566*/ meltfptr[565]); MELT_LOCATION ("warmelt-modes.melt:4296:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])))); ((meltobject_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V567*/ meltfptr[566]); MELT_LOCATION ("warmelt-modes.melt:4296:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564])))); ((meltobject_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V562*/ meltfptr[561]); MELT_LOCATION ("warmelt-modes.melt:4296:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V565*/ meltfptr[564]); MELT_LOCATION ("warmelt-modes.melt:4296:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V565*/ meltfptr[564], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4307:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V568*/ meltfptr[567])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4307:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V568*/ meltfptr[567])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4307:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V541*/ meltfptr[540]); ((meltroutine_ptr_t) /*_.VALROUT___V568*/ meltfptr[567])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V541*/ meltfptr[540]); MELT_LOCATION ("warmelt-modes.melt:4307:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_487__TRANSLATEINITMODULEOPTIMIZED_DOCMD#3", NULL != ( /*_.VALSTR___V569*/ meltfptr[568])); ((meltroutine_ptr_t) /*_.VALROUT___V568*/ meltfptr[567])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V569*/ meltfptr[568]); MELT_LOCATION ("warmelt-modes.melt:4307:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V568*/ meltfptr[567]); /*putclosurout#52 */ melt_assertmsg ("putclosrout#52 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V570*/ meltfptr[569])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#52 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V570*/ meltfptr[569])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V568*/ meltfptr[567]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V570*/ meltfptr[569]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V571*/ meltfptr[570])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V571*/ meltfptr[570])))); ((meltobject_ptr_t) ( /*_.VALDATA___V571*/ meltfptr[570]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V572*/ meltfptr[571]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V571*/ meltfptr[570]); melt_dbgtrace_written_object ( /*_.VALDATA___V571*/ meltfptr[570], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4314:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-modes.melt:4314:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V575*/ meltfptr[574]); MELT_LOCATION ("warmelt-modes.melt:4314:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572])))); ((meltobject_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V570*/ meltfptr[569]); MELT_LOCATION ("warmelt-modes.melt:4314:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V573*/ meltfptr[572]); MELT_LOCATION ("warmelt-modes.melt:4314:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V573*/ meltfptr[572], "new static instance"); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_9 */ void meltmod__warmelt_modes__initialmeltchunk_10 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putslot*/ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V576*/ meltfptr[575])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V576*/ meltfptr[575])))); ((meltobject_ptr_t) ( /*_.VALDATA___V576*/ meltfptr[575]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V577*/ meltfptr[576]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V576*/ meltfptr[575]); melt_dbgtrace_written_object ( /*_.VALDATA___V576*/ meltfptr[575], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V578*/ meltfptr[577])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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-modes.melt:4381:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V580*/ meltfptr[579]); MELT_LOCATION ("warmelt-modes.melt:4381:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V580*/ meltfptr[579], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V580*/ meltfptr[579]); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V580*/ meltfptr[579]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#1", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#2", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#4", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4396:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V582*/ meltfptr[581])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_504__LAMBDA_#0", NULL != ( /*_.VALDATA___V97*/ meltfptr[96])); ((meltroutine_ptr_t) /*_.VALROUT___V582*/ meltfptr[581])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-modes.melt:4396:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V582*/ meltfptr[581])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_504__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V582*/ meltfptr[581])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4396:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V582*/ meltfptr[581]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#5", NULL != ( /*_.VALROUT___V582*/ meltfptr[581])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V582*/ meltfptr[581]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#6", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_502__HANDLE_ALARM_SIGNAL#7", NULL != ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77])); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77]); /*putclosurout#53 */ melt_assertmsg ("putclosrout#53 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V583*/ meltfptr[582])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#53 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V583*/ meltfptr[582])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V583*/ meltfptr[582]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V581*/ meltfptr[580])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V583*/ meltfptr[582]); ((meltroutine_ptr_t) /*_.VALROUT___V581*/ meltfptr[580])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V583*/ meltfptr[582]); MELT_LOCATION ("warmelt-modes.melt:4384:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V581*/ meltfptr[580]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])))); ((meltobject_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V585*/ meltfptr[584]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V584*/ meltfptr[583]); melt_dbgtrace_written_object ( /*_.VALDATA___V584*/ meltfptr[583], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#1", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#2", NULL != ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V580*/ meltfptr[579]); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V580*/ meltfptr[579]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#4", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#5", NULL != ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#6", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[6] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V583*/ meltfptr[582]); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V583*/ meltfptr[582]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_507__REGISTER_ALARM_TIMER#8", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V586*/ meltfptr[585])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4441:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V586*/ meltfptr[585]); /*putclosurout#54 */ melt_assertmsg ("putclosrout#54 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V587*/ meltfptr[586])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#54 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V587*/ meltfptr[586])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V586*/ meltfptr[585]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V587*/ meltfptr[586]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#1", NULL != ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V78*/ meltfptr[77]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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___V580*/ meltfptr[579]); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V580*/ meltfptr[579]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#3", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#4", NULL != ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#5", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[5] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4474:/ 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_509__UNREGISTER_ALARM_TIMER#6", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V588*/ meltfptr[587])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4474:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V588*/ meltfptr[587]); /*putclosurout#55 */ melt_assertmsg ("putclosrout#55 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V589*/ meltfptr[588])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#55 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 ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V590*/ meltfptr[589])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (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-modes.melt:4506:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V592*/ meltfptr[591]); MELT_LOCATION ("warmelt-modes.melt:4506:/ initchunk"); /*^touchobj */ melt_dbgtrace_written_object ( /*_.VALDATA___V592*/ meltfptr[591], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#2", NULL != ( /*_.DISCR_LIST__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#3", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#4", NULL != ( /*_.CLASS_CHILD_PROCESS_HANDLER__V79*/ meltfptr[78])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CHILD_PROCESS_HANDLER__V79*/ meltfptr[78]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#5", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#6", NULL != ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_514__CHILD_PROCESS_SIGCHLD_HANDLER#7", NULL != ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V593*/ meltfptr[592])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:4509:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V593*/ meltfptr[592]); /*putclosurout#56 */ melt_assertmsg ("putclosrout#56 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V594*/ meltfptr[593])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#56 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V594*/ meltfptr[593])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V593*/ meltfptr[592]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V594*/ meltfptr[593]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594])))); ((meltobject_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V596*/ meltfptr[595]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V595*/ meltfptr[594]); melt_dbgtrace_written_object ( /*_.VALDATA___V595*/ meltfptr[594], "new static instance"); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#1", NULL != ( /*_.CLASS_CHILD_PROCESS_HANDLER__V79*/ meltfptr[78])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CHILD_PROCESS_HANDLER__V79*/ meltfptr[78]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#2", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#3", NULL != ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V77*/ meltfptr[76]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V592*/ meltfptr[591]); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#5", NULL != ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#6", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[6] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V594*/ meltfptr[593]); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V594*/ meltfptr[593]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_518__REGISTER_CHILD_PROCESS_HANDLER#8", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V597*/ meltfptr[596])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4617:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V597*/ meltfptr[596]); /*putclosurout#57 */ melt_assertmsg ("putclosrout#57 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V598*/ meltfptr[597])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#57 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V598*/ meltfptr[597])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V597*/ meltfptr[596]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V598*/ meltfptr[597]); MELT_LOCATION ("warmelt-modes.melt:4661:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V599*/ meltfptr[598])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_520__UNREGISTER_CHILD_PROCESS_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V599*/ meltfptr[598])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4661:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V599*/ meltfptr[598]); /*putclosurout#58 */ melt_assertmsg ("putclosrout#58 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V600*/ meltfptr[599])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#58 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V599*/ meltfptr[598])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V600*/ meltfptr[599])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V599*/ meltfptr[598]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V600*/ meltfptr[599]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V601*/ meltfptr[600])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V601*/ meltfptr[600])))); ((meltobject_ptr_t) ( /*_.VALDATA___V601*/ meltfptr[600]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V602*/ meltfptr[601]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V601*/ meltfptr[600]); melt_dbgtrace_written_object ( /*_.VALDATA___V601*/ meltfptr[600], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V603*/ meltfptr[602])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V603*/ meltfptr[602])))); ((meltobject_ptr_t) ( /*_.VALDATA___V603*/ meltfptr[602]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V604*/ meltfptr[603]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V603*/ meltfptr[602]); melt_dbgtrace_written_object ( /*_.VALDATA___V603*/ meltfptr[602], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V605*/ meltfptr[604])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V605*/ meltfptr[604])))); ((meltobject_ptr_t) ( /*_.VALDATA___V605*/ meltfptr[604]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V606*/ meltfptr[605]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V605*/ meltfptr[604]); melt_dbgtrace_written_object ( /*_.VALDATA___V605*/ meltfptr[604], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V607*/ meltfptr[606])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V607*/ meltfptr[606])))); ((meltobject_ptr_t) ( /*_.VALDATA___V607*/ meltfptr[606]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V608*/ meltfptr[607]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V607*/ meltfptr[606]); melt_dbgtrace_written_object ( /*_.VALDATA___V607*/ meltfptr[606], "new static instance"); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608])))); ((meltobject_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V610*/ meltfptr[609]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V609*/ meltfptr[608]); melt_dbgtrace_written_object ( /*_.VALDATA___V609*/ meltfptr[608], "new static instance"); /**COMMENT: before toplevel body **/ ; MELT_LOCATION ("warmelt-modes.melt:3:/ initchunk"); /*^block */ /*anyblock */ { /*^cond */ /*cond */ if ( /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1]) /*then */ { /*^cond.then */ /*_.OR___V611*/ meltfptr[610] = /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1];; } else { MELT_LOCATION ("warmelt-modes.melt:3:/ cond.else"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "SYSDATA_CONT_FRESH_ENV"); /*_.SYSDATA_CONT_FRESH_ENV__V612*/ meltfptr[611] = slot; }; ; MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_cstring = "warmelt-modes"; /*_.FUN___V613*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.SYSDATA_CONT_FRESH_ENV__V612*/ meltfptr[611]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.OR___V611*/ meltfptr[610] = /*_.FUN___V613*/ meltfptr[612];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:3:/ clear"); /*clear *//*_.SYSDATA_CONT_FRESH_ENV__V612*/ meltfptr[611] = 0; /*^clear */ /*clear *//*_.FUN___V613*/ meltfptr[612] = 0; } ; } ; /*^block */ /*com.block:upd.cur.mod.env.cont : at very start */ { /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V388*/ meltfptr[387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.#0", NULL != ( /*_.OR___V611*/ meltfptr[610])); ((meltroutine_ptr_t) /*_.VALROUT___V388*/ meltfptr[387])->tabval[0] = (melt_ptr_t) ( /*_.OR___V611*/ meltfptr[610]); ; /*^touch */ /*touch:compobj_upd_mod_env_box */ meltgc_touch ( /*_.VALROUT___V388*/ meltfptr[387]); ; /*^compute */ /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V611*/ meltfptr[610];; } /*com.end block:upd.cur.mod.env.cont : at very start */ ; /*epilog */ /*^clear */ /*clear *//*_.OR___V611*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:47:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V614*/ meltfptr[611] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V81*/ meltfptr[80]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_MELT_MODE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V614*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V614*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:110:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V615*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V110*/ meltfptr[109]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V615*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:174:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V616*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V119*/ meltfptr[118]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V616*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:222:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V617*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V617*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:272:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V618*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V147*/ meltfptr[146]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V618*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:443:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V619*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V619*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:1642:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V620*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V620*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:1644:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V621*/ meltfptr[612] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V219*/ meltfptr[218]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_MAKEDOC_INFO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V222*/ meltfptr[221]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_PRIMITIVES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V224*/ meltfptr[223]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_FUNCTIONS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V226*/ meltfptr[225]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_CITERATORS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V228*/ meltfptr[227]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_CMATCHERS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V230*/ meltfptr[229]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_SELECTORS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V261*/ meltfptr[260]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V232*/ meltfptr[231]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V263*/ meltfptr[262]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V234*/ meltfptr[233]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_CLASSES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V265*/ meltfptr[264]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V236*/ meltfptr[235]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_INSTANCES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V238*/ meltfptr[237]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_MACROS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V240*/ meltfptr[239]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_PATMACROS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V271*/ meltfptr[270]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V242*/ meltfptr[241]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_FORMALOCCMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V273*/ meltfptr[272]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V244*/ meltfptr[243]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_PREDEFMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V246*/ meltfptr[245]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_DOCSYMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V248*/ meltfptr[247]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_SUBCLASSMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V250*/ meltfptr[249]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : MKDOC_BOXCOUNTER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V621*/ meltfptr[612]), (melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V621*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:1732:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V622*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V622*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:1746:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V623*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V623*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:3860:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V624*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V624*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:3939:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V625*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V625*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:3969:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V626*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V503*/ meltfptr[502]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V626*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:3996:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V627*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V511*/ meltfptr[510]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V627*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:4024:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V628*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V628*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:4078:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V629*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V629*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:4156:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V630*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V536*/ meltfptr[535]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V630*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:4267:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V631*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V549*/ meltfptr[548]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V631*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:4285:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V632*/ meltfptr[611] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V557*/ meltfptr[556]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V632*/ meltfptr[611] = 0; } MELT_LOCATION ("warmelt-modes.melt:4303:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V633*/ meltfptr[612] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V565*/ meltfptr[564]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V633*/ meltfptr[612] = 0; } MELT_LOCATION ("warmelt-modes.melt:4321:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V634*/ meltfptr[610] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V81*/ meltfptr[80]), (melt_ptr_t) ( /*_.VALDATA___V573*/ meltfptr[572]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V634*/ meltfptr[610] = 0; } MELT_LOCATION ("warmelt-modes.melt:4658:/ initchunk"); /*^block */ /*anyblock */ { MELT_CHECK_SIGNAL (); ; /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]), (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])) ) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SYSDATA_CHILD_HOOK", melt_magic_discr ((melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])) == MELTOBMAG_OBJECT); melt_putfield_object (( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]), (38), ( /*_.VALCLO___V594*/ meltfptr[593]), "SYSDATA_CHILD_HOOK"); ; /*^touch */ meltgc_touch ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); ; /*^touchobj */ melt_dbgtrace_written_object ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7], "put-fields"); ; /*epilog */ } ; } /*noelse */ ; /*epilog */ } MELT_LOCATION ("warmelt-modes.melt:4667:/ initchunk"); /*^block */ /*anyblock */ { /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 4, "SYSDATA_VALUE_EXPORTER"); /*_.VALUEXPORTER___V635*/ meltfptr[611] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V587*/ meltfptr[586]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_ALARM_TIMER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V635*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V601*/ meltfptr[600]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V598*/ meltfptr[597]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_CHILD_PROCESS_HANDLER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V635*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V603*/ meltfptr[602]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V190*/ meltfptr[189]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_INPUT_CHANNEL_HANDLER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V635*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V605*/ meltfptr[604]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V589*/ meltfptr[588]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : UNREGISTER_ALARM_TIMER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V635*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V607*/ meltfptr[606]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V600*/ meltfptr[599]; /*^apply.arg */ argtab[1].meltbp_aptr = (melt_ptr_t *) & /*quasi.cur.mod.env.cont norm.exp.val : UNREGISTER_CHILD_PROCESS_HANDLER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V635*/ meltfptr[611]), (melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V635*/ meltfptr[611] = 0; } /**COMMENT: after toplevel body **/ ; /**COMMENT: compute boxloc again **/ ; /*cond */ if ( /*_.CONTENV___V2*/ meltfptr[1] || melt_object_length ((melt_ptr_t) MELT_PREDEF (INITIAL_SYSTEM_DATA)) < MELTFIELD_SYSDATA_CONT_FRESH_ENV) /*then */ { } else { /*^cond.else */ /*^block */ /*com.block:compute fresh module environment */ { /*^comment */ /**COMMENT: start computing boxloc **/ ; ; /*^getslot */ { melt_ptr_t slot = NULL, obj = NULL; obj = (melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (INITIAL_SYSTEM_DATA)))) /*=obj*/ ; melt_object_get_field (slot, obj, 3, "SYSDATA_CONT_FRESH_ENV"); /*_.FRESHENV___V3*/ meltfptr[2] = slot; }; ; /*^compute */ /*checkfreshenv */ if (( /*_.PREVENV___V4*/ meltfptr[3]) && melt_magic_discr ((melt_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2])) != MELTOBMAG_CLOSURE) warning (0, "MELT corruption: bad FRESH_ENV @%p in system data <%s:%d>", (void *) ( /*_.FRESHENV___V3*/ meltfptr[2]), __FILE__, __LINE__);;; /*^apply */ /*apply */ { /*_.CONTENV___V2*/ meltfptr[1] = melt_apply ((meltclosure_ptr_t) ( /*_.FRESHENV___V3*/ meltfptr[2]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; } /*com.end block:compute fresh module environment */ ; } /**COMMENT: intern symbols **/ ; /*internsym:CLASS_MELT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])); #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_10 */ void meltmod__warmelt_modes__initialmeltchunk_11 (struct frame_melt_start_this_module_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:INITIAL_SYSTEM_DATA*/ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])); /*internsym:CLASS_SYSTEM_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])); /*internsym:CLASS_NAMED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])); /*internsym:MELT_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])); /*internsym:INSTALL_MELT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91])); /*internsym:INITIAL_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])); /*internsym:DISCR_STRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])); /*internsym:CLASS_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])); /*internsym:TRANSLATE_TO_C_MODULE_MELT_SOURCES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V106*/ meltfptr[105])); /*internkeyw:TRUE */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V97*/ meltfptr[96])); /*internsym:RUNFILE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V108*/ meltfptr[107])); /*internsym:RUNDEBUG_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V117*/ meltfptr[116])); /*internsym:DISCR_MAP_OBJECTS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])); /*internsym:FRESH_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])); /*internsym:TRANSLATE_RUN_MELT_EXPRESSIONS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])); /*internsym:CLASS_DEBUG_OUTPUT_INFORMATION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])); /*internsym:DISCR_CONSTANT_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131])); /*internsym:ADD2OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])); /*internsym:DBG_OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])); /*internsym:EVAL_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])); /*internsym:EVALFILE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V145*/ meltfptr[144])); /*internsym:CLASS_READ_EVAL_PRINT_LOOP_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])); /*internsym:CLASS_PROPED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])); /*internsym:REPL_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V166*/ meltfptr[165])); /*internsym:REPL_COUNTER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V168*/ meltfptr[167])); /*internsym:REPL_CONTREF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V170*/ meltfptr[169])); /*internsym:REPL_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])); /*internsym:CLASS_INPUT_CHANNEL_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])); /*internsym:CLASS_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])); /*internsym:CLASS_DEBUG_INFORMATION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])); /*internsym:DISCR_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])); /*internsym:CLASS_VALUE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])); /*internsym:CONTINUE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])); /*internsym:WAIT-REPL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])); /*internsym:PUT_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])); /*internsym:REGISTER_ALL_PASSES_END_HOOK_FIRST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V206*/ meltfptr[205])); /*internsym:AT_FINISH_UNIT_FIRST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])); /*internsym:AT_EXIT_LAST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])); /*internsym:REPL_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V212*/ meltfptr[211])); /*internsym:CLASS_MAKEDOC_INFO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216])); /*internsym:MKDOC_PRIMITIVES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V253*/ meltfptr[252])); /*internsym:MKDOC_FUNCTIONS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V255*/ meltfptr[254])); /*internsym:MKDOC_CITERATORS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V257*/ meltfptr[256])); /*internsym:MKDOC_CMATCHERS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])); /*internsym:MKDOC_SELECTORS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V261*/ meltfptr[260])); /*internsym:MKDOC_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V263*/ meltfptr[262])); /*internsym:MKDOC_CLASSES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V265*/ meltfptr[264])); /*internsym:MKDOC_INSTANCES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V267*/ meltfptr[266])); /*internsym:MKDOC_MACROS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])); /*internsym:MKDOC_PATMACROS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V271*/ meltfptr[270])); /*internsym:MKDOC_FORMALOCCMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V273*/ meltfptr[272])); /*internsym:MKDOC_PREDEFMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V275*/ meltfptr[274])); /*internsym:MKDOC_DOCSYMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V277*/ meltfptr[276])); /*internsym:MKDOC_SUBCLASSMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])); /*internsym:MKDOC_BOXCOUNTER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V281*/ meltfptr[280])); /*internsym:CLASS_SYMBOL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V291*/ meltfptr[290])); /*internsym:CLASS_FORMAL_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V293*/ meltfptr[292])); /*internsym:CLASS_SOURCE_DEFINITION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V295*/ meltfptr[294])); /*internsym:CLASS_ANY_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])); /*internsym:DISCR_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298])); /*internsym:LIST_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300])); /*internsym:CLASS_SOURCE_DEFCLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])); /*internsym:CLASS_SEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304])); /*internsym:CLASS_CLASS_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306])); /*internsym:CLASS_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])); /*internsym:CLASS_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])); /*internsym:CLASS_SOURCE_DEFSELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])); /*internsym:CLASS_SOURCE_DEFINSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V317*/ meltfptr[316])); /*internsym:CLASS_SOURCE_DEFUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V319*/ meltfptr[318])); /*internsym:CLASS_SOURCE_DEFCITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V321*/ meltfptr[320])); /*internsym:CLASS_SOURCE_DEFCMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V323*/ meltfptr[322])); /*internsym:CLASS_SOURCE_EXPORT_PATMACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V325*/ meltfptr[324])); /*internsym:CLASS_SOURCE_EXPORT_MACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V327*/ meltfptr[326])); /*internsym:CLASS_LOCATED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])); /*internsym:CLASS_QUASI_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V335*/ meltfptr[334])); /*internsym:LIST_TO_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])); /*internsym:DISCR_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])); /*internsym:COMPARE_NAMED_ALPHA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V345*/ meltfptr[344])); /*internsym:CLASS_SOURCE_DEFINITION_FORMAL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])); /*internsym:CLASS_CITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V377*/ meltfptr[376])); /*internsym:CLASS_ANY_MATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V382*/ meltfptr[381])); /*internsym:DISCR_STRBUF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])); /*internsym:MELT_MODE_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])); /*internsym:LIST_APPEND2LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392])); /*internsym:MACROEXPAND_TOPLEVEL_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])); /*internsym:MACROEXPAND_1 */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V397*/ meltfptr[396])); /*internsym:MAKEDOC_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V399*/ meltfptr[398])); /*internsym:FIND_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V406*/ meltfptr[405])); /*internsym:HELP_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])); /*internsym:NOP_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V417*/ meltfptr[416])); /*internsym:CLASS_VALUE_DESCRIPTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V425*/ meltfptr[424])); /*internsym:CLASS_CTYPE_GTY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V427*/ meltfptr[426])); /*internsym:CLASS_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435])); /*internsym:CLASS_VARISIZED_VALUE_DESCRIPTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])); /*internsym:SOME_STRING_VALUE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V460*/ meltfptr[459])); /*internsym:CLASS_DISCRIMINANT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V462*/ meltfptr[461])); /*internsym:RETRIEVE_DICTIONNARY_CTYPE_GTY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V473*/ meltfptr[472])); /*internsym:RETRIEVE_DICTIONNARY_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V475*/ meltfptr[474])); /*internsym:GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])); /*internsym:RETRIEVE_VALUE_DESCRIPTOR_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V479*/ meltfptr[478])); /*internsym:RUNTYPESUPPORT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V481*/ meltfptr[480])); /*internsym:TRANSLATETOMODULE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V493*/ meltfptr[492])); /*internsym:TRANSLATEDEBUG_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V501*/ meltfptr[500])); /*internsym:TRANSLATEQUICKLY_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V509*/ meltfptr[508])); /*internsym:TRANSLATEOPTIMIZED_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])); /*internsym:TRANSLATEFILE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523])); /*internsym:COMPILE_LIST_SEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])); /*internsym:TRANSLATEINIT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V534*/ meltfptr[533])); /*internsym:TRANSLATEINITMODULE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])); /*internsym:TRANSLATEINITMODULEQUICKLYBUILT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V555*/ meltfptr[554])); /*internsym:TRANSLATEINITMODULEDEBUGNOLINE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])); /*internsym:TRANSLATEINITMODULEOPTIMIZED_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V571*/ meltfptr[570])); /*internsym:DISCR_BUCKET_LONGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V576*/ meltfptr[575])); /*internsym:ALARM_BUCKET_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V578*/ meltfptr[577])); /*internsym:CLASS_ALARM_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])); /*internsym:CHILDPROC_BUCKET_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V590*/ meltfptr[589])); /*internsym:CLASS_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V595*/ meltfptr[594])); /*internsym:REGISTER_ALARM_TIMER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V601*/ meltfptr[600])); /*internsym:REGISTER_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V603*/ meltfptr[602])); /*internsym:REGISTER_INPUT_CHANNEL_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V605*/ meltfptr[604])); /*internsym:UNREGISTER_ALARM_TIMER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V607*/ meltfptr[606])); /*internsym:UNREGISTER_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V609*/ meltfptr[608])); /**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__warmelt_modes__initialmeltchunk_11 */ void meltmod__warmelt_modes__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking) { int ix = 0; initial_frame_st *meltframptr_ = (initial_frame_st *) fp; melt_assertmsg ("check module frame", meltframptr_->mcfr_nbvar == /*minihash */ -1031); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_modes forwarding %d pointers in frame %p", 635, (void *) meltframptr_); for (ix = 0; ix < 635; ix++) MELT_FORWARDED (meltframptr_->mcfr_varptr[ix]); return; } /*end forwarding */ dbgprintf ("forward_or_mark_module_start_frame_warmelt_modes marking in frame %p", (void *) meltframptr_); for (ix = 0; ix < 635; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); } /* end meltmod__warmelt_modes__forward_or_mark_module_start_frame */ /* exported 15 field offsets */ MELT_EXTERN const int meltfieldoff__MKDOC_BOXCOUNTER; const int meltfieldoff__MKDOC_BOXCOUNTER = 15; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_CITERATORS; const int meltfieldoff__MKDOC_CITERATORS = 3; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_CLASSES; const int meltfieldoff__MKDOC_CLASSES = 7; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_CMATCHERS; const int meltfieldoff__MKDOC_CMATCHERS = 4; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_DOCSYMAP; const int meltfieldoff__MKDOC_DOCSYMAP = 13; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_FIELDS; const int meltfieldoff__MKDOC_FIELDS = 6; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_FORMALOCCMAP; const int meltfieldoff__MKDOC_FORMALOCCMAP = 11; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_FUNCTIONS; const int meltfieldoff__MKDOC_FUNCTIONS = 2; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_INSTANCES; const int meltfieldoff__MKDOC_INSTANCES = 8; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_MACROS; const int meltfieldoff__MKDOC_MACROS = 9; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_PATMACROS; const int meltfieldoff__MKDOC_PATMACROS = 10; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_PREDEFMAP; const int meltfieldoff__MKDOC_PREDEFMAP = 12; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_PRIMITIVES; const int meltfieldoff__MKDOC_PRIMITIVES = 1; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_SELECTORS; const int meltfieldoff__MKDOC_SELECTORS = 5; /* in CLASS_MAKEDOC_INFO */ MELT_EXTERN const int meltfieldoff__MKDOC_SUBCLASSMAP; const int meltfieldoff__MKDOC_SUBCLASSMAP = 14; /* in CLASS_MAKEDOC_INFO */ /* exported 1 class lengths */ MELT_EXTERN const int meltclasslen__CLASS_MAKEDOC_INFO; const int meltclasslen__CLASS_MAKEDOC_INFO = 16; /**** end of warmelt-modes ****/