/* 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_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_6_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_7_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_8_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_9_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_10_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_11_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_12_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_13_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_14_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_15_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_16_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_17_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_18_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_19_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_20_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_21_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_22_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_23_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_24_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_25_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_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_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_28_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_29_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_30_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_31_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_32_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_33_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_34_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_35_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_36_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_37_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_38_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_39_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_40_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_41_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_42_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_43_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_44_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_45_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_46_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_47_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_48_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_49_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_50_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_51_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_52_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_53_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_54_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_55_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_56_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_57_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_58_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_59_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_60_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_61_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_62_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_63_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_64_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_65_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_66_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_67_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_68_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_69_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_70_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_71_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_72_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_73_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__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking); /**** 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; #define MELTFRAM_NBVARPTR 11 melt_ptr_t mcfr_varptr[11]; #define MELTFRAM_NBVARNUM 3 long mcfr_varnum[3]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_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__)); meltfram__.mcfr_nbvar = 11; 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 */ { /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:41:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_.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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:43:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:35:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ /*clear *//*_.IFCPP___V3*/ meltfptr[2] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("INSTALL_MELT_MODE", meltcallcount); 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; #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__; #define meltframe meltfram__ 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__)); meltfram__.mcfr_nbvar = 63; 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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:52:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:55:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:59:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 */ { /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:67:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:73:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:75:/ checksignal"); 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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:77:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:86:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:89:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:90:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:93:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:97:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:99:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:51:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_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; #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__; #define meltframe meltfram__ 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__)); meltfram__.mcfr_nbvar = 63; 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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:115:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:118:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:122:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 */ { /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:130:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*_#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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:136:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:138:/ checksignal"); 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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:140:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:149:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:152:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:153:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:156:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:160:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:162:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_LOCATION ("warmelt-modes.melt:114:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_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; #define MELTFRAM_NBVARPTR 25 melt_ptr_t mcfr_varptr[25]; #define MELTFRAM_NBVARNUM 7 long mcfr_varnum[7]; /*others*/ const char *loc_CSTRING__o0; long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_4_warmelt_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 < 25; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); return NULL; } /*end markggc */ ; memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 25; 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 ; } ; /*^checksignal */ 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_LOCATION ("warmelt-modes.melt:179:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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));; #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:186:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; /*^checksignal */ 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:186:/ 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_LOCATION ("warmelt-modes.melt:186:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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 = 186; /*^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__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:186:/ 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:186:/ quasiblock"); /*_.PROGN___V16*/ meltfptr[14] = /*_.IF___V14*/ meltfptr[13];; /*^compute */ /*_.IFCPP___V13*/ meltfptr[12] = /*_.PROGN___V16*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:186:/ 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:190:/ cppif.then"); /*^block */ /*anyblock */ { /*^checksignal */ 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[3])));; MELT_LOCATION ("warmelt-modes.melt:190:/ cond"); /*cond */ if ( /*_#IS_A__L5*/ meltfnum[0]) /*then */ { /*^cond.then */ /*_.IFELSE___V18*/ meltfptr[14] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-modes.melt:190:/ cond.else"); /*^block */ /*anyblock */ { { /*^locexp */ melt_assert_failed (("check curenv"), ("warmelt-modes.melt") ? ("warmelt-modes.melt") : __FILE__, (190) ? (190) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V18*/ meltfptr[14] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V17*/ meltfptr[13] = /*_.IFELSE___V18*/ meltfptr[14];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:190:/ 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:193:/ checksignal"); MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-modes.melt:191:/ quasiblock"); /*^multiapply */ /*multiapply 2args, 1x.res */ { union meltparam_un argtab[1]; union meltparam_un restab[1]; memset (&restab, 0, sizeof (restab)); memset (&argtab, 0, sizeof (argtab)); /*^multiapply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.CURENV__V10*/ meltfptr[9]; /*^multiapply.xres */ restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.OTHER__V21*/ meltfptr[20]; /*^multiapply.appl */ /*_.RES__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t) (( /*!TRANSLATE_RUN_MELT_EXPRESSIONS */ meltfrout-> tabval[4])), (melt_ptr_t) ( /*_.INEXPRS__V12*/ meltfptr[11]), (MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock */ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-modes.melt:194:/ cppif.then"); /*^block */ /*anyblock */ { { /*^locexp */ /*melt_increment_dbgcounter */ #if MELT_HAVE_DEBUG melt_dbgcounter++; #endif ; } ; /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*_#MELT_NEED_DBG__L6*/ 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:194:/ cond"); /*cond */ if ( /*_#MELT_NEED_DBG__L6*/ meltfnum[1]) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = #ifdef meltcallcount meltcallcount /* the_meltcallcount */ #else 0L #endif /* meltcallcount the_meltcallcount */ ;; MELT_LOCATION ("warmelt-modes.melt:194:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[7]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg */ argtab[1].meltbp_cstring = "warmelt-modes.melt"; /*^apply.arg */ argtab[2].meltbp_long = 194; /*^apply.arg */ argtab[3].meltbp_cstring = "eval_docmd run res="; /*^apply.arg */ argtab[4].meltbp_aptr = (melt_ptr_t *) & /*_.RES__V20*/ meltfptr[19]; /*^apply.arg */ argtab[5].meltbp_cstring = " other="; /*^apply.arg */ argtab[6].meltbp_aptr = (melt_ptr_t *) & /*_.OTHER__V21*/ meltfptr[20]; /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 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___V23*/ meltfptr[22] = /*_.MELT_DEBUG_FUN__V24*/ meltfptr[23];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:194:/ clear"); /*clear *//*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0; /*^clear */ /*clear *//*_.MELT_DEBUG_FUN__V24*/ meltfptr[23] = 0; } ; } else { /*^cond.else */ /*_.IF___V23*/ meltfptr[22] = NULL;; } ; MELT_LOCATION ("warmelt-modes.melt:194:/ quasiblock"); /*_.PROGN___V25*/ meltfptr[23] = /*_.IF___V23*/ meltfptr[22];; /*^compute */ /*_.IFCPP___V22*/ meltfptr[21] = /*_.PROGN___V25*/ meltfptr[23];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:194:/ clear"); /*clear *//*_#MELT_NEED_DBG__L6*/ meltfnum[1] = 0; /*^clear */ /*clear *//*_.IF___V23*/ meltfptr[22] = 0; /*^clear */ /*clear *//*_.PROGN___V25*/ meltfptr[23] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ /*_.IFCPP___V22*/ meltfptr[21] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; /*^compute */ /*_.MULTI___V19*/ meltfptr[14] = /*_.IFCPP___V22*/ meltfptr[21];; MELT_LOCATION ("warmelt-modes.melt:191:/ clear"); /*clear *//*_.IFCPP___V22*/ meltfptr[21] = 0; /*^clear */ /*clear *//*_.OTHER__V21*/ meltfptr[20] = 0; /*_.LET___V8*/ meltfptr[4] = /*_.MULTI___V19*/ meltfptr[14];; 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 *//*_.IFCPP___V13*/ meltfptr[12] = 0; /*^clear */ /*clear *//*_.IFCPP___V17*/ meltfptr[13] = 0; /*^clear */ /*clear *//*_.MULTI___V19*/ meltfptr[14] = 0; MELT_LOCATION ("warmelt-modes.melt:178:/ checksignal"); MELT_CHECK_SIGNAL (); ; /*^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_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; #define MELTFRAM_NBVARPTR 551 melt_ptr_t mcfr_varptr[551]; /*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 (5) drout_43__EVAL_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_44__EVAL_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_45__TRANSLATE_RUN_MELT_EXPRESSIONS; struct MELT_STRING_STRUCT (30) dstr_46__TRANSLATE_RUN_ME; struct MELT_OBJECT_STRUCT (3) dsym_47__EVAL_MODE; struct MELT_STRING_STRUCT (9) dstr_48__EVAL_MODE; struct MELT_OBJECT_STRUCT (5) dobj_49__EVAL_MODE; struct MELT_STRING_STRUCT (4) dstr_50__eval; struct MELT_STRING_STRUCT (76) dstr_51__translate_and_ru; struct MELT_OBJECT_STRUCT (3) dsym_52__CLASS_MAKEDOC_INFO; struct MELT_STRING_STRUCT (18) dstr_53__CLASS_MAKEDOC_IN; struct MELT_OBJECT_STRUCT (3) dsym_54__CLASS_PROPED; struct MELT_STRING_STRUCT (12) dstr_55__CLASS_PROPED; struct MELT_OBJECT_STRUCT (8) dobj_56__CLASS_MAKEDOC_INFO; struct MELT_STRING_STRUCT (18) dstr_57__CLASS_MAKEDOC_IN; struct MELT_MULTIPLE_STRUCT (2) dtup_58__CLASS_MAKEDOC_INFO; struct MELT_MULTIPLE_STRUCT (16) dtup_59__CLASS_MAKEDOC_INFO; struct MELT_OBJECT_STRUCT (3) dsym_60__MKDOC_PRIMITIVES; struct MELT_STRING_STRUCT (16) dstr_61__MKDOC_PRIMITIVES; struct MELT_OBJECT_STRUCT (4) dobj_62__MKDOC_PRIMITIVES; struct MELT_STRING_STRUCT (16) dstr_63__MKDOC_PRIMITIVES; struct MELT_OBJECT_STRUCT (3) dsym_64__MKDOC_FUNCTIONS; struct MELT_STRING_STRUCT (15) dstr_65__MKDOC_FUNCTIONS; struct MELT_OBJECT_STRUCT (4) dobj_66__MKDOC_FUNCTIONS; struct MELT_STRING_STRUCT (15) dstr_67__MKDOC_FUNCTIONS; struct MELT_OBJECT_STRUCT (3) dsym_68__MKDOC_CITERATORS; struct MELT_STRING_STRUCT (16) dstr_69__MKDOC_CITERATORS; struct MELT_OBJECT_STRUCT (4) dobj_70__MKDOC_CITERATORS; struct MELT_STRING_STRUCT (16) dstr_71__MKDOC_CITERATORS; struct MELT_OBJECT_STRUCT (3) dsym_72__MKDOC_CMATCHERS; struct MELT_STRING_STRUCT (15) dstr_73__MKDOC_CMATCHERS; struct MELT_OBJECT_STRUCT (4) dobj_74__MKDOC_CMATCHERS; struct MELT_STRING_STRUCT (15) dstr_75__MKDOC_CMATCHERS; struct MELT_OBJECT_STRUCT (3) dsym_76__MKDOC_SELECTORS; struct MELT_STRING_STRUCT (15) dstr_77__MKDOC_SELECTORS; struct MELT_OBJECT_STRUCT (4) dobj_78__MKDOC_SELECTORS; struct MELT_STRING_STRUCT (15) dstr_79__MKDOC_SELECTORS; struct MELT_OBJECT_STRUCT (3) dsym_80__MKDOC_FIELDS; struct MELT_STRING_STRUCT (12) dstr_81__MKDOC_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_82__MKDOC_FIELDS; struct MELT_STRING_STRUCT (12) dstr_83__MKDOC_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_84__MKDOC_CLASSES; struct MELT_STRING_STRUCT (13) dstr_85__MKDOC_CLASSES; struct MELT_OBJECT_STRUCT (4) dobj_86__MKDOC_CLASSES; struct MELT_STRING_STRUCT (13) dstr_87__MKDOC_CLASSES; struct MELT_OBJECT_STRUCT (3) dsym_88__MKDOC_INSTANCES; struct MELT_STRING_STRUCT (15) dstr_89__MKDOC_INSTANCES; struct MELT_OBJECT_STRUCT (4) dobj_90__MKDOC_INSTANCES; struct MELT_STRING_STRUCT (15) dstr_91__MKDOC_INSTANCES; struct MELT_OBJECT_STRUCT (3) dsym_92__MKDOC_MACROS; struct MELT_STRING_STRUCT (12) dstr_93__MKDOC_MACROS; struct MELT_OBJECT_STRUCT (4) dobj_94__MKDOC_MACROS; struct MELT_STRING_STRUCT (12) dstr_95__MKDOC_MACROS; struct MELT_OBJECT_STRUCT (3) dsym_96__MKDOC_PATMACROS; struct MELT_STRING_STRUCT (15) dstr_97__MKDOC_PATMACROS; struct MELT_OBJECT_STRUCT (4) dobj_98__MKDOC_PATMACROS; struct MELT_STRING_STRUCT (15) dstr_99__MKDOC_PATMACROS; struct MELT_OBJECT_STRUCT (3) dsym_100__MKDOC_FORMALOCCMAP; struct MELT_STRING_STRUCT (18) dstr_101__MKDOC_FORMALOCCM; struct MELT_OBJECT_STRUCT (4) dobj_102__MKDOC_FORMALOCCMAP; struct MELT_STRING_STRUCT (18) dstr_103__MKDOC_FORMALOCCM; struct MELT_OBJECT_STRUCT (3) dsym_104__MKDOC_PREDEFMAP; struct MELT_STRING_STRUCT (15) dstr_105__MKDOC_PREDEFMAP; struct MELT_OBJECT_STRUCT (4) dobj_106__MKDOC_PREDEFMAP; struct MELT_STRING_STRUCT (15) dstr_107__MKDOC_PREDEFMAP; struct MELT_OBJECT_STRUCT (3) dsym_108__MKDOC_DOCSYMAP; struct MELT_STRING_STRUCT (14) dstr_109__MKDOC_DOCSYMAP; struct MELT_OBJECT_STRUCT (4) dobj_110__MKDOC_DOCSYMAP; struct MELT_STRING_STRUCT (14) dstr_111__MKDOC_DOCSYMAP; struct MELT_OBJECT_STRUCT (3) dsym_112__MKDOC_SUBCLASSMAP; struct MELT_STRING_STRUCT (17) dstr_113__MKDOC_SUBCLASSMA; struct MELT_OBJECT_STRUCT (4) dobj_114__MKDOC_SUBCLASSMAP; struct MELT_STRING_STRUCT (17) dstr_115__MKDOC_SUBCLASSMA; struct MELT_OBJECT_STRUCT (3) dsym_116__MKDOC_BOXCOUNTER; struct MELT_STRING_STRUCT (16) dstr_117__MKDOC_BOXCOUNTER; struct MELT_OBJECT_STRUCT (4) dobj_118__MKDOC_BOXCOUNTER; struct MELT_STRING_STRUCT (16) dstr_119__MKDOC_BOXCOUNTER; struct MELT_ROUTINE_STRUCT (1) drout_120__INCREMENT_MKDOC_COUNTER; struct MELT_CLOSURE_STRUCT (0) dclo_121__INCREMENT_MKDOC_COUNTER; struct MELT_ROUTINE_STRUCT (32) drout_122__MAKEDOC_SCANINPUT; struct MELT_CLOSURE_STRUCT (0) dclo_123__MAKEDOC_SCANINPUT; struct MELT_ROUTINE_STRUCT (2) drout_124__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_125__CLASS_SYMBOL; struct MELT_STRING_STRUCT (12) dstr_126__CLASS_SYMBOL; struct MELT_ROUTINE_STRUCT (2) drout_127__LAMBDA_; struct MELT_ROUTINE_STRUCT (4) drout_128__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_129__CLASS_FORMAL_BINDING; struct MELT_STRING_STRUCT (20) dstr_130__CLASS_FORMAL_BIN; struct MELT_OBJECT_STRUCT (3) dsym_131__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT (23) dstr_132__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_133__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT (17) dstr_134__CLASS_ANY_BINDIN; struct MELT_OBJECT_STRUCT (3) dsym_135__DISCR_LIST; struct MELT_STRING_STRUCT (10) dstr_136__DISCR_LIST; struct MELT_OBJECT_STRUCT (3) dsym_137__LIST_EVERY; struct MELT_STRING_STRUCT (10) dstr_138__LIST_EVERY; struct MELT_ROUTINE_STRUCT (18) drout_139__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_140__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT (21) dstr_141__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_142__CLASS_SEXPR; struct MELT_STRING_STRUCT (11) dstr_143__CLASS_SEXPR; struct MELT_OBJECT_STRUCT (3) dsym_144__CLASS_CLASS_BINDING; struct MELT_STRING_STRUCT (19) dstr_145__CLASS_CLASS_BIND; struct MELT_OBJECT_STRUCT (3) dsym_146__CLASS_CLASS; struct MELT_STRING_STRUCT (11) dstr_147__CLASS_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_148__CLASS_FIELD; struct MELT_STRING_STRUCT (11) dstr_149__CLASS_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_150__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT (24) dstr_151__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_152__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT (24) dstr_153__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_154__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT (25) dstr_155__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_156__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT (18) dstr_157__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_158__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT (25) dstr_159__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_160__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT (24) dstr_161__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (3) dsym_162__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT (28) dstr_163__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (3) dsym_164__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT (25) dstr_165__CLASS_SOURCE_EXP; struct MELT_ROUTINE_STRUCT (2) drout_166__MAKEDOC_OUTDEFLOC; struct MELT_CLOSURE_STRUCT (0) dclo_167__MAKEDOC_OUTDEFLOC; struct MELT_OBJECT_STRUCT (3) dsym_168__CLASS_LOCATED; struct MELT_STRING_STRUCT (13) dstr_169__CLASS_LOCATED; struct MELT_ROUTINE_STRUCT (4) drout_170__MAKEDOC_OUTFORMALS; struct MELT_CLOSURE_STRUCT (0) dclo_171__MAKEDOC_OUTFORMALS; struct MELT_OBJECT_STRUCT (3) dsym_172__CLASS_CTYPE; struct MELT_STRING_STRUCT (11) dstr_173__CLASS_CTYPE; struct MELT_ROUTINE_STRUCT (2) drout_174__MAKEDOC_OUTDOC; struct MELT_CLOSURE_STRUCT (0) dclo_175__MAKEDOC_OUTDOC; struct MELT_ROUTINE_STRUCT (14) drout_176__MAKEDOC_OUTCLASSDEF; struct MELT_CLOSURE_STRUCT (0) dclo_177__MAKEDOC_OUTCLASSDEF; struct MELT_OBJECT_STRUCT (3) dsym_178__LIST_TO_MULTIPLE; struct MELT_STRING_STRUCT (16) dstr_179__LIST_TO_MULTIPLE; struct MELT_OBJECT_STRUCT (3) dsym_180__DISCR_MULTIPLE; struct MELT_STRING_STRUCT (14) dstr_181__DISCR_MULTIPLE; struct MELT_OBJECT_STRUCT (3) dsym_182__COMPARE_NAMED_ALPHA; struct MELT_STRING_STRUCT (19) dstr_183__COMPARE_NAMED_AL; struct MELT_ROUTINE_STRUCT (12) drout_184__MAKEDOC_GENMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_185__MAKEDOC_GENMACRO; struct MELT_ROUTINE_STRUCT (2) drout_186__LAMBDA_; struct MELT_ROUTINE_STRUCT (13) drout_187__MAKEDOC_GENPATMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_188__MAKEDOC_GENPATMACRO; struct MELT_ROUTINE_STRUCT (2) drout_189__LAMBDA_; struct MELT_ROUTINE_STRUCT (21) drout_190__MAKEDOC_GENCLASS; struct MELT_CLOSURE_STRUCT (0) dclo_191__MAKEDOC_GENCLASS; struct meltint_st dint_192__; struct meltint_st dint_193__; struct meltint_st dint_194__; struct MELT_ROUTINE_STRUCT (2) drout_195__LAMBDA_; struct MELT_ROUTINE_STRUCT (1) drout_196__LAMBDA_; struct MELT_ROUTINE_STRUCT (1) drout_197__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_198__LAMBDA_; struct MELT_ROUTINE_STRUCT (10) drout_199__MAKEDOC_OUTPRIMITIVEDEF; struct MELT_CLOSURE_STRUCT (0) dclo_200__MAKEDOC_OUTPRIMITIVEDEF; struct MELT_OBJECT_STRUCT (3) dsym_201__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT (30) dstr_202__CLASS_SOURCE_DEF; struct MELT_ROUTINE_STRUCT (9) drout_203__MAKEDOC_GENPRIMITIVE; struct MELT_CLOSURE_STRUCT (0) dclo_204__MAKEDOC_GENPRIMITIVE; struct MELT_ROUTINE_STRUCT (2) drout_205__LAMBDA_; struct MELT_ROUTINE_STRUCT (9) drout_206__MAKEDOC_OUTFUNCTIONDEF; struct MELT_CLOSURE_STRUCT (0) dclo_207__MAKEDOC_OUTFUNCTIONDEF; struct MELT_ROUTINE_STRUCT (9) drout_208__MAKEDOC_GENFUNCTION; struct MELT_CLOSURE_STRUCT (0) dclo_209__MAKEDOC_GENFUNCTION; struct MELT_ROUTINE_STRUCT (2) drout_210__LAMBDA_; struct MELT_ROUTINE_STRUCT (16) drout_211__MAKEDOC_GENCITERATOR; struct MELT_CLOSURE_STRUCT (0) dclo_212__MAKEDOC_GENCITERATOR; struct MELT_ROUTINE_STRUCT (2) drout_213__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_214__CLASS_CITERATOR; struct MELT_STRING_STRUCT (15) dstr_215__CLASS_CITERATOR; struct MELT_ROUTINE_STRUCT (18) drout_216__MAKEDOC_GENCMATCHER; struct MELT_CLOSURE_STRUCT (0) dclo_217__MAKEDOC_GENCMATCHER; struct MELT_ROUTINE_STRUCT (2) drout_218__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_219__CLASS_ANY_MATCHER; struct MELT_STRING_STRUCT (17) dstr_220__CLASS_ANY_MATCHE; struct MELT_ROUTINE_STRUCT (10) drout_221__MAKEDOC_GENOUTPUT; struct MELT_CLOSURE_STRUCT (0) dclo_222__MAKEDOC_GENOUTPUT; struct MELT_OBJECT_STRUCT (3) dsym_223__DISCR_STRBUF; struct MELT_STRING_STRUCT (12) dstr_224__DISCR_STRBUF; struct MELT_ROUTINE_STRUCT (19) drout_225__MAKEDOC_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_226__MAKEDOC_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_227__CLASS_REFERENCE; struct MELT_STRING_STRUCT (15) dstr_228__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT (3) dsym_229__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT (17) dstr_230__DISCR_MAP_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_231__DISCR_INTEGER; struct MELT_STRING_STRUCT (13) dstr_232__DISCR_INTEGER; struct MELT_OBJECT_STRUCT (3) dsym_233__MELT_MODE_REFERENCE; struct MELT_STRING_STRUCT (19) dstr_234__MELT_MODE_REFERE; struct MELT_ROUTINE_STRUCT (2) drout_235__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_236__LIST_APPEND2LIST; struct MELT_STRING_STRUCT (16) dstr_237__LIST_APPEND2LIST; struct MELT_OBJECT_STRUCT (3) dsym_238__MACROEXPAND_TOPLEVEL_LIST; struct MELT_STRING_STRUCT (25) dstr_239__MACROEXPAND_TOPL; struct MELT_OBJECT_STRUCT (3) dsym_240__MACROEXPAND_1; struct MELT_STRING_STRUCT (13) dstr_241__MACROEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_242__MAKEDOC_MODE; struct MELT_STRING_STRUCT (12) dstr_243__MAKEDOC_MODE; struct MELT_OBJECT_STRUCT (5) dobj_244__MAKEDOC_MODE; struct MELT_STRING_STRUCT (7) dstr_245__makedoc; struct MELT_STRING_STRUCT (105) dstr_246__generate_texi_d; struct MELT_ROUTINE_STRUCT (6) drout_247__SHOWVAR_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_248__SHOWVAR_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_249__FIND_ENV; struct MELT_STRING_STRUCT (8) dstr_250__FIND_ENV; struct MELT_ROUTINE_STRUCT (8) drout_251__HELP_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_252__HELP_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_253__HELP_MODE; struct MELT_STRING_STRUCT (9) dstr_254__HELP_MODE; struct MELT_OBJECT_STRUCT (5) dobj_255__HELP_MODE; struct MELT_STRING_STRUCT (4) dstr_256__help; struct MELT_STRING_STRUCT (32) dstr_257__MELT_help_about_; struct MELT_ROUTINE_STRUCT (2) drout_258__NOP_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_259__NOP_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_260__NOP_MODE; struct MELT_STRING_STRUCT (8) dstr_261__NOP_MODE; struct MELT_OBJECT_STRUCT (5) dobj_262__NOP_MODE; struct MELT_STRING_STRUCT (3) dstr_263__nop; struct MELT_STRING_STRUCT (21) dstr_264__a_mode_doing_not; struct MELT_ROUTINE_STRUCT (5) drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; struct MELT_CLOSURE_STRUCT (0) dclo_266__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; struct MELT_STRING_STRUCT (117) dstr_267__from_genera; struct MELT_OBJECT_STRUCT (3) dsym_268__CLASS_VALUE_DESCRIPTOR; struct MELT_STRING_STRUCT (22) dstr_269__CLASS_VALUE_DESC; struct MELT_OBJECT_STRUCT (3) dsym_270__CLASS_CTYPE_GTY; struct MELT_STRING_STRUCT (15) dstr_271__CLASS_CTYPE_GTY; struct MELT_ROUTINE_STRUCT (11) drout_272__GENERATE_RUNTYPESUPPORT_GTY; struct MELT_CLOSURE_STRUCT (0) dclo_273__GENERATE_RUNTYPESUPPORT_GTY; struct MELT_STRING_STRUCT (164) dstr_274__ifndef_meltobj; struct MELT_STRING_STRUCT (133) dstr_275__ifndef_melt_pt; struct MELT_STRING_STRUCT (169) dstr_276__ifndef_meltrou; struct MELT_STRING_STRUCT (169) dstr_277__ifndef_meltclo; struct MELT_STRING_STRUCT (532) dstr_278__ifndef_meltrou; struct MELT_OBJECT_STRUCT (3) dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR; struct MELT_STRING_STRUCT (32) dstr_280__CLASS_VARISIZED_; struct MELT_ROUTINE_STRUCT (6) drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_282__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; struct MELT_STRING_STRUCT (579) dstr_283__cheney_like_; struct MELT_STRING_STRUCT (1398) dstr_284__trailer_gene; struct MELT_ROUTINE_STRUCT (7) drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN; struct MELT_CLOSURE_STRUCT (0) dclo_286__GENERATE_RUNTYPESUPPORT_CLONING_FUN; struct MELT_OBJECT_STRUCT (3) dsym_287__ADD2OUT; struct MELT_STRING_STRUCT (7) dstr_288__ADD2OUT; struct MELT_ROUTINE_STRUCT (7) drout_289__GENERATE_RUNTYPESUPPORT_SCANNING; struct MELT_CLOSURE_STRUCT (0) dclo_290__GENERATE_RUNTYPESUPPORT_SCANNING; struct MELT_STRING_STRUCT (689) dstr_291__header_from_; struct MELT_STRING_STRUCT (300) dstr_292__trailer_gene; struct MELT_ROUTINE_STRUCT (3) drout_293__GENERATE_RUNTYPESUPPORT_PARAM; struct MELT_CLOSURE_STRUCT (0) dclo_294__GENERATE_RUNTYPESUPPORT_PARAM; struct MELT_ROUTINE_STRUCT (4) drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE; struct MELT_CLOSURE_STRUCT (0) dclo_296__GENERATE_RUNTYPESUPPORT_COD2CTYPE; struct MELT_ROUTINE_STRUCT (6) drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR; struct MELT_CLOSURE_STRUCT (0) dclo_298__GENERATE_RUNTYPESUPPORT_MAG2STR; struct MELT_STRING_STRUCT (237) dstr_299__const_char_melt; struct MELT_STRING_STRUCT (245) dstr_300__default_int; struct MELT_ROUTINE_STRUCT (5) drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN; struct MELT_CLOSURE_STRUCT (0) dclo_302__GENERATE_RUNTYPESUPPORT_BOXINGFUN; struct MELT_OBJECT_STRUCT (3) dsym_303__SOME_STRING_VALUE; struct MELT_STRING_STRUCT (17) dstr_304__SOME_STRING_VALU; struct MELT_OBJECT_STRUCT (3) dsym_305__CLASS_DISCRIMINANT; struct MELT_STRING_STRUCT (18) dstr_306__CLASS_DISCRIMINA; struct MELT_ROUTINE_STRUCT (8) drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN; struct MELT_CLOSURE_STRUCT (0) dclo_308__GENERATE_RUNTYPESUPPORT_MAPFUN; struct MELT_STRING_STRUCT (164) dstr_309__generated_map; struct MELT_STRING_STRUCT (158) dstr_310__not_map_mag; struct MELT_ROUTINE_STRUCT (5) drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_312__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; struct MELT_ROUTINE_STRUCT (23) drout_313__RUNTYPESUPPORT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_314__RUNTYPESUPPORT_DOCMD; struct MELT_STRING_STRUCT (10) dstr_315__meltrunsup; struct MELT_OBJECT_STRUCT (3) dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY; struct MELT_STRING_STRUCT (30) dstr_317__RETRIEVE_DICTION; struct MELT_OBJECT_STRUCT (3) dsym_318__RETRIEVE_DICTIONNARY_CTYPE; struct MELT_STRING_STRUCT (26) dstr_319__RETRIEVE_DICTION; struct MELT_OBJECT_STRUCT (3) dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; struct MELT_STRING_STRUCT (45) dstr_321__GENERATE_GPLV3PL; struct MELT_OBJECT_STRUCT (3) dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST; struct MELT_STRING_STRUCT (30) dstr_323__RETRIEVE_VALUE_D; struct MELT_OBJECT_STRUCT (3) dsym_324__RUNTYPESUPPORT_MODE; struct MELT_STRING_STRUCT (19) dstr_325__RUNTYPESUPPORT_M; struct MELT_OBJECT_STRUCT (5) dobj_326__RUNTYPESUPPORT_MODE; struct MELT_STRING_STRUCT (14) dstr_327__runtypesupport; struct MELT_STRING_STRUCT (92) dstr_328__generate_runtime; struct MELT_ROUTINE_STRUCT (4) drout_329__TRANSLATE_TO_FLAVORED_MODULE; struct MELT_CLOSURE_STRUCT (0) dclo_330__TRANSLATE_TO_FLAVORED_MODULE; struct MELT_ROUTINE_STRUCT (9) drout_331__TRANSLATETOMODULE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_332__TRANSLATETOMODULE_DOCMD; struct MELT_STRING_STRUCT (12) dstr_333__quicklybuilt; struct MELT_STRING_STRUCT (9) dstr_334__optimized; struct MELT_STRING_STRUCT (11) dstr_335__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_336__TRANSLATETOMODULE_MODE; struct MELT_STRING_STRUCT (22) dstr_337__TRANSLATETOMODUL; struct MELT_OBJECT_STRUCT (5) dobj_338__TRANSLATETOMODULE_MODE; struct MELT_STRING_STRUCT (17) dstr_339__translatetomodul; struct MELT_STRING_STRUCT (211) dstr_340__translate_a_mel; struct MELT_ROUTINE_STRUCT (7) drout_341__TRANSLATEDEBUG_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_342__TRANSLATEDEBUG_DOCMD; struct MELT_STRING_STRUCT (11) dstr_343__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_344__TRANSLATEDEBUG_MODE; struct MELT_STRING_STRUCT (19) dstr_345__TRANSLATEDEBUG_M; struct MELT_OBJECT_STRUCT (5) dobj_346__TRANSLATEDEBUG_MODE; struct MELT_STRING_STRUCT (14) dstr_347__translatedebug; struct MELT_STRING_STRUCT (321) dstr_348__translate_a_mel; struct MELT_ROUTINE_STRUCT (7) drout_349__TRANSLATEQUICKLY_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_350__TRANSLATEQUICKLY_DOCMD; struct MELT_STRING_STRUCT (12) dstr_351__quicklybuilt; struct MELT_OBJECT_STRUCT (3) dsym_352__TRANSLATEQUICKLY_MODE; struct MELT_STRING_STRUCT (21) dstr_353__TRANSLATEQUICKLY; struct MELT_OBJECT_STRUCT (5) dobj_354__TRANSLATEQUICKLY_MODE; struct MELT_STRING_STRUCT (16) dstr_355__translatequickly; struct MELT_STRING_STRUCT (214) dstr_356__translate_quickl; struct MELT_ROUTINE_STRUCT (7) drout_357__TRANSLATEOPTIMIZED_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_358__TRANSLATEOPTIMIZED_DOCMD; struct MELT_STRING_STRUCT (9) dstr_359__optimized; struct MELT_OBJECT_STRUCT (3) dsym_360__TRANSLATEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (23) dstr_361__TRANSLATEOPTIMIZ; struct MELT_OBJECT_STRUCT (5) dobj_362__TRANSLATEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (18) dstr_363__translateoptimiz; struct MELT_STRING_STRUCT (178) dstr_364__translate_a_me; struct MELT_ROUTINE_STRUCT (7) drout_365__TRANSLATEFILE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_366__TRANSLATEFILE_DOCMD; struct MELT_OBJECT_STRUCT (3) dsym_367__TRANSLATEFILE_MODE; struct MELT_STRING_STRUCT (18) dstr_368__TRANSLATEFILE_MO; struct MELT_OBJECT_STRUCT (5) dobj_369__TRANSLATEFILE_MODE; struct MELT_STRING_STRUCT (13) dstr_370__translatefile; struct MELT_STRING_STRUCT (79) dstr_371__translate_a_mel; struct MELT_ROUTINE_STRUCT (11) drout_372__TRANSLATEINIT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_373__TRANSLATEINIT_DOCMD; struct MELT_ROUTINE_STRUCT (2) drout_374__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_375__COMPILE_LIST_SEXPR; struct MELT_STRING_STRUCT (18) dstr_376__COMPILE_LIST_SEX; struct MELT_OBJECT_STRUCT (3) dsym_377__TRANSLATEINIT_MODE; struct MELT_STRING_STRUCT (18) dstr_378__TRANSLATEINIT_MO; struct MELT_OBJECT_STRUCT (5) dobj_379__TRANSLATEINIT_MODE; struct MELT_STRING_STRUCT (13) dstr_380__translateinit; struct MELT_STRING_STRUCT (120) dstr_381__translate_the_ve; struct MELT_ROUTINE_STRUCT (9) drout_382__TRANSLATEINIT_FLAVORED; struct MELT_CLOSURE_STRUCT (0) dclo_383__TRANSLATEINIT_FLAVORED; struct MELT_ROUTINE_STRUCT (2) drout_384__LAMBDA_; struct MELT_ROUTINE_STRUCT (6) drout_385__TRANSLATEINITMODULE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_386__TRANSLATEINITMODULE_DOCMD; struct MELT_STRING_STRUCT (12) dstr_387__quicklybuilt; struct MELT_STRING_STRUCT (11) dstr_388__debugnoline; struct MELT_STRING_STRUCT (9) dstr_389__optimized; struct MELT_OBJECT_STRUCT (3) dsym_390__TRANSLATEINITMODULE_MODE; struct MELT_STRING_STRUCT (24) dstr_391__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_392__TRANSLATEINITMODULE_MODE; struct MELT_STRING_STRUCT (19) dstr_393__translateinitmod; struct MELT_STRING_STRUCT (188) dstr_394__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_396__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; struct MELT_STRING_STRUCT (12) dstr_397__quicklybuilt; struct MELT_OBJECT_STRUCT (3) dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE; struct MELT_STRING_STRUCT (36) dstr_399__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE; struct MELT_STRING_STRUCT (31) dstr_401__translateinitmod; struct MELT_STRING_STRUCT (152) dstr_402__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_404__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; struct MELT_STRING_STRUCT (11) dstr_405__debugnoline; struct MELT_OBJECT_STRUCT (3) dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE; struct MELT_STRING_STRUCT (35) dstr_407__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE; struct MELT_STRING_STRUCT (30) dstr_409__translateinitmod; struct MELT_STRING_STRUCT (151) dstr_410__translate_the_ve; struct MELT_ROUTINE_STRUCT (4) drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD; struct MELT_CLOSURE_STRUCT (0) dclo_412__TRANSLATEINITMODULEOPTIMIZED_DOCMD; struct MELT_STRING_STRUCT (9) dstr_413__optimized; struct MELT_OBJECT_STRUCT (3) dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (33) dstr_415__TRANSLATEINITMOD; struct MELT_OBJECT_STRUCT (5) dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE; struct MELT_STRING_STRUCT (28) dstr_417__translateinitmod; struct MELT_STRING_STRUCT (149) dstr_418__translate_the_ve; struct MELT_ROUTINE_STRUCT (6) drout_419__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_420__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_421__CLASS_INPUT_CHANNEL_HANDLER; struct MELT_STRING_STRUCT (27) dstr_422__CLASS_INPUT_CHAN; struct MELT_OBJECT_STRUCT (3) dsym_423__DISCR_BUCKET_LONGS; struct MELT_STRING_STRUCT (18) dstr_424__DISCR_BUCKET_LON; struct MELT_OBJECT_STRUCT (3) dsym_425__ALARM_BUCKET_REFERENCE; struct MELT_STRING_STRUCT (22) dstr_426__ALARM_BUCKET_REF; struct MELT_OBJECT_STRUCT (1) dobj_427__ALARM_BUCKET_REFERENCE; struct MELT_ROUTINE_STRUCT (9) drout_428__HANDLE_ALARM_SIGNAL; struct MELT_CLOSURE_STRUCT (0) dclo_429__HANDLE_ALARM_SIGNAL; struct MELT_ROUTINE_STRUCT (2) drout_430__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_431__CLASS_ALARM_HANDLER; struct MELT_STRING_STRUCT (19) dstr_432__CLASS_ALARM_HAND; struct MELT_ROUTINE_STRUCT (9) drout_433__REGISTER_ALARM_TIMER; struct MELT_CLOSURE_STRUCT (0) dclo_434__REGISTER_ALARM_TIMER; struct MELT_OBJECT_STRUCT (3) dsym_435__DISCR_CONSTANT_INTEGER; struct MELT_STRING_STRUCT (22) dstr_436__DISCR_CONSTANT_I; struct MELT_ROUTINE_STRUCT (7) drout_437__UNREGISTER_ALARM_TIMER; struct MELT_CLOSURE_STRUCT (0) dclo_438__UNREGISTER_ALARM_TIMER; struct MELT_OBJECT_STRUCT (3) dsym_439__CHILDPROC_BUCKET_REFERENCE; struct MELT_STRING_STRUCT (26) dstr_440__CHILDPROC_BUCKET; struct MELT_OBJECT_STRUCT (1) dobj_441__CHILDPROC_BUCKET_REFERENCE; struct MELT_ROUTINE_STRUCT (8) drout_442__CHILD_PROCESS_SIGCHLD_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_443__CHILD_PROCESS_SIGCHLD_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_444__CLASS_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (27) dstr_445__CLASS_CHILD_PROC; struct MELT_ROUTINE_STRUCT (9) drout_446__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_447__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_ROUTINE_STRUCT (1) drout_448__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_CLOSURE_STRUCT (0) dclo_449__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_OBJECT_STRUCT (3) dsym_450__REGISTER_ALARM_TIMER; struct MELT_STRING_STRUCT (20) dstr_451__REGISTER_ALARM_T; struct MELT_OBJECT_STRUCT (3) dsym_452__REGISTER_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (30) dstr_453__REGISTER_CHILD_P; struct MELT_OBJECT_STRUCT (3) dsym_454__REGISTER_INPUT_CHANNEL_HANDLER; struct MELT_STRING_STRUCT (30) dstr_455__REGISTER_INPUT_C; struct MELT_OBJECT_STRUCT (3) dsym_456__UNREGISTER_ALARM_TIMER; struct MELT_STRING_STRUCT (22) dstr_457__UNREGISTER_ALARM; struct MELT_OBJECT_STRUCT (3) dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER; struct MELT_STRING_STRUCT (32) dstr_459__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 */ -3770); 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___V70*/ meltfptr[69] = (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___V71*/ meltfptr[70] = (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___V72*/ meltfptr[71]) /*_.VALDATA___V72*/ meltfptr[71] = (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___V73*/ meltfptr[72] = (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___V74*/ meltfptr[73]) /*_.VALDATA___V74*/ meltfptr[73] = (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___V75*/ meltfptr[74] = (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___V76*/ meltfptr[75]) /*_.VALDATA___V76*/ meltfptr[75] = (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___V77*/ meltfptr[76] = (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___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (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___V79*/ meltfptr[78] = (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___V80*/ meltfptr[79]) /*_.VALDATA___V80*/ meltfptr[79] = (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___V81*/ meltfptr[80] = (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___V82*/ meltfptr[81]) /*_.VALDATA___V82*/ meltfptr[81] = (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___V83*/ meltfptr[82] = (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___V84*/ meltfptr[83] = (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___V89*/ meltfptr[88] = (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___V90*/ meltfptr[89]) /*_.VALDATA___V90*/ meltfptr[89] = (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___V91*/ meltfptr[90] = (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___V92*/ meltfptr[91]) /*_.VALDATA___V92*/ meltfptr[91] = (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___V93*/ meltfptr[92] = (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___V94*/ meltfptr[93]) /*_.VALDATA___V94*/ meltfptr[93] = (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___V95*/ meltfptr[94] = (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___V96*/ meltfptr[95]) /*_.VALDATA___V96*/ meltfptr[95] = (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___V97*/ meltfptr[96] = (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___V85*/ meltfptr[84] = (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___V86*/ meltfptr[85] = (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___V87*/ meltfptr[86]) /*_.VALDATA___V87*/ meltfptr[86] = (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___V88*/ meltfptr[87] = (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___V98*/ meltfptr[97]) /*_.VALDATA___V98*/ meltfptr[97] = (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___V99*/ meltfptr[98] = (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___V100*/ meltfptr[99] = (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 = 877208189; cdat->dobj_31__RUNFILE_MODE.obj_len = 5; /*inistring dstr_32__runfile*/ /*_.VALSTR___V101*/ meltfptr[100] = (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___V102*/ meltfptr[101] = (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___V103*/ meltfptr[102] = (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___V106*/ meltfptr[105] = (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___V104*/ meltfptr[103] = (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___V105*/ meltfptr[104] = (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___V107*/ meltfptr[106]) /*_.VALDATA___V107*/ meltfptr[106] = (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___V108*/ meltfptr[107] = (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___V109*/ meltfptr[108] = (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 = 947548746; cdat->dobj_40__RUNDEBUG_MODE.obj_len = 5; /*inistring dstr_41__rundebug*/ /*_.VALSTR___V110*/ meltfptr[109] = (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___V111*/ meltfptr[110] = (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___V112*/ meltfptr[111] = (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 = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_43__EVAL_DOCMD, meltrout_4_warmelt_modes_EVAL_DOCMD); /*iniclos dclo_44__EVAL_DOCMD */ /*_.VALCLO___V113*/ meltfptr[112] = (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__TRANSLATE_RUN_MELT_EXPRESSIONS*/ /*uniqueobj*/ if (! /*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) & cdat->dsym_45__TRANSLATE_RUN_MELT_EXPRESSIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_45__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_45__TRANSLATE_RUN_MELT_EXPRESSIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_45__TRANSLATE_RUN_MELT_EXPRESSIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_45__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_hash = 768959791; cdat->dsym_45__TRANSLATE_RUN_MELT_EXPRESSIONS.obj_len = 3; /*inistring dstr_46__TRANSLATE_RUN_ME*/ /*_.VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) & cdat->dstr_46__TRANSLATE_RUN_ME; cdat->dstr_46__TRANSLATE_RUN_ME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_46__TRANSLATE_RUN_ME.val, "TRANSLATE_RUN_MELT_EXPRESSIONS", sizeof (cdat->dstr_46__TRANSLATE_RUN_ME.val) - 1); cdat->dstr_46__TRANSLATE_RUN_ME.val[30] = (char) 0; cdat->dstr_46__TRANSLATE_RUN_ME.slen = 30; /*iniobj dsym_47__EVAL_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) & cdat->dsym_47__EVAL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_47__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_47__EVAL_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_47__EVAL_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_47__EVAL_MODE.obj_hash = 481183908; cdat->dsym_47__EVAL_MODE.obj_len = 3; /*inistring dstr_48__EVAL_MODE*/ /*_.VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) & cdat->dstr_48__EVAL_MODE; cdat->dstr_48__EVAL_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_48__EVAL_MODE.val, "EVAL_MODE", sizeof (cdat->dstr_48__EVAL_MODE.val) - 1); cdat->dstr_48__EVAL_MODE.val[9] = (char) 0; cdat->dstr_48__EVAL_MODE.slen = 9; MELT_LOCATION ("warmelt-modes.melt:197:/ iniobj"); /*iniobj dobj_49__EVAL_MODE*/ /*_.VALDATA___V118*/ meltfptr[117] = (melt_ptr_t) & cdat->dobj_49__EVAL_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_49__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_49__EVAL_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49__EVAL_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_49__EVAL_MODE.obj_hash = 1016945162; cdat->dobj_49__EVAL_MODE.obj_len = 5; /*inistring dstr_50__eval*/ /*_.VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) & cdat->dstr_50__eval; cdat->dstr_50__eval.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_50__eval.val, "eval", sizeof (cdat->dstr_50__eval.val) - 1); cdat->dstr_50__eval.val[4] = (char) 0; cdat->dstr_50__eval.slen = 4; /*inistring dstr_51__translate_and_ru*/ /*_.VALSTR___V120*/ meltfptr[119] = (melt_ptr_t) & cdat->dstr_51__translate_and_ru; cdat->dstr_51__translate_and_ru.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_51__translate_and_ru.val, "translate and run, i.e. evaluate, a MELT expression;\n\n\t ARGUMENT= input file", sizeof (cdat->dstr_51__translate_and_ru.val) - 1); cdat->dstr_51__translate_and_ru.val[76] = (char) 0; cdat->dstr_51__translate_and_ru.slen = 76; /*iniobj dsym_52__CLASS_MAKEDOC_INFO*/ /*uniqueobj*/ if (! /*_.VALDATA___V121*/ meltfptr[120]) /*_.VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) & cdat->dsym_52__CLASS_MAKEDOC_INFO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_52__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_52__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_52__CLASS_MAKEDOC_INFO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_52__CLASS_MAKEDOC_INFO.obj_hash = 813085508; cdat->dsym_52__CLASS_MAKEDOC_INFO.obj_len = 3; /*inistring dstr_53__CLASS_MAKEDOC_IN*/ /*_.VALSTR___V122*/ meltfptr[121] = (melt_ptr_t) & cdat->dstr_53__CLASS_MAKEDOC_IN; cdat->dstr_53__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_53__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof (cdat->dstr_53__CLASS_MAKEDOC_IN.val) - 1); cdat->dstr_53__CLASS_MAKEDOC_IN.val[18] = (char) 0; cdat->dstr_53__CLASS_MAKEDOC_IN.slen = 18; /*iniobj dsym_54__CLASS_PROPED*/ /*uniqueobj*/ if (! /*_.VALDATA___V123*/ meltfptr[122]) /*_.VALDATA___V123*/ meltfptr[122] = (melt_ptr_t) & cdat->dsym_54__CLASS_PROPED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_54__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_54__CLASS_PROPED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_54__CLASS_PROPED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_54__CLASS_PROPED.obj_hash = 96765023; cdat->dsym_54__CLASS_PROPED.obj_len = 3; /*inistring dstr_55__CLASS_PROPED*/ /*_.VALSTR___V124*/ meltfptr[123] = (melt_ptr_t) & cdat->dstr_55__CLASS_PROPED; cdat->dstr_55__CLASS_PROPED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_55__CLASS_PROPED.val, "CLASS_PROPED", sizeof (cdat->dstr_55__CLASS_PROPED.val) - 1); cdat->dstr_55__CLASS_PROPED.val[12] = (char) 0; cdat->dstr_55__CLASS_PROPED.slen = 12; MELT_LOCATION ("warmelt-modes.melt:208:/ iniobj"); /*iniobj dobj_56__CLASS_MAKEDOC_INFO*/ /*_.VALDATA___V125*/ meltfptr[124] = (melt_ptr_t) & cdat->dobj_56__CLASS_MAKEDOC_INFO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_56__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_56__CLASS_MAKEDOC_INFO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_56__CLASS_MAKEDOC_INFO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_56__CLASS_MAKEDOC_INFO.obj_num = MELTOBMAG_OBJECT; cdat->dobj_56__CLASS_MAKEDOC_INFO.obj_hash = 121237070; cdat->dobj_56__CLASS_MAKEDOC_INFO.obj_len = 8; /*inistring dstr_57__CLASS_MAKEDOC_IN*/ /*_.VALSTR___V126*/ meltfptr[125] = (melt_ptr_t) & cdat->dstr_57__CLASS_MAKEDOC_IN; cdat->dstr_57__CLASS_MAKEDOC_IN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_57__CLASS_MAKEDOC_IN.val, "CLASS_MAKEDOC_INFO", sizeof (cdat->dstr_57__CLASS_MAKEDOC_IN.val) - 1); cdat->dstr_57__CLASS_MAKEDOC_IN.val[18] = (char) 0; cdat->dstr_57__CLASS_MAKEDOC_IN.slen = 18; /*inimult dtup_58__CLASS_MAKEDOC_INFO */ /*_.VALTUP___V127*/ meltfptr[126] = (melt_ptr_t) & cdat->dtup_58__CLASS_MAKEDOC_INFO; cdat->dtup_58__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_58__CLASS_MAKEDOC_INFO.nbval = 2; /*inimult dtup_59__CLASS_MAKEDOC_INFO */ /*_.VALTUP___V158*/ meltfptr[157] = (melt_ptr_t) & cdat->dtup_59__CLASS_MAKEDOC_INFO; cdat->dtup_59__CLASS_MAKEDOC_INFO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_59__CLASS_MAKEDOC_INFO.nbval = 16; /*iniobj dsym_60__MKDOC_PRIMITIVES*/ /*uniqueobj*/ if (! /*_.VALDATA___V159*/ meltfptr[158]) /*_.VALDATA___V159*/ meltfptr[158] = (melt_ptr_t) & cdat->dsym_60__MKDOC_PRIMITIVES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_60__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_60__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_60__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_60__MKDOC_PRIMITIVES.obj_hash = 533538030; cdat->dsym_60__MKDOC_PRIMITIVES.obj_len = 3; /*inistring dstr_61__MKDOC_PRIMITIVES*/ /*_.VALSTR___V160*/ meltfptr[159] = (melt_ptr_t) & cdat->dstr_61__MKDOC_PRIMITIVES; cdat->dstr_61__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_61__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (cdat->dstr_61__MKDOC_PRIMITIVES.val) - 1); cdat->dstr_61__MKDOC_PRIMITIVES.val[16] = (char) 0; cdat->dstr_61__MKDOC_PRIMITIVES.slen = 16; /*^iniobj */ /*iniobj dobj_62__MKDOC_PRIMITIVES*/ /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) & cdat->dobj_62__MKDOC_PRIMITIVES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_62__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_62__MKDOC_PRIMITIVES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_62__MKDOC_PRIMITIVES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_62__MKDOC_PRIMITIVES.obj_num = 1; cdat->dobj_62__MKDOC_PRIMITIVES.obj_hash = 366899131; cdat->dobj_62__MKDOC_PRIMITIVES.obj_len = 4; /*inistring dstr_63__MKDOC_PRIMITIVES*/ /*_.VALSTR___V129*/ meltfptr[128] = (melt_ptr_t) & cdat->dstr_63__MKDOC_PRIMITIVES; cdat->dstr_63__MKDOC_PRIMITIVES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_63__MKDOC_PRIMITIVES.val, "MKDOC_PRIMITIVES", sizeof (cdat->dstr_63__MKDOC_PRIMITIVES.val) - 1); cdat->dstr_63__MKDOC_PRIMITIVES.val[16] = (char) 0; cdat->dstr_63__MKDOC_PRIMITIVES.slen = 16; /*iniobj dsym_64__MKDOC_FUNCTIONS*/ /*uniqueobj*/ if (! /*_.VALDATA___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (melt_ptr_t) & cdat->dsym_64__MKDOC_FUNCTIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_64__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_64__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_64__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_64__MKDOC_FUNCTIONS.obj_hash = 247154639; cdat->dsym_64__MKDOC_FUNCTIONS.obj_len = 3; /*inistring dstr_65__MKDOC_FUNCTIONS*/ /*_.VALSTR___V162*/ meltfptr[161] = (melt_ptr_t) & cdat->dstr_65__MKDOC_FUNCTIONS; cdat->dstr_65__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_65__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (cdat->dstr_65__MKDOC_FUNCTIONS.val) - 1); cdat->dstr_65__MKDOC_FUNCTIONS.val[15] = (char) 0; cdat->dstr_65__MKDOC_FUNCTIONS.slen = 15; /*^iniobj */ /*iniobj dobj_66__MKDOC_FUNCTIONS*/ /*_.VALDATA___V130*/ meltfptr[129] = (melt_ptr_t) & cdat->dobj_66__MKDOC_FUNCTIONS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_66__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_66__MKDOC_FUNCTIONS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_66__MKDOC_FUNCTIONS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_66__MKDOC_FUNCTIONS.obj_num = 2; cdat->dobj_66__MKDOC_FUNCTIONS.obj_hash = 338492520; cdat->dobj_66__MKDOC_FUNCTIONS.obj_len = 4; /*inistring dstr_67__MKDOC_FUNCTIONS*/ /*_.VALSTR___V131*/ meltfptr[130] = (melt_ptr_t) & cdat->dstr_67__MKDOC_FUNCTIONS; cdat->dstr_67__MKDOC_FUNCTIONS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_67__MKDOC_FUNCTIONS.val, "MKDOC_FUNCTIONS", sizeof (cdat->dstr_67__MKDOC_FUNCTIONS.val) - 1); cdat->dstr_67__MKDOC_FUNCTIONS.val[15] = (char) 0; cdat->dstr_67__MKDOC_FUNCTIONS.slen = 15; /*iniobj dsym_68__MKDOC_CITERATORS*/ /*uniqueobj*/ if (! /*_.VALDATA___V163*/ meltfptr[162]) /*_.VALDATA___V163*/ meltfptr[162] = (melt_ptr_t) & cdat->dsym_68__MKDOC_CITERATORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_68__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_68__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_68__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_68__MKDOC_CITERATORS.obj_hash = 721902174; cdat->dsym_68__MKDOC_CITERATORS.obj_len = 3; /*inistring dstr_69__MKDOC_CITERATORS*/ /*_.VALSTR___V164*/ meltfptr[163] = (melt_ptr_t) & cdat->dstr_69__MKDOC_CITERATORS; cdat->dstr_69__MKDOC_CITERATORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_69__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (cdat->dstr_69__MKDOC_CITERATORS.val) - 1); cdat->dstr_69__MKDOC_CITERATORS.val[16] = (char) 0; cdat->dstr_69__MKDOC_CITERATORS.slen = 16; /*^iniobj */ /*iniobj dobj_70__MKDOC_CITERATORS*/ /*_.VALDATA___V132*/ meltfptr[131] = (melt_ptr_t) & cdat->dobj_70__MKDOC_CITERATORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_70__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_70__MKDOC_CITERATORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_70__MKDOC_CITERATORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_70__MKDOC_CITERATORS.obj_num = 3; cdat->dobj_70__MKDOC_CITERATORS.obj_hash = 143920960; cdat->dobj_70__MKDOC_CITERATORS.obj_len = 4; /*inistring dstr_71__MKDOC_CITERATORS*/ /*_.VALSTR___V133*/ meltfptr[132] = (melt_ptr_t) & cdat->dstr_71__MKDOC_CITERATORS; cdat->dstr_71__MKDOC_CITERATORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_71__MKDOC_CITERATORS.val, "MKDOC_CITERATORS", sizeof (cdat->dstr_71__MKDOC_CITERATORS.val) - 1); cdat->dstr_71__MKDOC_CITERATORS.val[16] = (char) 0; cdat->dstr_71__MKDOC_CITERATORS.slen = 16; /*iniobj dsym_72__MKDOC_CMATCHERS*/ /*uniqueobj*/ if (! /*_.VALDATA___V165*/ meltfptr[164]) /*_.VALDATA___V165*/ meltfptr[164] = (melt_ptr_t) & cdat->dsym_72__MKDOC_CMATCHERS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_72__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_72__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_72__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_72__MKDOC_CMATCHERS.obj_hash = 75005304; cdat->dsym_72__MKDOC_CMATCHERS.obj_len = 3; /*inistring dstr_73__MKDOC_CMATCHERS*/ /*_.VALSTR___V166*/ meltfptr[165] = (melt_ptr_t) & cdat->dstr_73__MKDOC_CMATCHERS; cdat->dstr_73__MKDOC_CMATCHERS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_73__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (cdat->dstr_73__MKDOC_CMATCHERS.val) - 1); cdat->dstr_73__MKDOC_CMATCHERS.val[15] = (char) 0; cdat->dstr_73__MKDOC_CMATCHERS.slen = 15; /*^iniobj */ /*iniobj dobj_74__MKDOC_CMATCHERS*/ /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) & cdat->dobj_74__MKDOC_CMATCHERS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_74__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_74__MKDOC_CMATCHERS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_74__MKDOC_CMATCHERS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_74__MKDOC_CMATCHERS.obj_num = 4; cdat->dobj_74__MKDOC_CMATCHERS.obj_hash = 607303859; cdat->dobj_74__MKDOC_CMATCHERS.obj_len = 4; /*inistring dstr_75__MKDOC_CMATCHERS*/ /*_.VALSTR___V135*/ meltfptr[134] = (melt_ptr_t) & cdat->dstr_75__MKDOC_CMATCHERS; cdat->dstr_75__MKDOC_CMATCHERS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_75__MKDOC_CMATCHERS.val, "MKDOC_CMATCHERS", sizeof (cdat->dstr_75__MKDOC_CMATCHERS.val) - 1); cdat->dstr_75__MKDOC_CMATCHERS.val[15] = (char) 0; cdat->dstr_75__MKDOC_CMATCHERS.slen = 15; /*iniobj dsym_76__MKDOC_SELECTORS*/ /*uniqueobj*/ if (! /*_.VALDATA___V167*/ meltfptr[166]) /*_.VALDATA___V167*/ meltfptr[166] = (melt_ptr_t) & cdat->dsym_76__MKDOC_SELECTORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_76__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_76__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_76__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_76__MKDOC_SELECTORS.obj_hash = 360893471; cdat->dsym_76__MKDOC_SELECTORS.obj_len = 3; /*inistring dstr_77__MKDOC_SELECTORS*/ /*_.VALSTR___V168*/ meltfptr[167] = (melt_ptr_t) & cdat->dstr_77__MKDOC_SELECTORS; cdat->dstr_77__MKDOC_SELECTORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_77__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (cdat->dstr_77__MKDOC_SELECTORS.val) - 1); cdat->dstr_77__MKDOC_SELECTORS.val[15] = (char) 0; cdat->dstr_77__MKDOC_SELECTORS.slen = 15; /*^iniobj */ /*iniobj dobj_78__MKDOC_SELECTORS*/ /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) & cdat->dobj_78__MKDOC_SELECTORS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_78__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_78__MKDOC_SELECTORS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_78__MKDOC_SELECTORS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_78__MKDOC_SELECTORS.obj_num = 5; cdat->dobj_78__MKDOC_SELECTORS.obj_hash = 397758162; cdat->dobj_78__MKDOC_SELECTORS.obj_len = 4; /*inistring dstr_79__MKDOC_SELECTORS*/ /*_.VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) & cdat->dstr_79__MKDOC_SELECTORS; cdat->dstr_79__MKDOC_SELECTORS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_79__MKDOC_SELECTORS.val, "MKDOC_SELECTORS", sizeof (cdat->dstr_79__MKDOC_SELECTORS.val) - 1); cdat->dstr_79__MKDOC_SELECTORS.val[15] = (char) 0; cdat->dstr_79__MKDOC_SELECTORS.slen = 15; /*iniobj dsym_80__MKDOC_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V169*/ meltfptr[168]) /*_.VALDATA___V169*/ meltfptr[168] = (melt_ptr_t) & cdat->dsym_80__MKDOC_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_80__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_80__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_80__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_80__MKDOC_FIELDS.obj_hash = 896623907; cdat->dsym_80__MKDOC_FIELDS.obj_len = 3; /*inistring dstr_81__MKDOC_FIELDS*/ /*_.VALSTR___V170*/ meltfptr[169] = (melt_ptr_t) & cdat->dstr_81__MKDOC_FIELDS; cdat->dstr_81__MKDOC_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_81__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (cdat->dstr_81__MKDOC_FIELDS.val) - 1); cdat->dstr_81__MKDOC_FIELDS.val[12] = (char) 0; cdat->dstr_81__MKDOC_FIELDS.slen = 12; /*^iniobj */ /*iniobj dobj_82__MKDOC_FIELDS*/ /*_.VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) & cdat->dobj_82__MKDOC_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_82__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_82__MKDOC_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_82__MKDOC_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_82__MKDOC_FIELDS.obj_num = 6; cdat->dobj_82__MKDOC_FIELDS.obj_hash = 231262531; cdat->dobj_82__MKDOC_FIELDS.obj_len = 4; /*inistring dstr_83__MKDOC_FIELDS*/ /*_.VALSTR___V139*/ meltfptr[138] = (melt_ptr_t) & cdat->dstr_83__MKDOC_FIELDS; cdat->dstr_83__MKDOC_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_83__MKDOC_FIELDS.val, "MKDOC_FIELDS", sizeof (cdat->dstr_83__MKDOC_FIELDS.val) - 1); cdat->dstr_83__MKDOC_FIELDS.val[12] = (char) 0; cdat->dstr_83__MKDOC_FIELDS.slen = 12; /*iniobj dsym_84__MKDOC_CLASSES*/ /*uniqueobj*/ if (! /*_.VALDATA___V171*/ meltfptr[170]) /*_.VALDATA___V171*/ meltfptr[170] = (melt_ptr_t) & cdat->dsym_84__MKDOC_CLASSES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_84__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_84__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_84__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_84__MKDOC_CLASSES.obj_hash = 333195267; cdat->dsym_84__MKDOC_CLASSES.obj_len = 3; /*inistring dstr_85__MKDOC_CLASSES*/ /*_.VALSTR___V172*/ meltfptr[171] = (melt_ptr_t) & cdat->dstr_85__MKDOC_CLASSES; cdat->dstr_85__MKDOC_CLASSES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_85__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (cdat->dstr_85__MKDOC_CLASSES.val) - 1); cdat->dstr_85__MKDOC_CLASSES.val[13] = (char) 0; cdat->dstr_85__MKDOC_CLASSES.slen = 13; /*^iniobj */ /*iniobj dobj_86__MKDOC_CLASSES*/ /*_.VALDATA___V140*/ meltfptr[139] = (melt_ptr_t) & cdat->dobj_86__MKDOC_CLASSES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_86__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_86__MKDOC_CLASSES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_86__MKDOC_CLASSES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_86__MKDOC_CLASSES.obj_num = 7; cdat->dobj_86__MKDOC_CLASSES.obj_hash = 213967959; cdat->dobj_86__MKDOC_CLASSES.obj_len = 4; /*inistring dstr_87__MKDOC_CLASSES*/ /*_.VALSTR___V141*/ meltfptr[140] = (melt_ptr_t) & cdat->dstr_87__MKDOC_CLASSES; cdat->dstr_87__MKDOC_CLASSES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_87__MKDOC_CLASSES.val, "MKDOC_CLASSES", sizeof (cdat->dstr_87__MKDOC_CLASSES.val) - 1); cdat->dstr_87__MKDOC_CLASSES.val[13] = (char) 0; cdat->dstr_87__MKDOC_CLASSES.slen = 13; /*iniobj dsym_88__MKDOC_INSTANCES*/ /*uniqueobj*/ if (! /*_.VALDATA___V173*/ meltfptr[172]) /*_.VALDATA___V173*/ meltfptr[172] = (melt_ptr_t) & cdat->dsym_88__MKDOC_INSTANCES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_88__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_88__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_88__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_88__MKDOC_INSTANCES.obj_hash = 1005424692; cdat->dsym_88__MKDOC_INSTANCES.obj_len = 3; /*inistring dstr_89__MKDOC_INSTANCES*/ /*_.VALSTR___V174*/ meltfptr[173] = (melt_ptr_t) & cdat->dstr_89__MKDOC_INSTANCES; cdat->dstr_89__MKDOC_INSTANCES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_89__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (cdat->dstr_89__MKDOC_INSTANCES.val) - 1); cdat->dstr_89__MKDOC_INSTANCES.val[15] = (char) 0; cdat->dstr_89__MKDOC_INSTANCES.slen = 15; /*^iniobj */ /*iniobj dobj_90__MKDOC_INSTANCES*/ /*_.VALDATA___V142*/ meltfptr[141] = (melt_ptr_t) & cdat->dobj_90__MKDOC_INSTANCES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_90__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_90__MKDOC_INSTANCES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_90__MKDOC_INSTANCES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_90__MKDOC_INSTANCES.obj_num = 8; cdat->dobj_90__MKDOC_INSTANCES.obj_hash = 285837508; cdat->dobj_90__MKDOC_INSTANCES.obj_len = 4; /*inistring dstr_91__MKDOC_INSTANCES*/ /*_.VALSTR___V143*/ meltfptr[142] = (melt_ptr_t) & cdat->dstr_91__MKDOC_INSTANCES; cdat->dstr_91__MKDOC_INSTANCES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_91__MKDOC_INSTANCES.val, "MKDOC_INSTANCES", sizeof (cdat->dstr_91__MKDOC_INSTANCES.val) - 1); cdat->dstr_91__MKDOC_INSTANCES.val[15] = (char) 0; cdat->dstr_91__MKDOC_INSTANCES.slen = 15; /*iniobj dsym_92__MKDOC_MACROS*/ /*uniqueobj*/ if (! /*_.VALDATA___V175*/ meltfptr[174]) /*_.VALDATA___V175*/ meltfptr[174] = (melt_ptr_t) & cdat->dsym_92__MKDOC_MACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_92__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_92__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_92__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_92__MKDOC_MACROS.obj_hash = 422260974; cdat->dsym_92__MKDOC_MACROS.obj_len = 3; /*inistring dstr_93__MKDOC_MACROS*/ /*_.VALSTR___V176*/ meltfptr[175] = (melt_ptr_t) & cdat->dstr_93__MKDOC_MACROS; cdat->dstr_93__MKDOC_MACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_93__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (cdat->dstr_93__MKDOC_MACROS.val) - 1); cdat->dstr_93__MKDOC_MACROS.val[12] = (char) 0; cdat->dstr_93__MKDOC_MACROS.slen = 12; /*^iniobj */ /*iniobj dobj_94__MKDOC_MACROS*/ /*_.VALDATA___V144*/ meltfptr[143] = (melt_ptr_t) & cdat->dobj_94__MKDOC_MACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_94__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_94__MKDOC_MACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_94__MKDOC_MACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_94__MKDOC_MACROS.obj_num = 9; cdat->dobj_94__MKDOC_MACROS.obj_hash = 676689033; cdat->dobj_94__MKDOC_MACROS.obj_len = 4; /*inistring dstr_95__MKDOC_MACROS*/ /*_.VALSTR___V145*/ meltfptr[144] = (melt_ptr_t) & cdat->dstr_95__MKDOC_MACROS; cdat->dstr_95__MKDOC_MACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_95__MKDOC_MACROS.val, "MKDOC_MACROS", sizeof (cdat->dstr_95__MKDOC_MACROS.val) - 1); cdat->dstr_95__MKDOC_MACROS.val[12] = (char) 0; cdat->dstr_95__MKDOC_MACROS.slen = 12; /*iniobj dsym_96__MKDOC_PATMACROS*/ /*uniqueobj*/ if (! /*_.VALDATA___V177*/ meltfptr[176]) /*_.VALDATA___V177*/ meltfptr[176] = (melt_ptr_t) & cdat->dsym_96__MKDOC_PATMACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_96__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_96__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_96__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_96__MKDOC_PATMACROS.obj_hash = 443350062; cdat->dsym_96__MKDOC_PATMACROS.obj_len = 3; /*inistring dstr_97__MKDOC_PATMACROS*/ /*_.VALSTR___V178*/ meltfptr[177] = (melt_ptr_t) & cdat->dstr_97__MKDOC_PATMACROS; cdat->dstr_97__MKDOC_PATMACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_97__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (cdat->dstr_97__MKDOC_PATMACROS.val) - 1); cdat->dstr_97__MKDOC_PATMACROS.val[15] = (char) 0; cdat->dstr_97__MKDOC_PATMACROS.slen = 15; /*^iniobj */ /*iniobj dobj_98__MKDOC_PATMACROS*/ /*_.VALDATA___V146*/ meltfptr[145] = (melt_ptr_t) & cdat->dobj_98__MKDOC_PATMACROS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_98__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_98__MKDOC_PATMACROS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_98__MKDOC_PATMACROS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_98__MKDOC_PATMACROS.obj_num = 10; cdat->dobj_98__MKDOC_PATMACROS.obj_hash = 187205051; cdat->dobj_98__MKDOC_PATMACROS.obj_len = 4; /*inistring dstr_99__MKDOC_PATMACROS*/ /*_.VALSTR___V147*/ meltfptr[146] = (melt_ptr_t) & cdat->dstr_99__MKDOC_PATMACROS; cdat->dstr_99__MKDOC_PATMACROS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_99__MKDOC_PATMACROS.val, "MKDOC_PATMACROS", sizeof (cdat->dstr_99__MKDOC_PATMACROS.val) - 1); cdat->dstr_99__MKDOC_PATMACROS.val[15] = (char) 0; cdat->dstr_99__MKDOC_PATMACROS.slen = 15; /*iniobj dsym_100__MKDOC_FORMALOCCMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V179*/ meltfptr[178]) /*_.VALDATA___V179*/ meltfptr[178] = (melt_ptr_t) & cdat->dsym_100__MKDOC_FORMALOCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_100__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_100__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_100__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_100__MKDOC_FORMALOCCMAP.obj_hash = 863623674; cdat->dsym_100__MKDOC_FORMALOCCMAP.obj_len = 3; /*inistring dstr_101__MKDOC_FORMALOCCM*/ /*_.VALSTR___V180*/ meltfptr[179] = (melt_ptr_t) & cdat->dstr_101__MKDOC_FORMALOCCM; cdat->dstr_101__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_101__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof (cdat->dstr_101__MKDOC_FORMALOCCM. val) - 1); cdat->dstr_101__MKDOC_FORMALOCCM.val[18] = (char) 0; cdat->dstr_101__MKDOC_FORMALOCCM.slen = 18; /*^iniobj */ /*iniobj dobj_102__MKDOC_FORMALOCCMAP*/ /*_.VALDATA___V148*/ meltfptr[147] = (melt_ptr_t) & cdat->dobj_102__MKDOC_FORMALOCCMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_102__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_102__MKDOC_FORMALOCCMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_102__MKDOC_FORMALOCCMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_102__MKDOC_FORMALOCCMAP.obj_num = 11; cdat->dobj_102__MKDOC_FORMALOCCMAP.obj_hash = 1039816967; cdat->dobj_102__MKDOC_FORMALOCCMAP.obj_len = 4; /*inistring dstr_103__MKDOC_FORMALOCCM*/ /*_.VALSTR___V149*/ meltfptr[148] = (melt_ptr_t) & cdat->dstr_103__MKDOC_FORMALOCCM; cdat->dstr_103__MKDOC_FORMALOCCM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_103__MKDOC_FORMALOCCM.val, "MKDOC_FORMALOCCMAP", sizeof (cdat->dstr_103__MKDOC_FORMALOCCM. val) - 1); cdat->dstr_103__MKDOC_FORMALOCCM.val[18] = (char) 0; cdat->dstr_103__MKDOC_FORMALOCCM.slen = 18; /*iniobj dsym_104__MKDOC_PREDEFMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V181*/ meltfptr[180]) /*_.VALDATA___V181*/ meltfptr[180] = (melt_ptr_t) & cdat->dsym_104__MKDOC_PREDEFMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_104__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_104__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_104__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_104__MKDOC_PREDEFMAP.obj_hash = 973470356; cdat->dsym_104__MKDOC_PREDEFMAP.obj_len = 3; /*inistring dstr_105__MKDOC_PREDEFMAP*/ /*_.VALSTR___V182*/ meltfptr[181] = (melt_ptr_t) & cdat->dstr_105__MKDOC_PREDEFMAP; cdat->dstr_105__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_105__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (cdat->dstr_105__MKDOC_PREDEFMAP.val) - 1); cdat->dstr_105__MKDOC_PREDEFMAP.val[15] = (char) 0; cdat->dstr_105__MKDOC_PREDEFMAP.slen = 15; /*^iniobj */ /*iniobj dobj_106__MKDOC_PREDEFMAP*/ /*_.VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) & cdat->dobj_106__MKDOC_PREDEFMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_106__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_106__MKDOC_PREDEFMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_106__MKDOC_PREDEFMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_106__MKDOC_PREDEFMAP.obj_num = 12; cdat->dobj_106__MKDOC_PREDEFMAP.obj_hash = 575173605; cdat->dobj_106__MKDOC_PREDEFMAP.obj_len = 4; /*inistring dstr_107__MKDOC_PREDEFMAP*/ /*_.VALSTR___V151*/ meltfptr[150] = (melt_ptr_t) & cdat->dstr_107__MKDOC_PREDEFMAP; cdat->dstr_107__MKDOC_PREDEFMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_107__MKDOC_PREDEFMAP.val, "MKDOC_PREDEFMAP", sizeof (cdat->dstr_107__MKDOC_PREDEFMAP.val) - 1); cdat->dstr_107__MKDOC_PREDEFMAP.val[15] = (char) 0; cdat->dstr_107__MKDOC_PREDEFMAP.slen = 15; /*iniobj dsym_108__MKDOC_DOCSYMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V183*/ meltfptr[182]) /*_.VALDATA___V183*/ meltfptr[182] = (melt_ptr_t) & cdat->dsym_108__MKDOC_DOCSYMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_108__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_108__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_108__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_108__MKDOC_DOCSYMAP.obj_hash = 1068743696; cdat->dsym_108__MKDOC_DOCSYMAP.obj_len = 3; /*inistring dstr_109__MKDOC_DOCSYMAP*/ /*_.VALSTR___V184*/ meltfptr[183] = (melt_ptr_t) & cdat->dstr_109__MKDOC_DOCSYMAP; cdat->dstr_109__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_109__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (cdat->dstr_109__MKDOC_DOCSYMAP.val) - 1); cdat->dstr_109__MKDOC_DOCSYMAP.val[14] = (char) 0; cdat->dstr_109__MKDOC_DOCSYMAP.slen = 14; /*^iniobj */ /*iniobj dobj_110__MKDOC_DOCSYMAP*/ /*_.VALDATA___V152*/ meltfptr[151] = (melt_ptr_t) & cdat->dobj_110__MKDOC_DOCSYMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_110__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_110__MKDOC_DOCSYMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_110__MKDOC_DOCSYMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_110__MKDOC_DOCSYMAP.obj_num = 13; cdat->dobj_110__MKDOC_DOCSYMAP.obj_hash = 923628934; cdat->dobj_110__MKDOC_DOCSYMAP.obj_len = 4; /*inistring dstr_111__MKDOC_DOCSYMAP*/ /*_.VALSTR___V153*/ meltfptr[152] = (melt_ptr_t) & cdat->dstr_111__MKDOC_DOCSYMAP; cdat->dstr_111__MKDOC_DOCSYMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_111__MKDOC_DOCSYMAP.val, "MKDOC_DOCSYMAP", sizeof (cdat->dstr_111__MKDOC_DOCSYMAP.val) - 1); cdat->dstr_111__MKDOC_DOCSYMAP.val[14] = (char) 0; cdat->dstr_111__MKDOC_DOCSYMAP.slen = 14; /*iniobj dsym_112__MKDOC_SUBCLASSMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V185*/ meltfptr[184]) /*_.VALDATA___V185*/ meltfptr[184] = (melt_ptr_t) & cdat->dsym_112__MKDOC_SUBCLASSMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_112__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_112__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_112__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_112__MKDOC_SUBCLASSMAP.obj_hash = 814093375; cdat->dsym_112__MKDOC_SUBCLASSMAP.obj_len = 3; /*inistring dstr_113__MKDOC_SUBCLASSMA*/ /*_.VALSTR___V186*/ meltfptr[185] = (melt_ptr_t) & cdat->dstr_113__MKDOC_SUBCLASSMA; cdat->dstr_113__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_113__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof (cdat->dstr_113__MKDOC_SUBCLASSMA. val) - 1); cdat->dstr_113__MKDOC_SUBCLASSMA.val[17] = (char) 0; cdat->dstr_113__MKDOC_SUBCLASSMA.slen = 17; /*^iniobj */ /*iniobj dobj_114__MKDOC_SUBCLASSMAP*/ /*_.VALDATA___V154*/ meltfptr[153] = (melt_ptr_t) & cdat->dobj_114__MKDOC_SUBCLASSMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_114__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_114__MKDOC_SUBCLASSMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_114__MKDOC_SUBCLASSMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_114__MKDOC_SUBCLASSMAP.obj_num = 14; cdat->dobj_114__MKDOC_SUBCLASSMAP.obj_hash = 505123259; cdat->dobj_114__MKDOC_SUBCLASSMAP.obj_len = 4; /*inistring dstr_115__MKDOC_SUBCLASSMA*/ /*_.VALSTR___V155*/ meltfptr[154] = (melt_ptr_t) & cdat->dstr_115__MKDOC_SUBCLASSMA; cdat->dstr_115__MKDOC_SUBCLASSMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_115__MKDOC_SUBCLASSMA.val, "MKDOC_SUBCLASSMAP", sizeof (cdat->dstr_115__MKDOC_SUBCLASSMA. val) - 1); cdat->dstr_115__MKDOC_SUBCLASSMA.val[17] = (char) 0; cdat->dstr_115__MKDOC_SUBCLASSMA.slen = 17; /*iniobj dsym_116__MKDOC_BOXCOUNTER*/ /*uniqueobj*/ if (! /*_.VALDATA___V187*/ meltfptr[186]) /*_.VALDATA___V187*/ meltfptr[186] = (melt_ptr_t) & cdat->dsym_116__MKDOC_BOXCOUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_116__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_116__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_116__MKDOC_BOXCOUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_116__MKDOC_BOXCOUNTER.obj_hash = 6048860; cdat->dsym_116__MKDOC_BOXCOUNTER.obj_len = 3; /*inistring dstr_117__MKDOC_BOXCOUNTER*/ /*_.VALSTR___V188*/ meltfptr[187] = (melt_ptr_t) & cdat->dstr_117__MKDOC_BOXCOUNTER; cdat->dstr_117__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_117__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (cdat->dstr_117__MKDOC_BOXCOUNTER. val) - 1); cdat->dstr_117__MKDOC_BOXCOUNTER.val[16] = (char) 0; cdat->dstr_117__MKDOC_BOXCOUNTER.slen = 16; /*^iniobj */ /*iniobj dobj_118__MKDOC_BOXCOUNTER*/ /*_.VALDATA___V156*/ meltfptr[155] = (melt_ptr_t) & cdat->dobj_118__MKDOC_BOXCOUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_118__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_118__MKDOC_BOXCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_118__MKDOC_BOXCOUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_118__MKDOC_BOXCOUNTER.obj_num = 15; cdat->dobj_118__MKDOC_BOXCOUNTER.obj_hash = 692317732; cdat->dobj_118__MKDOC_BOXCOUNTER.obj_len = 4; /*inistring dstr_119__MKDOC_BOXCOUNTER*/ /*_.VALSTR___V157*/ meltfptr[156] = (melt_ptr_t) & cdat->dstr_119__MKDOC_BOXCOUNTER; cdat->dstr_119__MKDOC_BOXCOUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_119__MKDOC_BOXCOUNTER.val, "MKDOC_BOXCOUNTER", sizeof (cdat->dstr_119__MKDOC_BOXCOUNTER. val) - 1); cdat->dstr_119__MKDOC_BOXCOUNTER.val[16] = (char) 0; cdat->dstr_119__MKDOC_BOXCOUNTER.slen = 16; /*inirout drout_120__INCREMENT_MKDOC_COUNTER */ /*_.VALROUT___V189*/ meltfptr[188] = (melt_ptr_t) & cdat->drout_120__INCREMENT_MKDOC_COUNTER; cdat->drout_120__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_120__INCREMENT_MKDOC_COUNTER.routdescr, "INCREMENT_MKDOC_COUNTER @warmelt-modes.melt:237", MELT_ROUTDESCR_LEN - 1); cdat->drout_120__INCREMENT_MKDOC_COUNTER.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_120__INCREMENT_MKDOC_COUNTER, meltrout_5_warmelt_modes_INCREMENT_MKDOC_COUNTER); /*iniclos dclo_121__INCREMENT_MKDOC_COUNTER */ /*_.VALCLO___V190*/ meltfptr[189] = (melt_ptr_t) & cdat->dclo_121__INCREMENT_MKDOC_COUNTER; cdat->dclo_121__INCREMENT_MKDOC_COUNTER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_121__INCREMENT_MKDOC_COUNTER.nbval = 0; /*inirout drout_122__MAKEDOC_SCANINPUT */ /*_.VALROUT___V191*/ meltfptr[190] = (melt_ptr_t) & cdat->drout_122__MAKEDOC_SCANINPUT; cdat->drout_122__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_122__MAKEDOC_SCANINPUT.routdescr, "MAKEDOC_SCANINPUT @warmelt-modes.melt:247", MELT_ROUTDESCR_LEN - 1); cdat->drout_122__MAKEDOC_SCANINPUT.nbval = 32; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_122__MAKEDOC_SCANINPUT, meltrout_6_warmelt_modes_MAKEDOC_SCANINPUT); /*iniclos dclo_123__MAKEDOC_SCANINPUT */ /*_.VALCLO___V196*/ meltfptr[195] = (melt_ptr_t) & cdat->dclo_123__MAKEDOC_SCANINPUT; cdat->dclo_123__MAKEDOC_SCANINPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_123__MAKEDOC_SCANINPUT.nbval = 0; /*inirout drout_124__LAMBDA_ */ /*_.VALROUT___V192*/ meltfptr[191] = (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:254", MELT_ROUTDESCR_LEN - 1); cdat->drout_124__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_124__LAMBDA_, meltrout_7_warmelt_modes_LAMBDA___1__); /*iniobj dsym_125__CLASS_SYMBOL*/ /*uniqueobj*/ if (! /*_.VALDATA___V197*/ meltfptr[196]) /*_.VALDATA___V197*/ meltfptr[196] = (melt_ptr_t) & cdat->dsym_125__CLASS_SYMBOL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_125__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_125__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_125__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_125__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_125__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_126__CLASS_SYMBOL*/ /*_.VALSTR___V198*/ meltfptr[197] = (melt_ptr_t) & cdat->dstr_126__CLASS_SYMBOL; cdat->dstr_126__CLASS_SYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_126__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_126__CLASS_SYMBOL.val) - 1); cdat->dstr_126__CLASS_SYMBOL.val[12] = (char) 0; cdat->dstr_126__CLASS_SYMBOL.slen = 12; /*inirout drout_127__LAMBDA_ */ /*_.VALROUT___V193*/ meltfptr[192] = (melt_ptr_t) & cdat->drout_127__LAMBDA_; cdat->drout_127__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_127__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:267", MELT_ROUTDESCR_LEN - 1); cdat->drout_127__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_127__LAMBDA_, meltrout_8_warmelt_modes_LAMBDA___2__); /*inirout drout_128__LAMBDA_ */ /*_.VALROUT___V194*/ meltfptr[193] = (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:277", MELT_ROUTDESCR_LEN - 1); cdat->drout_128__LAMBDA_.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_128__LAMBDA_, meltrout_9_warmelt_modes_LAMBDA___3__); /*iniobj dsym_129__CLASS_FORMAL_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V199*/ meltfptr[198]) /*_.VALDATA___V199*/ meltfptr[198] = (melt_ptr_t) & cdat->dsym_129__CLASS_FORMAL_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_129__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_129__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_129__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_129__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_129__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_130__CLASS_FORMAL_BIN*/ /*_.VALSTR___V200*/ meltfptr[199] = (melt_ptr_t) & cdat->dstr_130__CLASS_FORMAL_BIN; cdat->dstr_130__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_130__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_130__CLASS_FORMAL_BIN. val) - 1); cdat->dstr_130__CLASS_FORMAL_BIN.val[20] = (char) 0; cdat->dstr_130__CLASS_FORMAL_BIN.slen = 20; /*iniobj dsym_131__CLASS_SOURCE_DEFINITION*/ /*uniqueobj*/ if (! /*_.VALDATA___V201*/ meltfptr[200]) /*_.VALDATA___V201*/ meltfptr[200] = (melt_ptr_t) & cdat->dsym_131__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_131__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_131__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_131__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_131__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; cdat->dsym_131__CLASS_SOURCE_DEFINITION.obj_len = 3; /*inistring dstr_132__CLASS_SOURCE_DEF*/ /*_.VALSTR___V202*/ meltfptr[201] = (melt_ptr_t) & cdat->dstr_132__CLASS_SOURCE_DEF; cdat->dstr_132__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_132__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_132__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_132__CLASS_SOURCE_DEF.val[23] = (char) 0; cdat->dstr_132__CLASS_SOURCE_DEF.slen = 23; /*iniobj dsym_133__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V203*/ meltfptr[202]) /*_.VALDATA___V203*/ meltfptr[202] = (melt_ptr_t) & cdat->dsym_133__CLASS_ANY_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_133__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_133__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_133__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_133__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_133__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_134__CLASS_ANY_BINDIN*/ /*_.VALSTR___V204*/ meltfptr[203] = (melt_ptr_t) & cdat->dstr_134__CLASS_ANY_BINDIN; cdat->dstr_134__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_134__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_134__CLASS_ANY_BINDIN. val) - 1); cdat->dstr_134__CLASS_ANY_BINDIN.val[17] = (char) 0; cdat->dstr_134__CLASS_ANY_BINDIN.slen = 17; /*iniobj dsym_135__DISCR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V205*/ meltfptr[204]) /*_.VALDATA___V205*/ meltfptr[204] = (melt_ptr_t) & cdat->dsym_135__DISCR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_135__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_135__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_135__DISCR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_135__DISCR_LIST.obj_hash = 98407634; cdat->dsym_135__DISCR_LIST.obj_len = 3; /*inistring dstr_136__DISCR_LIST*/ /*_.VALSTR___V206*/ meltfptr[205] = (melt_ptr_t) & cdat->dstr_136__DISCR_LIST; cdat->dstr_136__DISCR_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_136__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_136__DISCR_LIST.val) - 1); cdat->dstr_136__DISCR_LIST.val[10] = (char) 0; cdat->dstr_136__DISCR_LIST.slen = 10; /*iniobj dsym_137__LIST_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V207*/ meltfptr[206]) /*_.VALDATA___V207*/ meltfptr[206] = (melt_ptr_t) & cdat->dsym_137__LIST_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_137__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_137__LIST_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_137__LIST_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_137__LIST_EVERY.obj_hash = 942863429; cdat->dsym_137__LIST_EVERY.obj_len = 3; /*inistring dstr_138__LIST_EVERY*/ /*_.VALSTR___V208*/ meltfptr[207] = (melt_ptr_t) & cdat->dstr_138__LIST_EVERY; cdat->dstr_138__LIST_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_138__LIST_EVERY.val, "LIST_EVERY", sizeof (cdat->dstr_138__LIST_EVERY.val) - 1); cdat->dstr_138__LIST_EVERY.val[10] = (char) 0; cdat->dstr_138__LIST_EVERY.slen = 10; /*inirout drout_139__LAMBDA_ */ /*_.VALROUT___V195*/ meltfptr[194] = (melt_ptr_t) & cdat->drout_139__LAMBDA_; cdat->drout_139__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_139__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:299", MELT_ROUTDESCR_LEN - 1); cdat->drout_139__LAMBDA_.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_139__LAMBDA_, meltrout_10_warmelt_modes_LAMBDA___4__); /*iniobj dsym_140__CLASS_SOURCE_DEFCLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V209*/ meltfptr[208]) /*_.VALDATA___V209*/ meltfptr[208] = (melt_ptr_t) & cdat->dsym_140__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_140__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_140__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_140__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_140__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; cdat->dsym_140__CLASS_SOURCE_DEFCLASS.obj_len = 3; /*inistring dstr_141__CLASS_SOURCE_DEF*/ /*_.VALSTR___V210*/ meltfptr[209] = (melt_ptr_t) & cdat->dstr_141__CLASS_SOURCE_DEF; cdat->dstr_141__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_141__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_141__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_141__CLASS_SOURCE_DEF.val[21] = (char) 0; cdat->dstr_141__CLASS_SOURCE_DEF.slen = 21; /*iniobj dsym_142__CLASS_SEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V211*/ meltfptr[210]) /*_.VALDATA___V211*/ meltfptr[210] = (melt_ptr_t) & cdat->dsym_142__CLASS_SEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_142__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_142__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_142__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_142__CLASS_SEXPR.obj_hash = 53411612; cdat->dsym_142__CLASS_SEXPR.obj_len = 3; /*inistring dstr_143__CLASS_SEXPR*/ /*_.VALSTR___V212*/ meltfptr[211] = (melt_ptr_t) & cdat->dstr_143__CLASS_SEXPR; cdat->dstr_143__CLASS_SEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_143__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (cdat->dstr_143__CLASS_SEXPR.val) - 1); cdat->dstr_143__CLASS_SEXPR.val[11] = (char) 0; cdat->dstr_143__CLASS_SEXPR.slen = 11; /*iniobj dsym_144__CLASS_CLASS_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V213*/ meltfptr[212]) /*_.VALDATA___V213*/ meltfptr[212] = (melt_ptr_t) & cdat->dsym_144__CLASS_CLASS_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_144__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_144__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_144__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_144__CLASS_CLASS_BINDING.obj_hash = 848133131; cdat->dsym_144__CLASS_CLASS_BINDING.obj_len = 3; /*inistring dstr_145__CLASS_CLASS_BIND*/ /*_.VALSTR___V214*/ meltfptr[213] = (melt_ptr_t) & cdat->dstr_145__CLASS_CLASS_BIND; cdat->dstr_145__CLASS_CLASS_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_145__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof (cdat->dstr_145__CLASS_CLASS_BIND. val) - 1); cdat->dstr_145__CLASS_CLASS_BIND.val[19] = (char) 0; cdat->dstr_145__CLASS_CLASS_BIND.slen = 19; /*iniobj dsym_146__CLASS_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V215*/ meltfptr[214]) /*_.VALDATA___V215*/ meltfptr[214] = (melt_ptr_t) & cdat->dsym_146__CLASS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_146__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_146__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_146__CLASS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_146__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_146__CLASS_CLASS.obj_len = 3; /*inistring dstr_147__CLASS_CLASS*/ /*_.VALSTR___V216*/ meltfptr[215] = (melt_ptr_t) & cdat->dstr_147__CLASS_CLASS; cdat->dstr_147__CLASS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_147__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_147__CLASS_CLASS.val) - 1); cdat->dstr_147__CLASS_CLASS.val[11] = (char) 0; cdat->dstr_147__CLASS_CLASS.slen = 11; /*iniobj dsym_148__CLASS_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (melt_ptr_t) & cdat->dsym_148__CLASS_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_148__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_148__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_148__CLASS_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_148__CLASS_FIELD.obj_hash = 523073; cdat->dsym_148__CLASS_FIELD.obj_len = 3; /*inistring dstr_149__CLASS_FIELD*/ /*_.VALSTR___V218*/ meltfptr[217] = (melt_ptr_t) & cdat->dstr_149__CLASS_FIELD; cdat->dstr_149__CLASS_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_149__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_149__CLASS_FIELD.val) - 1); cdat->dstr_149__CLASS_FIELD.val[11] = (char) 0; cdat->dstr_149__CLASS_FIELD.slen = 11; /*iniobj dsym_150__CLASS_SOURCE_DEFSELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V219*/ meltfptr[218]) /*_.VALDATA___V219*/ meltfptr[218] = (melt_ptr_t) & cdat->dsym_150__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_150__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_150__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_150__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_150__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; cdat->dsym_150__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; /*inistring dstr_151__CLASS_SOURCE_DEF*/ /*_.VALSTR___V220*/ meltfptr[219] = (melt_ptr_t) & cdat->dstr_151__CLASS_SOURCE_DEF; cdat->dstr_151__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_151__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_151__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_151__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_151__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_152__CLASS_SOURCE_DEFINSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V221*/ meltfptr[220]) /*_.VALDATA___V221*/ meltfptr[220] = (melt_ptr_t) & cdat->dsym_152__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_152__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_152__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_152__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_152__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; cdat->dsym_152__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; /*inistring dstr_153__CLASS_SOURCE_DEF*/ /*_.VALSTR___V222*/ meltfptr[221] = (melt_ptr_t) & cdat->dstr_153__CLASS_SOURCE_DEF; cdat->dstr_153__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_153__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_153__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_153__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_153__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_154__CLASS_SOURCE_DEFPRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V223*/ meltfptr[222]) /*_.VALDATA___V223*/ meltfptr[222] = (melt_ptr_t) & cdat->dsym_154__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_154__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_154__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_154__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_154__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; cdat->dsym_154__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_155__CLASS_SOURCE_DEF*/ /*_.VALSTR___V224*/ meltfptr[223] = (melt_ptr_t) & cdat->dstr_155__CLASS_SOURCE_DEF; cdat->dstr_155__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_155__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_155__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_155__CLASS_SOURCE_DEF.val[25] = (char) 0; cdat->dstr_155__CLASS_SOURCE_DEF.slen = 25; /*iniobj dsym_156__CLASS_SOURCE_DEFUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V225*/ meltfptr[224]) /*_.VALDATA___V225*/ meltfptr[224] = (melt_ptr_t) & cdat->dsym_156__CLASS_SOURCE_DEFUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_156__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_156__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_156__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_156__CLASS_SOURCE_DEFUN.obj_hash = 872711296; cdat->dsym_156__CLASS_SOURCE_DEFUN.obj_len = 3; /*inistring dstr_157__CLASS_SOURCE_DEF*/ /*_.VALSTR___V226*/ meltfptr[225] = (melt_ptr_t) & cdat->dstr_157__CLASS_SOURCE_DEF; cdat->dstr_157__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_157__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_157__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_157__CLASS_SOURCE_DEF.val[18] = (char) 0; cdat->dstr_157__CLASS_SOURCE_DEF.slen = 18; /*iniobj dsym_158__CLASS_SOURCE_DEFCITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V227*/ meltfptr[226]) /*_.VALDATA___V227*/ meltfptr[226] = (melt_ptr_t) & cdat->dsym_158__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_158__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_158__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_158__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_158__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; cdat->dsym_158__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; /*inistring dstr_159__CLASS_SOURCE_DEF*/ /*_.VALSTR___V228*/ meltfptr[227] = (melt_ptr_t) & cdat->dstr_159__CLASS_SOURCE_DEF; cdat->dstr_159__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_159__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_159__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_159__CLASS_SOURCE_DEF.val[25] = (char) 0; cdat->dstr_159__CLASS_SOURCE_DEF.slen = 25; /*iniobj dsym_160__CLASS_SOURCE_DEFCMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V229*/ meltfptr[228]) /*_.VALDATA___V229*/ meltfptr[228] = (melt_ptr_t) & cdat->dsym_160__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_160__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_160__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_160__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_160__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; cdat->dsym_160__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_161__CLASS_SOURCE_DEF*/ /*_.VALSTR___V230*/ meltfptr[229] = (melt_ptr_t) & cdat->dstr_161__CLASS_SOURCE_DEF; cdat->dstr_161__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_161__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_161__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_161__CLASS_SOURCE_DEF.val[24] = (char) 0; cdat->dstr_161__CLASS_SOURCE_DEF.slen = 24; /*iniobj dsym_162__CLASS_SOURCE_EXPORT_PATMACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (melt_ptr_t) & cdat->dsym_162__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_162__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_162__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_162__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_162__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; cdat->dsym_162__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_163__CLASS_SOURCE_EXP*/ /*_.VALSTR___V232*/ meltfptr[231] = (melt_ptr_t) & cdat->dstr_163__CLASS_SOURCE_EXP; cdat->dstr_163__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_163__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_163__CLASS_SOURCE_EXP. val) - 1); cdat->dstr_163__CLASS_SOURCE_EXP.val[28] = (char) 0; cdat->dstr_163__CLASS_SOURCE_EXP.slen = 28; /*iniobj dsym_164__CLASS_SOURCE_EXPORT_MACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V233*/ meltfptr[232]) /*_.VALDATA___V233*/ meltfptr[232] = (melt_ptr_t) & cdat->dsym_164__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_164__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_164__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_164__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_164__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; cdat->dsym_164__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; /*inistring dstr_165__CLASS_SOURCE_EXP*/ /*_.VALSTR___V234*/ meltfptr[233] = (melt_ptr_t) & cdat->dstr_165__CLASS_SOURCE_EXP; cdat->dstr_165__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_165__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_165__CLASS_SOURCE_EXP. val) - 1); cdat->dstr_165__CLASS_SOURCE_EXP.val[25] = (char) 0; cdat->dstr_165__CLASS_SOURCE_EXP.slen = 25; /*inirout drout_166__MAKEDOC_OUTDEFLOC */ /*_.VALROUT___V235*/ meltfptr[234] = (melt_ptr_t) & cdat->drout_166__MAKEDOC_OUTDEFLOC; cdat->drout_166__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_166__MAKEDOC_OUTDEFLOC.routdescr, "MAKEDOC_OUTDEFLOC @warmelt-modes.melt:499", MELT_ROUTDESCR_LEN - 1); cdat->drout_166__MAKEDOC_OUTDEFLOC.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_166__MAKEDOC_OUTDEFLOC, meltrout_11_warmelt_modes_MAKEDOC_OUTDEFLOC); /*iniclos dclo_167__MAKEDOC_OUTDEFLOC */ /*_.VALCLO___V236*/ meltfptr[235] = (melt_ptr_t) & cdat->dclo_167__MAKEDOC_OUTDEFLOC; cdat->dclo_167__MAKEDOC_OUTDEFLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_167__MAKEDOC_OUTDEFLOC.nbval = 0; /*iniobj dsym_168__CLASS_LOCATED*/ /*uniqueobj*/ if (! /*_.VALDATA___V237*/ meltfptr[236]) /*_.VALDATA___V237*/ meltfptr[236] = (melt_ptr_t) & cdat->dsym_168__CLASS_LOCATED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_168__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_168__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_168__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_168__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_168__CLASS_LOCATED.obj_len = 3; /*inistring dstr_169__CLASS_LOCATED*/ /*_.VALSTR___V238*/ meltfptr[237] = (melt_ptr_t) & cdat->dstr_169__CLASS_LOCATED; cdat->dstr_169__CLASS_LOCATED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_169__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_169__CLASS_LOCATED.val) - 1); cdat->dstr_169__CLASS_LOCATED.val[13] = (char) 0; cdat->dstr_169__CLASS_LOCATED.slen = 13; /*inirout drout_170__MAKEDOC_OUTFORMALS */ /*_.VALROUT___V239*/ meltfptr[238] = (melt_ptr_t) & cdat->drout_170__MAKEDOC_OUTFORMALS; cdat->drout_170__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_170__MAKEDOC_OUTFORMALS.routdescr, "MAKEDOC_OUTFORMALS @warmelt-modes.melt:513", MELT_ROUTDESCR_LEN - 1); cdat->drout_170__MAKEDOC_OUTFORMALS.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_170__MAKEDOC_OUTFORMALS, meltrout_12_warmelt_modes_MAKEDOC_OUTFORMALS); /*iniclos dclo_171__MAKEDOC_OUTFORMALS */ /*_.VALCLO___V240*/ meltfptr[239] = (melt_ptr_t) & cdat->dclo_171__MAKEDOC_OUTFORMALS; cdat->dclo_171__MAKEDOC_OUTFORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_171__MAKEDOC_OUTFORMALS.nbval = 0; /*iniobj dsym_172__CLASS_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V241*/ meltfptr[240]) /*_.VALDATA___V241*/ meltfptr[240] = (melt_ptr_t) & cdat->dsym_172__CLASS_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_172__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_172__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_172__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_172__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_172__CLASS_CTYPE.obj_len = 3; /*inistring dstr_173__CLASS_CTYPE*/ /*_.VALSTR___V242*/ meltfptr[241] = (melt_ptr_t) & cdat->dstr_173__CLASS_CTYPE; cdat->dstr_173__CLASS_CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_173__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_173__CLASS_CTYPE.val) - 1); cdat->dstr_173__CLASS_CTYPE.val[11] = (char) 0; cdat->dstr_173__CLASS_CTYPE.slen = 11; /*inirout drout_174__MAKEDOC_OUTDOC */ /*_.VALROUT___V243*/ meltfptr[242] = (melt_ptr_t) & cdat->drout_174__MAKEDOC_OUTDOC; cdat->drout_174__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_174__MAKEDOC_OUTDOC.routdescr, "MAKEDOC_OUTDOC @warmelt-modes.melt:553", MELT_ROUTDESCR_LEN - 1); cdat->drout_174__MAKEDOC_OUTDOC.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_174__MAKEDOC_OUTDOC, meltrout_13_warmelt_modes_MAKEDOC_OUTDOC); /*iniclos dclo_175__MAKEDOC_OUTDOC */ /*_.VALCLO___V244*/ meltfptr[243] = (melt_ptr_t) & cdat->dclo_175__MAKEDOC_OUTDOC; cdat->dclo_175__MAKEDOC_OUTDOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_175__MAKEDOC_OUTDOC.nbval = 0; /*inirout drout_176__MAKEDOC_OUTCLASSDEF */ /*_.VALROUT___V245*/ meltfptr[244] = (melt_ptr_t) & cdat->drout_176__MAKEDOC_OUTCLASSDEF; cdat->drout_176__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_176__MAKEDOC_OUTCLASSDEF.routdescr, "MAKEDOC_OUTCLASSDEF @warmelt-modes.melt:589", MELT_ROUTDESCR_LEN - 1); cdat->drout_176__MAKEDOC_OUTCLASSDEF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_176__MAKEDOC_OUTCLASSDEF, meltrout_14_warmelt_modes_MAKEDOC_OUTCLASSDEF); /*iniclos dclo_177__MAKEDOC_OUTCLASSDEF */ /*_.VALCLO___V246*/ meltfptr[245] = (melt_ptr_t) & cdat->dclo_177__MAKEDOC_OUTCLASSDEF; cdat->dclo_177__MAKEDOC_OUTCLASSDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_177__MAKEDOC_OUTCLASSDEF.nbval = 0; /*iniobj dsym_178__LIST_TO_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V247*/ meltfptr[246]) /*_.VALDATA___V247*/ meltfptr[246] = (melt_ptr_t) & cdat->dsym_178__LIST_TO_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_178__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_178__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_178__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_178__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_178__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_179__LIST_TO_MULTIPLE*/ /*_.VALSTR___V248*/ meltfptr[247] = (melt_ptr_t) & cdat->dstr_179__LIST_TO_MULTIPLE; cdat->dstr_179__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_179__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_179__LIST_TO_MULTIPLE. val) - 1); cdat->dstr_179__LIST_TO_MULTIPLE.val[16] = (char) 0; cdat->dstr_179__LIST_TO_MULTIPLE.slen = 16; /*iniobj dsym_180__DISCR_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V249*/ meltfptr[248]) /*_.VALDATA___V249*/ meltfptr[248] = (melt_ptr_t) & cdat->dsym_180__DISCR_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_180__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_180__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_180__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_180__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_180__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_181__DISCR_MULTIPLE*/ /*_.VALSTR___V250*/ meltfptr[249] = (melt_ptr_t) & cdat->dstr_181__DISCR_MULTIPLE; cdat->dstr_181__DISCR_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_181__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_181__DISCR_MULTIPLE.val) - 1); cdat->dstr_181__DISCR_MULTIPLE.val[14] = (char) 0; cdat->dstr_181__DISCR_MULTIPLE.slen = 14; /*iniobj dsym_182__COMPARE_NAMED_ALPHA*/ /*uniqueobj*/ if (! /*_.VALDATA___V251*/ meltfptr[250]) /*_.VALDATA___V251*/ meltfptr[250] = (melt_ptr_t) & cdat->dsym_182__COMPARE_NAMED_ALPHA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_182__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_182__COMPARE_NAMED_ALPHA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_182__COMPARE_NAMED_ALPHA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_182__COMPARE_NAMED_ALPHA.obj_hash = 155514911; cdat->dsym_182__COMPARE_NAMED_ALPHA.obj_len = 3; /*inistring dstr_183__COMPARE_NAMED_AL*/ /*_.VALSTR___V252*/ meltfptr[251] = (melt_ptr_t) & cdat->dstr_183__COMPARE_NAMED_AL; cdat->dstr_183__COMPARE_NAMED_AL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_183__COMPARE_NAMED_AL.val, "COMPARE_NAMED_ALPHA", sizeof (cdat->dstr_183__COMPARE_NAMED_AL. val) - 1); cdat->dstr_183__COMPARE_NAMED_AL.val[19] = (char) 0; cdat->dstr_183__COMPARE_NAMED_AL.slen = 19; /*inirout drout_184__MAKEDOC_GENMACRO */ /*_.VALROUT___V253*/ meltfptr[252] = (melt_ptr_t) & cdat->drout_184__MAKEDOC_GENMACRO; cdat->drout_184__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_184__MAKEDOC_GENMACRO.routdescr, "MAKEDOC_GENMACRO @warmelt-modes.melt:715", MELT_ROUTDESCR_LEN - 1); cdat->drout_184__MAKEDOC_GENMACRO.nbval = 12; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_184__MAKEDOC_GENMACRO, meltrout_15_warmelt_modes_MAKEDOC_GENMACRO); /*iniclos dclo_185__MAKEDOC_GENMACRO */ /*_.VALCLO___V255*/ meltfptr[254] = (melt_ptr_t) & cdat->dclo_185__MAKEDOC_GENMACRO; cdat->dclo_185__MAKEDOC_GENMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_185__MAKEDOC_GENMACRO.nbval = 0; /*inirout drout_186__LAMBDA_ */ /*_.VALROUT___V254*/ meltfptr[253] = (melt_ptr_t) & cdat->drout_186__LAMBDA_; cdat->drout_186__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_186__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:727", MELT_ROUTDESCR_LEN - 1); cdat->drout_186__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_186__LAMBDA_, meltrout_16_warmelt_modes_LAMBDA___5__); /*inirout drout_187__MAKEDOC_GENPATMACRO */ /*_.VALROUT___V256*/ meltfptr[255] = (melt_ptr_t) & cdat->drout_187__MAKEDOC_GENPATMACRO; cdat->drout_187__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_187__MAKEDOC_GENPATMACRO.routdescr, "MAKEDOC_GENPATMACRO @warmelt-modes.melt:778", MELT_ROUTDESCR_LEN - 1); cdat->drout_187__MAKEDOC_GENPATMACRO.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_187__MAKEDOC_GENPATMACRO, meltrout_17_warmelt_modes_MAKEDOC_GENPATMACRO); /*iniclos dclo_188__MAKEDOC_GENPATMACRO */ /*_.VALCLO___V258*/ meltfptr[257] = (melt_ptr_t) & cdat->dclo_188__MAKEDOC_GENPATMACRO; cdat->dclo_188__MAKEDOC_GENPATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_188__MAKEDOC_GENPATMACRO.nbval = 0; /*inirout drout_189__LAMBDA_ */ /*_.VALROUT___V257*/ meltfptr[256] = (melt_ptr_t) & cdat->drout_189__LAMBDA_; cdat->drout_189__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_189__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:796", MELT_ROUTDESCR_LEN - 1); cdat->drout_189__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_189__LAMBDA_, meltrout_18_warmelt_modes_LAMBDA___6__); /*inirout drout_190__MAKEDOC_GENCLASS */ /*_.VALROUT___V259*/ meltfptr[258] = (melt_ptr_t) & cdat->drout_190__MAKEDOC_GENCLASS; cdat->drout_190__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_190__MAKEDOC_GENCLASS.routdescr, "MAKEDOC_GENCLASS @warmelt-modes.melt:846", MELT_ROUTDESCR_LEN - 1); cdat->drout_190__MAKEDOC_GENCLASS.nbval = 21; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_190__MAKEDOC_GENCLASS, meltrout_19_warmelt_modes_MAKEDOC_GENCLASS); /*iniclos dclo_191__MAKEDOC_GENCLASS */ /*_.VALCLO___V267*/ meltfptr[266] = (melt_ptr_t) & cdat->dclo_191__MAKEDOC_GENCLASS; cdat->dclo_191__MAKEDOC_GENCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_191__MAKEDOC_GENCLASS.nbval = 0; /*iniboxint dint_192__ */ /*_.VALBXINT___V260*/ meltfptr[259] = (melt_ptr_t) & cdat->dint_192__; cdat->dint_192__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_192__.val = 1; /*iniboxint dint_193__ */ /*_.VALBXINT___V261*/ meltfptr[260] = (melt_ptr_t) & cdat->dint_193__; cdat->dint_193__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_193__.val = 0; /*iniboxint dint_194__ */ /*_.VALBXINT___V262*/ meltfptr[261] = (melt_ptr_t) & cdat->dint_194__; cdat->dint_194__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_194__.val = -1; /*inirout drout_195__LAMBDA_ */ /*_.VALROUT___V263*/ meltfptr[262] = (melt_ptr_t) & cdat->drout_195__LAMBDA_; cdat->drout_195__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_195__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:862", MELT_ROUTDESCR_LEN - 1); cdat->drout_195__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_195__LAMBDA_, meltrout_20_warmelt_modes_LAMBDA___7__); /*inirout drout_196__LAMBDA_ */ /*_.VALROUT___V264*/ meltfptr[263] = (melt_ptr_t) & cdat->drout_196__LAMBDA_; cdat->drout_196__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_196__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:867", MELT_ROUTDESCR_LEN - 1); cdat->drout_196__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_196__LAMBDA_, meltrout_21_warmelt_modes_LAMBDA___8__); /*inirout drout_197__LAMBDA_ */ /*_.VALROUT___V265*/ meltfptr[264] = (melt_ptr_t) & cdat->drout_197__LAMBDA_; cdat->drout_197__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_197__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:897", MELT_ROUTDESCR_LEN - 1); cdat->drout_197__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_197__LAMBDA_, meltrout_22_warmelt_modes_LAMBDA___9__); /*inirout drout_198__LAMBDA_ */ /*_.VALROUT___V266*/ meltfptr[265] = (melt_ptr_t) & cdat->drout_198__LAMBDA_; cdat->drout_198__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_198__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:920", MELT_ROUTDESCR_LEN - 1); cdat->drout_198__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_198__LAMBDA_, meltrout_23_warmelt_modes_LAMBDA___10__); /*inirout drout_199__MAKEDOC_OUTPRIMITIVEDEF */ /*_.VALROUT___V268*/ meltfptr[267] = (melt_ptr_t) & cdat->drout_199__MAKEDOC_OUTPRIMITIVEDEF; cdat->drout_199__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_199__MAKEDOC_OUTPRIMITIVEDEF.routdescr, "MAKEDOC_OUTPRIMITIVEDEF @warmelt-modes.melt:973", MELT_ROUTDESCR_LEN - 1); cdat->drout_199__MAKEDOC_OUTPRIMITIVEDEF.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_199__MAKEDOC_OUTPRIMITIVEDEF, meltrout_24_warmelt_modes_MAKEDOC_OUTPRIMITIVEDEF); /*iniclos dclo_200__MAKEDOC_OUTPRIMITIVEDEF */ /*_.VALCLO___V269*/ meltfptr[268] = (melt_ptr_t) & cdat->dclo_200__MAKEDOC_OUTPRIMITIVEDEF; cdat->dclo_200__MAKEDOC_OUTPRIMITIVEDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_200__MAKEDOC_OUTPRIMITIVEDEF.nbval = 0; /*iniobj dsym_201__CLASS_SOURCE_DEFINITION_FORMAL*/ /*uniqueobj*/ if (! /*_.VALDATA___V270*/ meltfptr[269]) /*_.VALDATA___V270*/ meltfptr[269] = (melt_ptr_t) & cdat->dsym_201__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_201__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_201__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_201__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_201__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; cdat->dsym_201__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; /*inistring dstr_202__CLASS_SOURCE_DEF*/ /*_.VALSTR___V271*/ meltfptr[270] = (melt_ptr_t) & cdat->dstr_202__CLASS_SOURCE_DEF; cdat->dstr_202__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_202__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_202__CLASS_SOURCE_DEF. val) - 1); cdat->dstr_202__CLASS_SOURCE_DEF.val[30] = (char) 0; cdat->dstr_202__CLASS_SOURCE_DEF.slen = 30; /*inirout drout_203__MAKEDOC_GENPRIMITIVE */ /*_.VALROUT___V272*/ meltfptr[271] = (melt_ptr_t) & cdat->drout_203__MAKEDOC_GENPRIMITIVE; cdat->drout_203__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_203__MAKEDOC_GENPRIMITIVE.routdescr, "MAKEDOC_GENPRIMITIVE @warmelt-modes.melt:1004", MELT_ROUTDESCR_LEN - 1); cdat->drout_203__MAKEDOC_GENPRIMITIVE.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_203__MAKEDOC_GENPRIMITIVE, meltrout_25_warmelt_modes_MAKEDOC_GENPRIMITIVE); /*iniclos dclo_204__MAKEDOC_GENPRIMITIVE */ /*_.VALCLO___V274*/ meltfptr[273] = (melt_ptr_t) & cdat->dclo_204__MAKEDOC_GENPRIMITIVE; cdat->dclo_204__MAKEDOC_GENPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_204__MAKEDOC_GENPRIMITIVE.nbval = 0; /*inirout drout_205__LAMBDA_ */ /*_.VALROUT___V273*/ meltfptr[272] = (melt_ptr_t) & cdat->drout_205__LAMBDA_; cdat->drout_205__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_205__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1023", MELT_ROUTDESCR_LEN - 1); cdat->drout_205__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_205__LAMBDA_, meltrout_26_warmelt_modes_LAMBDA___11__); /*inirout drout_206__MAKEDOC_OUTFUNCTIONDEF */ /*_.VALROUT___V275*/ meltfptr[274] = (melt_ptr_t) & cdat->drout_206__MAKEDOC_OUTFUNCTIONDEF; cdat->drout_206__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_206__MAKEDOC_OUTFUNCTIONDEF.routdescr, "MAKEDOC_OUTFUNCTIONDEF @warmelt-modes.melt:1048", MELT_ROUTDESCR_LEN - 1); cdat->drout_206__MAKEDOC_OUTFUNCTIONDEF.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_206__MAKEDOC_OUTFUNCTIONDEF, meltrout_27_warmelt_modes_MAKEDOC_OUTFUNCTIONDEF); /*iniclos dclo_207__MAKEDOC_OUTFUNCTIONDEF */ /*_.VALCLO___V276*/ meltfptr[275] = (melt_ptr_t) & cdat->dclo_207__MAKEDOC_OUTFUNCTIONDEF; cdat->dclo_207__MAKEDOC_OUTFUNCTIONDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_207__MAKEDOC_OUTFUNCTIONDEF.nbval = 0; /*inirout drout_208__MAKEDOC_GENFUNCTION */ /*_.VALROUT___V277*/ meltfptr[276] = (melt_ptr_t) & cdat->drout_208__MAKEDOC_GENFUNCTION; cdat->drout_208__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_208__MAKEDOC_GENFUNCTION.routdescr, "MAKEDOC_GENFUNCTION @warmelt-modes.melt:1074", MELT_ROUTDESCR_LEN - 1); cdat->drout_208__MAKEDOC_GENFUNCTION.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_208__MAKEDOC_GENFUNCTION, meltrout_28_warmelt_modes_MAKEDOC_GENFUNCTION); /*iniclos dclo_209__MAKEDOC_GENFUNCTION */ /*_.VALCLO___V279*/ meltfptr[278] = (melt_ptr_t) & cdat->dclo_209__MAKEDOC_GENFUNCTION; cdat->dclo_209__MAKEDOC_GENFUNCTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_209__MAKEDOC_GENFUNCTION.nbval = 0; /*inirout drout_210__LAMBDA_ */ /*_.VALROUT___V278*/ meltfptr[277] = (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:1086", MELT_ROUTDESCR_LEN - 1); cdat->drout_210__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_210__LAMBDA_, meltrout_29_warmelt_modes_LAMBDA___12__); /*inirout drout_211__MAKEDOC_GENCITERATOR */ /*_.VALROUT___V280*/ meltfptr[279] = (melt_ptr_t) & cdat->drout_211__MAKEDOC_GENCITERATOR; cdat->drout_211__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_211__MAKEDOC_GENCITERATOR.routdescr, "MAKEDOC_GENCITERATOR @warmelt-modes.melt:1109", MELT_ROUTDESCR_LEN - 1); cdat->drout_211__MAKEDOC_GENCITERATOR.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_211__MAKEDOC_GENCITERATOR, meltrout_30_warmelt_modes_MAKEDOC_GENCITERATOR); /*iniclos dclo_212__MAKEDOC_GENCITERATOR */ /*_.VALCLO___V282*/ meltfptr[281] = (melt_ptr_t) & cdat->dclo_212__MAKEDOC_GENCITERATOR; cdat->dclo_212__MAKEDOC_GENCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_212__MAKEDOC_GENCITERATOR.nbval = 0; /*inirout drout_213__LAMBDA_ */ /*_.VALROUT___V281*/ meltfptr[280] = (melt_ptr_t) & cdat->drout_213__LAMBDA_; cdat->drout_213__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_213__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1122", MELT_ROUTDESCR_LEN - 1); cdat->drout_213__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_213__LAMBDA_, meltrout_31_warmelt_modes_LAMBDA___13__); /*iniobj dsym_214__CLASS_CITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V283*/ meltfptr[282]) /*_.VALDATA___V283*/ meltfptr[282] = (melt_ptr_t) & cdat->dsym_214__CLASS_CITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_214__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_214__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_214__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_214__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_214__CLASS_CITERATOR.obj_len = 3; /*inistring dstr_215__CLASS_CITERATOR*/ /*_.VALSTR___V284*/ meltfptr[283] = (melt_ptr_t) & cdat->dstr_215__CLASS_CITERATOR; cdat->dstr_215__CLASS_CITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_215__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (cdat->dstr_215__CLASS_CITERATOR.val) - 1); cdat->dstr_215__CLASS_CITERATOR.val[15] = (char) 0; cdat->dstr_215__CLASS_CITERATOR.slen = 15; /*inirout drout_216__MAKEDOC_GENCMATCHER */ /*_.VALROUT___V285*/ meltfptr[284] = (melt_ptr_t) & cdat->drout_216__MAKEDOC_GENCMATCHER; cdat->drout_216__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_216__MAKEDOC_GENCMATCHER.routdescr, "MAKEDOC_GENCMATCHER @warmelt-modes.melt:1171", MELT_ROUTDESCR_LEN - 1); cdat->drout_216__MAKEDOC_GENCMATCHER.nbval = 18; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_216__MAKEDOC_GENCMATCHER, meltrout_32_warmelt_modes_MAKEDOC_GENCMATCHER); /*iniclos dclo_217__MAKEDOC_GENCMATCHER */ /*_.VALCLO___V287*/ meltfptr[286] = (melt_ptr_t) & cdat->dclo_217__MAKEDOC_GENCMATCHER; cdat->dclo_217__MAKEDOC_GENCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_217__MAKEDOC_GENCMATCHER.nbval = 0; /*inirout drout_218__LAMBDA_ */ /*_.VALROUT___V286*/ meltfptr[285] = (melt_ptr_t) & cdat->drout_218__LAMBDA_; cdat->drout_218__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_218__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1184", MELT_ROUTDESCR_LEN - 1); cdat->drout_218__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_218__LAMBDA_, meltrout_33_warmelt_modes_LAMBDA___14__); /*iniobj dsym_219__CLASS_ANY_MATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V288*/ meltfptr[287]) /*_.VALDATA___V288*/ meltfptr[287] = (melt_ptr_t) & cdat->dsym_219__CLASS_ANY_MATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_219__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_219__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_219__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_219__CLASS_ANY_MATCHER.obj_hash = 781265508; cdat->dsym_219__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_220__CLASS_ANY_MATCHE*/ /*_.VALSTR___V289*/ meltfptr[288] = (melt_ptr_t) & cdat->dstr_220__CLASS_ANY_MATCHE; cdat->dstr_220__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_220__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_220__CLASS_ANY_MATCHE. val) - 1); cdat->dstr_220__CLASS_ANY_MATCHE.val[17] = (char) 0; cdat->dstr_220__CLASS_ANY_MATCHE.slen = 17; /*inirout drout_221__MAKEDOC_GENOUTPUT */ /*_.VALROUT___V290*/ meltfptr[289] = (melt_ptr_t) & cdat->drout_221__MAKEDOC_GENOUTPUT; cdat->drout_221__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_221__MAKEDOC_GENOUTPUT.routdescr, "MAKEDOC_GENOUTPUT @warmelt-modes.melt:1247", MELT_ROUTDESCR_LEN - 1); cdat->drout_221__MAKEDOC_GENOUTPUT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_221__MAKEDOC_GENOUTPUT, meltrout_34_warmelt_modes_MAKEDOC_GENOUTPUT); /*iniclos dclo_222__MAKEDOC_GENOUTPUT */ /*_.VALCLO___V291*/ meltfptr[290] = (melt_ptr_t) & cdat->dclo_222__MAKEDOC_GENOUTPUT; cdat->dclo_222__MAKEDOC_GENOUTPUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_222__MAKEDOC_GENOUTPUT.nbval = 0; /*iniobj dsym_223__DISCR_STRBUF*/ /*uniqueobj*/ if (! /*_.VALDATA___V292*/ meltfptr[291]) /*_.VALDATA___V292*/ meltfptr[291] = (melt_ptr_t) & cdat->dsym_223__DISCR_STRBUF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_223__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_223__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_223__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_223__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_223__DISCR_STRBUF.obj_len = 3; /*inistring dstr_224__DISCR_STRBUF*/ /*_.VALSTR___V293*/ meltfptr[292] = (melt_ptr_t) & cdat->dstr_224__DISCR_STRBUF; cdat->dstr_224__DISCR_STRBUF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_224__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_224__DISCR_STRBUF.val) - 1); cdat->dstr_224__DISCR_STRBUF.val[12] = (char) 0; cdat->dstr_224__DISCR_STRBUF.slen = 12; /*inirout drout_225__MAKEDOC_DOCMD */ /*_.VALROUT___V294*/ meltfptr[293] = (melt_ptr_t) & cdat->drout_225__MAKEDOC_DOCMD; cdat->drout_225__MAKEDOC_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_225__MAKEDOC_DOCMD.routdescr, "MAKEDOC_DOCMD @warmelt-modes.melt:1330", MELT_ROUTDESCR_LEN - 1); cdat->drout_225__MAKEDOC_DOCMD.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_225__MAKEDOC_DOCMD, meltrout_35_warmelt_modes_MAKEDOC_DOCMD); /*iniclos dclo_226__MAKEDOC_DOCMD */ /*_.VALCLO___V296*/ meltfptr[295] = (melt_ptr_t) & cdat->dclo_226__MAKEDOC_DOCMD; cdat->dclo_226__MAKEDOC_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_226__MAKEDOC_DOCMD.nbval = 0; /*iniobj dsym_227__CLASS_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) & cdat->dsym_227__CLASS_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_227__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_227__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_227__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_227__CLASS_REFERENCE.obj_hash = 896623907; cdat->dsym_227__CLASS_REFERENCE.obj_len = 3; /*inistring dstr_228__CLASS_REFERENCE*/ /*_.VALSTR___V298*/ meltfptr[297] = (melt_ptr_t) & cdat->dstr_228__CLASS_REFERENCE; cdat->dstr_228__CLASS_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_228__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (cdat->dstr_228__CLASS_REFERENCE.val) - 1); cdat->dstr_228__CLASS_REFERENCE.val[15] = (char) 0; cdat->dstr_228__CLASS_REFERENCE.slen = 15; /*iniobj dsym_229__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (! /*_.VALDATA___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) & cdat->dsym_229__DISCR_MAP_OBJECTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_229__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_229__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_229__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_229__DISCR_MAP_OBJECTS.obj_hash = 217147088; cdat->dsym_229__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_230__DISCR_MAP_OBJECT*/ /*_.VALSTR___V300*/ meltfptr[299] = (melt_ptr_t) & cdat->dstr_230__DISCR_MAP_OBJECT; cdat->dstr_230__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_230__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_230__DISCR_MAP_OBJECT. val) - 1); cdat->dstr_230__DISCR_MAP_OBJECT.val[17] = (char) 0; cdat->dstr_230__DISCR_MAP_OBJECT.slen = 17; /*iniobj dsym_231__DISCR_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V301*/ meltfptr[300]) /*_.VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) & cdat->dsym_231__DISCR_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_231__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_231__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_231__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_231__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_231__DISCR_INTEGER.obj_len = 3; /*inistring dstr_232__DISCR_INTEGER*/ /*_.VALSTR___V302*/ meltfptr[301] = (melt_ptr_t) & cdat->dstr_232__DISCR_INTEGER; cdat->dstr_232__DISCR_INTEGER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_232__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_232__DISCR_INTEGER.val) - 1); cdat->dstr_232__DISCR_INTEGER.val[13] = (char) 0; cdat->dstr_232__DISCR_INTEGER.slen = 13; /*iniobj dsym_233__MELT_MODE_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (melt_ptr_t) & cdat->dsym_233__MELT_MODE_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_233__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_233__MELT_MODE_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_233__MELT_MODE_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_233__MELT_MODE_REFERENCE.obj_hash = 1035850925; cdat->dsym_233__MELT_MODE_REFERENCE.obj_len = 3; /*inistring dstr_234__MELT_MODE_REFERE*/ /*_.VALSTR___V304*/ meltfptr[303] = (melt_ptr_t) & cdat->dstr_234__MELT_MODE_REFERE; cdat->dstr_234__MELT_MODE_REFERE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_234__MELT_MODE_REFERE.val, "MELT_MODE_REFERENCE", sizeof (cdat->dstr_234__MELT_MODE_REFERE. val) - 1); cdat->dstr_234__MELT_MODE_REFERE.val[19] = (char) 0; cdat->dstr_234__MELT_MODE_REFERE.slen = 19; /*inirout drout_235__LAMBDA_ */ /*_.VALROUT___V295*/ meltfptr[294] = (melt_ptr_t) & cdat->drout_235__LAMBDA_; cdat->drout_235__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_235__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:1370", MELT_ROUTDESCR_LEN - 1); cdat->drout_235__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_235__LAMBDA_, meltrout_36_warmelt_modes_LAMBDA___15__); /*iniobj dsym_236__LIST_APPEND2LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (melt_ptr_t) & cdat->dsym_236__LIST_APPEND2LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_236__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_236__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_236__LIST_APPEND2LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_236__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_236__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_237__LIST_APPEND2LIST*/ /*_.VALSTR___V306*/ meltfptr[305] = (melt_ptr_t) & cdat->dstr_237__LIST_APPEND2LIST; cdat->dstr_237__LIST_APPEND2LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_237__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_237__LIST_APPEND2LIST. val) - 1); cdat->dstr_237__LIST_APPEND2LIST.val[16] = (char) 0; cdat->dstr_237__LIST_APPEND2LIST.slen = 16; /*iniobj dsym_238__MACROEXPAND_TOPLEVEL_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V307*/ meltfptr[306]) /*_.VALDATA___V307*/ meltfptr[306] = (melt_ptr_t) & cdat->dsym_238__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_238__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_238__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_238__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_238__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; cdat->dsym_238__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; /*inistring dstr_239__MACROEXPAND_TOPL*/ /*_.VALSTR___V308*/ meltfptr[307] = (melt_ptr_t) & cdat->dstr_239__MACROEXPAND_TOPL; cdat->dstr_239__MACROEXPAND_TOPL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_239__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (cdat->dstr_239__MACROEXPAND_TOPL. val) - 1); cdat->dstr_239__MACROEXPAND_TOPL.val[25] = (char) 0; cdat->dstr_239__MACROEXPAND_TOPL.slen = 25; /*iniobj dsym_240__MACROEXPAND_1*/ /*uniqueobj*/ if (! /*_.VALDATA___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (melt_ptr_t) & cdat->dsym_240__MACROEXPAND_1; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_240__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_240__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_240__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_240__MACROEXPAND_1.obj_hash = 858793911; cdat->dsym_240__MACROEXPAND_1.obj_len = 3; /*inistring dstr_241__MACROEXPAND_1*/ /*_.VALSTR___V310*/ meltfptr[309] = (melt_ptr_t) & cdat->dstr_241__MACROEXPAND_1; cdat->dstr_241__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_241__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (cdat->dstr_241__MACROEXPAND_1.val) - 1); cdat->dstr_241__MACROEXPAND_1.val[13] = (char) 0; cdat->dstr_241__MACROEXPAND_1.slen = 13; /*iniobj dsym_242__MAKEDOC_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) & cdat->dsym_242__MAKEDOC_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_242__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_242__MAKEDOC_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_242__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_242__MAKEDOC_MODE.obj_hash = 913116697; cdat->dsym_242__MAKEDOC_MODE.obj_len = 3; /*inistring dstr_243__MAKEDOC_MODE*/ /*_.VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) & cdat->dstr_243__MAKEDOC_MODE; cdat->dstr_243__MAKEDOC_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_243__MAKEDOC_MODE.val, "MAKEDOC_MODE", sizeof (cdat->dstr_243__MAKEDOC_MODE.val) - 1); cdat->dstr_243__MAKEDOC_MODE.val[12] = (char) 0; cdat->dstr_243__MAKEDOC_MODE.slen = 12; MELT_LOCATION ("warmelt-modes.melt:1396:/ iniobj"); /*iniobj dobj_244__MAKEDOC_MODE*/ /*_.VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) & cdat->dobj_244__MAKEDOC_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_244__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_244__MAKEDOC_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_244__MAKEDOC_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_244__MAKEDOC_MODE.obj_hash = 205738538; cdat->dobj_244__MAKEDOC_MODE.obj_len = 5; /*inistring dstr_245__makedoc*/ /*_.VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) & cdat->dstr_245__makedoc; cdat->dstr_245__makedoc.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_245__makedoc.val, "makedoc", sizeof (cdat->dstr_245__makedoc.val) - 1); cdat->dstr_245__makedoc.val[7] = (char) 0; cdat->dstr_245__makedoc.slen = 7; /*inistring dstr_246__generate_texi_d*/ /*_.VALSTR___V315*/ meltfptr[314] = (melt_ptr_t) & cdat->dstr_246__generate_texi_d; cdat->dstr_246__generate_texi_d.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_246__generate_texi_d.val, "generate .texi documentation from .melt source files;\n\n\t ARGLIST= input file, ...; OUTPUT= generated file", sizeof (cdat->dstr_246__generate_texi_d.val) - 1); cdat->dstr_246__generate_texi_d.val[105] = (char) 0; cdat->dstr_246__generate_texi_d.slen = 105; /*inirout drout_247__SHOWVAR_DOCMD */ /*_.VALROUT___V316*/ meltfptr[315] = (melt_ptr_t) & cdat->drout_247__SHOWVAR_DOCMD; cdat->drout_247__SHOWVAR_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_247__SHOWVAR_DOCMD.routdescr, "SHOWVAR_DOCMD @warmelt-modes.melt:1409", MELT_ROUTDESCR_LEN - 1); cdat->drout_247__SHOWVAR_DOCMD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_247__SHOWVAR_DOCMD, meltrout_37_warmelt_modes_SHOWVAR_DOCMD); /*iniclos dclo_248__SHOWVAR_DOCMD */ /*_.VALCLO___V317*/ meltfptr[316] = (melt_ptr_t) & cdat->dclo_248__SHOWVAR_DOCMD; cdat->dclo_248__SHOWVAR_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_248__SHOWVAR_DOCMD.nbval = 0; /*iniobj dsym_249__FIND_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V318*/ meltfptr[317]) /*_.VALDATA___V318*/ meltfptr[317] = (melt_ptr_t) & cdat->dsym_249__FIND_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_249__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_249__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_249__FIND_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_249__FIND_ENV.obj_hash = 233459738; cdat->dsym_249__FIND_ENV.obj_len = 3; /*inistring dstr_250__FIND_ENV*/ /*_.VALSTR___V319*/ meltfptr[318] = (melt_ptr_t) & cdat->dstr_250__FIND_ENV; cdat->dstr_250__FIND_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_250__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_250__FIND_ENV.val) - 1); cdat->dstr_250__FIND_ENV.val[8] = (char) 0; cdat->dstr_250__FIND_ENV.slen = 8; /*inirout drout_251__HELP_DOCMD */ /*_.VALROUT___V320*/ meltfptr[319] = (melt_ptr_t) & cdat->drout_251__HELP_DOCMD; cdat->drout_251__HELP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_251__HELP_DOCMD.routdescr, "HELP_DOCMD @warmelt-modes.melt:1434", MELT_ROUTDESCR_LEN - 1); cdat->drout_251__HELP_DOCMD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_251__HELP_DOCMD, meltrout_38_warmelt_modes_HELP_DOCMD); /*iniclos dclo_252__HELP_DOCMD */ /*_.VALCLO___V321*/ meltfptr[320] = (melt_ptr_t) & cdat->dclo_252__HELP_DOCMD; cdat->dclo_252__HELP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_252__HELP_DOCMD.nbval = 0; /*iniobj dsym_253__HELP_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V322*/ meltfptr[321]) /*_.VALDATA___V322*/ meltfptr[321] = (melt_ptr_t) & cdat->dsym_253__HELP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_253__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_253__HELP_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_253__HELP_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_253__HELP_MODE.obj_hash = 475164999; cdat->dsym_253__HELP_MODE.obj_len = 3; /*inistring dstr_254__HELP_MODE*/ /*_.VALSTR___V323*/ meltfptr[322] = (melt_ptr_t) & cdat->dstr_254__HELP_MODE; cdat->dstr_254__HELP_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_254__HELP_MODE.val, "HELP_MODE", sizeof (cdat->dstr_254__HELP_MODE.val) - 1); cdat->dstr_254__HELP_MODE.val[9] = (char) 0; cdat->dstr_254__HELP_MODE.slen = 9; MELT_LOCATION ("warmelt-modes.melt:1487:/ iniobj"); /*iniobj dobj_255__HELP_MODE*/ /*_.VALDATA___V324*/ meltfptr[323] = (melt_ptr_t) & cdat->dobj_255__HELP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_255__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_255__HELP_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_255__HELP_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_255__HELP_MODE.obj_hash = 822843434; cdat->dobj_255__HELP_MODE.obj_len = 5; /*inistring dstr_256__help*/ /*_.VALSTR___V325*/ meltfptr[324] = (melt_ptr_t) & cdat->dstr_256__help; cdat->dstr_256__help.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_256__help.val, "help", sizeof (cdat->dstr_256__help.val) - 1); cdat->dstr_256__help.val[4] = (char) 0; cdat->dstr_256__help.slen = 4; /*inistring dstr_257__MELT_help_about_*/ /*_.VALSTR___V326*/ meltfptr[325] = (melt_ptr_t) & cdat->dstr_257__MELT_help_about_; cdat->dstr_257__MELT_help_about_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_257__MELT_help_about_.val, "MELT help about available modes.", sizeof (cdat->dstr_257__MELT_help_about_. val) - 1); cdat->dstr_257__MELT_help_about_.val[32] = (char) 0; cdat->dstr_257__MELT_help_about_.slen = 32; /*inirout drout_258__NOP_DOCMD */ /*_.VALROUT___V327*/ meltfptr[326] = (melt_ptr_t) & cdat->drout_258__NOP_DOCMD; cdat->drout_258__NOP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_258__NOP_DOCMD.routdescr, "NOP_DOCMD @warmelt-modes.melt:1496", MELT_ROUTDESCR_LEN - 1); cdat->drout_258__NOP_DOCMD.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_258__NOP_DOCMD, meltrout_39_warmelt_modes_NOP_DOCMD); /*iniclos dclo_259__NOP_DOCMD */ /*_.VALCLO___V328*/ meltfptr[327] = (melt_ptr_t) & cdat->dclo_259__NOP_DOCMD; cdat->dclo_259__NOP_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_259__NOP_DOCMD.nbval = 0; /*iniobj dsym_260__NOP_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V329*/ meltfptr[328]) /*_.VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) & cdat->dsym_260__NOP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_260__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_260__NOP_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_260__NOP_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_260__NOP_MODE.obj_hash = 441820775; cdat->dsym_260__NOP_MODE.obj_len = 3; /*inistring dstr_261__NOP_MODE*/ /*_.VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) & cdat->dstr_261__NOP_MODE; cdat->dstr_261__NOP_MODE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_261__NOP_MODE.val, "NOP_MODE", sizeof (cdat->dstr_261__NOP_MODE.val) - 1); cdat->dstr_261__NOP_MODE.val[8] = (char) 0; cdat->dstr_261__NOP_MODE.slen = 8; MELT_LOCATION ("warmelt-modes.melt:1501:/ iniobj"); /*iniobj dobj_262__NOP_MODE*/ /*_.VALDATA___V331*/ meltfptr[330] = (melt_ptr_t) & cdat->dobj_262__NOP_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_262__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_262__NOP_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_262__NOP_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_262__NOP_MODE.obj_hash = 419643640; cdat->dobj_262__NOP_MODE.obj_len = 5; /*inistring dstr_263__nop*/ /*_.VALSTR___V332*/ meltfptr[331] = (melt_ptr_t) & cdat->dstr_263__nop; cdat->dstr_263__nop.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_263__nop.val, "nop", sizeof (cdat->dstr_263__nop.val) - 1); cdat->dstr_263__nop.val[3] = (char) 0; cdat->dstr_263__nop.slen = 3; /*inistring dstr_264__a_mode_doing_not*/ /*_.VALSTR___V333*/ meltfptr[332] = (melt_ptr_t) & cdat->dstr_264__a_mode_doing_not; cdat->dstr_264__a_mode_doing_not.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_264__a_mode_doing_not.val, "a mode doing nothing.", sizeof (cdat->dstr_264__a_mode_doing_not. val) - 1); cdat->dstr_264__a_mode_doing_not.val[21] = (char) 0; cdat->dstr_264__a_mode_doing_not.slen = 21; /*inirout drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ /*_.VALROUT___V334*/ meltfptr[333] = (melt_ptr_t) & cdat->drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; cdat->drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.routdescr, "GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC @warmelt-modes.melt:1513", MELT_ROUTDESCR_LEN - 1); cdat->drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC, meltrout_40_warmelt_modes_GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC); /*iniclos dclo_266__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC */ /*_.VALCLO___V336*/ meltfptr[335] = (melt_ptr_t) & cdat->dclo_266__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC; cdat->dclo_266__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_266__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC.nbval = 0; /*inistring dstr_267__from_genera*/ /*_.VALSTR___V335*/ meltfptr[334] = (melt_ptr_t) & cdat->dstr_267__from_genera; cdat->dstr_267__from_genera.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_267__from_genera.val, " /** from generate_runtypesupport_enum_objmagic **/\n enum meltobmag_en /*generated*/ { MELTOBMAG__NONE = 0,\n ", sizeof (cdat->dstr_267__from_genera.val) - 1); cdat->dstr_267__from_genera.val[117] = (char) 0; cdat->dstr_267__from_genera.slen = 117; /*iniobj dsym_268__CLASS_VALUE_DESCRIPTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V337*/ meltfptr[336]) /*_.VALDATA___V337*/ meltfptr[336] = (melt_ptr_t) & cdat->dsym_268__CLASS_VALUE_DESCRIPTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_268__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_268__CLASS_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_268__CLASS_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_268__CLASS_VALUE_DESCRIPTOR.obj_hash = 1011656692; cdat->dsym_268__CLASS_VALUE_DESCRIPTOR.obj_len = 3; /*inistring dstr_269__CLASS_VALUE_DESC*/ /*_.VALSTR___V338*/ meltfptr[337] = (melt_ptr_t) & cdat->dstr_269__CLASS_VALUE_DESC; cdat->dstr_269__CLASS_VALUE_DESC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_269__CLASS_VALUE_DESC.val, "CLASS_VALUE_DESCRIPTOR", sizeof (cdat->dstr_269__CLASS_VALUE_DESC. val) - 1); cdat->dstr_269__CLASS_VALUE_DESC.val[22] = (char) 0; cdat->dstr_269__CLASS_VALUE_DESC.slen = 22; /*iniobj dsym_270__CLASS_CTYPE_GTY*/ /*uniqueobj*/ if (! /*_.VALDATA___V339*/ meltfptr[338]) /*_.VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) & cdat->dsym_270__CLASS_CTYPE_GTY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_270__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_270__CLASS_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_270__CLASS_CTYPE_GTY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_270__CLASS_CTYPE_GTY.obj_hash = 167272739; cdat->dsym_270__CLASS_CTYPE_GTY.obj_len = 3; /*inistring dstr_271__CLASS_CTYPE_GTY*/ /*_.VALSTR___V340*/ meltfptr[339] = (melt_ptr_t) & cdat->dstr_271__CLASS_CTYPE_GTY; cdat->dstr_271__CLASS_CTYPE_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_271__CLASS_CTYPE_GTY.val, "CLASS_CTYPE_GTY", sizeof (cdat->dstr_271__CLASS_CTYPE_GTY.val) - 1); cdat->dstr_271__CLASS_CTYPE_GTY.val[15] = (char) 0; cdat->dstr_271__CLASS_CTYPE_GTY.slen = 15; /*inirout drout_272__GENERATE_RUNTYPESUPPORT_GTY */ /*_.VALROUT___V341*/ meltfptr[340] = (melt_ptr_t) & cdat->drout_272__GENERATE_RUNTYPESUPPORT_GTY; cdat->drout_272__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_272__GENERATE_RUNTYPESUPPORT_GTY.routdescr, "GENERATE_RUNTYPESUPPORT_GTY @warmelt-modes.melt:1603", MELT_ROUTDESCR_LEN - 1); cdat->drout_272__GENERATE_RUNTYPESUPPORT_GTY.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_272__GENERATE_RUNTYPESUPPORT_GTY, meltrout_41_warmelt_modes_GENERATE_RUNTYPESUPPORT_GTY); /*iniclos dclo_273__GENERATE_RUNTYPESUPPORT_GTY */ /*_.VALCLO___V347*/ meltfptr[346] = (melt_ptr_t) & cdat->dclo_273__GENERATE_RUNTYPESUPPORT_GTY; cdat->dclo_273__GENERATE_RUNTYPESUPPORT_GTY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_273__GENERATE_RUNTYPESUPPORT_GTY.nbval = 0; /*inistring dstr_274__ifndef_meltobj*/ /*_.VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) & cdat->dstr_274__ifndef_meltobj; cdat->dstr_274__ifndef_meltobj.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_274__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_274__ifndef_meltobj.val) - 1); cdat->dstr_274__ifndef_meltobj.val[164] = (char) 0; cdat->dstr_274__ifndef_meltobj.slen = 164; /*inistring dstr_275__ifndef_melt_pt*/ /*_.VALSTR___V343*/ meltfptr[342] = (melt_ptr_t) & cdat->dstr_275__ifndef_melt_pt; cdat->dstr_275__ifndef_melt_pt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_275__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_275__ifndef_melt_pt.val) - 1); cdat->dstr_275__ifndef_melt_pt.val[133] = (char) 0; cdat->dstr_275__ifndef_melt_pt.slen = 133; /*inistring dstr_276__ifndef_meltrou*/ /*_.VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) & cdat->dstr_276__ifndef_meltrou; cdat->dstr_276__ifndef_meltrou.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_276__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_276__ifndef_meltrou.val) - 1); cdat->dstr_276__ifndef_meltrou.val[169] = (char) 0; cdat->dstr_276__ifndef_meltrou.slen = 169; /*inistring dstr_277__ifndef_meltclo*/ /*_.VALSTR___V345*/ meltfptr[344] = (melt_ptr_t) & cdat->dstr_277__ifndef_meltclo; cdat->dstr_277__ifndef_meltclo.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_277__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_277__ifndef_meltclo.val) - 1); cdat->dstr_277__ifndef_meltclo.val[169] = (char) 0; cdat->dstr_277__ifndef_meltclo.slen = 169; /*inistring dstr_278__ifndef_meltrou*/ /*_.VALSTR___V346*/ meltfptr[345] = (melt_ptr_t) & cdat->dstr_278__ifndef_meltrou; cdat->dstr_278__ifndef_meltrou.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_278__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_278__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_278__ifndef_meltrou.val + 512, "fun_t_TYPEDEFINED*/\n", sizeof (cdat->dstr_278__ifndef_meltrou. val) - 513); cdat->dstr_278__ifndef_meltrou.val[532] = (char) 0; cdat->dstr_278__ifndef_meltrou.slen = 532; /*iniobj dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V348*/ meltfptr[347]) /*_.VALDATA___V348*/ meltfptr[347] = (melt_ptr_t) & cdat->dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_279__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_279__CLASS_VARISIZED_VALUE_DESCRIPTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_hash = 268580272; cdat->dsym_279__CLASS_VARISIZED_VALUE_DESCRIPTOR.obj_len = 3; /*inistring dstr_280__CLASS_VARISIZED_*/ /*_.VALSTR___V349*/ meltfptr[348] = (melt_ptr_t) & cdat->dstr_280__CLASS_VARISIZED_; cdat->dstr_280__CLASS_VARISIZED_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_280__CLASS_VARISIZED_.val, "CLASS_VARISIZED_VALUE_DESCRIPTOR", sizeof (cdat->dstr_280__CLASS_VARISIZED_. val) - 1); cdat->dstr_280__CLASS_VARISIZED_.val[32] = (char) 0; cdat->dstr_280__CLASS_VARISIZED_.slen = 32; /*inirout drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ /*_.VALROUT___V350*/ meltfptr[349] = (melt_ptr_t) & cdat->drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; cdat->drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN @warmelt-modes.melt:1869", MELT_ROUTDESCR_LEN - 1); cdat->drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN, meltrout_42_warmelt_modes_GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN); /*iniclos dclo_282__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN */ /*_.VALCLO___V353*/ meltfptr[352] = (melt_ptr_t) & cdat->dclo_282__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN; cdat->dclo_282__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_282__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN.nbval = 0; /*inistring dstr_283__cheney_like_*/ /*_.VALSTR___V351*/ meltfptr[350] = (melt_ptr_t) & cdat->dstr_283__cheney_like_; cdat->dstr_283__cheney_like_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_283__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_283__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_283__cheney_like_.val + 512, "_forward_counter++;\n switch (mag) { /* end of generated header */\n", sizeof (cdat->dstr_283__cheney_like_.val) - 513); cdat->dstr_283__cheney_like_.val[579] = (char) 0; cdat->dstr_283__cheney_like_.slen = 579; /*inistring dstr_284__trailer_gene*/ /*_.VALSTR___V352*/ meltfptr[351] = (melt_ptr_t) & cdat->dstr_284__trailer_gene; cdat->dstr_284__trailer_gene.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_284__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_284__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_284__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_284__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_284__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 VEC_safe_push (melt_ptr_t, gc, melt_", /*big */ 256); /*almost big chunk inistring */ memcpy (cdat->dstr_284__trailer_gene.val + 1280, "bscanvec, n);\n }\n return n;\n} /* end of melt_forwarded_copy", /*evenlessbig */ 64); /*end big inistring */ strncpy (cdat->dstr_284__trailer_gene.val + 1344, " generated by generate_runtypesupport_forwcopy_fun */\n", sizeof (cdat->dstr_284__trailer_gene.val) - 1345); cdat->dstr_284__trailer_gene.val[1398] = (char) 0; cdat->dstr_284__trailer_gene.slen = 1398; /*inirout drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN */ /*_.VALROUT___V354*/ meltfptr[353] = (melt_ptr_t) & cdat->drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN; cdat->drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN.routdescr, "GENERATE_RUNTYPESUPPORT_CLONING_FUN @warmelt-modes.melt:2122", MELT_ROUTDESCR_LEN - 1); cdat->drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN, meltrout_43_warmelt_modes_GENERATE_RUNTYPESUPPORT_CLONING_FUN); /*iniclos dclo_286__GENERATE_RUNTYPESUPPORT_CLONING_FUN */ /*_.VALCLO___V355*/ meltfptr[354] = (melt_ptr_t) & cdat->dclo_286__GENERATE_RUNTYPESUPPORT_CLONING_FUN; cdat->dclo_286__GENERATE_RUNTYPESUPPORT_CLONING_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_286__GENERATE_RUNTYPESUPPORT_CLONING_FUN.nbval = 0; /*iniobj dsym_287__ADD2OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V356*/ meltfptr[355]) /*_.VALDATA___V356*/ meltfptr[355] = (melt_ptr_t) & cdat->dsym_287__ADD2OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_287__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_287__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_287__ADD2OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_287__ADD2OUT.obj_hash = 901325062; cdat->dsym_287__ADD2OUT.obj_len = 3; /*inistring dstr_288__ADD2OUT*/ /*_.VALSTR___V357*/ meltfptr[356] = (melt_ptr_t) & cdat->dstr_288__ADD2OUT; cdat->dstr_288__ADD2OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_288__ADD2OUT.val, "ADD2OUT", sizeof (cdat->dstr_288__ADD2OUT.val) - 1); cdat->dstr_288__ADD2OUT.val[7] = (char) 0; cdat->dstr_288__ADD2OUT.slen = 7; /*inirout drout_289__GENERATE_RUNTYPESUPPORT_SCANNING */ /*_.VALROUT___V358*/ meltfptr[357] = (melt_ptr_t) & cdat->drout_289__GENERATE_RUNTYPESUPPORT_SCANNING; cdat->drout_289__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_289__GENERATE_RUNTYPESUPPORT_SCANNING.routdescr, "GENERATE_RUNTYPESUPPORT_SCANNING @warmelt-modes.melt:2318", MELT_ROUTDESCR_LEN - 1); cdat->drout_289__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_289__GENERATE_RUNTYPESUPPORT_SCANNING, meltrout_44_warmelt_modes_GENERATE_RUNTYPESUPPORT_SCANNING); /*iniclos dclo_290__GENERATE_RUNTYPESUPPORT_SCANNING */ /*_.VALCLO___V361*/ meltfptr[360] = (melt_ptr_t) & cdat->dclo_290__GENERATE_RUNTYPESUPPORT_SCANNING; cdat->dclo_290__GENERATE_RUNTYPESUPPORT_SCANNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_290__GENERATE_RUNTYPESUPPORT_SCANNING.nbval = 0; /*inistring dstr_291__header_from_*/ /*_.VALSTR___V359*/ meltfptr[358] = (melt_ptr_t) & cdat->dstr_291__header_from_; cdat->dstr_291__header_from_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_291__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_291__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_291__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_291__header_from_.val + 640, "of header from generate_runtypesupport_scanning*/", sizeof (cdat->dstr_291__header_from_.val) - 641); cdat->dstr_291__header_from_.val[689] = (char) 0; cdat->dstr_291__header_from_.slen = 689; /*inistring dstr_292__trailer_gene*/ /*_.VALSTR___V360*/ meltfptr[359] = (melt_ptr_t) & cdat->dstr_292__trailer_gene; cdat->dstr_292__trailer_gene.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_292__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_292__trailer_gene.val + 256, "d by generate_runtypesupport_scanning */\n ", sizeof (cdat->dstr_292__trailer_gene.val) - 257); cdat->dstr_292__trailer_gene.val[300] = (char) 0; cdat->dstr_292__trailer_gene.slen = 300; /*inirout drout_293__GENERATE_RUNTYPESUPPORT_PARAM */ /*_.VALROUT___V362*/ meltfptr[361] = (melt_ptr_t) & cdat->drout_293__GENERATE_RUNTYPESUPPORT_PARAM; cdat->drout_293__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_293__GENERATE_RUNTYPESUPPORT_PARAM.routdescr, "GENERATE_RUNTYPESUPPORT_PARAM @warmelt-modes.melt:2490", MELT_ROUTDESCR_LEN - 1); cdat->drout_293__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_293__GENERATE_RUNTYPESUPPORT_PARAM, meltrout_45_warmelt_modes_GENERATE_RUNTYPESUPPORT_PARAM); /*iniclos dclo_294__GENERATE_RUNTYPESUPPORT_PARAM */ /*_.VALCLO___V363*/ meltfptr[362] = (melt_ptr_t) & cdat->dclo_294__GENERATE_RUNTYPESUPPORT_PARAM; cdat->dclo_294__GENERATE_RUNTYPESUPPORT_PARAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_294__GENERATE_RUNTYPESUPPORT_PARAM.nbval = 0; /*inirout drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE */ /*_.VALROUT___V364*/ meltfptr[363] = (melt_ptr_t) & cdat->drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE; cdat->drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE.routdescr, "GENERATE_RUNTYPESUPPORT_COD2CTYPE @warmelt-modes.melt:2632", MELT_ROUTDESCR_LEN - 1); cdat->drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE, meltrout_46_warmelt_modes_GENERATE_RUNTYPESUPPORT_COD2CTYPE); /*iniclos dclo_296__GENERATE_RUNTYPESUPPORT_COD2CTYPE */ /*_.VALCLO___V365*/ meltfptr[364] = (melt_ptr_t) & cdat->dclo_296__GENERATE_RUNTYPESUPPORT_COD2CTYPE; cdat->dclo_296__GENERATE_RUNTYPESUPPORT_COD2CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_296__GENERATE_RUNTYPESUPPORT_COD2CTYPE.nbval = 0; /*inirout drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR */ /*_.VALROUT___V366*/ meltfptr[365] = (melt_ptr_t) & cdat->drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR; cdat->drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR.routdescr, "GENERATE_RUNTYPESUPPORT_MAG2STR @warmelt-modes.melt:2682", MELT_ROUTDESCR_LEN - 1); cdat->drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_297__GENERATE_RUNTYPESUPPORT_MAG2STR, meltrout_47_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAG2STR); /*iniclos dclo_298__GENERATE_RUNTYPESUPPORT_MAG2STR */ /*_.VALCLO___V369*/ meltfptr[368] = (melt_ptr_t) & cdat->dclo_298__GENERATE_RUNTYPESUPPORT_MAG2STR; cdat->dclo_298__GENERATE_RUNTYPESUPPORT_MAG2STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_298__GENERATE_RUNTYPESUPPORT_MAG2STR.nbval = 0; /*inistring dstr_299__const_char_melt*/ /*_.VALSTR___V367*/ meltfptr[366] = (melt_ptr_t) & cdat->dstr_299__const_char_melt; cdat->dstr_299__const_char_melt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_299__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_MAGLEN] ;\n switch (i) {\n case 0: return \"MeltObMag!0\" ;", sizeof (cdat->dstr_299__const_char_melt.val) - 1); cdat->dstr_299__const_char_melt.val[237] = (char) 0; cdat->dstr_299__const_char_melt.slen = 237; /*inistring dstr_300__default_int*/ /*_.VALSTR___V368*/ meltfptr[367] = (melt_ptr_t) & cdat->dstr_300__default_int; cdat->dstr_300__default_int.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_300__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_300__default_int.val) - 1); cdat->dstr_300__default_int.val[245] = (char) 0; cdat->dstr_300__default_int.slen = 245; /*inirout drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN */ /*_.VALROUT___V370*/ meltfptr[369] = (melt_ptr_t) & cdat->drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN; cdat->drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN.routdescr, "GENERATE_RUNTYPESUPPORT_BOXINGFUN @warmelt-modes.melt:2806", MELT_ROUTDESCR_LEN - 1); cdat->drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN, meltrout_48_warmelt_modes_GENERATE_RUNTYPESUPPORT_BOXINGFUN); /*iniclos dclo_302__GENERATE_RUNTYPESUPPORT_BOXINGFUN */ /*_.VALCLO___V371*/ meltfptr[370] = (melt_ptr_t) & cdat->dclo_302__GENERATE_RUNTYPESUPPORT_BOXINGFUN; cdat->dclo_302__GENERATE_RUNTYPESUPPORT_BOXINGFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_302__GENERATE_RUNTYPESUPPORT_BOXINGFUN.nbval = 0; /*iniobj dsym_303__SOME_STRING_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V372*/ meltfptr[371]) /*_.VALDATA___V372*/ meltfptr[371] = (melt_ptr_t) & cdat->dsym_303__SOME_STRING_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_303__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_303__SOME_STRING_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_303__SOME_STRING_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_303__SOME_STRING_VALUE.obj_hash = 73266032; cdat->dsym_303__SOME_STRING_VALUE.obj_len = 3; /*inistring dstr_304__SOME_STRING_VALU*/ /*_.VALSTR___V373*/ meltfptr[372] = (melt_ptr_t) & cdat->dstr_304__SOME_STRING_VALU; cdat->dstr_304__SOME_STRING_VALU.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_304__SOME_STRING_VALU.val, "SOME_STRING_VALUE", sizeof (cdat->dstr_304__SOME_STRING_VALU. val) - 1); cdat->dstr_304__SOME_STRING_VALU.val[17] = (char) 0; cdat->dstr_304__SOME_STRING_VALU.slen = 17; /*iniobj dsym_305__CLASS_DISCRIMINANT*/ /*uniqueobj*/ if (! /*_.VALDATA___V374*/ meltfptr[373]) /*_.VALDATA___V374*/ meltfptr[373] = (melt_ptr_t) & cdat->dsym_305__CLASS_DISCRIMINANT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_305__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_305__CLASS_DISCRIMINANT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_305__CLASS_DISCRIMINANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_305__CLASS_DISCRIMINANT.obj_hash = 535191995; cdat->dsym_305__CLASS_DISCRIMINANT.obj_len = 3; /*inistring dstr_306__CLASS_DISCRIMINA*/ /*_.VALSTR___V375*/ meltfptr[374] = (melt_ptr_t) & cdat->dstr_306__CLASS_DISCRIMINA; cdat->dstr_306__CLASS_DISCRIMINA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_306__CLASS_DISCRIMINA.val, "CLASS_DISCRIMINANT", sizeof (cdat->dstr_306__CLASS_DISCRIMINA. val) - 1); cdat->dstr_306__CLASS_DISCRIMINA.val[18] = (char) 0; cdat->dstr_306__CLASS_DISCRIMINA.slen = 18; /*inirout drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN */ /*_.VALROUT___V376*/ meltfptr[375] = (melt_ptr_t) & cdat->drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN; cdat->drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN.routdescr, "GENERATE_RUNTYPESUPPORT_MAPFUN @warmelt-modes.melt:3006", MELT_ROUTDESCR_LEN - 1); cdat->drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN, meltrout_49_warmelt_modes_GENERATE_RUNTYPESUPPORT_MAPFUN); /*iniclos dclo_308__GENERATE_RUNTYPESUPPORT_MAPFUN */ /*_.VALCLO___V379*/ meltfptr[378] = (melt_ptr_t) & cdat->dclo_308__GENERATE_RUNTYPESUPPORT_MAPFUN; cdat->dclo_308__GENERATE_RUNTYPESUPPORT_MAPFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_308__GENERATE_RUNTYPESUPPORT_MAPFUN.nbval = 0; /*inistring dstr_309__generated_map*/ /*_.VALSTR___V377*/ meltfptr[376] = (melt_ptr_t) & cdat->dstr_309__generated_map; cdat->dstr_309__generated_map.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_309__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_309__generated_map.val) - 1); cdat->dstr_309__generated_map.val[164] = (char) 0; cdat->dstr_309__generated_map.slen = 164; /*inistring dstr_310__not_map_mag*/ /*_.VALSTR___V378*/ meltfptr[377] = (melt_ptr_t) & cdat->dstr_310__not_map_mag; cdat->dstr_310__not_map_mag.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_310__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_310__not_map_mag.val) - 1); cdat->dstr_310__not_map_mag.val[158] = (char) 0; cdat->dstr_310__not_map_mag.slen = 158; /*inirout drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ /*_.VALROUT___V380*/ meltfptr[379] = (melt_ptr_t) & cdat->drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; cdat->drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.routdescr, "GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS @warmelt-modes.melt:3383", MELT_ROUTDESCR_LEN - 1); cdat->drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS, meltrout_50_warmelt_modes_GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS); /*iniclos dclo_312__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS */ /*_.VALCLO___V381*/ meltfptr[380] = (melt_ptr_t) & cdat->dclo_312__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS; cdat->dclo_312__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_312__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS.nbval = 0; /*inirout drout_313__RUNTYPESUPPORT_DOCMD */ /*_.VALROUT___V382*/ meltfptr[381] = (melt_ptr_t) & cdat->drout_313__RUNTYPESUPPORT_DOCMD; cdat->drout_313__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_313__RUNTYPESUPPORT_DOCMD.routdescr, "RUNTYPESUPPORT_DOCMD @warmelt-modes.melt:3441", MELT_ROUTDESCR_LEN - 1); cdat->drout_313__RUNTYPESUPPORT_DOCMD.nbval = 23; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_313__RUNTYPESUPPORT_DOCMD, meltrout_51_warmelt_modes_RUNTYPESUPPORT_DOCMD); /*iniclos dclo_314__RUNTYPESUPPORT_DOCMD */ /*_.VALCLO___V384*/ meltfptr[383] = (melt_ptr_t) & cdat->dclo_314__RUNTYPESUPPORT_DOCMD; cdat->dclo_314__RUNTYPESUPPORT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_314__RUNTYPESUPPORT_DOCMD.nbval = 0; /*inistring dstr_315__meltrunsup*/ /*_.VALSTR___V383*/ meltfptr[382] = (melt_ptr_t) & cdat->dstr_315__meltrunsup; cdat->dstr_315__meltrunsup.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_315__meltrunsup.val, "meltrunsup", sizeof (cdat->dstr_315__meltrunsup.val) - 1); cdat->dstr_315__meltrunsup.val[10] = (char) 0; cdat->dstr_315__meltrunsup.slen = 10; /*iniobj dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY*/ /*uniqueobj*/ if (! /*_.VALDATA___V385*/ meltfptr[384]) /*_.VALDATA___V385*/ meltfptr[384] = (melt_ptr_t) & cdat->dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_316__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_316__RETRIEVE_DICTIONNARY_CTYPE_GTY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY.obj_hash = 620180244; cdat->dsym_316__RETRIEVE_DICTIONNARY_CTYPE_GTY.obj_len = 3; /*inistring dstr_317__RETRIEVE_DICTION*/ /*_.VALSTR___V386*/ meltfptr[385] = (melt_ptr_t) & cdat->dstr_317__RETRIEVE_DICTION; cdat->dstr_317__RETRIEVE_DICTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_317__RETRIEVE_DICTION.val, "RETRIEVE_DICTIONNARY_CTYPE_GTY", sizeof (cdat->dstr_317__RETRIEVE_DICTION. val) - 1); cdat->dstr_317__RETRIEVE_DICTION.val[30] = (char) 0; cdat->dstr_317__RETRIEVE_DICTION.slen = 30; /*iniobj dsym_318__RETRIEVE_DICTIONNARY_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V387*/ meltfptr[386]) /*_.VALDATA___V387*/ meltfptr[386] = (melt_ptr_t) & cdat->dsym_318__RETRIEVE_DICTIONNARY_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_318__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_318__RETRIEVE_DICTIONNARY_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_318__RETRIEVE_DICTIONNARY_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_318__RETRIEVE_DICTIONNARY_CTYPE.obj_hash = 493540919; cdat->dsym_318__RETRIEVE_DICTIONNARY_CTYPE.obj_len = 3; /*inistring dstr_319__RETRIEVE_DICTION*/ /*_.VALSTR___V388*/ meltfptr[387] = (melt_ptr_t) & cdat->dstr_319__RETRIEVE_DICTION; cdat->dstr_319__RETRIEVE_DICTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_319__RETRIEVE_DICTION.val, "RETRIEVE_DICTIONNARY_CTYPE", sizeof (cdat->dstr_319__RETRIEVE_DICTION. val) - 1); cdat->dstr_319__RETRIEVE_DICTION.val[26] = (char) 0; cdat->dstr_319__RETRIEVE_DICTION.slen = 26; /*iniobj dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V389*/ meltfptr[388]) /*_.VALDATA___V389*/ meltfptr[388] = (melt_ptr_t) & cdat-> dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_320__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_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_hash = 10057023; cdat->dsym_320__GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT.obj_len = 3; /*inistring dstr_321__GENERATE_GPLV3PL*/ /*_.VALSTR___V390*/ meltfptr[389] = (melt_ptr_t) & cdat->dstr_321__GENERATE_GPLV3PL; cdat->dstr_321__GENERATE_GPLV3PL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_321__GENERATE_GPLV3PL.val, "GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT", sizeof (cdat->dstr_321__GENERATE_GPLV3PL. val) - 1); cdat->dstr_321__GENERATE_GPLV3PL.val[45] = (char) 0; cdat->dstr_321__GENERATE_GPLV3PL.slen = 45; /*iniobj dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) & cdat->dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_322__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_322__RETRIEVE_VALUE_DESCRIPTOR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST.obj_hash = 622106470; cdat->dsym_322__RETRIEVE_VALUE_DESCRIPTOR_LIST.obj_len = 3; /*inistring dstr_323__RETRIEVE_VALUE_D*/ /*_.VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) & cdat->dstr_323__RETRIEVE_VALUE_D; cdat->dstr_323__RETRIEVE_VALUE_D.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_323__RETRIEVE_VALUE_D.val, "RETRIEVE_VALUE_DESCRIPTOR_LIST", sizeof (cdat->dstr_323__RETRIEVE_VALUE_D. val) - 1); cdat->dstr_323__RETRIEVE_VALUE_D.val[30] = (char) 0; cdat->dstr_323__RETRIEVE_VALUE_D.slen = 30; /*iniobj dsym_324__RUNTYPESUPPORT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V393*/ meltfptr[392]) /*_.VALDATA___V393*/ meltfptr[392] = (melt_ptr_t) & cdat->dsym_324__RUNTYPESUPPORT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_324__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_324__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_324__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_324__RUNTYPESUPPORT_MODE.obj_hash = 409734414; cdat->dsym_324__RUNTYPESUPPORT_MODE.obj_len = 3; /*inistring dstr_325__RUNTYPESUPPORT_M*/ /*_.VALSTR___V394*/ meltfptr[393] = (melt_ptr_t) & cdat->dstr_325__RUNTYPESUPPORT_M; cdat->dstr_325__RUNTYPESUPPORT_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_325__RUNTYPESUPPORT_M.val, "RUNTYPESUPPORT_MODE", sizeof (cdat->dstr_325__RUNTYPESUPPORT_M. val) - 1); cdat->dstr_325__RUNTYPESUPPORT_M.val[19] = (char) 0; cdat->dstr_325__RUNTYPESUPPORT_M.slen = 19; MELT_LOCATION ("warmelt-modes.melt:3581:/ iniobj"); /*iniobj dobj_326__RUNTYPESUPPORT_MODE*/ /*_.VALDATA___V395*/ meltfptr[394] = (melt_ptr_t) & cdat->dobj_326__RUNTYPESUPPORT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_326__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_326__RUNTYPESUPPORT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_326__RUNTYPESUPPORT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_326__RUNTYPESUPPORT_MODE.obj_hash = 395277842; cdat->dobj_326__RUNTYPESUPPORT_MODE.obj_len = 5; /*inistring dstr_327__runtypesupport*/ /*_.VALSTR___V396*/ meltfptr[395] = (melt_ptr_t) & cdat->dstr_327__runtypesupport; cdat->dstr_327__runtypesupport.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_327__runtypesupport.val, "runtypesupport", sizeof (cdat->dstr_327__runtypesupport.val) - 1); cdat->dstr_327__runtypesupport.val[14] = (char) 0; cdat->dstr_327__runtypesupport.slen = 14; /*inistring dstr_328__generate_runtime*/ /*_.VALSTR___V397*/ meltfptr[396] = (melt_ptr_t) & cdat->dstr_328__generate_runtime; cdat->dstr_328__generate_runtime.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_328__generate_runtime.val, "generate runtime support for our GTY types (ctypes, values);\n\n\t OUTPUT=generated file prefix", sizeof (cdat->dstr_328__generate_runtime. val) - 1); cdat->dstr_328__generate_runtime.val[92] = (char) 0; cdat->dstr_328__generate_runtime.slen = 92; /*inirout drout_329__TRANSLATE_TO_FLAVORED_MODULE */ /*_.VALROUT___V398*/ meltfptr[397] = (melt_ptr_t) & cdat->drout_329__TRANSLATE_TO_FLAVORED_MODULE; cdat->drout_329__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_329__TRANSLATE_TO_FLAVORED_MODULE.routdescr, "TRANSLATE_TO_FLAVORED_MODULE @warmelt-modes.melt:3594", MELT_ROUTDESCR_LEN - 1); cdat->drout_329__TRANSLATE_TO_FLAVORED_MODULE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_329__TRANSLATE_TO_FLAVORED_MODULE, meltrout_52_warmelt_modes_TRANSLATE_TO_FLAVORED_MODULE); /*iniclos dclo_330__TRANSLATE_TO_FLAVORED_MODULE */ /*_.VALCLO___V399*/ meltfptr[398] = (melt_ptr_t) & cdat->dclo_330__TRANSLATE_TO_FLAVORED_MODULE; cdat->dclo_330__TRANSLATE_TO_FLAVORED_MODULE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_330__TRANSLATE_TO_FLAVORED_MODULE.nbval = 0; /*inirout drout_331__TRANSLATETOMODULE_DOCMD */ /*_.VALROUT___V400*/ meltfptr[399] = (melt_ptr_t) & cdat->drout_331__TRANSLATETOMODULE_DOCMD; cdat->drout_331__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_331__TRANSLATETOMODULE_DOCMD.routdescr, "TRANSLATETOMODULE_DOCMD @warmelt-modes.melt:3642", MELT_ROUTDESCR_LEN - 1); cdat->drout_331__TRANSLATETOMODULE_DOCMD.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_331__TRANSLATETOMODULE_DOCMD, meltrout_53_warmelt_modes_TRANSLATETOMODULE_DOCMD); /*iniclos dclo_332__TRANSLATETOMODULE_DOCMD */ /*_.VALCLO___V404*/ meltfptr[403] = (melt_ptr_t) & cdat->dclo_332__TRANSLATETOMODULE_DOCMD; cdat->dclo_332__TRANSLATETOMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_332__TRANSLATETOMODULE_DOCMD.nbval = 0; /*inistring dstr_333__quicklybuilt*/ /*_.VALSTR___V401*/ meltfptr[400] = (melt_ptr_t) & cdat->dstr_333__quicklybuilt; cdat->dstr_333__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_333__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_333__quicklybuilt.val) - 1); cdat->dstr_333__quicklybuilt.val[12] = (char) 0; cdat->dstr_333__quicklybuilt.slen = 12; /*inistring dstr_334__optimized*/ /*_.VALSTR___V402*/ meltfptr[401] = (melt_ptr_t) & cdat->dstr_334__optimized; cdat->dstr_334__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_334__optimized.val, "optimized", sizeof (cdat->dstr_334__optimized.val) - 1); cdat->dstr_334__optimized.val[9] = (char) 0; cdat->dstr_334__optimized.slen = 9; /*inistring dstr_335__debugnoline*/ /*_.VALSTR___V403*/ meltfptr[402] = (melt_ptr_t) & cdat->dstr_335__debugnoline; cdat->dstr_335__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_335__debugnoline.val, "debugnoline", sizeof (cdat->dstr_335__debugnoline.val) - 1); cdat->dstr_335__debugnoline.val[11] = (char) 0; cdat->dstr_335__debugnoline.slen = 11; /*iniobj dsym_336__TRANSLATETOMODULE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V405*/ meltfptr[404]) /*_.VALDATA___V405*/ meltfptr[404] = (melt_ptr_t) & cdat->dsym_336__TRANSLATETOMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_336__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_336__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_336__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_336__TRANSLATETOMODULE_MODE.obj_hash = 39082242; cdat->dsym_336__TRANSLATETOMODULE_MODE.obj_len = 3; /*inistring dstr_337__TRANSLATETOMODUL*/ /*_.VALSTR___V406*/ meltfptr[405] = (melt_ptr_t) & cdat->dstr_337__TRANSLATETOMODUL; cdat->dstr_337__TRANSLATETOMODUL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_337__TRANSLATETOMODUL.val, "TRANSLATETOMODULE_MODE", sizeof (cdat->dstr_337__TRANSLATETOMODUL. val) - 1); cdat->dstr_337__TRANSLATETOMODUL.val[22] = (char) 0; cdat->dstr_337__TRANSLATETOMODUL.slen = 22; MELT_LOCATION ("warmelt-modes.melt:3660:/ iniobj"); /*iniobj dobj_338__TRANSLATETOMODULE_MODE*/ /*_.VALDATA___V407*/ meltfptr[406] = (melt_ptr_t) & cdat->dobj_338__TRANSLATETOMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_338__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_338__TRANSLATETOMODULE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_338__TRANSLATETOMODULE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_338__TRANSLATETOMODULE_MODE.obj_hash = 953304348; cdat->dobj_338__TRANSLATETOMODULE_MODE.obj_len = 5; /*inistring dstr_339__translatetomodul*/ /*_.VALSTR___V408*/ meltfptr[407] = (melt_ptr_t) & cdat->dstr_339__translatetomodul; cdat->dstr_339__translatetomodul.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_339__translatetomodul.val, "translatetomodule", sizeof (cdat->dstr_339__translatetomodul. val) - 1); cdat->dstr_339__translatetomodul.val[17] = (char) 0; cdat->dstr_339__translatetomodul.slen = 17; /*inistring dstr_340__translate_a_mel*/ /*_.VALSTR___V409*/ meltfptr[408] = (melt_ptr_t) & cdat->dstr_340__translate_a_mel; cdat->dstr_340__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_340__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_SUFFIX; OUTPUTC= generated *.c file.", sizeof (cdat->dstr_340__translate_a_mel.val) - 1); cdat->dstr_340__translate_a_mel.val[211] = (char) 0; cdat->dstr_340__translate_a_mel.slen = 211; /*inirout drout_341__TRANSLATEDEBUG_DOCMD */ /*_.VALROUT___V410*/ meltfptr[409] = (melt_ptr_t) & cdat->drout_341__TRANSLATEDEBUG_DOCMD; cdat->drout_341__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_341__TRANSLATEDEBUG_DOCMD.routdescr, "TRANSLATEDEBUG_DOCMD @warmelt-modes.melt:3671", MELT_ROUTDESCR_LEN - 1); cdat->drout_341__TRANSLATEDEBUG_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_341__TRANSLATEDEBUG_DOCMD, meltrout_54_warmelt_modes_TRANSLATEDEBUG_DOCMD); /*iniclos dclo_342__TRANSLATEDEBUG_DOCMD */ /*_.VALCLO___V412*/ meltfptr[411] = (melt_ptr_t) & cdat->dclo_342__TRANSLATEDEBUG_DOCMD; cdat->dclo_342__TRANSLATEDEBUG_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_342__TRANSLATEDEBUG_DOCMD.nbval = 0; /*inistring dstr_343__debugnoline*/ /*_.VALSTR___V411*/ meltfptr[410] = (melt_ptr_t) & cdat->dstr_343__debugnoline; cdat->dstr_343__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_343__debugnoline.val, "debugnoline", sizeof (cdat->dstr_343__debugnoline.val) - 1); cdat->dstr_343__debugnoline.val[11] = (char) 0; cdat->dstr_343__debugnoline.slen = 11; /*iniobj dsym_344__TRANSLATEDEBUG_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V413*/ meltfptr[412]) /*_.VALDATA___V413*/ meltfptr[412] = (melt_ptr_t) & cdat->dsym_344__TRANSLATEDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_344__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_344__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_344__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_344__TRANSLATEDEBUG_MODE.obj_hash = 310232635; cdat->dsym_344__TRANSLATEDEBUG_MODE.obj_len = 3; /*inistring dstr_345__TRANSLATEDEBUG_M*/ /*_.VALSTR___V414*/ meltfptr[413] = (melt_ptr_t) & cdat->dstr_345__TRANSLATEDEBUG_M; cdat->dstr_345__TRANSLATEDEBUG_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_345__TRANSLATEDEBUG_M.val, "TRANSLATEDEBUG_MODE", sizeof (cdat->dstr_345__TRANSLATEDEBUG_M. val) - 1); cdat->dstr_345__TRANSLATEDEBUG_M.val[19] = (char) 0; cdat->dstr_345__TRANSLATEDEBUG_M.slen = 19; MELT_LOCATION ("warmelt-modes.melt:3686:/ iniobj"); /*iniobj dobj_346__TRANSLATEDEBUG_MODE*/ /*_.VALDATA___V415*/ meltfptr[414] = (melt_ptr_t) & cdat->dobj_346__TRANSLATEDEBUG_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_346__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_346__TRANSLATEDEBUG_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_346__TRANSLATEDEBUG_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_346__TRANSLATEDEBUG_MODE.obj_hash = 130162027; cdat->dobj_346__TRANSLATEDEBUG_MODE.obj_len = 5; /*inistring dstr_347__translatedebug*/ /*_.VALSTR___V416*/ meltfptr[415] = (melt_ptr_t) & cdat->dstr_347__translatedebug; cdat->dstr_347__translatedebug.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_347__translatedebug.val, "translatedebug", sizeof (cdat->dstr_347__translatedebug.val) - 1); cdat->dstr_347__translatedebug.val[14] = (char) 0; cdat->dstr_347__translatedebug.slen = 14; /*inistring dstr_348__translate_a_mel*/ /*_.VALSTR___V417*/ meltfptr[416] = (melt_ptr_t) & cdat->dstr_348__translate_a_mel; cdat->dstr_348__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*big inistring */ /*really big chunk inistring */ memcpy (cdat->dstr_348__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_348__translate_a_mel.val + 256, " gdb on the module. MELT debugging (DEBUG,\nASSERT_MSG) is enabled", sizeof (cdat->dstr_348__translate_a_mel. val) - 257); cdat->dstr_348__translate_a_mel.val[321] = (char) 0; cdat->dstr_348__translate_a_mel.slen = 321; /*inirout drout_349__TRANSLATEQUICKLY_DOCMD */ /*_.VALROUT___V418*/ meltfptr[417] = (melt_ptr_t) & cdat->drout_349__TRANSLATEQUICKLY_DOCMD; cdat->drout_349__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_349__TRANSLATEQUICKLY_DOCMD.routdescr, "TRANSLATEQUICKLY_DOCMD @warmelt-modes.melt:3700", MELT_ROUTDESCR_LEN - 1); cdat->drout_349__TRANSLATEQUICKLY_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_349__TRANSLATEQUICKLY_DOCMD, meltrout_55_warmelt_modes_TRANSLATEQUICKLY_DOCMD); /*iniclos dclo_350__TRANSLATEQUICKLY_DOCMD */ /*_.VALCLO___V420*/ meltfptr[419] = (melt_ptr_t) & cdat->dclo_350__TRANSLATEQUICKLY_DOCMD; cdat->dclo_350__TRANSLATEQUICKLY_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_350__TRANSLATEQUICKLY_DOCMD.nbval = 0; /*inistring dstr_351__quicklybuilt*/ /*_.VALSTR___V419*/ meltfptr[418] = (melt_ptr_t) & cdat->dstr_351__quicklybuilt; cdat->dstr_351__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_351__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_351__quicklybuilt.val) - 1); cdat->dstr_351__quicklybuilt.val[12] = (char) 0; cdat->dstr_351__quicklybuilt.slen = 12; /*iniobj dsym_352__TRANSLATEQUICKLY_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V421*/ meltfptr[420]) /*_.VALDATA___V421*/ meltfptr[420] = (melt_ptr_t) & cdat->dsym_352__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_352__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_352__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_352__TRANSLATEQUICKLY_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_352__TRANSLATEQUICKLY_MODE.obj_hash = 514918979; cdat->dsym_352__TRANSLATEQUICKLY_MODE.obj_len = 3; /*inistring dstr_353__TRANSLATEQUICKLY*/ /*_.VALSTR___V422*/ meltfptr[421] = (melt_ptr_t) & cdat->dstr_353__TRANSLATEQUICKLY; cdat->dstr_353__TRANSLATEQUICKLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_353__TRANSLATEQUICKLY.val, "TRANSLATEQUICKLY_MODE", sizeof (cdat->dstr_353__TRANSLATEQUICKLY. val) - 1); cdat->dstr_353__TRANSLATEQUICKLY.val[21] = (char) 0; cdat->dstr_353__TRANSLATEQUICKLY.slen = 21; MELT_LOCATION ("warmelt-modes.melt:3717:/ iniobj"); /*iniobj dobj_354__TRANSLATEQUICKLY_MODE*/ /*_.VALDATA___V423*/ meltfptr[422] = (melt_ptr_t) & cdat->dobj_354__TRANSLATEQUICKLY_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_354__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_354__TRANSLATEQUICKLY_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_354__TRANSLATEQUICKLY_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_354__TRANSLATEQUICKLY_MODE.obj_hash = 687132040; cdat->dobj_354__TRANSLATEQUICKLY_MODE.obj_len = 5; /*inistring dstr_355__translatequickly*/ /*_.VALSTR___V424*/ meltfptr[423] = (melt_ptr_t) & cdat->dstr_355__translatequickly; cdat->dstr_355__translatequickly.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_355__translatequickly.val, "translatequickly", sizeof (cdat->dstr_355__translatequickly. val) - 1); cdat->dstr_355__translatequickly.val[16] = (char) 0; cdat->dstr_355__translatequickly.slen = 16; /*inistring dstr_356__translate_quickl*/ /*_.VALSTR___V425*/ meltfptr[424] = (melt_ptr_t) & cdat->dstr_356__translate_quickl; cdat->dstr_356__translate_quickl.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_356__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_SUFFIX; COUTPUT= generated *.c file\n.", sizeof (cdat->dstr_356__translate_quickl. val) - 1); cdat->dstr_356__translate_quickl.val[214] = (char) 0; cdat->dstr_356__translate_quickl.slen = 214; /*inirout drout_357__TRANSLATEOPTIMIZED_DOCMD */ /*_.VALROUT___V426*/ meltfptr[425] = (melt_ptr_t) & cdat->drout_357__TRANSLATEOPTIMIZED_DOCMD; cdat->drout_357__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_357__TRANSLATEOPTIMIZED_DOCMD.routdescr, "TRANSLATEOPTIMIZED_DOCMD @warmelt-modes.melt:3728", MELT_ROUTDESCR_LEN - 1); cdat->drout_357__TRANSLATEOPTIMIZED_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_357__TRANSLATEOPTIMIZED_DOCMD, meltrout_56_warmelt_modes_TRANSLATEOPTIMIZED_DOCMD); /*iniclos dclo_358__TRANSLATEOPTIMIZED_DOCMD */ /*_.VALCLO___V428*/ meltfptr[427] = (melt_ptr_t) & cdat->dclo_358__TRANSLATEOPTIMIZED_DOCMD; cdat->dclo_358__TRANSLATEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_358__TRANSLATEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_359__optimized*/ /*_.VALSTR___V427*/ meltfptr[426] = (melt_ptr_t) & cdat->dstr_359__optimized; cdat->dstr_359__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_359__optimized.val, "optimized", sizeof (cdat->dstr_359__optimized.val) - 1); cdat->dstr_359__optimized.val[9] = (char) 0; cdat->dstr_359__optimized.slen = 9; /*iniobj dsym_360__TRANSLATEOPTIMIZED_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V429*/ meltfptr[428]) /*_.VALDATA___V429*/ meltfptr[428] = (melt_ptr_t) & cdat->dsym_360__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_360__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_360__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_360__TRANSLATEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_360__TRANSLATEOPTIMIZED_MODE.obj_hash = 609230229; cdat->dsym_360__TRANSLATEOPTIMIZED_MODE.obj_len = 3; /*inistring dstr_361__TRANSLATEOPTIMIZ*/ /*_.VALSTR___V430*/ meltfptr[429] = (melt_ptr_t) & cdat->dstr_361__TRANSLATEOPTIMIZ; cdat->dstr_361__TRANSLATEOPTIMIZ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_361__TRANSLATEOPTIMIZ.val, "TRANSLATEOPTIMIZED_MODE", sizeof (cdat->dstr_361__TRANSLATEOPTIMIZ. val) - 1); cdat->dstr_361__TRANSLATEOPTIMIZ.val[23] = (char) 0; cdat->dstr_361__TRANSLATEOPTIMIZ.slen = 23; MELT_LOCATION ("warmelt-modes.melt:3745:/ iniobj"); /*iniobj dobj_362__TRANSLATEOPTIMIZED_MODE*/ /*_.VALDATA___V431*/ meltfptr[430] = (melt_ptr_t) & cdat->dobj_362__TRANSLATEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_362__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_362__TRANSLATEOPTIMIZED_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_362__TRANSLATEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_362__TRANSLATEOPTIMIZED_MODE.obj_hash = 789094373; cdat->dobj_362__TRANSLATEOPTIMIZED_MODE.obj_len = 5; /*inistring dstr_363__translateoptimiz*/ /*_.VALSTR___V432*/ meltfptr[431] = (melt_ptr_t) & cdat->dstr_363__translateoptimiz; cdat->dstr_363__translateoptimiz.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_363__translateoptimiz.val, "translateoptimized", sizeof (cdat->dstr_363__translateoptimiz. val) - 1); cdat->dstr_363__translateoptimiz.val[18] = (char) 0; cdat->dstr_363__translateoptimiz.slen = 18; /*inistring dstr_364__translate_a_me*/ /*_.VALSTR___V433*/ meltfptr[432] = (melt_ptr_t) & cdat->dstr_364__translate_a_me; cdat->dstr_364__translate_a_me.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_364__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_SUFFIX; COUTPUT= generated *.c file\n.", sizeof (cdat->dstr_364__translate_a_me.val) - 1); cdat->dstr_364__translate_a_me.val[178] = (char) 0; cdat->dstr_364__translate_a_me.slen = 178; /*inirout drout_365__TRANSLATEFILE_DOCMD */ /*_.VALROUT___V434*/ meltfptr[433] = (melt_ptr_t) & cdat->drout_365__TRANSLATEFILE_DOCMD; cdat->drout_365__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_365__TRANSLATEFILE_DOCMD.routdescr, "TRANSLATEFILE_DOCMD @warmelt-modes.melt:3757", MELT_ROUTDESCR_LEN - 1); cdat->drout_365__TRANSLATEFILE_DOCMD.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_365__TRANSLATEFILE_DOCMD, meltrout_57_warmelt_modes_TRANSLATEFILE_DOCMD); /*iniclos dclo_366__TRANSLATEFILE_DOCMD */ /*_.VALCLO___V435*/ meltfptr[434] = (melt_ptr_t) & cdat->dclo_366__TRANSLATEFILE_DOCMD; cdat->dclo_366__TRANSLATEFILE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_366__TRANSLATEFILE_DOCMD.nbval = 0; /*iniobj dsym_367__TRANSLATEFILE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V436*/ meltfptr[435]) /*_.VALDATA___V436*/ meltfptr[435] = (melt_ptr_t) & cdat->dsym_367__TRANSLATEFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_367__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_367__TRANSLATEFILE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_367__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_367__TRANSLATEFILE_MODE.obj_hash = 798309888; cdat->dsym_367__TRANSLATEFILE_MODE.obj_len = 3; /*inistring dstr_368__TRANSLATEFILE_MO*/ /*_.VALSTR___V437*/ meltfptr[436] = (melt_ptr_t) & cdat->dstr_368__TRANSLATEFILE_MO; cdat->dstr_368__TRANSLATEFILE_MO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_368__TRANSLATEFILE_MO.val, "TRANSLATEFILE_MODE", sizeof (cdat->dstr_368__TRANSLATEFILE_MO. val) - 1); cdat->dstr_368__TRANSLATEFILE_MO.val[18] = (char) 0; cdat->dstr_368__TRANSLATEFILE_MO.slen = 18; MELT_LOCATION ("warmelt-modes.melt:3799:/ iniobj"); /*iniobj dobj_369__TRANSLATEFILE_MODE*/ /*_.VALDATA___V438*/ meltfptr[437] = (melt_ptr_t) & cdat->dobj_369__TRANSLATEFILE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_369__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_369__TRANSLATEFILE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_369__TRANSLATEFILE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_369__TRANSLATEFILE_MODE.obj_hash = 692784245; cdat->dobj_369__TRANSLATEFILE_MODE.obj_len = 5; /*inistring dstr_370__translatefile*/ /*_.VALSTR___V439*/ meltfptr[438] = (melt_ptr_t) & cdat->dstr_370__translatefile; cdat->dstr_370__translatefile.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_370__translatefile.val, "translatefile", sizeof (cdat->dstr_370__translatefile.val) - 1); cdat->dstr_370__translatefile.val[13] = (char) 0; cdat->dstr_370__translatefile.slen = 13; /*inistring dstr_371__translate_a_mel*/ /*_.VALSTR___V440*/ meltfptr[439] = (melt_ptr_t) & cdat->dstr_371__translate_a_mel; cdat->dstr_371__translate_a_mel.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_371__translate_a_mel.val, "translate a .melt file to .c;\n\n\t ARGUMENT= input file; OUTPUT= generated C file", sizeof (cdat->dstr_371__translate_a_mel.val) - 1); cdat->dstr_371__translate_a_mel.val[79] = (char) 0; cdat->dstr_371__translate_a_mel.slen = 79; /*inirout drout_372__TRANSLATEINIT_DOCMD */ /*_.VALROUT___V441*/ meltfptr[440] = (melt_ptr_t) & cdat->drout_372__TRANSLATEINIT_DOCMD; cdat->drout_372__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_372__TRANSLATEINIT_DOCMD.routdescr, "TRANSLATEINIT_DOCMD @warmelt-modes.melt:3811", MELT_ROUTDESCR_LEN - 1); cdat->drout_372__TRANSLATEINIT_DOCMD.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_372__TRANSLATEINIT_DOCMD, meltrout_58_warmelt_modes_TRANSLATEINIT_DOCMD); /*iniclos dclo_373__TRANSLATEINIT_DOCMD */ /*_.VALCLO___V443*/ meltfptr[442] = (melt_ptr_t) & cdat->dclo_373__TRANSLATEINIT_DOCMD; cdat->dclo_373__TRANSLATEINIT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_373__TRANSLATEINIT_DOCMD.nbval = 0; /*inirout drout_374__LAMBDA_ */ /*_.VALROUT___V442*/ meltfptr[441] = (melt_ptr_t) & cdat->drout_374__LAMBDA_; cdat->drout_374__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_374__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:3854", MELT_ROUTDESCR_LEN - 1); cdat->drout_374__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_374__LAMBDA_, meltrout_59_warmelt_modes_LAMBDA___16__); /*iniobj dsym_375__COMPILE_LIST_SEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V444*/ meltfptr[443]) /*_.VALDATA___V444*/ meltfptr[443] = (melt_ptr_t) & cdat->dsym_375__COMPILE_LIST_SEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_375__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_375__COMPILE_LIST_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_375__COMPILE_LIST_SEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_375__COMPILE_LIST_SEXPR.obj_hash = 346985953; cdat->dsym_375__COMPILE_LIST_SEXPR.obj_len = 3; /*inistring dstr_376__COMPILE_LIST_SEX*/ /*_.VALSTR___V445*/ meltfptr[444] = (melt_ptr_t) & cdat->dstr_376__COMPILE_LIST_SEX; cdat->dstr_376__COMPILE_LIST_SEX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_376__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR", sizeof (cdat->dstr_376__COMPILE_LIST_SEX. val) - 1); cdat->dstr_376__COMPILE_LIST_SEX.val[18] = (char) 0; cdat->dstr_376__COMPILE_LIST_SEX.slen = 18; /*iniobj dsym_377__TRANSLATEINIT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V446*/ meltfptr[445]) /*_.VALDATA___V446*/ meltfptr[445] = (melt_ptr_t) & cdat->dsym_377__TRANSLATEINIT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_377__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_377__TRANSLATEINIT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_377__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_377__TRANSLATEINIT_MODE.obj_hash = 941353815; cdat->dsym_377__TRANSLATEINIT_MODE.obj_len = 3; /*inistring dstr_378__TRANSLATEINIT_MO*/ /*_.VALSTR___V447*/ meltfptr[446] = (melt_ptr_t) & cdat->dstr_378__TRANSLATEINIT_MO; cdat->dstr_378__TRANSLATEINIT_MO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_378__TRANSLATEINIT_MO.val, "TRANSLATEINIT_MODE", sizeof (cdat->dstr_378__TRANSLATEINIT_MO. val) - 1); cdat->dstr_378__TRANSLATEINIT_MO.val[18] = (char) 0; cdat->dstr_378__TRANSLATEINIT_MO.slen = 18; MELT_LOCATION ("warmelt-modes.melt:3877:/ iniobj"); /*iniobj dobj_379__TRANSLATEINIT_MODE*/ /*_.VALDATA___V448*/ meltfptr[447] = (melt_ptr_t) & cdat->dobj_379__TRANSLATEINIT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_379__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_379__TRANSLATEINIT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_379__TRANSLATEINIT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_379__TRANSLATEINIT_MODE.obj_hash = 417120016; cdat->dobj_379__TRANSLATEINIT_MODE.obj_len = 5; /*inistring dstr_380__translateinit*/ /*_.VALSTR___V449*/ meltfptr[448] = (melt_ptr_t) & cdat->dstr_380__translateinit; cdat->dstr_380__translateinit.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_380__translateinit.val, "translateinit", sizeof (cdat->dstr_380__translateinit.val) - 1); cdat->dstr_380__translateinit.val[13] = (char) 0; cdat->dstr_380__translateinit.slen = 13; /*inistring dstr_381__translate_the_ve*/ /*_.VALSTR___V450*/ meltfptr[449] = (melt_ptr_t) & cdat->dstr_381__translate_the_ve; cdat->dstr_381__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_381__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_381__translate_the_ve. val) - 1); cdat->dstr_381__translate_the_ve.val[120] = (char) 0; cdat->dstr_381__translate_the_ve.slen = 120; /*inirout drout_382__TRANSLATEINIT_FLAVORED */ /*_.VALROUT___V451*/ meltfptr[450] = (melt_ptr_t) & cdat->drout_382__TRANSLATEINIT_FLAVORED; cdat->drout_382__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_382__TRANSLATEINIT_FLAVORED.routdescr, "TRANSLATEINIT_FLAVORED @warmelt-modes.melt:3890", MELT_ROUTDESCR_LEN - 1); cdat->drout_382__TRANSLATEINIT_FLAVORED.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_382__TRANSLATEINIT_FLAVORED, meltrout_60_warmelt_modes_TRANSLATEINIT_FLAVORED); /*iniclos dclo_383__TRANSLATEINIT_FLAVORED */ /*_.VALCLO___V453*/ meltfptr[452] = (melt_ptr_t) & cdat->dclo_383__TRANSLATEINIT_FLAVORED; cdat->dclo_383__TRANSLATEINIT_FLAVORED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_383__TRANSLATEINIT_FLAVORED.nbval = 0; /*inirout drout_384__LAMBDA_ */ /*_.VALROUT___V452*/ meltfptr[451] = (melt_ptr_t) & cdat->drout_384__LAMBDA_; cdat->drout_384__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_384__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:3931", MELT_ROUTDESCR_LEN - 1); cdat->drout_384__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_384__LAMBDA_, meltrout_61_warmelt_modes_LAMBDA___17__); /*inirout drout_385__TRANSLATEINITMODULE_DOCMD */ /*_.VALROUT___V454*/ meltfptr[453] = (melt_ptr_t) & cdat->drout_385__TRANSLATEINITMODULE_DOCMD; cdat->drout_385__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_385__TRANSLATEINITMODULE_DOCMD.routdescr, "TRANSLATEINITMODULE_DOCMD @warmelt-modes.melt:3979", MELT_ROUTDESCR_LEN - 1); cdat->drout_385__TRANSLATEINITMODULE_DOCMD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_385__TRANSLATEINITMODULE_DOCMD, meltrout_62_warmelt_modes_TRANSLATEINITMODULE_DOCMD); /*iniclos dclo_386__TRANSLATEINITMODULE_DOCMD */ /*_.VALCLO___V458*/ meltfptr[457] = (melt_ptr_t) & cdat->dclo_386__TRANSLATEINITMODULE_DOCMD; cdat->dclo_386__TRANSLATEINITMODULE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_386__TRANSLATEINITMODULE_DOCMD.nbval = 0; /*inistring dstr_387__quicklybuilt*/ /*_.VALSTR___V455*/ meltfptr[454] = (melt_ptr_t) & cdat->dstr_387__quicklybuilt; cdat->dstr_387__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_387__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_387__quicklybuilt.val) - 1); cdat->dstr_387__quicklybuilt.val[12] = (char) 0; cdat->dstr_387__quicklybuilt.slen = 12; /*inistring dstr_388__debugnoline*/ /*_.VALSTR___V456*/ meltfptr[455] = (melt_ptr_t) & cdat->dstr_388__debugnoline; cdat->dstr_388__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_388__debugnoline.val, "debugnoline", sizeof (cdat->dstr_388__debugnoline.val) - 1); cdat->dstr_388__debugnoline.val[11] = (char) 0; cdat->dstr_388__debugnoline.slen = 11; /*inistring dstr_389__optimized*/ /*_.VALSTR___V457*/ meltfptr[456] = (melt_ptr_t) & cdat->dstr_389__optimized; cdat->dstr_389__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_389__optimized.val, "optimized", sizeof (cdat->dstr_389__optimized.val) - 1); cdat->dstr_389__optimized.val[9] = (char) 0; cdat->dstr_389__optimized.slen = 9; /*iniobj dsym_390__TRANSLATEINITMODULE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V459*/ meltfptr[458]) /*_.VALDATA___V459*/ meltfptr[458] = (melt_ptr_t) & cdat->dsym_390__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_390__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_390__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_390__TRANSLATEINITMODULE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_390__TRANSLATEINITMODULE_MODE.obj_hash = 127033754; cdat->dsym_390__TRANSLATEINITMODULE_MODE.obj_len = 3; /*inistring dstr_391__TRANSLATEINITMOD*/ /*_.VALSTR___V460*/ meltfptr[459] = (melt_ptr_t) & cdat->dstr_391__TRANSLATEINITMOD; cdat->dstr_391__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_391__TRANSLATEINITMOD.val, "TRANSLATEINITMODULE_MODE", sizeof (cdat->dstr_391__TRANSLATEINITMOD. val) - 1); cdat->dstr_391__TRANSLATEINITMOD.val[24] = (char) 0; cdat->dstr_391__TRANSLATEINITMOD.slen = 24; MELT_LOCATION ("warmelt-modes.melt:3988:/ iniobj"); /*iniobj dobj_392__TRANSLATEINITMODULE_MODE*/ /*_.VALDATA___V461*/ meltfptr[460] = (melt_ptr_t) & cdat->dobj_392__TRANSLATEINITMODULE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_392__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_392__TRANSLATEINITMODULE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_392__TRANSLATEINITMODULE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_392__TRANSLATEINITMODULE_MODE.obj_hash = 890742167; cdat->dobj_392__TRANSLATEINITMODULE_MODE.obj_len = 5; /*inistring dstr_393__translateinitmod*/ /*_.VALSTR___V462*/ meltfptr[461] = (melt_ptr_t) & cdat->dstr_393__translateinitmod; cdat->dstr_393__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_393__translateinitmod.val, "translateinitmodule", sizeof (cdat->dstr_393__translateinitmod. val) - 1); cdat->dstr_393__translateinitmod.val[19] = (char) 0; cdat->dstr_393__translateinitmod.slen = 19; /*inistring dstr_394__translate_the_ve*/ /*_.VALSTR___V463*/ meltfptr[462] = (melt_ptr_t) & cdat->dstr_394__translate_the_ve; cdat->dstr_394__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_394__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_394__translate_the_ve. val) - 1); cdat->dstr_394__translate_the_ve.val[188] = (char) 0; cdat->dstr_394__translate_the_ve.slen = 188; /*inirout drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD */ /*_.VALROUT___V464*/ meltfptr[463] = (melt_ptr_t) & cdat->drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; cdat->drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.routdescr, "TRANSLATEINITMODULEQUICKLYBUILT_DOCMD @warmelt-modes.melt:3999", MELT_ROUTDESCR_LEN - 1); cdat->drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD, meltrout_63_warmelt_modes_TRANSLATEINITMODULEQUICKLYBUILT_DOCMD); /*iniclos dclo_396__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD */ /*_.VALCLO___V466*/ meltfptr[465] = (melt_ptr_t) & cdat->dclo_396__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD; cdat->dclo_396__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_396__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD.nbval = 0; /*inistring dstr_397__quicklybuilt*/ /*_.VALSTR___V465*/ meltfptr[464] = (melt_ptr_t) & cdat->dstr_397__quicklybuilt; cdat->dstr_397__quicklybuilt.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_397__quicklybuilt.val, "quicklybuilt", sizeof (cdat->dstr_397__quicklybuilt.val) - 1); cdat->dstr_397__quicklybuilt.val[12] = (char) 0; cdat->dstr_397__quicklybuilt.slen = 12; /*iniobj dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V467*/ meltfptr[466]) /*_.VALDATA___V467*/ meltfptr[466] = (melt_ptr_t) & cdat->dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_398__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_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_hash = 390251417; cdat->dsym_398__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_len = 3; /*inistring dstr_399__TRANSLATEINITMOD*/ /*_.VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) & cdat->dstr_399__TRANSLATEINITMOD; cdat->dstr_399__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_399__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEQUICKLYBUILT_MODE", sizeof (cdat->dstr_399__TRANSLATEINITMOD. val) - 1); cdat->dstr_399__TRANSLATEINITMOD.val[36] = (char) 0; cdat->dstr_399__TRANSLATEINITMOD.slen = 36; MELT_LOCATION ("warmelt-modes.melt:4006:/ iniobj"); /*iniobj dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE*/ /*_.VALDATA___V469*/ meltfptr[468] = (melt_ptr_t) & cdat->dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_400__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_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_hash = 1051557436; cdat->dobj_400__TRANSLATEINITMODULEQUICKLYBUILT_MODE.obj_len = 5; /*inistring dstr_401__translateinitmod*/ /*_.VALSTR___V470*/ meltfptr[469] = (melt_ptr_t) & cdat->dstr_401__translateinitmod; cdat->dstr_401__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_401__translateinitmod.val, "translateinitmodulequicklybuilt", sizeof (cdat->dstr_401__translateinitmod. val) - 1); cdat->dstr_401__translateinitmod.val[31] = (char) 0; cdat->dstr_401__translateinitmod.slen = 31; /*inistring dstr_402__translate_the_ve*/ /*_.VALSTR___V471*/ meltfptr[470] = (melt_ptr_t) & cdat->dstr_402__translate_the_ve; cdat->dstr_402__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_402__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_402__translate_the_ve. val) - 1); cdat->dstr_402__translate_the_ve.val[152] = (char) 0; cdat->dstr_402__translate_the_ve.slen = 152; /*inirout drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD */ /*_.VALROUT___V472*/ meltfptr[471] = (melt_ptr_t) & cdat->drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; cdat->drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.routdescr, "TRANSLATEINITMODULEDEBUGNOLINE_DOCMD @warmelt-modes.melt:4017", MELT_ROUTDESCR_LEN - 1); cdat->drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD, meltrout_64_warmelt_modes_TRANSLATEINITMODULEDEBUGNOLINE_DOCMD); /*iniclos dclo_404__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD */ /*_.VALCLO___V474*/ meltfptr[473] = (melt_ptr_t) & cdat->dclo_404__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD; cdat->dclo_404__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_404__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD.nbval = 0; /*inistring dstr_405__debugnoline*/ /*_.VALSTR___V473*/ meltfptr[472] = (melt_ptr_t) & cdat->dstr_405__debugnoline; cdat->dstr_405__debugnoline.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_405__debugnoline.val, "debugnoline", sizeof (cdat->dstr_405__debugnoline.val) - 1); cdat->dstr_405__debugnoline.val[11] = (char) 0; cdat->dstr_405__debugnoline.slen = 11; /*iniobj dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V475*/ meltfptr[474]) /*_.VALDATA___V475*/ meltfptr[474] = (melt_ptr_t) & cdat->dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_406__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_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_hash = 507442246; cdat->dsym_406__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_len = 3; /*inistring dstr_407__TRANSLATEINITMOD*/ /*_.VALSTR___V476*/ meltfptr[475] = (melt_ptr_t) & cdat->dstr_407__TRANSLATEINITMOD; cdat->dstr_407__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_407__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEDEBUGNOLINE_MODE", sizeof (cdat->dstr_407__TRANSLATEINITMOD. val) - 1); cdat->dstr_407__TRANSLATEINITMOD.val[35] = (char) 0; cdat->dstr_407__TRANSLATEINITMOD.slen = 35; MELT_LOCATION ("warmelt-modes.melt:4024:/ iniobj"); /*iniobj dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE*/ /*_.VALDATA___V477*/ meltfptr[476] = (melt_ptr_t) & cdat->dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_408__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_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_hash = 357040950; cdat->dobj_408__TRANSLATEINITMODULEDEBUGNOLINE_MODE.obj_len = 5; /*inistring dstr_409__translateinitmod*/ /*_.VALSTR___V478*/ meltfptr[477] = (melt_ptr_t) & cdat->dstr_409__translateinitmod; cdat->dstr_409__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_409__translateinitmod.val, "translateinitmoduledebugnoline", sizeof (cdat->dstr_409__translateinitmod. val) - 1); cdat->dstr_409__translateinitmod.val[30] = (char) 0; cdat->dstr_409__translateinitmod.slen = 30; /*inistring dstr_410__translate_the_ve*/ /*_.VALSTR___V479*/ meltfptr[478] = (melt_ptr_t) & cdat->dstr_410__translate_the_ve; cdat->dstr_410__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_410__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_410__translate_the_ve. val) - 1); cdat->dstr_410__translate_the_ve.val[151] = (char) 0; cdat->dstr_410__translate_the_ve.slen = 151; /*inirout drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD */ /*_.VALROUT___V480*/ meltfptr[479] = (melt_ptr_t) & cdat->drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD; cdat->drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD.routdescr, "TRANSLATEINITMODULEOPTIMIZED_DOCMD @warmelt-modes.melt:4035", MELT_ROUTDESCR_LEN - 1); cdat->drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD, meltrout_65_warmelt_modes_TRANSLATEINITMODULEOPTIMIZED_DOCMD); /*iniclos dclo_412__TRANSLATEINITMODULEOPTIMIZED_DOCMD */ /*_.VALCLO___V482*/ meltfptr[481] = (melt_ptr_t) & cdat->dclo_412__TRANSLATEINITMODULEOPTIMIZED_DOCMD; cdat->dclo_412__TRANSLATEINITMODULEOPTIMIZED_DOCMD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_412__TRANSLATEINITMODULEOPTIMIZED_DOCMD.nbval = 0; /*inistring dstr_413__optimized*/ /*_.VALSTR___V481*/ meltfptr[480] = (melt_ptr_t) & cdat->dstr_413__optimized; cdat->dstr_413__optimized.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_413__optimized.val, "optimized", sizeof (cdat->dstr_413__optimized.val) - 1); cdat->dstr_413__optimized.val[9] = (char) 0; cdat->dstr_413__optimized.slen = 9; /*iniobj dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE*/ /*uniqueobj*/ if (! /*_.VALDATA___V483*/ meltfptr[482]) /*_.VALDATA___V483*/ meltfptr[482] = (melt_ptr_t) & cdat->dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_414__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_414__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_hash = 17107115; cdat->dsym_414__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_len = 3; /*inistring dstr_415__TRANSLATEINITMOD*/ /*_.VALSTR___V484*/ meltfptr[483] = (melt_ptr_t) & cdat->dstr_415__TRANSLATEINITMOD; cdat->dstr_415__TRANSLATEINITMOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_415__TRANSLATEINITMOD.val, "TRANSLATEINITMODULEOPTIMIZED_MODE", sizeof (cdat->dstr_415__TRANSLATEINITMOD. val) - 1); cdat->dstr_415__TRANSLATEINITMOD.val[33] = (char) 0; cdat->dstr_415__TRANSLATEINITMOD.slen = 33; MELT_LOCATION ("warmelt-modes.melt:4042:/ iniobj"); /*iniobj dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE*/ /*_.VALDATA___V485*/ meltfptr[484] = (melt_ptr_t) & cdat->dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_416__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_416__TRANSLATEINITMODULEOPTIMIZED_MODE", ((meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); cdat->dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_hash = 376001282; cdat->dobj_416__TRANSLATEINITMODULEOPTIMIZED_MODE.obj_len = 5; /*inistring dstr_417__translateinitmod*/ /*_.VALSTR___V486*/ meltfptr[485] = (melt_ptr_t) & cdat->dstr_417__translateinitmod; cdat->dstr_417__translateinitmod.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_417__translateinitmod.val, "translateinitmoduleoptimized", sizeof (cdat->dstr_417__translateinitmod. val) - 1); cdat->dstr_417__translateinitmod.val[28] = (char) 0; cdat->dstr_417__translateinitmod.slen = 28; /*inistring dstr_418__translate_the_ve*/ /*_.VALSTR___V487*/ meltfptr[486] = (melt_ptr_t) & cdat->dstr_418__translate_the_ve; cdat->dstr_418__translate_the_ve.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_418__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_418__translate_the_ve. val) - 1); cdat->dstr_418__translate_the_ve.val[149] = (char) 0; cdat->dstr_418__translate_the_ve.slen = 149; /*inirout drout_419__REGISTER_INPUT_CHANNEL_HANDLER */ /*_.VALROUT___V488*/ meltfptr[487] = (melt_ptr_t) & cdat->drout_419__REGISTER_INPUT_CHANNEL_HANDLER; cdat->drout_419__REGISTER_INPUT_CHANNEL_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_419__REGISTER_INPUT_CHANNEL_HANDLER.routdescr, "REGISTER_INPUT_CHANNEL_HANDLER @warmelt-modes.melt:4054", MELT_ROUTDESCR_LEN - 1); cdat->drout_419__REGISTER_INPUT_CHANNEL_HANDLER.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_419__REGISTER_INPUT_CHANNEL_HANDLER, meltrout_66_warmelt_modes_REGISTER_INPUT_CHANNEL_HANDLER); /*iniclos dclo_420__REGISTER_INPUT_CHANNEL_HANDLER */ /*_.VALCLO___V489*/ meltfptr[488] = (melt_ptr_t) & cdat->dclo_420__REGISTER_INPUT_CHANNEL_HANDLER; cdat->dclo_420__REGISTER_INPUT_CHANNEL_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_420__REGISTER_INPUT_CHANNEL_HANDLER.nbval = 0; /*iniobj dsym_421__CLASS_INPUT_CHANNEL_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V490*/ meltfptr[489]) /*_.VALDATA___V490*/ meltfptr[489] = (melt_ptr_t) & cdat->dsym_421__CLASS_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_421__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_421__CLASS_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_421__CLASS_INPUT_CHANNEL_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_421__CLASS_INPUT_CHANNEL_HANDLER.obj_hash = 94880076; cdat->dsym_421__CLASS_INPUT_CHANNEL_HANDLER.obj_len = 3; /*inistring dstr_422__CLASS_INPUT_CHAN*/ /*_.VALSTR___V491*/ meltfptr[490] = (melt_ptr_t) & cdat->dstr_422__CLASS_INPUT_CHAN; cdat->dstr_422__CLASS_INPUT_CHAN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_422__CLASS_INPUT_CHAN.val, "CLASS_INPUT_CHANNEL_HANDLER", sizeof (cdat->dstr_422__CLASS_INPUT_CHAN. val) - 1); cdat->dstr_422__CLASS_INPUT_CHAN.val[27] = (char) 0; cdat->dstr_422__CLASS_INPUT_CHAN.slen = 27; /*iniobj dsym_423__DISCR_BUCKET_LONGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V492*/ meltfptr[491]) /*_.VALDATA___V492*/ meltfptr[491] = (melt_ptr_t) & cdat->dsym_423__DISCR_BUCKET_LONGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_423__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_423__DISCR_BUCKET_LONGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_423__DISCR_BUCKET_LONGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_423__DISCR_BUCKET_LONGS.obj_hash = 603682282; cdat->dsym_423__DISCR_BUCKET_LONGS.obj_len = 3; /*inistring dstr_424__DISCR_BUCKET_LON*/ /*_.VALSTR___V493*/ meltfptr[492] = (melt_ptr_t) & cdat->dstr_424__DISCR_BUCKET_LON; cdat->dstr_424__DISCR_BUCKET_LON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_424__DISCR_BUCKET_LON.val, "DISCR_BUCKET_LONGS", sizeof (cdat->dstr_424__DISCR_BUCKET_LON. val) - 1); cdat->dstr_424__DISCR_BUCKET_LON.val[18] = (char) 0; cdat->dstr_424__DISCR_BUCKET_LON.slen = 18; /*iniobj dsym_425__ALARM_BUCKET_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V494*/ meltfptr[493]) /*_.VALDATA___V494*/ meltfptr[493] = (melt_ptr_t) & cdat->dsym_425__ALARM_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_425__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_425__ALARM_BUCKET_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_425__ALARM_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_425__ALARM_BUCKET_REFERENCE.obj_hash = 584404197; cdat->dsym_425__ALARM_BUCKET_REFERENCE.obj_len = 3; /*inistring dstr_426__ALARM_BUCKET_REF*/ /*_.VALSTR___V495*/ meltfptr[494] = (melt_ptr_t) & cdat->dstr_426__ALARM_BUCKET_REF; cdat->dstr_426__ALARM_BUCKET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_426__ALARM_BUCKET_REF.val, "ALARM_BUCKET_REFERENCE", sizeof (cdat->dstr_426__ALARM_BUCKET_REF. val) - 1); cdat->dstr_426__ALARM_BUCKET_REF.val[22] = (char) 0; cdat->dstr_426__ALARM_BUCKET_REF.slen = 22; MELT_LOCATION ("warmelt-modes.melt:4109:/ iniobj"); /*iniobj dobj_427__ALARM_BUCKET_REFERENCE*/ /*_.VALDATA___V496*/ meltfptr[495] = (melt_ptr_t) & cdat->dobj_427__ALARM_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_427__ALARM_BUCKET_REFERENCE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_427__ALARM_BUCKET_REFERENCE", ((meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_427__ALARM_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); cdat->dobj_427__ALARM_BUCKET_REFERENCE.obj_hash = 441251119; cdat->dobj_427__ALARM_BUCKET_REFERENCE.obj_len = 1; /*inirout drout_428__HANDLE_ALARM_SIGNAL */ /*_.VALROUT___V497*/ meltfptr[496] = (melt_ptr_t) & cdat->drout_428__HANDLE_ALARM_SIGNAL; cdat->drout_428__HANDLE_ALARM_SIGNAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_428__HANDLE_ALARM_SIGNAL.routdescr, "HANDLE_ALARM_SIGNAL @warmelt-modes.melt:4112", MELT_ROUTDESCR_LEN - 1); cdat->drout_428__HANDLE_ALARM_SIGNAL.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_428__HANDLE_ALARM_SIGNAL, meltrout_67_warmelt_modes_HANDLE_ALARM_SIGNAL); /*iniclos dclo_429__HANDLE_ALARM_SIGNAL */ /*_.VALCLO___V499*/ meltfptr[498] = (melt_ptr_t) & cdat->dclo_429__HANDLE_ALARM_SIGNAL; cdat->dclo_429__HANDLE_ALARM_SIGNAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_429__HANDLE_ALARM_SIGNAL.nbval = 0; /*inirout drout_430__LAMBDA_ */ /*_.VALROUT___V498*/ meltfptr[497] = (melt_ptr_t) & cdat->drout_430__LAMBDA_; cdat->drout_430__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_430__LAMBDA_.routdescr, "LAMBDA_ @warmelt-modes.melt:4124", MELT_ROUTDESCR_LEN - 1); cdat->drout_430__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_430__LAMBDA_, meltrout_68_warmelt_modes_LAMBDA___18__); /*iniobj dsym_431__CLASS_ALARM_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V500*/ meltfptr[499]) /*_.VALDATA___V500*/ meltfptr[499] = (melt_ptr_t) & cdat->dsym_431__CLASS_ALARM_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_431__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_431__CLASS_ALARM_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_431__CLASS_ALARM_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_431__CLASS_ALARM_HANDLER.obj_hash = 841081062; cdat->dsym_431__CLASS_ALARM_HANDLER.obj_len = 3; /*inistring dstr_432__CLASS_ALARM_HAND*/ /*_.VALSTR___V501*/ meltfptr[500] = (melt_ptr_t) & cdat->dstr_432__CLASS_ALARM_HAND; cdat->dstr_432__CLASS_ALARM_HAND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_432__CLASS_ALARM_HAND.val, "CLASS_ALARM_HANDLER", sizeof (cdat->dstr_432__CLASS_ALARM_HAND. val) - 1); cdat->dstr_432__CLASS_ALARM_HAND.val[19] = (char) 0; cdat->dstr_432__CLASS_ALARM_HAND.slen = 19; /*inirout drout_433__REGISTER_ALARM_TIMER */ /*_.VALROUT___V502*/ meltfptr[501] = (melt_ptr_t) & cdat->drout_433__REGISTER_ALARM_TIMER; cdat->drout_433__REGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_433__REGISTER_ALARM_TIMER.routdescr, "REGISTER_ALARM_TIMER @warmelt-modes.melt:4169", MELT_ROUTDESCR_LEN - 1); cdat->drout_433__REGISTER_ALARM_TIMER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_433__REGISTER_ALARM_TIMER, meltrout_69_warmelt_modes_REGISTER_ALARM_TIMER); /*iniclos dclo_434__REGISTER_ALARM_TIMER */ /*_.VALCLO___V503*/ meltfptr[502] = (melt_ptr_t) & cdat->dclo_434__REGISTER_ALARM_TIMER; cdat->dclo_434__REGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_434__REGISTER_ALARM_TIMER.nbval = 0; /*iniobj dsym_435__DISCR_CONSTANT_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V504*/ meltfptr[503]) /*_.VALDATA___V504*/ meltfptr[503] = (melt_ptr_t) & cdat->dsym_435__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_435__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_435__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_435__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_435__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; cdat->dsym_435__DISCR_CONSTANT_INTEGER.obj_len = 3; /*inistring dstr_436__DISCR_CONSTANT_I*/ /*_.VALSTR___V505*/ meltfptr[504] = (melt_ptr_t) & cdat->dstr_436__DISCR_CONSTANT_I; cdat->dstr_436__DISCR_CONSTANT_I.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_436__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_436__DISCR_CONSTANT_I. val) - 1); cdat->dstr_436__DISCR_CONSTANT_I.val[22] = (char) 0; cdat->dstr_436__DISCR_CONSTANT_I.slen = 22; /*inirout drout_437__UNREGISTER_ALARM_TIMER */ /*_.VALROUT___V506*/ meltfptr[505] = (melt_ptr_t) & cdat->drout_437__UNREGISTER_ALARM_TIMER; cdat->drout_437__UNREGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_437__UNREGISTER_ALARM_TIMER.routdescr, "UNREGISTER_ALARM_TIMER @warmelt-modes.melt:4202", MELT_ROUTDESCR_LEN - 1); cdat->drout_437__UNREGISTER_ALARM_TIMER.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_437__UNREGISTER_ALARM_TIMER, meltrout_70_warmelt_modes_UNREGISTER_ALARM_TIMER); /*iniclos dclo_438__UNREGISTER_ALARM_TIMER */ /*_.VALCLO___V507*/ meltfptr[506] = (melt_ptr_t) & cdat->dclo_438__UNREGISTER_ALARM_TIMER; cdat->dclo_438__UNREGISTER_ALARM_TIMER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_438__UNREGISTER_ALARM_TIMER.nbval = 0; /*iniobj dsym_439__CHILDPROC_BUCKET_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V508*/ meltfptr[507]) /*_.VALDATA___V508*/ meltfptr[507] = (melt_ptr_t) & cdat->dsym_439__CHILDPROC_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_439__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_439__CHILDPROC_BUCKET_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_439__CHILDPROC_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_439__CHILDPROC_BUCKET_REFERENCE.obj_hash = 519792561; cdat->dsym_439__CHILDPROC_BUCKET_REFERENCE.obj_len = 3; /*inistring dstr_440__CHILDPROC_BUCKET*/ /*_.VALSTR___V509*/ meltfptr[508] = (melt_ptr_t) & cdat->dstr_440__CHILDPROC_BUCKET; cdat->dstr_440__CHILDPROC_BUCKET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_440__CHILDPROC_BUCKET.val, "CHILDPROC_BUCKET_REFERENCE", sizeof (cdat->dstr_440__CHILDPROC_BUCKET. val) - 1); cdat->dstr_440__CHILDPROC_BUCKET.val[26] = (char) 0; cdat->dstr_440__CHILDPROC_BUCKET.slen = 26; MELT_LOCATION ("warmelt-modes.melt:4234:/ iniobj"); /*iniobj dobj_441__CHILDPROC_BUCKET_REFERENCE*/ /*_.VALDATA___V510*/ meltfptr[509] = (melt_ptr_t) & cdat->dobj_441__CHILDPROC_BUCKET_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_441__CHILDPROC_BUCKET_REFERENCE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_441__CHILDPROC_BUCKET_REFERENCE", ((meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_441__CHILDPROC_BUCKET_REFERENCE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); cdat->dobj_441__CHILDPROC_BUCKET_REFERENCE.obj_hash = 683081149; cdat->dobj_441__CHILDPROC_BUCKET_REFERENCE.obj_len = 1; /*inirout drout_442__CHILD_PROCESS_SIGCHLD_HANDLER */ /*_.VALROUT___V511*/ meltfptr[510] = (melt_ptr_t) & cdat->drout_442__CHILD_PROCESS_SIGCHLD_HANDLER; cdat->drout_442__CHILD_PROCESS_SIGCHLD_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_442__CHILD_PROCESS_SIGCHLD_HANDLER.routdescr, "CHILD_PROCESS_SIGCHLD_HANDLER @warmelt-modes.melt:4237", MELT_ROUTDESCR_LEN - 1); cdat->drout_442__CHILD_PROCESS_SIGCHLD_HANDLER.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_442__CHILD_PROCESS_SIGCHLD_HANDLER, meltrout_71_warmelt_modes_CHILD_PROCESS_SIGCHLD_HANDLER); /*iniclos dclo_443__CHILD_PROCESS_SIGCHLD_HANDLER */ /*_.VALCLO___V512*/ meltfptr[511] = (melt_ptr_t) & cdat->dclo_443__CHILD_PROCESS_SIGCHLD_HANDLER; cdat->dclo_443__CHILD_PROCESS_SIGCHLD_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_443__CHILD_PROCESS_SIGCHLD_HANDLER.nbval = 0; /*iniobj dsym_444__CLASS_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V513*/ meltfptr[512]) /*_.VALDATA___V513*/ meltfptr[512] = (melt_ptr_t) & cdat->dsym_444__CLASS_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_444__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_444__CLASS_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_444__CLASS_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_444__CLASS_CHILD_PROCESS_HANDLER.obj_hash = 438603295; cdat->dsym_444__CLASS_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_445__CLASS_CHILD_PROC*/ /*_.VALSTR___V514*/ meltfptr[513] = (melt_ptr_t) & cdat->dstr_445__CLASS_CHILD_PROC; cdat->dstr_445__CLASS_CHILD_PROC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_445__CLASS_CHILD_PROC.val, "CLASS_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_445__CLASS_CHILD_PROC. val) - 1); cdat->dstr_445__CLASS_CHILD_PROC.val[27] = (char) 0; cdat->dstr_445__CLASS_CHILD_PROC.slen = 27; /*inirout drout_446__REGISTER_CHILD_PROCESS_HANDLER */ /*_.VALROUT___V515*/ meltfptr[514] = (melt_ptr_t) & cdat->drout_446__REGISTER_CHILD_PROCESS_HANDLER; cdat->drout_446__REGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_446__REGISTER_CHILD_PROCESS_HANDLER.routdescr, "REGISTER_CHILD_PROCESS_HANDLER @warmelt-modes.melt:4345", MELT_ROUTDESCR_LEN - 1); cdat->drout_446__REGISTER_CHILD_PROCESS_HANDLER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_446__REGISTER_CHILD_PROCESS_HANDLER, meltrout_72_warmelt_modes_REGISTER_CHILD_PROCESS_HANDLER); /*iniclos dclo_447__REGISTER_CHILD_PROCESS_HANDLER */ /*_.VALCLO___V516*/ meltfptr[515] = (melt_ptr_t) & cdat->dclo_447__REGISTER_CHILD_PROCESS_HANDLER; cdat->dclo_447__REGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_447__REGISTER_CHILD_PROCESS_HANDLER.nbval = 0; /*inirout drout_448__UNREGISTER_CHILD_PROCESS_HANDLER */ /*_.VALROUT___V517*/ meltfptr[516] = (melt_ptr_t) & cdat->drout_448__UNREGISTER_CHILD_PROCESS_HANDLER; cdat->drout_448__UNREGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_448__UNREGISTER_CHILD_PROCESS_HANDLER.routdescr, "UNREGISTER_CHILD_PROCESS_HANDLER @warmelt-modes.melt:4389", MELT_ROUTDESCR_LEN - 1); cdat->drout_448__UNREGISTER_CHILD_PROCESS_HANDLER.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_448__UNREGISTER_CHILD_PROCESS_HANDLER, meltrout_73_warmelt_modes_UNREGISTER_CHILD_PROCESS_HANDLER); /*iniclos dclo_449__UNREGISTER_CHILD_PROCESS_HANDLER */ /*_.VALCLO___V518*/ meltfptr[517] = (melt_ptr_t) & cdat->dclo_449__UNREGISTER_CHILD_PROCESS_HANDLER; cdat->dclo_449__UNREGISTER_CHILD_PROCESS_HANDLER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_449__UNREGISTER_CHILD_PROCESS_HANDLER.nbval = 0; /*iniobj dsym_450__REGISTER_ALARM_TIMER*/ /*uniqueobj*/ if (! /*_.VALDATA___V519*/ meltfptr[518]) /*_.VALDATA___V519*/ meltfptr[518] = (melt_ptr_t) & cdat->dsym_450__REGISTER_ALARM_TIMER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_450__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_450__REGISTER_ALARM_TIMER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_450__REGISTER_ALARM_TIMER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_450__REGISTER_ALARM_TIMER.obj_hash = 507442246; cdat->dsym_450__REGISTER_ALARM_TIMER.obj_len = 3; /*inistring dstr_451__REGISTER_ALARM_T*/ /*_.VALSTR___V520*/ meltfptr[519] = (melt_ptr_t) & cdat->dstr_451__REGISTER_ALARM_T; cdat->dstr_451__REGISTER_ALARM_T.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_451__REGISTER_ALARM_T.val, "REGISTER_ALARM_TIMER", sizeof (cdat->dstr_451__REGISTER_ALARM_T. val) - 1); cdat->dstr_451__REGISTER_ALARM_T.val[20] = (char) 0; cdat->dstr_451__REGISTER_ALARM_T.slen = 20; /*iniobj dsym_452__REGISTER_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V521*/ meltfptr[520]) /*_.VALDATA___V521*/ meltfptr[520] = (melt_ptr_t) & cdat->dsym_452__REGISTER_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_452__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_452__REGISTER_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_452__REGISTER_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_452__REGISTER_CHILD_PROCESS_HANDLER.obj_hash = 303087376; cdat->dsym_452__REGISTER_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_453__REGISTER_CHILD_P*/ /*_.VALSTR___V522*/ meltfptr[521] = (melt_ptr_t) & cdat->dstr_453__REGISTER_CHILD_P; cdat->dstr_453__REGISTER_CHILD_P.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_453__REGISTER_CHILD_P.val, "REGISTER_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_453__REGISTER_CHILD_P. val) - 1); cdat->dstr_453__REGISTER_CHILD_P.val[30] = (char) 0; cdat->dstr_453__REGISTER_CHILD_P.slen = 30; /*iniobj dsym_454__REGISTER_INPUT_CHANNEL_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V523*/ meltfptr[522]) /*_.VALDATA___V523*/ meltfptr[522] = (melt_ptr_t) & cdat->dsym_454__REGISTER_INPUT_CHANNEL_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_454__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_454__REGISTER_INPUT_CHANNEL_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_454__REGISTER_INPUT_CHANNEL_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_454__REGISTER_INPUT_CHANNEL_HANDLER.obj_hash = 237908126; cdat->dsym_454__REGISTER_INPUT_CHANNEL_HANDLER.obj_len = 3; /*inistring dstr_455__REGISTER_INPUT_C*/ /*_.VALSTR___V524*/ meltfptr[523] = (melt_ptr_t) & cdat->dstr_455__REGISTER_INPUT_C; cdat->dstr_455__REGISTER_INPUT_C.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_455__REGISTER_INPUT_C.val, "REGISTER_INPUT_CHANNEL_HANDLER", sizeof (cdat->dstr_455__REGISTER_INPUT_C. val) - 1); cdat->dstr_455__REGISTER_INPUT_C.val[30] = (char) 0; cdat->dstr_455__REGISTER_INPUT_C.slen = 30; /*iniobj dsym_456__UNREGISTER_ALARM_TIMER*/ /*uniqueobj*/ if (! /*_.VALDATA___V525*/ meltfptr[524]) /*_.VALDATA___V525*/ meltfptr[524] = (melt_ptr_t) & cdat->dsym_456__UNREGISTER_ALARM_TIMER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_456__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_456__UNREGISTER_ALARM_TIMER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_456__UNREGISTER_ALARM_TIMER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_456__UNREGISTER_ALARM_TIMER.obj_hash = 943290870; cdat->dsym_456__UNREGISTER_ALARM_TIMER.obj_len = 3; /*inistring dstr_457__UNREGISTER_ALARM*/ /*_.VALSTR___V526*/ meltfptr[525] = (melt_ptr_t) & cdat->dstr_457__UNREGISTER_ALARM; cdat->dstr_457__UNREGISTER_ALARM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_457__UNREGISTER_ALARM.val, "UNREGISTER_ALARM_TIMER", sizeof (cdat->dstr_457__UNREGISTER_ALARM. val) - 1); cdat->dstr_457__UNREGISTER_ALARM.val[22] = (char) 0; cdat->dstr_457__UNREGISTER_ALARM.slen = 22; /*iniobj dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER*/ /*uniqueobj*/ if (! /*_.VALDATA___V527*/ meltfptr[526]) /*_.VALDATA___V527*/ meltfptr[526] = (melt_ptr_t) & cdat->dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_458__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_458__UNREGISTER_CHILD_PROCESS_HANDLER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER.obj_hash = 167696883; cdat->dsym_458__UNREGISTER_CHILD_PROCESS_HANDLER.obj_len = 3; /*inistring dstr_459__UNREGISTER_CHILD*/ /*_.VALSTR___V528*/ meltfptr[527] = (melt_ptr_t) & cdat->dstr_459__UNREGISTER_CHILD; cdat->dstr_459__UNREGISTER_CHILD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_459__UNREGISTER_CHILD.val, "UNREGISTER_CHILD_PROCESS_HANDLER", sizeof (cdat->dstr_459__UNREGISTER_CHILD. val) - 1); cdat->dstr_459__UNREGISTER_CHILD.val[32] = (char) 0; cdat->dstr_459__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__; #define meltframe meltfram__ memset (&meltfram__, 0, sizeof (meltfram__)); meltfram__.mcfr_nbvar = 551; 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 */ -3770; ((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, "bad MELT 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___V72*/ meltfptr[71]) /*_.VALDATA___V72*/ meltfptr[71] = (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___V74*/ meltfptr[73]) /*_.VALDATA___V74*/ meltfptr[73] = (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___V76*/ meltfptr[75]) /*_.VALDATA___V76*/ meltfptr[75] = (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___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (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___V80*/ meltfptr[79]) /*_.VALDATA___V80*/ meltfptr[79] = (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___V82*/ meltfptr[81]) /*_.VALDATA___V82*/ meltfptr[81] = (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___V90*/ meltfptr[89]) /*_.VALDATA___V90*/ meltfptr[89] = (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___V92*/ meltfptr[91]) /*_.VALDATA___V92*/ meltfptr[91] = (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___V94*/ meltfptr[93]) /*_.VALDATA___V94*/ meltfptr[93] = (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___V96*/ meltfptr[95]) /*_.VALDATA___V96*/ meltfptr[95] = (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___V87*/ meltfptr[86] = (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___V98*/ meltfptr[97]) /*_.VALDATA___V98*/ meltfptr[97] = (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___V107*/ meltfptr[106]) /*_.VALDATA___V107*/ meltfptr[106] = (melt_ptr_t) sy_RUNDEBUG_MODE; } /*^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___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) sy_TRANSLATE_RUN_MELT_EXPRESSIONS; } /*^getnamedsymbol */ /*getnamedsym:EVAL_MODE */ { melt_ptr_t sy_EVAL_MODE = meltgc_named_symbol ("EVAL_MODE", MELT_GET); if (sy_EVAL_MODE && NULL == /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) sy_EVAL_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___V121*/ meltfptr[120]) /*_.VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) sy_CLASS_MAKEDOC_INFO; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PROPED */ { melt_ptr_t sy_CLASS_PROPED = meltgc_named_symbol ("CLASS_PROPED", MELT_GET); if (sy_CLASS_PROPED && NULL == /*_.VALDATA___V123*/ meltfptr[122]) /*_.VALDATA___V123*/ meltfptr[122] = (melt_ptr_t) sy_CLASS_PROPED; } /*^getnamedsymbol */ /*getnamedsym:MKDOC_PRIMITIVES */ { melt_ptr_t sy_MKDOC_PRIMITIVES = meltgc_named_symbol ("MKDOC_PRIMITIVES", MELT_GET); if (sy_MKDOC_PRIMITIVES && NULL == /*_.VALDATA___V159*/ meltfptr[158]) /*_.VALDATA___V159*/ meltfptr[158] = (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___V161*/ meltfptr[160]) /*_.VALDATA___V161*/ meltfptr[160] = (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___V163*/ meltfptr[162]) /*_.VALDATA___V163*/ meltfptr[162] = (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___V165*/ meltfptr[164]) /*_.VALDATA___V165*/ meltfptr[164] = (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___V167*/ meltfptr[166]) /*_.VALDATA___V167*/ meltfptr[166] = (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___V169*/ meltfptr[168]) /*_.VALDATA___V169*/ meltfptr[168] = (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___V171*/ meltfptr[170]) /*_.VALDATA___V171*/ meltfptr[170] = (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___V173*/ meltfptr[172]) /*_.VALDATA___V173*/ meltfptr[172] = (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___V175*/ meltfptr[174]) /*_.VALDATA___V175*/ meltfptr[174] = (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___V177*/ meltfptr[176]) /*_.VALDATA___V177*/ meltfptr[176] = (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___V179*/ meltfptr[178]) /*_.VALDATA___V179*/ meltfptr[178] = (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___V181*/ meltfptr[180]) /*_.VALDATA___V181*/ meltfptr[180] = (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___V183*/ meltfptr[182]) /*_.VALDATA___V183*/ meltfptr[182] = (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___V185*/ meltfptr[184]) /*_.VALDATA___V185*/ meltfptr[184] = (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___V187*/ meltfptr[186]) /*_.VALDATA___V187*/ meltfptr[186] = (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___V197*/ meltfptr[196]) /*_.VALDATA___V197*/ meltfptr[196] = (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___V199*/ meltfptr[198]) /*_.VALDATA___V199*/ meltfptr[198] = (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___V201*/ meltfptr[200]) /*_.VALDATA___V201*/ meltfptr[200] = (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___V203*/ meltfptr[202]) /*_.VALDATA___V203*/ meltfptr[202] = (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___V205*/ meltfptr[204]) /*_.VALDATA___V205*/ meltfptr[204] = (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___V207*/ meltfptr[206]) /*_.VALDATA___V207*/ meltfptr[206] = (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___V209*/ meltfptr[208]) /*_.VALDATA___V209*/ meltfptr[208] = (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___V211*/ meltfptr[210]) /*_.VALDATA___V211*/ meltfptr[210] = (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___V213*/ meltfptr[212]) /*_.VALDATA___V213*/ meltfptr[212] = (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___V215*/ meltfptr[214]) /*_.VALDATA___V215*/ meltfptr[214] = (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___V217*/ meltfptr[216]) /*_.VALDATA___V217*/ meltfptr[216] = (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___V219*/ meltfptr[218]) /*_.VALDATA___V219*/ meltfptr[218] = (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___V221*/ meltfptr[220]) /*_.VALDATA___V221*/ meltfptr[220] = (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___V223*/ meltfptr[222]) /*_.VALDATA___V223*/ meltfptr[222] = (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___V225*/ meltfptr[224]) /*_.VALDATA___V225*/ meltfptr[224] = (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___V227*/ meltfptr[226]) /*_.VALDATA___V227*/ meltfptr[226] = (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___V229*/ meltfptr[228]) /*_.VALDATA___V229*/ meltfptr[228] = (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___V231*/ meltfptr[230]) /*_.VALDATA___V231*/ meltfptr[230] = (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___V233*/ meltfptr[232]) /*_.VALDATA___V233*/ meltfptr[232] = (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___V237*/ meltfptr[236]) /*_.VALDATA___V237*/ meltfptr[236] = (melt_ptr_t) sy_CLASS_LOCATED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CTYPE */ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol ("CLASS_CTYPE", MELT_GET); if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V241*/ meltfptr[240]) /*_.VALDATA___V241*/ meltfptr[240] = (melt_ptr_t) sy_CLASS_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___V247*/ meltfptr[246]) /*_.VALDATA___V247*/ meltfptr[246] = (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___V249*/ meltfptr[248]) /*_.VALDATA___V249*/ meltfptr[248] = (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___V251*/ meltfptr[250]) /*_.VALDATA___V251*/ meltfptr[250] = (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___V270*/ meltfptr[269]) /*_.VALDATA___V270*/ meltfptr[269] = (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___V283*/ meltfptr[282]) /*_.VALDATA___V283*/ meltfptr[282] = (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___V288*/ meltfptr[287]) /*_.VALDATA___V288*/ meltfptr[287] = (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___V292*/ meltfptr[291]) /*_.VALDATA___V292*/ meltfptr[291] = (melt_ptr_t) sy_DISCR_STRBUF; } /*^getnamedsymbol */ /*getnamedsym:CLASS_REFERENCE */ { melt_ptr_t sy_CLASS_REFERENCE = meltgc_named_symbol ("CLASS_REFERENCE", MELT_GET); if (sy_CLASS_REFERENCE && NULL == /*_.VALDATA___V297*/ meltfptr[296]) /*_.VALDATA___V297*/ meltfptr[296] = (melt_ptr_t) sy_CLASS_REFERENCE; } /*^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___V299*/ meltfptr[298]) /*_.VALDATA___V299*/ meltfptr[298] = (melt_ptr_t) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol */ /*getnamedsym:DISCR_INTEGER */ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol ("DISCR_INTEGER", MELT_GET); if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V301*/ meltfptr[300]) /*_.VALDATA___V301*/ meltfptr[300] = (melt_ptr_t) sy_DISCR_INTEGER; } /*^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___V303*/ meltfptr[302]) /*_.VALDATA___V303*/ meltfptr[302] = (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___V305*/ meltfptr[304]) /*_.VALDATA___V305*/ meltfptr[304] = (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___V307*/ meltfptr[306]) /*_.VALDATA___V307*/ meltfptr[306] = (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___V309*/ meltfptr[308]) /*_.VALDATA___V309*/ meltfptr[308] = (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___V311*/ meltfptr[310]) /*_.VALDATA___V311*/ meltfptr[310] = (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___V318*/ meltfptr[317]) /*_.VALDATA___V318*/ meltfptr[317] = (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___V322*/ meltfptr[321]) /*_.VALDATA___V322*/ meltfptr[321] = (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___V329*/ meltfptr[328]) /*_.VALDATA___V329*/ meltfptr[328] = (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___V337*/ meltfptr[336]) /*_.VALDATA___V337*/ meltfptr[336] = (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___V339*/ meltfptr[338]) /*_.VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) sy_CLASS_CTYPE_GTY; } /*^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___V348*/ meltfptr[347]) /*_.VALDATA___V348*/ meltfptr[347] = (melt_ptr_t) sy_CLASS_VARISIZED_VALUE_DESCRIPTOR; } /*^getnamedsymbol */ /*getnamedsym:ADD2OUT */ { melt_ptr_t sy_ADD2OUT = meltgc_named_symbol ("ADD2OUT", MELT_GET); if (sy_ADD2OUT && NULL == /*_.VALDATA___V356*/ meltfptr[355]) /*_.VALDATA___V356*/ meltfptr[355] = (melt_ptr_t) sy_ADD2OUT; } /*^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___V372*/ meltfptr[371]) /*_.VALDATA___V372*/ meltfptr[371] = (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___V374*/ meltfptr[373]) /*_.VALDATA___V374*/ meltfptr[373] = (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___V385*/ meltfptr[384]) /*_.VALDATA___V385*/ meltfptr[384] = (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___V387*/ meltfptr[386]) /*_.VALDATA___V387*/ meltfptr[386] = (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___V389*/ meltfptr[388]) /*_.VALDATA___V389*/ meltfptr[388] = (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___V391*/ meltfptr[390]) /*_.VALDATA___V391*/ meltfptr[390] = (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___V393*/ meltfptr[392]) /*_.VALDATA___V393*/ meltfptr[392] = (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___V405*/ meltfptr[404]) /*_.VALDATA___V405*/ meltfptr[404] = (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___V413*/ meltfptr[412]) /*_.VALDATA___V413*/ meltfptr[412] = (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___V421*/ meltfptr[420]) /*_.VALDATA___V421*/ meltfptr[420] = (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___V429*/ meltfptr[428]) /*_.VALDATA___V429*/ meltfptr[428] = (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___V436*/ meltfptr[435]) /*_.VALDATA___V436*/ meltfptr[435] = (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___V444*/ meltfptr[443]) /*_.VALDATA___V444*/ meltfptr[443] = (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___V446*/ meltfptr[445]) /*_.VALDATA___V446*/ meltfptr[445] = (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___V459*/ meltfptr[458]) /*_.VALDATA___V459*/ meltfptr[458] = (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___V467*/ meltfptr[466]) /*_.VALDATA___V467*/ meltfptr[466] = (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___V475*/ meltfptr[474]) /*_.VALDATA___V475*/ meltfptr[474] = (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___V483*/ meltfptr[482]) /*_.VALDATA___V483*/ meltfptr[482] = (melt_ptr_t) sy_TRANSLATEINITMODULEOPTIMIZED_MODE; } /*^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___V490*/ meltfptr[489]) /*_.VALDATA___V490*/ meltfptr[489] = (melt_ptr_t) sy_CLASS_INPUT_CHANNEL_HANDLER; } /*^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___V492*/ meltfptr[491]) /*_.VALDATA___V492*/ meltfptr[491] = (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___V494*/ meltfptr[493]) /*_.VALDATA___V494*/ meltfptr[493] = (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___V500*/ meltfptr[499]) /*_.VALDATA___V500*/ meltfptr[499] = (melt_ptr_t) sy_CLASS_ALARM_HANDLER; } /*^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___V504*/ meltfptr[503]) /*_.VALDATA___V504*/ meltfptr[503] = (melt_ptr_t) sy_DISCR_CONSTANT_INTEGER; } /*^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___V508*/ meltfptr[507]) /*_.VALDATA___V508*/ meltfptr[507] = (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___V513*/ meltfptr[512]) /*_.VALDATA___V513*/ meltfptr[512] = (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___V519*/ meltfptr[518]) /*_.VALDATA___V519*/ meltfptr[518] = (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___V521*/ meltfptr[520]) /*_.VALDATA___V521*/ meltfptr[520] = (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___V523*/ meltfptr[522]) /*_.VALDATA___V523*/ meltfptr[522] = (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___V525*/ meltfptr[524]) /*_.VALDATA___V525*/ meltfptr[524] = (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___V527*/ meltfptr[526]) /*_.VALDATA___V527*/ meltfptr[526] = (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___V72*/ meltfptr[71]), (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___V74*/ meltfptr[73]), (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___V76*/ meltfptr[75]), (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___V78*/ meltfptr[77]), (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___V80*/ meltfptr[79]), (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___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 = "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___V92*/ meltfptr[91]), (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___V94*/ meltfptr[93]), (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___V96*/ meltfptr[95]), (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__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_PROPED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_PROPED__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V123*/ meltfptr[122]), (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__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V197*/ meltfptr[196]), (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__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198]), (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__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200]), (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__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202]), (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__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204]), (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__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V207*/ meltfptr[206]), (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__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V209*/ meltfptr[208]), (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__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210]), (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__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V213*/ meltfptr[212]), (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__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214]), (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__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216]), (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__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]), (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__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V221*/ meltfptr[220]), (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__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V223*/ meltfptr[222]), (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__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V225*/ meltfptr[224]), (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__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226]), (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__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V229*/ meltfptr[228]), (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__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SOURCE_EXPORT_MACRO"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_LOCATED"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.CLASS_LOCATED__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236]), (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__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V241*/ meltfptr[240]), (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__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246]), (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__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248]), (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__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V251*/ meltfptr[250]), (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__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V270*/ meltfptr[269]), (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__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V283*/ meltfptr[282]), (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__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V288*/ meltfptr[287]), (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__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291]), (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__V46*/ meltfptr[45] = 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_MAP_OBJECTS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_MAP_OBJECTS__V47*/ meltfptr[46] = 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 = "DISCR_INTEGER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.DISCR_INTEGER__V48*/ meltfptr[47] = 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 = "MELT_MODE_REFERENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MELT_MODE_REFERENCE__V49*/ meltfptr[48] = 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 = "LIST_APPEND2LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.LIST_APPEND2LIST__V50*/ meltfptr[49] = 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 = "MACROEXPAND_TOPLEVEL_LIST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MACROEXPAND_TOPLEVEL_LIST__V51*/ meltfptr[50] = 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 = "MACROEXPAND_1"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.MACROEXPAND_1__V52*/ meltfptr[51] = 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 = "FIND_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.FIND_ENV__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317]), (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__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336]), (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__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]), (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__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347]), (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__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V356*/ meltfptr[355]), (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__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V372*/ meltfptr[371]), (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__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373]), (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__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V385*/ meltfptr[384]), (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__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V387*/ meltfptr[386]), (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__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388]), (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__V63*/ meltfptr[62] = 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 = "COMPILE_LIST_SEXPR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-modes"; /*_.COMPILE_LIST_SEXPR__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V444*/ meltfptr[443]), (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__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489]), (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__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]), (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__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V500*/ meltfptr[499]), (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__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503]), (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__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512]), (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);; 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___V70*/ meltfptr[69])) == 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___V70*/ meltfptr[69])->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___V70*/ meltfptr[69])) == 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___V70*/ meltfptr[69])->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___V70*/ meltfptr[69])) == 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___V70*/ meltfptr[69])->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___V70*/ meltfptr[69])) == 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___V70*/ meltfptr[69])->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___V70*/ meltfptr[69])) == 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___V70*/ meltfptr[69])->tabval[4] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:35:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V70*/ meltfptr[69]); /*putclosurout#1 */ melt_assertmsg ("putclosrout#1 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#1 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V70*/ meltfptr[69])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V71*/ meltfptr[70])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V70*/ meltfptr[69]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V71*/ meltfptr[70]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V72*/ meltfptr[71])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V72*/ meltfptr[71])))); ((meltobject_ptr_t) ( /*_.VALDATA___V72*/ meltfptr[71]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V73*/ meltfptr[72]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V72*/ meltfptr[71]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V74*/ meltfptr[73])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V74*/ meltfptr[73])))); ((meltobject_ptr_t) ( /*_.VALDATA___V74*/ meltfptr[73]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V75*/ meltfptr[74]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V74*/ meltfptr[73]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75])))); ((meltobject_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V77*/ meltfptr[76]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V76*/ meltfptr[75]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])))); ((meltobject_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V79*/ meltfptr[78]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V78*/ meltfptr[77]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79])))); ((meltobject_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V81*/ meltfptr[80]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V80*/ meltfptr[79]); /*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_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == 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___V84*/ meltfptr[83])->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___V84*/ meltfptr[83])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#6", NULL != ( /*_.VALSTR___V85*/ meltfptr[84])); ((meltroutine_ptr_t) /*_.VALROUT___V84*/ meltfptr[83])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V85*/ meltfptr[84]); 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___V84*/ meltfptr[83])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#7", NULL != ( /*_.VALSTR___V86*/ meltfptr[85])); ((meltroutine_ptr_t) /*_.VALROUT___V84*/ meltfptr[83])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V86*/ meltfptr[85]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86])))); ((meltobject_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V88*/ meltfptr[87]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V87*/ meltfptr[86]); 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___V84*/ meltfptr[83])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_15__RUNFILE_DOCMD#8", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V84*/ meltfptr[83])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:51:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V84*/ meltfptr[83]); /*putclosurout#2 */ melt_assertmsg ("putclosrout#2 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V89*/ meltfptr[88])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#2 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V84*/ meltfptr[83])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V89*/ meltfptr[88])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V84*/ meltfptr[83]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V89*/ meltfptr[88]); /*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]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V94*/ meltfptr[93])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V94*/ meltfptr[93])))); ((meltobject_ptr_t) ( /*_.VALDATA___V94*/ meltfptr[93]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V95*/ meltfptr[94]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V94*/ meltfptr[93]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])))); ((meltobject_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V97*/ meltfptr[96]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V96*/ meltfptr[95]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97])))); ((meltobject_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V99*/ meltfptr[98]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V98*/ meltfptr[97]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])))); ((meltobject_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V102*/ meltfptr[101]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])))); ((meltobject_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V89*/ meltfptr[88]); MELT_LOCATION ("warmelt-modes.melt:102:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V100*/ meltfptr[99]); 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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == 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___V103*/ meltfptr[102])->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___V103*/ meltfptr[102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#6", NULL != ( /*_.VALSTR___V104*/ meltfptr[103])); ((meltroutine_ptr_t) /*_.VALROUT___V103*/ meltfptr[102])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V104*/ meltfptr[103]); 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___V103*/ meltfptr[102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#7", NULL != ( /*_.VALSTR___V105*/ meltfptr[104])); ((meltroutine_ptr_t) /*_.VALROUT___V103*/ meltfptr[102])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V105*/ meltfptr[104]); 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___V103*/ meltfptr[102])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_34__RUNDEBUG_DOCMD#8", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V103*/ meltfptr[102])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:114:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V103*/ meltfptr[102]); /*putclosurout#3 */ melt_assertmsg ("putclosrout#3 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V106*/ meltfptr[105])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#3 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V103*/ meltfptr[102])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V106*/ meltfptr[105])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V103*/ meltfptr[102]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V106*/ meltfptr[105]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106])))); ((meltobject_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V108*/ meltfptr[107]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V107*/ meltfptr[106]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])))); ((meltobject_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V110*/ meltfptr[109]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])))); ((meltobject_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108])))); ((meltobject_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V106*/ meltfptr[105]); MELT_LOCATION ("warmelt-modes.melt:167:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V109*/ meltfptr[108]); 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___V112*/ meltfptr[111])) == 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___V112*/ meltfptr[111])->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___V112*/ meltfptr[111])) == 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___V112*/ meltfptr[111])->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___V112*/ meltfptr[111])) == 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___V112*/ meltfptr[111])->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___V112*/ meltfptr[111])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#3", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V112*/ meltfptr[111])->tabval[3] = (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___V112*/ meltfptr[111])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_43__EVAL_DOCMD#4", NULL != ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V112*/ meltfptr[111])->tabval[4] = (melt_ptr_t) ( /*_.TRANSLATE_RUN_MELT_EXPRESSIONS__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-modes.melt:178:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V112*/ meltfptr[111]); /*putclosurout#4 */ melt_assertmsg ("putclosrout#4 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V113*/ meltfptr[112])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#4 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V112*/ meltfptr[111])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V113*/ meltfptr[112])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V112*/ meltfptr[111]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V113*/ meltfptr[112]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])))); ((meltobject_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V115*/ meltfptr[114]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V114*/ meltfptr[113]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])))); ((meltobject_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V117*/ meltfptr[116]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V116*/ meltfptr[115]); MELT_LOCATION ("warmelt-modes.melt:197:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V119*/ meltfptr[118]); MELT_LOCATION ("warmelt-modes.melt:197:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V120*/ meltfptr[119]); MELT_LOCATION ("warmelt-modes.melt:197:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V113*/ meltfptr[112]); MELT_LOCATION ("warmelt-modes.melt:197:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V118*/ meltfptr[117]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120])))); ((meltobject_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V122*/ meltfptr[121]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V121*/ meltfptr[120]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V123*/ meltfptr[122])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V123*/ meltfptr[122])))); ((meltobject_ptr_t) ( /*_.VALDATA___V123*/ meltfptr[122]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V124*/ meltfptr[123]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V123*/ meltfptr[122]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])))); ((meltobject_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V126*/ meltfptr[125]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])))); ((meltobject_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_PROPED__V17*/ meltfptr[16]); /*putupl#7 */ melt_assertmsg ("putupl #7 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #7 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V17*/ meltfptr[16]), 5))), (0)))); /*putupl#8 */ melt_assertmsg ("putupl #8 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #8 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126]))->tabval[1] = (melt_ptr_t) ( /*_.CLASS_PROPED__V17*/ meltfptr[16]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V127*/ meltfptr[126]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])))); ((meltobject_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V127*/ meltfptr[126]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V131*/ meltfptr[130]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V130*/ meltfptr[129]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131])))); ((meltobject_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V132*/ meltfptr[131]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V135*/ meltfptr[134]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V134*/ meltfptr[133]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])))); ((meltobject_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V136*/ meltfptr[135]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V139*/ meltfptr[138]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-modes.melt:208:/ 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:208:/ 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) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V140*/ meltfptr[139]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])))); ((meltobject_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V143*/ meltfptr[142]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141])))); ((meltobject_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V142*/ meltfptr[141]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])))); ((meltobject_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V145*/ meltfptr[144]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143])))); ((meltobject_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V144*/ meltfptr[143]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145])))); ((meltobject_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V147*/ meltfptr[146]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145])))); ((meltobject_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V146*/ meltfptr[145]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147])))); ((meltobject_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V149*/ meltfptr[148]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147])))); ((meltobject_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V148*/ meltfptr[147]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])))); ((meltobject_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); #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:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V150*/ meltfptr[149]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION ("warmelt-modes.melt:208:/ 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:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])))); ((meltobject_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V157*/ meltfptr[156]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155])))); ((meltobject_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V156*/ meltfptr[155]); /*putupl#9 */ melt_assertmsg ("putupl #9 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #9 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_PROPED__V17*/ meltfptr[16]), 6))), (0)))); /*putupl#10 */ melt_assertmsg ("putupl #10 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #10 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); /*putupl#11 */ melt_assertmsg ("putupl #11 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #11 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V130*/ meltfptr[129]); /*putupl#12 */ melt_assertmsg ("putupl #12 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #12 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V132*/ meltfptr[131]); /*putupl#13 */ melt_assertmsg ("putupl #13 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #13 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]); /*putupl#14 */ melt_assertmsg ("putupl #14 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #14 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]); /*putupl#15 */ melt_assertmsg ("putupl #15 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #15 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); /*putupl#16 */ melt_assertmsg ("putupl #16 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #16 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V140*/ meltfptr[139]); /*putupl#17 */ melt_assertmsg ("putupl #17 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #17 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V142*/ meltfptr[141]); /*putupl#18 */ melt_assertmsg ("putupl #18 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #18 checkoff", (9 >= 0 && 9 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V144*/ meltfptr[143]); /*putupl#19 */ melt_assertmsg ("putupl #19 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #19 checkoff", (10 >= 0 && 10 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]); /*putupl#20 */ melt_assertmsg ("putupl #20 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #20 checkoff", (11 >= 0 && 11 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147]); /*putupl#21 */ melt_assertmsg ("putupl #21 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #21 checkoff", (12 >= 0 && 12 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149]); /*putupl#22 */ melt_assertmsg ("putupl #22 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #22 checkoff", (13 >= 0 && 13 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); /*putupl#23 */ melt_assertmsg ("putupl #23 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #23 checkoff", (14 >= 0 && 14 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V154*/ meltfptr[153]); /*putupl#24 */ melt_assertmsg ("putupl #24 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #24 checkoff", (15 >= 0 && 15 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]))->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V156*/ meltfptr[155]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124])))); ((meltobject_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V158*/ meltfptr[157]); MELT_LOCATION ("warmelt-modes.melt:208:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V125*/ meltfptr[124]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V159*/ meltfptr[158]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])))); ((meltobject_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V162*/ meltfptr[161]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V161*/ meltfptr[160]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V163*/ meltfptr[162]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164])))); ((meltobject_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V166*/ meltfptr[165]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V165*/ meltfptr[164]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166])))); ((meltobject_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V168*/ meltfptr[167]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V167*/ meltfptr[166]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168])))); ((meltobject_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V170*/ meltfptr[169]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V169*/ meltfptr[168]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])))); ((meltobject_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V172*/ meltfptr[171]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V171*/ meltfptr[170]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172])))); ((meltobject_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V174*/ meltfptr[173]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V173*/ meltfptr[172]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V175*/ meltfptr[174])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V175*/ meltfptr[174])))); ((meltobject_ptr_t) ( /*_.VALDATA___V175*/ meltfptr[174]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V176*/ meltfptr[175]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V175*/ meltfptr[174]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V177*/ meltfptr[176])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V177*/ meltfptr[176])))); ((meltobject_ptr_t) ( /*_.VALDATA___V177*/ meltfptr[176]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V178*/ meltfptr[177]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V177*/ meltfptr[176]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V179*/ meltfptr[178])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V179*/ meltfptr[178])))); ((meltobject_ptr_t) ( /*_.VALDATA___V179*/ meltfptr[178]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V180*/ meltfptr[179]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V179*/ meltfptr[178]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180])))); ((meltobject_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V182*/ meltfptr[181]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V181*/ meltfptr[180]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182])))); ((meltobject_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V184*/ meltfptr[183]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V183*/ meltfptr[182]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V185*/ meltfptr[184])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V185*/ meltfptr[184])))); ((meltobject_ptr_t) ( /*_.VALDATA___V185*/ meltfptr[184]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V186*/ meltfptr[185]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V185*/ meltfptr[184]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V187*/ meltfptr[186])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V187*/ meltfptr[186])))); ((meltobject_ptr_t) ( /*_.VALDATA___V187*/ meltfptr[186]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V188*/ meltfptr[187]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V187*/ meltfptr[186]); MELT_LOCATION ("warmelt-modes.melt:237:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V189*/ meltfptr[188])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V189*/ meltfptr[188])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:237:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V189*/ meltfptr[188]); /*putclosurout#5 */ melt_assertmsg ("putclosrout#5 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#5 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V189*/ meltfptr[188])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V190*/ meltfptr[189])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V189*/ meltfptr[188]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#1", NULL != ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:254:/ 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_124__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V192*/ meltfptr[191])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:254:/ 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_124__LAMBDA_#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V192*/ meltfptr[191])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:254:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#3", NULL != ( /*_.VALROUT___V192*/ meltfptr[191])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[3] = (melt_ptr_t) ( /*_.VALROUT___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#4", NULL != ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#5", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V193*/ meltfptr[192])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_127__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V193*/ meltfptr[192])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:267:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V193*/ meltfptr[192])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_127__LAMBDA_#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V193*/ meltfptr[192])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:267:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V193*/ meltfptr[192]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#6", NULL != ( /*_.VALROUT___V193*/ meltfptr[192])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V193*/ meltfptr[192]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#7", NULL != ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#8", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#9", NULL != ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#10", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:277:/ 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_128__LAMBDA_#0", NULL != ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:277:/ 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_128__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:277:/ 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_128__LAMBDA_#2", NULL != ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:277:/ 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_128__LAMBDA_#3", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V194*/ meltfptr[193])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:277:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V194*/ meltfptr[193]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#11", NULL != ( /*_.VALROUT___V194*/ meltfptr[193])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V194*/ meltfptr[193]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#12", NULL != ( /*_.LIST_EVERY__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[12] = (melt_ptr_t) ( /*_.LIST_EVERY__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#13", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#14", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#15", NULL != ( /*_.CLASS_SEXPR__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#16", NULL != ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#17", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#19", NULL != ( /*_.CLASS_FIELD__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_FIELD__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#20", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[20] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#21", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[21] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#22", NULL != ( /*_.CLASS_SOURCE_DEFSELECTOR__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[22] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFSELECTOR__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#23", NULL != ( /*_.CLASS_SOURCE_DEFINSTANCE__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[23] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINSTANCE__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#24", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[24] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#25", NULL != ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[25] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#26", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[26] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#27", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[27] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#28", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[28] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#29", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[29] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#30", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[30] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#2", NULL != ( /*_.CLASS_SEXPR__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#3", NULL != ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#4", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#6", NULL != ( /*_.CLASS_FIELD__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_FIELD__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#7", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#8", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#9", NULL != ( /*_.CLASS_SOURCE_DEFSELECTOR__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFSELECTOR__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#10", NULL != ( /*_.CLASS_SOURCE_DEFINSTANCE__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINSTANCE__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#11", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#12", NULL != ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#13", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#14", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#15", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#16", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_139__LAMBDA_#17", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V195*/ meltfptr[194])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:299:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-modes.melt:247:/ 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_122__MAKEDOC_SCANINPUT#31", NULL != ( /*_.VALROUT___V195*/ meltfptr[194])); ((meltroutine_ptr_t) /*_.VALROUT___V191*/ meltfptr[190])->tabval[31] = (melt_ptr_t) ( /*_.VALROUT___V195*/ meltfptr[194]); MELT_LOCATION ("warmelt-modes.melt:247:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V191*/ meltfptr[190]); /*putclosurout#6 */ melt_assertmsg ("putclosrout#6 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V196*/ meltfptr[195])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#6 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V196*/ meltfptr[195])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V191*/ meltfptr[190]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V196*/ meltfptr[195]); #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; /*putslot*/ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V197*/ meltfptr[196])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V197*/ meltfptr[196])))); ((meltobject_ptr_t) ( /*_.VALDATA___V197*/ meltfptr[196]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V198*/ meltfptr[197]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V197*/ meltfptr[196]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198])))); ((meltobject_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V200*/ meltfptr[199]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V199*/ meltfptr[198]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200])))); ((meltobject_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V202*/ meltfptr[201]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V201*/ meltfptr[200]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202])))); ((meltobject_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V204*/ meltfptr[203]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V203*/ meltfptr[202]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204])))); ((meltobject_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V206*/ meltfptr[205]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V205*/ meltfptr[204]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V207*/ meltfptr[206])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V207*/ meltfptr[206])))); ((meltobject_ptr_t) ( /*_.VALDATA___V207*/ meltfptr[206]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V208*/ meltfptr[207]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V207*/ meltfptr[206]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V209*/ meltfptr[208])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V209*/ meltfptr[208])))); ((meltobject_ptr_t) ( /*_.VALDATA___V209*/ meltfptr[208]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V210*/ meltfptr[209]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V209*/ meltfptr[208]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210])))); ((meltobject_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V212*/ meltfptr[211]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V211*/ meltfptr[210]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V213*/ meltfptr[212])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V213*/ meltfptr[212])))); ((meltobject_ptr_t) ( /*_.VALDATA___V213*/ meltfptr[212]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V214*/ meltfptr[213]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V213*/ meltfptr[212]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214])))); ((meltobject_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V216*/ meltfptr[215]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V215*/ meltfptr[214]); /*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]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V219*/ meltfptr[218]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V221*/ meltfptr[220])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V221*/ meltfptr[220])))); ((meltobject_ptr_t) ( /*_.VALDATA___V221*/ meltfptr[220]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V222*/ meltfptr[221]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V221*/ meltfptr[220]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V223*/ meltfptr[222])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V223*/ meltfptr[222])))); ((meltobject_ptr_t) ( /*_.VALDATA___V223*/ meltfptr[222]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V224*/ meltfptr[223]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V223*/ meltfptr[222]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V225*/ meltfptr[224])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V225*/ meltfptr[224])))); ((meltobject_ptr_t) ( /*_.VALDATA___V225*/ meltfptr[224]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V226*/ meltfptr[225]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V225*/ meltfptr[224]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226])))); ((meltobject_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V228*/ meltfptr[227]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V227*/ meltfptr[226]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V229*/ meltfptr[228])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V229*/ meltfptr[228])))); ((meltobject_ptr_t) ( /*_.VALDATA___V229*/ meltfptr[228]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V230*/ meltfptr[229]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V229*/ meltfptr[228]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])))); ((meltobject_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V232*/ meltfptr[231]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V231*/ meltfptr[230]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])))); ((meltobject_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V234*/ meltfptr[233]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V233*/ meltfptr[232]); MELT_LOCATION ("warmelt-modes.melt:499:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_166__MAKEDOC_OUTDEFLOC#0", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V235*/ meltfptr[234])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:499:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_166__MAKEDOC_OUTDEFLOC#1", NULL != ( /*_.CLASS_LOCATED__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V235*/ meltfptr[234])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:499:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V235*/ meltfptr[234]); /*putclosurout#7 */ melt_assertmsg ("putclosrout#7 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#7 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V236*/ meltfptr[235])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V235*/ meltfptr[234]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V236*/ meltfptr[235]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236])))); ((meltobject_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V238*/ meltfptr[237]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V237*/ meltfptr[236]); MELT_LOCATION ("warmelt-modes.melt:513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_170__MAKEDOC_OUTFORMALS#0", NULL != ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V239*/ meltfptr[238])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_170__MAKEDOC_OUTFORMALS#1", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V239*/ meltfptr[238])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_170__MAKEDOC_OUTFORMALS#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V239*/ meltfptr[238])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_170__MAKEDOC_OUTFORMALS#3", NULL != ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V239*/ meltfptr[238])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:513:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V239*/ meltfptr[238]); /*putclosurout#8 */ melt_assertmsg ("putclosrout#8 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V240*/ meltfptr[239])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#8 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V240*/ meltfptr[239])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V239*/ meltfptr[238]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V240*/ meltfptr[239]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V241*/ meltfptr[240])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V241*/ meltfptr[240])))); ((meltobject_ptr_t) ( /*_.VALDATA___V241*/ meltfptr[240]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V242*/ meltfptr[241]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V241*/ meltfptr[240]); MELT_LOCATION ("warmelt-modes.melt:553:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_174__MAKEDOC_OUTDOC#0", NULL != ( /*_.CLASS_SEXPR__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V243*/ meltfptr[242])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-modes.melt:553:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_174__MAKEDOC_OUTDOC#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V243*/ meltfptr[242])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:553:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V243*/ meltfptr[242]); /*putclosurout#9 */ melt_assertmsg ("putclosrout#9 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#9 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V243*/ meltfptr[242])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V244*/ meltfptr[243])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V243*/ meltfptr[242]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#2", NULL != ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#3", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#5", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ meltfptr[235]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#8", NULL != ( /*_.CLASS_FIELD__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_FIELD__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#9", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[9] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#10", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_176__MAKEDOC_OUTCLASSDEF#11", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[11] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V245*/ meltfptr[244])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:589:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V245*/ meltfptr[244]); /*putclosurout#10 */ melt_assertmsg ("putclosrout#10 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V246*/ meltfptr[245])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#10 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V246*/ meltfptr[245])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V245*/ meltfptr[244]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V246*/ meltfptr[245]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246])))); ((meltobject_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V248*/ meltfptr[247]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V247*/ meltfptr[246]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248])))); ((meltobject_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V250*/ meltfptr[249]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V249*/ meltfptr[248]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V251*/ meltfptr[250])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V251*/ meltfptr[250])))); ((meltobject_ptr_t) ( /*_.VALDATA___V251*/ meltfptr[250]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V252*/ meltfptr[251]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#4", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:727:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V254*/ meltfptr[253])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_186__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V254*/ meltfptr[253])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:727:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V254*/ meltfptr[253])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_186__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V254*/ meltfptr[253])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:727:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V254*/ meltfptr[253]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#5", NULL != ( /*_.VALROUT___V254*/ meltfptr[253])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V254*/ meltfptr[253]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#7", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#8", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_184__MAKEDOC_GENMACRO#9", NULL != ( /*_.CLASS_LOCATED__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V253*/ meltfptr[252])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:715:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V253*/ meltfptr[252]); /*putclosurout#11 */ melt_assertmsg ("putclosrout#11 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V255*/ meltfptr[254])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#11 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V255*/ meltfptr[254])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V253*/ meltfptr[252]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V255*/ meltfptr[254]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#3", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#4", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[4] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#5", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:796:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V257*/ meltfptr[256])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_189__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V257*/ meltfptr[256])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:796:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V257*/ meltfptr[256])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_189__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V257*/ meltfptr[256])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_MACRO__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-modes.melt:796:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V257*/ meltfptr[256]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#6", NULL != ( /*_.VALROUT___V257*/ meltfptr[256])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V257*/ meltfptr[256]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#8", NULL != ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_EXPORT_PATMACRO__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#9", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_187__MAKEDOC_GENPATMACRO#10", NULL != ( /*_.CLASS_LOCATED__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V256*/ meltfptr[255])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:778:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V256*/ meltfptr[255]); /*putclosurout#12 */ melt_assertmsg ("putclosrout#12 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V258*/ meltfptr[257])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#12 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V258*/ meltfptr[257])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V256*/ meltfptr[255]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V258*/ meltfptr[257]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#1", NULL != ( /*_.VALBXINT___V260*/ meltfptr[259])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[1] = (melt_ptr_t) ( /*_.VALBXINT___V260*/ meltfptr[259]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#2", NULL != ( /*_.VALBXINT___V261*/ meltfptr[260])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[2] = (melt_ptr_t) ( /*_.VALBXINT___V261*/ meltfptr[260]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#3", NULL != ( /*_.VALBXINT___V262*/ meltfptr[261])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[3] = (melt_ptr_t) ( /*_.VALBXINT___V262*/ meltfptr[261]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#4", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[4] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#5", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#6", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#7", NULL != ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:862:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_195__LAMBDA_#0", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V263*/ meltfptr[262])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); #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; MELT_LOCATION ("warmelt-modes.melt:862:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V263*/ meltfptr[262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_195__LAMBDA_#1", NULL != ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V263*/ meltfptr[262])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-modes.melt:862:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V263*/ meltfptr[262]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#8", NULL != ( /*_.VALROUT___V263*/ meltfptr[262])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V263*/ meltfptr[262]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#9", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:867:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V264*/ meltfptr[263])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_196__LAMBDA_#0", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V264*/ meltfptr[263])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:867:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V264*/ meltfptr[263]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#10", NULL != ( /*_.VALROUT___V264*/ meltfptr[263])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V264*/ meltfptr[263]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#11", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:897:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V265*/ meltfptr[264])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_197__LAMBDA_#0", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V265*/ meltfptr[264])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:897:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V265*/ meltfptr[264]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#12", NULL != ( /*_.VALROUT___V265*/ meltfptr[264])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V265*/ meltfptr[264]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#13", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#14", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[14] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#15", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:920:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V266*/ meltfptr[265])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_198__LAMBDA_#0", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V266*/ meltfptr[265])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:920:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V266*/ meltfptr[265])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_198__LAMBDA_#1", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V266*/ meltfptr[265])->tabval[1] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:920:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V266*/ meltfptr[265])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_198__LAMBDA_#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V266*/ meltfptr[265])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:920:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V266*/ meltfptr[265]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#16", NULL != ( /*_.VALROUT___V266*/ meltfptr[265])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V266*/ meltfptr[265]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#17", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#18", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_190__MAKEDOC_GENCLASS#19", NULL != ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCLASS__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V246*/ meltfptr[245]); ((meltroutine_ptr_t) /*_.VALROUT___V259*/ meltfptr[258])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-modes.melt:846:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V259*/ meltfptr[258]); /*putclosurout#13 */ melt_assertmsg ("putclosrout#13 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V267*/ meltfptr[266])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#13 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V267*/ meltfptr[266])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V259*/ meltfptr[258]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V267*/ meltfptr[266]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_199__MAKEDOC_OUTPRIMITIVEDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_199__MAKEDOC_OUTPRIMITIVEDEF#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_199__MAKEDOC_OUTPRIMITIVEDEF#3", NULL != ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_199__MAKEDOC_OUTPRIMITIVEDEF#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ meltfptr[235]); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_199__MAKEDOC_OUTPRIMITIVEDEF#6", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V240*/ meltfptr[239]); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V240*/ meltfptr[239]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V268*/ meltfptr[267])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:973:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V268*/ meltfptr[267]); /*putclosurout#14 */ melt_assertmsg ("putclosrout#14 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V269*/ meltfptr[268])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#14 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V269*/ meltfptr[268])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V268*/ meltfptr[267]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V269*/ meltfptr[268]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V270*/ meltfptr[269])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V270*/ meltfptr[269])))); ((meltobject_ptr_t) ( /*_.VALDATA___V270*/ meltfptr[269]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V271*/ meltfptr[270]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V270*/ meltfptr[269]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#3", NULL != ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFPRIMITIVE__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#4", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[4] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#5", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1023:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V273*/ meltfptr[272])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1023:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_205__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V273*/ meltfptr[272])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1023:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V273*/ meltfptr[272]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#6", NULL != ( /*_.VALROUT___V273*/ meltfptr[272])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V273*/ meltfptr[272]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_203__MAKEDOC_GENPRIMITIVE#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V269*/ meltfptr[268]); ((meltroutine_ptr_t) /*_.VALROUT___V272*/ meltfptr[271])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V269*/ meltfptr[268]); MELT_LOCATION ("warmelt-modes.melt:1004:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V272*/ meltfptr[271]); /*putclosurout#15 */ melt_assertmsg ("putclosrout#15 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V274*/ meltfptr[273])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#15 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V274*/ meltfptr[273])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V272*/ meltfptr[271]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V274*/ meltfptr[273]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__MAKEDOC_OUTFUNCTIONDEF#1", NULL != ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__MAKEDOC_OUTFUNCTIONDEF#2", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__MAKEDOC_OUTFUNCTIONDEF#3", NULL != ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION_FORMAL__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_206__MAKEDOC_OUTFUNCTIONDEF#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ meltfptr[235]); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V240*/ meltfptr[239]); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V240*/ meltfptr[239]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V275*/ meltfptr[274])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:1048:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V275*/ meltfptr[274]); /*putclosurout#16 */ melt_assertmsg ("putclosrout#16 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V276*/ meltfptr[275])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#16 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V276*/ meltfptr[275])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V275*/ meltfptr[274]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V276*/ meltfptr[275]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1086:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V278*/ meltfptr[277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V278*/ meltfptr[277])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1086:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V278*/ meltfptr[277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_210__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V278*/ meltfptr[277])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1086:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V278*/ meltfptr[277]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#5", NULL != ( /*_.VALROUT___V278*/ meltfptr[277])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V278*/ meltfptr[277]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_208__MAKEDOC_GENFUNCTION#7", NULL != ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFUN__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V276*/ meltfptr[275]); ((meltroutine_ptr_t) /*_.VALROUT___V277*/ meltfptr[276])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V276*/ meltfptr[275]); MELT_LOCATION ("warmelt-modes.melt:1074:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V277*/ meltfptr[276]); /*putclosurout#17 */ melt_assertmsg ("putclosrout#17 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V279*/ meltfptr[278])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#17 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V279*/ meltfptr[278])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V277*/ meltfptr[276]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V279*/ meltfptr[278]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V281*/ meltfptr[280])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_213__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V281*/ meltfptr[280])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V281*/ meltfptr[280])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_213__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V281*/ meltfptr[280])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1122:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V281*/ meltfptr[280]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#5", NULL != ( /*_.VALROUT___V281*/ meltfptr[280])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V281*/ meltfptr[280]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#7", NULL != ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCITERATOR__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#8", NULL != ( /*_.CLASS_LOCATED__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#9", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#10", NULL != ( /*_.CLASS_CITERATOR__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_211__MAKEDOC_GENCITERATOR#11", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ meltfptr[235]); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V240*/ meltfptr[239]); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V240*/ meltfptr[239]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V280*/ meltfptr[279])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-modes.melt:1109:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V280*/ meltfptr[279]); /*putclosurout#18 */ melt_assertmsg ("putclosrout#18 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V282*/ meltfptr[281])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#18 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V282*/ meltfptr[281])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V280*/ meltfptr[279]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V282*/ meltfptr[281]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V283*/ meltfptr[282])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V283*/ meltfptr[282])))); ((meltobject_ptr_t) ( /*_.VALDATA___V283*/ meltfptr[282]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V284*/ meltfptr[283]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V283*/ meltfptr[282]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#1", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[1] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#2", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#3", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[3] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#4", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1184:/ 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_218__LAMBDA_#0", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V286*/ meltfptr[285])->tabval[0] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1184:/ 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_218__LAMBDA_#1", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V286*/ meltfptr[285])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1184:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#5", NULL != ( /*_.VALROUT___V286*/ meltfptr[285])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#7", NULL != ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFCMATCHER__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#8", NULL != ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SOURCE_DEFINITION__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#9", NULL != ( /*_.CLASS_ANY_MATCHER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#10", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1171:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ meltfptr[235]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#12", NULL != ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#13", NULL != ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-modes.melt:1171:/ 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_216__MAKEDOC_GENCMATCHER#14", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:1171:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V240*/ meltfptr[239]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V240*/ meltfptr[239]); MELT_LOCATION ("warmelt-modes.melt:1171:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V244*/ meltfptr[243]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-modes.melt:1171:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V285*/ meltfptr[284])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V190*/ meltfptr[189]); #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:1171:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V285*/ meltfptr[284]); /*putclosurout#19 */ melt_assertmsg ("putclosrout#19 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V287*/ meltfptr[286])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#19 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V287*/ meltfptr[286])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V285*/ meltfptr[284]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V287*/ meltfptr[286]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V288*/ meltfptr[287])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V288*/ meltfptr[287])))); ((meltobject_ptr_t) ( /*_.VALDATA___V288*/ meltfptr[287]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V289*/ meltfptr[288]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V288*/ meltfptr[287]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__MAKEDOC_GENOUTPUT#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_221__MAKEDOC_GENOUTPUT#2", NULL != ( /*_.DISCR_STRBUF__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V255*/ meltfptr[254]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V255*/ meltfptr[254]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V258*/ meltfptr[257]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V258*/ meltfptr[257]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V267*/ meltfptr[266]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V267*/ meltfptr[266]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V274*/ meltfptr[273]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V274*/ meltfptr[273]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V279*/ meltfptr[278]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V279*/ meltfptr[278]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V282*/ meltfptr[281]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V282*/ meltfptr[281]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V287*/ meltfptr[286]); ((meltroutine_ptr_t) /*_.VALROUT___V290*/ meltfptr[289])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V287*/ meltfptr[286]); MELT_LOCATION ("warmelt-modes.melt:1247:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V290*/ meltfptr[289]); /*putclosurout#20 */ melt_assertmsg ("putclosrout#20 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V291*/ meltfptr[290])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#20 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V291*/ meltfptr[290])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V290*/ meltfptr[289]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V291*/ meltfptr[290]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291])))); ((meltobject_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V293*/ meltfptr[292]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V292*/ meltfptr[291]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#2", NULL != ( /*_.CONTENV___V2*/ meltfptr[1])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[2] = (melt_ptr_t) ( /*_.CONTENV___V2*/ meltfptr[1]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#3", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#4", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#5", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V125*/ meltfptr[124]); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V125*/ meltfptr[124]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#7", NULL != ( /*_.DISCR_MAP_OBJECTS__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#8", NULL != ( /*_.DISCR_INTEGER__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#9", NULL != ( /*_.MELT_MODE_REFERENCE__V49*/ meltfptr[48])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[9] = (melt_ptr_t) ( /*_.MELT_MODE_REFERENCE__V49*/ meltfptr[48]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#10", NULL != ( /*_.LIST_EVERY__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[10] = (melt_ptr_t) ( /*_.LIST_EVERY__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#11", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[11] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#12", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[12] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:1370:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_235__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V295*/ meltfptr[294])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1370:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_235__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V295*/ meltfptr[294])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:1370:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V295*/ meltfptr[294]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#13", NULL != ( /*_.VALROUT___V295*/ meltfptr[294])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V295*/ meltfptr[294]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#14", NULL != ( /*_.MACROEXPAND_TOPLEVEL_LIST__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[14] = (melt_ptr_t) ( /*_.MACROEXPAND_TOPLEVEL_LIST__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#15", NULL != ( /*_.MACROEXPAND_1__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[15] = (melt_ptr_t) ( /*_.MACROEXPAND_1__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V196*/ meltfptr[195]); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V196*/ meltfptr[195]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V291*/ meltfptr[290]); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V291*/ meltfptr[290]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_225__MAKEDOC_DOCMD#18", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:1330:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V294*/ meltfptr[293]); /*putclosurout#21 */ melt_assertmsg ("putclosrout#21 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V296*/ meltfptr[295])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#21 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V296*/ meltfptr[295])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V294*/ meltfptr[293]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V296*/ meltfptr[295]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])))); ((meltobject_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V298*/ meltfptr[297]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V297*/ meltfptr[296]); /*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]); /*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]); /*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]); /*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]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])))); ((meltobject_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V310*/ meltfptr[309]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V309*/ meltfptr[308]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])))); ((meltobject_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V312*/ meltfptr[311]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V311*/ meltfptr[310]); MELT_LOCATION ("warmelt-modes.melt:1396:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:1396:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])))); ((meltobject_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V315*/ meltfptr[314]); MELT_LOCATION ("warmelt-modes.melt:1396:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312])))); ((meltobject_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V296*/ meltfptr[295]); MELT_LOCATION ("warmelt-modes.melt:1396:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V313*/ meltfptr[312]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#3", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#4", NULL != ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_247__SHOWVAR_DOCMD#5", NULL != ( /*_.FIND_ENV__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V316*/ meltfptr[315])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-modes.melt:1409:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V316*/ meltfptr[315]); /*putclosurout#22 */ melt_assertmsg ("putclosrout#22 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V317*/ meltfptr[316])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#22 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V317*/ meltfptr[316])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V316*/ meltfptr[315]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V317*/ meltfptr[316]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317])))); ((meltobject_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V319*/ meltfptr[318]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V318*/ meltfptr[317]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#0", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[0] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#1", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#2", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#3", NULL != ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_MELT_MODE__V7*/ meltfptr[6]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#4", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[4] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#5", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[5] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#6", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_251__HELP_DOCMD#7", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V320*/ meltfptr[319])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1434:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V320*/ meltfptr[319]); /*putclosurout#23 */ melt_assertmsg ("putclosrout#23 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V321*/ meltfptr[320])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#23 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V321*/ meltfptr[320])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V320*/ meltfptr[319]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V321*/ meltfptr[320]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321])))); ((meltobject_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V323*/ meltfptr[322]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V322*/ meltfptr[321]); MELT_LOCATION ("warmelt-modes.melt:1487:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])))); ((meltobject_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V325*/ meltfptr[324]); MELT_LOCATION ("warmelt-modes.melt:1487:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])))); ((meltobject_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V326*/ meltfptr[325]); MELT_LOCATION ("warmelt-modes.melt:1487:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])))); ((meltobject_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V321*/ meltfptr[320]); MELT_LOCATION ("warmelt-modes.melt:1487:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V324*/ meltfptr[323]); MELT_LOCATION ("warmelt-modes.melt:1496:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_258__NOP_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V327*/ meltfptr[326])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1496:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_258__NOP_DOCMD#1", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V327*/ meltfptr[326])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:1496:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V327*/ meltfptr[326]); /*putclosurout#24 */ melt_assertmsg ("putclosrout#24 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V328*/ meltfptr[327])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#24 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V327*/ meltfptr[326])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V328*/ meltfptr[327])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V327*/ meltfptr[326]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V328*/ meltfptr[327]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])))); ((meltobject_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V330*/ meltfptr[329]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V329*/ meltfptr[328]); MELT_LOCATION ("warmelt-modes.melt:1501:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:1501:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])))); ((meltobject_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V333*/ meltfptr[332]); MELT_LOCATION ("warmelt-modes.melt:1501:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330])))); ((meltobject_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V328*/ meltfptr[327]); MELT_LOCATION ("warmelt-modes.melt:1501:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V331*/ meltfptr[330]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V334*/ meltfptr[333])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#1", NULL != ( /*_.VALSTR___V335*/ meltfptr[334])); ((meltroutine_ptr_t) /*_.VALROUT___V334*/ meltfptr[333])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V335*/ meltfptr[334]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V334*/ meltfptr[333])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V334*/ meltfptr[333])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_265__GENERATE_RUNTYPESUPPORT_ENUM_OBJMAGIC#4", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V334*/ meltfptr[333])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1513:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V334*/ meltfptr[333]); /*putclosurout#25 */ melt_assertmsg ("putclosrout#25 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V336*/ meltfptr[335])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#25 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V336*/ meltfptr[335])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V334*/ meltfptr[333]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V336*/ meltfptr[335]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])))); ((meltobject_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V338*/ meltfptr[337]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V337*/ meltfptr[336]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])))); ((meltobject_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V340*/ meltfptr[339]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V339*/ meltfptr[338]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#1", NULL != ( /*_.VALSTR___V342*/ meltfptr[341])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V342*/ meltfptr[341]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#2", NULL != ( /*_.VALSTR___V343*/ meltfptr[342])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[2] = (melt_ptr_t) ( /*_.VALSTR___V343*/ meltfptr[342]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#3", NULL != ( /*_.VALSTR___V344*/ meltfptr[343])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V344*/ meltfptr[343]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#4", NULL != ( /*_.VALSTR___V345*/ meltfptr[344])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[4] = (melt_ptr_t) ( /*_.VALSTR___V345*/ meltfptr[344]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#5", NULL != ( /*_.VALSTR___V346*/ meltfptr[345])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V346*/ meltfptr[345]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#6", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#7", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#8", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#9", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_272__GENERATE_RUNTYPESUPPORT_GTY#10", NULL != ( /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V341*/ meltfptr[340])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_VARISIZED_VALUE_DESCRIPTOR__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-modes.melt:1603:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V341*/ meltfptr[340]); #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#26*/ melt_assertmsg ("putclosrout#26 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V347*/ meltfptr[346])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#26 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V347*/ meltfptr[346])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V341*/ meltfptr[340]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V347*/ meltfptr[346]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347])))); ((meltobject_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V349*/ meltfptr[348]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V348*/ meltfptr[347]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#1", NULL != ( /*_.VALSTR___V351*/ meltfptr[350])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V351*/ meltfptr[350]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#4", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:1869:/ 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_281__GENERATE_RUNTYPESUPPORT_FORWCOPY_FUN#5", NULL != ( /*_.VALSTR___V352*/ meltfptr[351])); ((meltroutine_ptr_t) /*_.VALROUT___V350*/ meltfptr[349])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V352*/ meltfptr[351]); MELT_LOCATION ("warmelt-modes.melt:1869:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V350*/ meltfptr[349]); /*putclosurout#27 */ melt_assertmsg ("putclosrout#27 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V353*/ meltfptr[352])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#27 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V353*/ meltfptr[352])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V350*/ meltfptr[349]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V353*/ meltfptr[352]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#1", NULL != ( /*_.ADD2OUT__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[1] = (melt_ptr_t) ( /*_.ADD2OUT__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#2", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#4", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#5", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_285__GENERATE_RUNTYPESUPPORT_CLONING_FUN#6", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V354*/ meltfptr[353])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:2122:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V354*/ meltfptr[353]); /*putclosurout#28 */ melt_assertmsg ("putclosrout#28 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V355*/ meltfptr[354])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#28 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V355*/ meltfptr[354])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V354*/ meltfptr[353]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V355*/ meltfptr[354]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V356*/ meltfptr[355])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V356*/ meltfptr[355])))); ((meltobject_ptr_t) ( /*_.VALDATA___V356*/ meltfptr[355]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V357*/ meltfptr[356]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V356*/ meltfptr[355]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#1", NULL != ( /*_.VALSTR___V359*/ meltfptr[358])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V359*/ meltfptr[358]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#2", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#3", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#4", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#5", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:2318:/ 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_289__GENERATE_RUNTYPESUPPORT_SCANNING#6", NULL != ( /*_.VALSTR___V360*/ meltfptr[359])); ((meltroutine_ptr_t) /*_.VALROUT___V358*/ meltfptr[357])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V360*/ meltfptr[359]); MELT_LOCATION ("warmelt-modes.melt:2318:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V358*/ meltfptr[357]); /*putclosurout#29 */ melt_assertmsg ("putclosrout#29 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V361*/ meltfptr[360])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#29 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V358*/ meltfptr[357])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V361*/ meltfptr[360])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V358*/ meltfptr[357]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-modes.melt:2490:/ 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_293__GENERATE_RUNTYPESUPPORT_PARAM#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2490:/ 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_293__GENERATE_RUNTYPESUPPORT_PARAM#1", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2490:/ 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_293__GENERATE_RUNTYPESUPPORT_PARAM#2", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V362*/ meltfptr[361])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:2490:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V362*/ meltfptr[361]); /*putclosurout#30 */ melt_assertmsg ("putclosrout#30 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V363*/ meltfptr[362])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#30 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]); MELT_LOCATION ("warmelt-modes.melt:2632:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V364*/ meltfptr[363])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2632:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE#1", NULL != ( /*_.CLASS_CTYPE__V38*/ meltfptr[37])); ((meltroutine_ptr_t) /*_.VALROUT___V364*/ meltfptr[363])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V38*/ meltfptr[37]); MELT_LOCATION ("warmelt-modes.melt:2632:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V364*/ meltfptr[363])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2632:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_295__GENERATE_RUNTYPESUPPORT_COD2CTYPE#3", NULL != ( /*_.ADD2OUT__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V364*/ meltfptr[363])->tabval[3] = (melt_ptr_t) ( /*_.ADD2OUT__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:2632:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V364*/ meltfptr[363]); /*putclosurout#31 */ melt_assertmsg ("putclosrout#31 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V365*/ meltfptr[364])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#31 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V365*/ meltfptr[364])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V364*/ meltfptr[363]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V365*/ meltfptr[364]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#1", NULL != ( /*_.VALSTR___V367*/ meltfptr[366])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V367*/ meltfptr[366]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#3", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#4", NULL != ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_VALUE_DESCRIPTOR__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-modes.melt:2682:/ 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_297__GENERATE_RUNTYPESUPPORT_MAG2STR#5", NULL != ( /*_.VALSTR___V368*/ meltfptr[367])); ((meltroutine_ptr_t) /*_.VALROUT___V366*/ meltfptr[365])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V368*/ meltfptr[367]); MELT_LOCATION ("warmelt-modes.melt:2682:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V366*/ meltfptr[365]); /*putclosurout#32 */ melt_assertmsg ("putclosrout#32 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V369*/ meltfptr[368])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#32 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V369*/ meltfptr[368])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V366*/ meltfptr[365]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V369*/ meltfptr[368]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V370*/ meltfptr[369])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN#1", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V370*/ meltfptr[369])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN#2", NULL != ( /*_.SOME_STRING_VALUE__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V370*/ meltfptr[369])->tabval[2] = (melt_ptr_t) ( /*_.SOME_STRING_VALUE__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN#3", NULL != ( /*_.CLASS_DISCRIMINANT__V59*/ meltfptr[58])); ((meltroutine_ptr_t) /*_.VALROUT___V370*/ meltfptr[369])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_DISCRIMINANT__V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_301__GENERATE_RUNTYPESUPPORT_BOXINGFUN#4", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V370*/ meltfptr[369])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:2806:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V370*/ meltfptr[369]); /*putclosurout#33 */ melt_assertmsg ("putclosrout#33 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V371*/ meltfptr[370])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#33 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V371*/ meltfptr[370])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V370*/ meltfptr[369]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V371*/ meltfptr[370]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V372*/ meltfptr[371])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V372*/ meltfptr[371])))); ((meltobject_ptr_t) ( /*_.VALDATA___V372*/ meltfptr[371]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V373*/ meltfptr[372]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V372*/ meltfptr[371]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373])))); ((meltobject_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V375*/ meltfptr[374]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V374*/ meltfptr[373]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#1", NULL != ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CTYPE_GTY__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#3", NULL != ( /*_.SOME_STRING_VALUE__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[3] = (melt_ptr_t) ( /*_.SOME_STRING_VALUE__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#4", NULL != ( /*_.CLASS_DISCRIMINANT__V59*/ meltfptr[58])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_DISCRIMINANT__V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#5", NULL != ( /*_.VALSTR___V377*/ meltfptr[376])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V377*/ meltfptr[376]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#6", NULL != ( /*_.VALSTR___V378*/ meltfptr[377])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V378*/ meltfptr[377]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_307__GENERATE_RUNTYPESUPPORT_MAPFUN#7", NULL != ( /*_.ADD2OUT__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V376*/ meltfptr[375])->tabval[7] = (melt_ptr_t) ( /*_.ADD2OUT__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:3006:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V376*/ meltfptr[375]); /*putclosurout#34 */ melt_assertmsg ("putclosrout#34 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V379*/ meltfptr[378])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#34 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V379*/ meltfptr[378])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V376*/ meltfptr[375]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V379*/ meltfptr[378]); MELT_LOCATION ("warmelt-modes.melt:3383:/ 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_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3383:/ 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_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#1", NULL != ( /*_.CLASS_CLASS__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CLASS__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-modes.melt:3383:/ 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_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#2", NULL != ( /*_.CLASS_NAMED__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-modes.melt:3383:/ 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_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#3", NULL != ( /*_.ADD2OUT__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[3] = (melt_ptr_t) ( /*_.ADD2OUT__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-modes.melt:3383:/ 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_311__GENERATE_RUNTYPESUPPORT_PREDEF_FIELDS#4", NULL != ( /*_.CLASS_FIELD__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V380*/ meltfptr[379])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_FIELD__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-modes.melt:3383:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V380*/ meltfptr[379]); /*putclosurout#35 */ melt_assertmsg ("putclosrout#35 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V381*/ meltfptr[380])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#35 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V380*/ meltfptr[379])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V381*/ meltfptr[380])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V380*/ meltfptr[379]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V381*/ meltfptr[380]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#1", NULL != ( /*_.VALSTR___V383*/ meltfptr[382])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[1] = (melt_ptr_t) ( /*_.VALSTR___V383*/ meltfptr[382]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#2", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#3", NULL != ( /*_.DISCR_STRBUF__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#4", NULL != ( /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V60*/ meltfptr[59])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[4] = (melt_ptr_t) ( /*_.RETRIEVE_DICTIONNARY_CTYPE_GTY__V60*/ meltfptr[59]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#5", NULL != ( /*_.RETRIEVE_DICTIONNARY_CTYPE__V61*/ meltfptr[60])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[5] = (melt_ptr_t) ( /*_.RETRIEVE_DICTIONNARY_CTYPE__V61*/ meltfptr[60]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#6", NULL != ( /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[6] = (melt_ptr_t) ( /*_.GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#7", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[7] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#8", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#9", NULL != ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[9] = (melt_ptr_t) ( /*_.COMPARE_NAMED_ALPHA__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#10", NULL != ( /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V63*/ meltfptr[62])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[10] = (melt_ptr_t) ( /*_.RETRIEVE_VALUE_DESCRIPTOR_LIST__V63*/ meltfptr[62]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V336*/ meltfptr[335]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V336*/ meltfptr[335]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V347*/ meltfptr[346]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V347*/ meltfptr[346]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V363*/ meltfptr[362]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V363*/ meltfptr[362]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V365*/ meltfptr[364]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V365*/ meltfptr[364]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V369*/ meltfptr[368]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[15] = (melt_ptr_t) ( /*_.VALCLO___V369*/ meltfptr[368]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V353*/ meltfptr[352]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V353*/ meltfptr[352]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V361*/ meltfptr[360]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V371*/ meltfptr[370]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V371*/ meltfptr[370]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V355*/ meltfptr[354]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[19] = (melt_ptr_t) ( /*_.VALCLO___V355*/ meltfptr[354]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V379*/ meltfptr[378]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V379*/ meltfptr[378]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V381*/ meltfptr[380]); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V381*/ meltfptr[380]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_313__RUNTYPESUPPORT_DOCMD#22", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V382*/ meltfptr[381])->tabval[22] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3441:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V382*/ meltfptr[381]); /*putclosurout#36 */ melt_assertmsg ("putclosrout#36 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V384*/ meltfptr[383])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#36 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V384*/ meltfptr[383])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V382*/ meltfptr[381]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V384*/ meltfptr[383]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V385*/ meltfptr[384])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V385*/ meltfptr[384])))); ((meltobject_ptr_t) ( /*_.VALDATA___V385*/ meltfptr[384]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V386*/ meltfptr[385]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V385*/ meltfptr[384]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V387*/ meltfptr[386])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V387*/ meltfptr[386])))); ((meltobject_ptr_t) ( /*_.VALDATA___V387*/ meltfptr[386]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V388*/ meltfptr[387]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V387*/ meltfptr[386]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388])))); ((meltobject_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V390*/ meltfptr[389]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V389*/ meltfptr[388]); /*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]); /*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_LOCATION ("warmelt-modes.melt:3581:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:3581:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])))); ((meltobject_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V397*/ meltfptr[396]); MELT_LOCATION ("warmelt-modes.melt:3581:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394])))); ((meltobject_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V384*/ meltfptr[383]); MELT_LOCATION ("warmelt-modes.melt:3581:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V395*/ meltfptr[394]); #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:3594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_329__TRANSLATE_TO_FLAVORED_MODULE#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V398*/ meltfptr[397])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_329__TRANSLATE_TO_FLAVORED_MODULE#1", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V398*/ meltfptr[397])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_329__TRANSLATE_TO_FLAVORED_MODULE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V398*/ meltfptr[397])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:3594:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_329__TRANSLATE_TO_FLAVORED_MODULE#3", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V398*/ meltfptr[397])->tabval[3] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:3594:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V398*/ meltfptr[397]); /*putclosurout#37 */ melt_assertmsg ("putclosrout#37 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V399*/ meltfptr[398])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#37 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V399*/ meltfptr[398])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V398*/ meltfptr[397]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#5", NULL != ( /*_.VALSTR___V401*/ meltfptr[400])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V401*/ meltfptr[400]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#6", NULL != ( /*_.VALSTR___V402*/ meltfptr[401])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[6] = (melt_ptr_t) ( /*_.VALSTR___V402*/ meltfptr[401]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#7", NULL != ( /*_.VALSTR___V403*/ meltfptr[402])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[7] = (melt_ptr_t) ( /*_.VALSTR___V403*/ meltfptr[402]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_331__TRANSLATETOMODULE_DOCMD#8", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V400*/ meltfptr[399])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3642:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V400*/ meltfptr[399]); /*putclosurout#38 */ melt_assertmsg ("putclosrout#38 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V404*/ meltfptr[403])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#38 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V404*/ meltfptr[403])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V400*/ meltfptr[399]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V404*/ meltfptr[403]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404])))); ((meltobject_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V406*/ meltfptr[405]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V405*/ meltfptr[404]); MELT_LOCATION ("warmelt-modes.melt:3660:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V408*/ meltfptr[407]); MELT_LOCATION ("warmelt-modes.melt:3660:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V409*/ meltfptr[408]); MELT_LOCATION ("warmelt-modes.melt:3660:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406])))); ((meltobject_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V404*/ meltfptr[403]); MELT_LOCATION ("warmelt-modes.melt:3660:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V407*/ meltfptr[406]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#5", NULL != ( /*_.VALSTR___V411*/ meltfptr[410])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V411*/ meltfptr[410]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_341__TRANSLATEDEBUG_DOCMD#6", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V410*/ meltfptr[409])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3671:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V410*/ meltfptr[409]); /*putclosurout#39 */ melt_assertmsg ("putclosrout#39 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V412*/ meltfptr[411])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#39 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V412*/ meltfptr[411])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V410*/ meltfptr[409]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V412*/ meltfptr[411]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V413*/ meltfptr[412])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V413*/ meltfptr[412])))); ((meltobject_ptr_t) ( /*_.VALDATA___V413*/ meltfptr[412]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V414*/ meltfptr[413]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V413*/ meltfptr[412]); MELT_LOCATION ("warmelt-modes.melt:3686:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])))); ((meltobject_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-modes.melt:3686:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])))); ((meltobject_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V417*/ meltfptr[416]); MELT_LOCATION ("warmelt-modes.melt:3686:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414])))); ((meltobject_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V412*/ meltfptr[411]); MELT_LOCATION ("warmelt-modes.melt:3686:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V415*/ meltfptr[414]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#5", NULL != ( /*_.VALSTR___V419*/ meltfptr[418])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V419*/ meltfptr[418]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_349__TRANSLATEQUICKLY_DOCMD#6", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V418*/ meltfptr[417])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3700:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V418*/ meltfptr[417]); /*putclosurout#40 */ melt_assertmsg ("putclosrout#40 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V420*/ meltfptr[419])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#40 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V420*/ meltfptr[419])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V418*/ meltfptr[417]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V420*/ meltfptr[419]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420])))); ((meltobject_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V422*/ meltfptr[421]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V421*/ meltfptr[420]); MELT_LOCATION ("warmelt-modes.melt:3717:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])))); ((meltobject_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V424*/ meltfptr[423]); MELT_LOCATION ("warmelt-modes.melt:3717:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])))); ((meltobject_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V425*/ meltfptr[424]); MELT_LOCATION ("warmelt-modes.melt:3717:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422])))); ((meltobject_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V420*/ meltfptr[419]); MELT_LOCATION ("warmelt-modes.melt:3717:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V423*/ meltfptr[422]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V399*/ meltfptr[398]); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#5", NULL != ( /*_.VALSTR___V427*/ meltfptr[426])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V427*/ meltfptr[426]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_357__TRANSLATEOPTIMIZED_DOCMD#6", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V426*/ meltfptr[425])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3728:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V426*/ meltfptr[425]); /*putclosurout#41 */ melt_assertmsg ("putclosrout#41 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V428*/ meltfptr[427])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#41 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V428*/ meltfptr[427])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V426*/ meltfptr[425]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V428*/ meltfptr[427]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V429*/ meltfptr[428])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V429*/ meltfptr[428])))); ((meltobject_ptr_t) ( /*_.VALDATA___V429*/ meltfptr[428]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V430*/ meltfptr[429]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V429*/ meltfptr[428]); MELT_LOCATION ("warmelt-modes.melt:3745:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V432*/ meltfptr[431]); MELT_LOCATION ("warmelt-modes.melt:3745:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V433*/ meltfptr[432]); MELT_LOCATION ("warmelt-modes.melt:3745:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430])))); ((meltobject_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V428*/ meltfptr[427]); MELT_LOCATION ("warmelt-modes.melt:3745:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V431*/ meltfptr[430]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#1", NULL != ( /*_.PREVENV___V4*/ meltfptr[3])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[1] = (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#2", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[2] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#4", NULL != ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#5", NULL != ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[5] = (melt_ptr_t) ( /*_.TRANSLATE_TO_C_MODULE_MELT_SOURCES__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_365__TRANSLATEFILE_DOCMD#6", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V434*/ meltfptr[433])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3757:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V434*/ meltfptr[433]); /*putclosurout#42 */ melt_assertmsg ("putclosrout#42 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V435*/ meltfptr[434])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#42 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V435*/ meltfptr[434])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V434*/ meltfptr[433]); /*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_LOCATION ("warmelt-modes.melt:3799:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:3799:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])))); ((meltobject_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V440*/ meltfptr[439]); MELT_LOCATION ("warmelt-modes.melt:3799:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437])))); ((meltobject_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V435*/ meltfptr[434]); MELT_LOCATION ("warmelt-modes.melt:3799:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V438*/ meltfptr[437]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#2", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#3", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#4", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[4] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#5", NULL != ( /*_.LIST_EVERY__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[5] = (melt_ptr_t) ( /*_.LIST_EVERY__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#6", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#7", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[7] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3854:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V442*/ meltfptr[441])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_374__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V442*/ meltfptr[441])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3854:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V442*/ meltfptr[441])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_374__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V442*/ meltfptr[441])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3854:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V442*/ meltfptr[441]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#8", NULL != ( /*_.VALROUT___V442*/ meltfptr[441])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V442*/ meltfptr[441]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#9", NULL != ( /*_.COMPILE_LIST_SEXPR__V64*/ meltfptr[63])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[9] = (melt_ptr_t) ( /*_.COMPILE_LIST_SEXPR__V64*/ meltfptr[63]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_372__TRANSLATEINIT_DOCMD#10", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V441*/ meltfptr[440])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:3811:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V441*/ meltfptr[440]); /*putclosurout#43 */ melt_assertmsg ("putclosrout#43 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V443*/ meltfptr[442])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#43 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V443*/ meltfptr[442])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V441*/ meltfptr[440]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V443*/ meltfptr[442]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V444*/ meltfptr[443])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V444*/ meltfptr[443])))); ((meltobject_ptr_t) ( /*_.VALDATA___V444*/ meltfptr[443]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V445*/ meltfptr[444]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V444*/ meltfptr[443]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445])))); ((meltobject_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V447*/ meltfptr[446]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V446*/ meltfptr[445]); MELT_LOCATION ("warmelt-modes.melt:3877:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])))); ((meltobject_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V449*/ meltfptr[448]); MELT_LOCATION ("warmelt-modes.melt:3877:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])))); ((meltobject_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V450*/ meltfptr[449]); MELT_LOCATION ("warmelt-modes.melt:3877:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])))); ((meltobject_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V443*/ meltfptr[442]); MELT_LOCATION ("warmelt-modes.melt:3877:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V448*/ meltfptr[447]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#0", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#1", NULL != ( /*_.DISCR_STRING__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRING__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#2", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#3", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[3] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#4", NULL != ( /*_.LIST_EVERY__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[4] = (melt_ptr_t) ( /*_.LIST_EVERY__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#5", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[5] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#6", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[6] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3931:/ 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_384__LAMBDA_#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:3931:/ 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_384__LAMBDA_#1", NULL != ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V452*/ meltfptr[451])->tabval[1] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-modes.melt:3931:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V452*/ meltfptr[451]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#7", NULL != ( /*_.VALROUT___V452*/ meltfptr[451])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V452*/ meltfptr[451]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_382__TRANSLATEINIT_FLAVORED#8", NULL != ( /*_.COMPILE_LIST_SEXPR__V64*/ meltfptr[63])); ((meltroutine_ptr_t) /*_.VALROUT___V451*/ meltfptr[450])->tabval[8] = (melt_ptr_t) ( /*_.COMPILE_LIST_SEXPR__V64*/ meltfptr[63]); MELT_LOCATION ("warmelt-modes.melt:3890:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V451*/ meltfptr[450]); /*putclosurout#44 */ melt_assertmsg ("putclosrout#44 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#44 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V453*/ meltfptr[452])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V451*/ meltfptr[450]); #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; /*touch:DATACLOSURE_*/ meltgc_touch ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:3979:/ 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_385__TRANSLATEINITMODULE_DOCMD#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:3979:/ 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_385__TRANSLATEINITMODULE_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3979:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V453*/ meltfptr[452]); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:3979:/ 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_385__TRANSLATEINITMODULE_DOCMD#3", NULL != ( /*_.VALSTR___V455*/ meltfptr[454])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V455*/ meltfptr[454]); MELT_LOCATION ("warmelt-modes.melt:3979:/ 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_385__TRANSLATEINITMODULE_DOCMD#4", NULL != ( /*_.VALSTR___V456*/ meltfptr[455])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[4] = (melt_ptr_t) ( /*_.VALSTR___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-modes.melt:3979:/ 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_385__TRANSLATEINITMODULE_DOCMD#5", NULL != ( /*_.VALSTR___V457*/ meltfptr[456])); ((meltroutine_ptr_t) /*_.VALROUT___V454*/ meltfptr[453])->tabval[5] = (melt_ptr_t) ( /*_.VALSTR___V457*/ meltfptr[456]); MELT_LOCATION ("warmelt-modes.melt:3979:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V454*/ meltfptr[453]); /*putclosurout#45 */ melt_assertmsg ("putclosrout#45 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V458*/ meltfptr[457])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#45 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V458*/ meltfptr[457])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V454*/ meltfptr[453]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V458*/ meltfptr[457]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V460*/ meltfptr[459]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V459*/ meltfptr[458]); MELT_LOCATION ("warmelt-modes.melt:3988:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])))); ((meltobject_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V462*/ meltfptr[461]); MELT_LOCATION ("warmelt-modes.melt:3988:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])))); ((meltobject_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V463*/ meltfptr[462]); MELT_LOCATION ("warmelt-modes.melt:3988:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460])))); ((meltobject_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V458*/ meltfptr[457]); MELT_LOCATION ("warmelt-modes.melt:3988:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V461*/ meltfptr[460]); MELT_LOCATION ("warmelt-modes.melt:3999:/ 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_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#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:3999:/ 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_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:3999:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V453*/ meltfptr[452]); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:3999:/ 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_395__TRANSLATEINITMODULEQUICKLYBUILT_DOCMD#3", NULL != ( /*_.VALSTR___V465*/ meltfptr[464])); ((meltroutine_ptr_t) /*_.VALROUT___V464*/ meltfptr[463])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V465*/ meltfptr[464]); MELT_LOCATION ("warmelt-modes.melt:3999:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V464*/ meltfptr[463]); /*putclosurout#46 */ melt_assertmsg ("putclosrout#46 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V466*/ meltfptr[465])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#46 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V466*/ meltfptr[465])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V464*/ meltfptr[463]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V466*/ meltfptr[465]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466])))); ((meltobject_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V468*/ meltfptr[467]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V467*/ meltfptr[466]); MELT_LOCATION ("warmelt-modes.melt:4006:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])))); ((meltobject_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V470*/ meltfptr[469]); MELT_LOCATION ("warmelt-modes.melt:4006:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])))); ((meltobject_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V471*/ meltfptr[470]); MELT_LOCATION ("warmelt-modes.melt:4006:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468])))); ((meltobject_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V466*/ meltfptr[465]); MELT_LOCATION ("warmelt-modes.melt:4006:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V469*/ meltfptr[468]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V453*/ meltfptr[452]); ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_403__TRANSLATEINITMODULEDEBUGNOLINE_DOCMD#3", NULL != ( /*_.VALSTR___V473*/ meltfptr[472])); ((meltroutine_ptr_t) /*_.VALROUT___V472*/ meltfptr[471])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V473*/ meltfptr[472]); MELT_LOCATION ("warmelt-modes.melt:4017:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V472*/ meltfptr[471]); /*putclosurout#47 */ melt_assertmsg ("putclosrout#47 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V474*/ meltfptr[473])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#47 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V474*/ meltfptr[473])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V472*/ meltfptr[471]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V474*/ meltfptr[473]); /*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_LOCATION ("warmelt-modes.melt:4024:/ initchunk"); /*^putslot */ /*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]); MELT_LOCATION ("warmelt-modes.melt:4024:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])))); ((meltobject_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V479*/ meltfptr[478]); MELT_LOCATION ("warmelt-modes.melt:4024:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476])))); ((meltobject_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V474*/ meltfptr[473]); MELT_LOCATION ("warmelt-modes.melt:4024:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V477*/ meltfptr[476]); MELT_LOCATION ("warmelt-modes.melt:4035:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4035:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD#1", NULL != ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[1] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-modes.melt:4035:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V453*/ meltfptr[452]); ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V453*/ meltfptr[452]); MELT_LOCATION ("warmelt-modes.melt:4035:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_411__TRANSLATEINITMODULEOPTIMIZED_DOCMD#3", NULL != ( /*_.VALSTR___V481*/ meltfptr[480])); ((meltroutine_ptr_t) /*_.VALROUT___V480*/ meltfptr[479])->tabval[3] = (melt_ptr_t) ( /*_.VALSTR___V481*/ meltfptr[480]); MELT_LOCATION ("warmelt-modes.melt:4035:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V480*/ meltfptr[479]); /*putclosurout#48 */ melt_assertmsg ("putclosrout#48 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V482*/ meltfptr[481])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#48 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V482*/ meltfptr[481])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V480*/ meltfptr[479]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V482*/ meltfptr[481]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V483*/ meltfptr[482]); MELT_LOCATION ("warmelt-modes.melt:4042:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V486*/ meltfptr[485]); MELT_LOCATION ("warmelt-modes.melt:4042:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALSTR___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-modes.melt:4042:/ initchunk"); /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484])))); ((meltobject_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]))->obj_vartab[3] = (melt_ptr_t) ( /*_.VALCLO___V482*/ meltfptr[481]); MELT_LOCATION ("warmelt-modes.melt:4042:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V485*/ meltfptr[484]); MELT_LOCATION ("warmelt-modes.melt:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#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:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#1", NULL != ( /*_.DISCR_STRBUF__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-modes.melt:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#2", NULL != ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V65*/ meltfptr[64])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_INPUT_CHANNEL_HANDLER__V65*/ meltfptr[64]); MELT_LOCATION ("warmelt-modes.melt:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#4", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4054:/ 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_419__REGISTER_INPUT_CHANNEL_HANDLER#5", NULL != ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V488*/ meltfptr[487])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:4054:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V488*/ meltfptr[487]); /*putclosurout#49 */ melt_assertmsg ("putclosrout#49 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V489*/ meltfptr[488])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#49 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V488*/ meltfptr[487])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V489*/ meltfptr[488])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V488*/ meltfptr[487]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V489*/ meltfptr[488]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489])))); ((meltobject_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V491*/ meltfptr[490]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V490*/ meltfptr[489]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])))); ((meltobject_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V493*/ meltfptr[492]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V492*/ meltfptr[491]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V494*/ meltfptr[493])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V494*/ meltfptr[493])))); ((meltobject_ptr_t) ( /*_.VALDATA___V494*/ meltfptr[493]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V495*/ meltfptr[494]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V494*/ meltfptr[493]); MELT_LOCATION ("warmelt-modes.melt:4109:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V496*/ meltfptr[495]); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#1", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#2", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#3", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[3] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#4", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4124:/ 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_430__LAMBDA_#0", NULL != ( /*_.VALDATA___V87*/ meltfptr[86])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86]); MELT_LOCATION ("warmelt-modes.melt:4124:/ 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_430__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V498*/ meltfptr[497])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4124:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V498*/ meltfptr[497]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#5", NULL != ( /*_.VALROUT___V498*/ meltfptr[497])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[5] = (melt_ptr_t) ( /*_.VALROUT___V498*/ meltfptr[497]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#6", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_428__HANDLE_ALARM_SIGNAL#7", NULL != ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66]); /*putclosurout#50 */ melt_assertmsg ("putclosrout#50 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V499*/ meltfptr[498])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#50 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V499*/ meltfptr[498])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V499*/ meltfptr[498]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V497*/ meltfptr[496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V499*/ meltfptr[498]); ((meltroutine_ptr_t) /*_.VALROUT___V497*/ meltfptr[496])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V499*/ meltfptr[498]); MELT_LOCATION ("warmelt-modes.melt:4112:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V497*/ meltfptr[496]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V500*/ meltfptr[499])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V500*/ meltfptr[499])))); ((meltobject_ptr_t) ( /*_.VALDATA___V500*/ meltfptr[499]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V501*/ meltfptr[500]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V500*/ meltfptr[499]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#1", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#2", NULL != ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V496*/ meltfptr[495]); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#4", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#5", NULL != ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#6", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[6] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V499*/ meltfptr[498]); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V499*/ meltfptr[498]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_433__REGISTER_ALARM_TIMER#8", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V502*/ meltfptr[501])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4169:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V502*/ meltfptr[501]); /*putclosurout#51 */ melt_assertmsg ("putclosrout#51 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V503*/ meltfptr[502])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#51 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V503*/ meltfptr[502])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V502*/ meltfptr[501]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V503*/ meltfptr[502]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503])))); ((meltobject_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V505*/ meltfptr[504]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V504*/ meltfptr[503]); MELT_LOCATION ("warmelt-modes.melt:4202:/ 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_437__UNREGISTER_ALARM_TIMER#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:4202:/ 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_437__UNREGISTER_ALARM_TIMER#1", NULL != ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ALARM_HANDLER__V67*/ meltfptr[66]); MELT_LOCATION ("warmelt-modes.melt:4202:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V496*/ meltfptr[495]); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-modes.melt:4202:/ 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_437__UNREGISTER_ALARM_TIMER#3", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4202:/ 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_437__UNREGISTER_ALARM_TIMER#4", NULL != ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:4202:/ 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_437__UNREGISTER_ALARM_TIMER#5", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[5] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4202:/ 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_437__UNREGISTER_ALARM_TIMER#6", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V506*/ meltfptr[505])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4202:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V506*/ meltfptr[505]); /*putclosurout#52 */ melt_assertmsg ("putclosrout#52 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V507*/ meltfptr[506])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#52 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V506*/ meltfptr[505])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V507*/ meltfptr[506])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V506*/ meltfptr[505]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V507*/ meltfptr[506]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507])))); ((meltobject_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V509*/ meltfptr[508]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V508*/ meltfptr[507]); MELT_LOCATION ("warmelt-modes.melt:4234:/ initchunk"); /*^touch */ /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ meltfptr[509]); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#2", NULL != ( /*_.DISCR_LIST__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#3", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#4", NULL != ( /*_.CLASS_CHILD_PROCESS_HANDLER__V69*/ meltfptr[68])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CHILD_PROCESS_HANDLER__V69*/ meltfptr[68]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#5", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#6", NULL != ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_442__CHILD_PROCESS_SIGCHLD_HANDLER#7", NULL != ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V511*/ meltfptr[510])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-modes.melt:4237:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V511*/ meltfptr[510]); /*putclosurout#53 */ melt_assertmsg ("putclosrout#53 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V512*/ meltfptr[511])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#53 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V512*/ meltfptr[511])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V511*/ meltfptr[510]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V512*/ meltfptr[511]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512])))); ((meltobject_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V514*/ meltfptr[513]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V513*/ meltfptr[512]); #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:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#1", NULL != ( /*_.CLASS_CHILD_PROCESS_HANDLER__V69*/ meltfptr[68])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_CHILD_PROCESS_HANDLER__V69*/ meltfptr[68]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#2", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#3", NULL != ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_BUCKET_LONGS__V66*/ meltfptr[65]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ meltfptr[509]); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#5", NULL != ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#6", NULL != ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[6] = (melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconstnotnull */ /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V512*/ meltfptr[511]); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V512*/ meltfptr[511]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_446__REGISTER_CHILD_PROCESS_HANDLER#8", NULL != ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V515*/ meltfptr[514])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-modes.melt:4345:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V515*/ meltfptr[514]); /*putclosurout#54 */ melt_assertmsg ("putclosrout#54 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V516*/ meltfptr[515])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#54 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V516*/ meltfptr[515])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V515*/ meltfptr[514]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V516*/ meltfptr[515]); MELT_LOCATION ("warmelt-modes.melt:4389:/ initchunk"); /*^putroutconst */ /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V517*/ meltfptr[516])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_448__UNREGISTER_CHILD_PROCESS_HANDLER#0", NULL != ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V517*/ meltfptr[516])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-modes.melt:4389:/ initchunk"); /*^touch */ /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V517*/ meltfptr[516]); /*putclosurout#55 */ melt_assertmsg ("putclosrout#55 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V518*/ meltfptr[517])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#55 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V517*/ meltfptr[516])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V518*/ meltfptr[517])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V517*/ meltfptr[516]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V518*/ meltfptr[517]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V519*/ meltfptr[518]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V521*/ meltfptr[520])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V521*/ meltfptr[520])))); ((meltobject_ptr_t) ( /*_.VALDATA___V521*/ meltfptr[520]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V522*/ meltfptr[521]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V521*/ meltfptr[520]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V523*/ meltfptr[522])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V523*/ meltfptr[522])))); ((meltobject_ptr_t) ( /*_.VALDATA___V523*/ meltfptr[522]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V524*/ meltfptr[523]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V523*/ meltfptr[522]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V525*/ meltfptr[524])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V525*/ meltfptr[524])))); ((meltobject_ptr_t) ( /*_.VALDATA___V525*/ meltfptr[524]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V526*/ meltfptr[525]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V525*/ meltfptr[524]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V527*/ meltfptr[526])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V527*/ meltfptr[526])))); ((meltobject_ptr_t) ( /*_.VALDATA___V527*/ meltfptr[526]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V528*/ meltfptr[527]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V527*/ meltfptr[526]); /**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___V529*/ meltfptr[528] = /*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__V530*/ meltfptr[529] = slot; }; ; /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_cstring = "warmelt-modes"; /*_.FUN___V531*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.SYSDATA_CONT_FRESH_ENV__V530*/ meltfptr[529]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.OR___V529*/ meltfptr[528] = /*_.FUN___V531*/ meltfptr[530];; /*epilog */ MELT_LOCATION ("warmelt-modes.melt:3:/ clear"); /*clear *//*_.SYSDATA_CONT_FRESH_ENV__V530*/ meltfptr[529] = 0; /*^clear */ /*clear *//*_.FUN___V531*/ meltfptr[530] = 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___V294*/ meltfptr[293])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.#0", NULL != ( /*_.OR___V529*/ meltfptr[528])); ((meltroutine_ptr_t) /*_.VALROUT___V294*/ meltfptr[293])->tabval[0] = (melt_ptr_t) ( /*_.OR___V529*/ meltfptr[528]); ; /*^touch */ /*touch:compobj_upd_mod_env_box */ meltgc_touch ( /*_.VALROUT___V294*/ meltfptr[293]); ; /*^compute */ /*_.CONTENV___V2*/ meltfptr[1] = /*_.OR___V529*/ meltfptr[528];; } /*com.end block:upd.cur.mod.env.cont : at very start */ ; /*epilog */ /*^clear */ /*clear *//*_.OR___V529*/ meltfptr[528] = 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___V532*/ meltfptr[529] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V71*/ meltfptr[70]; /*^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___V532*/ meltfptr[529]), (melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V532*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:110:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V533*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V533*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:174:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V534*/ meltfptr[528] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V534*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:204:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V535*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V535*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:1403:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V536*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V536*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:1405:/ 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___V537*/ meltfptr[528] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V125*/ meltfptr[124]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]), (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___V128*/ meltfptr[127]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158]), (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___V130*/ meltfptr[129]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160]), (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___V132*/ meltfptr[131]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162]), (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___V134*/ meltfptr[133]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164]), (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___V136*/ meltfptr[135]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166]), (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___V138*/ meltfptr[137]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168]), (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___V140*/ meltfptr[139]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170]), (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___V142*/ meltfptr[141]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172]), (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___V144*/ meltfptr[143]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V175*/ meltfptr[174]), (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___V146*/ meltfptr[145]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V177*/ meltfptr[176]), (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___V148*/ meltfptr[147]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V179*/ meltfptr[178]), (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___V150*/ meltfptr[149]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180]), (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___V152*/ meltfptr[151]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182]), (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___V154*/ meltfptr[153]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V185*/ meltfptr[184]), (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___V156*/ meltfptr[155]; /*^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___V537*/ meltfptr[528]), (melt_ptr_t) ( /*_.VALDATA___V187*/ meltfptr[186]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V537*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:1493:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V538*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V538*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:1507:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V539*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V331*/ meltfptr[330]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V539*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:3588:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V540*/ meltfptr[528] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V395*/ meltfptr[394]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V540*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:3667:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V541*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V407*/ meltfptr[406]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V541*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:3697:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V542*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V415*/ meltfptr[414]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V542*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:3724:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V543*/ meltfptr[528] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V543*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:3752:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V544*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V431*/ meltfptr[430]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V544*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:3806:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V545*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V438*/ meltfptr[437]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V545*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:3884:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V546*/ meltfptr[528] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V546*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:3995:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V547*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V547*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:4013:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V548*/ meltfptr[530] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V469*/ meltfptr[468]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V548*/ meltfptr[530] = 0; } MELT_LOCATION ("warmelt-modes.melt:4031:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V549*/ meltfptr[528] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V477*/ meltfptr[476]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V549*/ meltfptr[528] = 0; } MELT_LOCATION ("warmelt-modes.melt:4049:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^apply */ /*apply */ { /*_.INSTALL_MELT_MODE__V550*/ meltfptr[529] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V71*/ meltfptr[70]), (melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]), (""), (union meltparam_un *) 0, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.INSTALL_MELT_MODE__V550*/ meltfptr[529] = 0; } MELT_LOCATION ("warmelt-modes.melt:4386:/ initchunk"); /*^block */ /*anyblock */ { /*^checksignal */ MELT_CHECK_SIGNAL (); ; /*^cond */ /*cond */ if ( /*ifisa */ melt_is_instance_of ((melt_ptr_t) ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]), (melt_ptr_t) ( /*_.CLASS_SYSTEM_DATA__V9*/ meltfptr[8])) ) /*then */ { /*^cond.then */ /*^block */ /*anyblock */ { /*^putslot */ /*putslot */ melt_assertmsg ("putslot checkobj @SYSDATA_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___V512*/ meltfptr[511]), "SYSDATA_CHILD_HOOK"); ; /*^touch */ meltgc_touch ( /*_.INITIAL_SYSTEM_DATA__V8*/ meltfptr[7]); ; /*epilog */ } ; } /*noelse */ ; /*epilog */ } MELT_LOCATION ("warmelt-modes.melt:4395:/ 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___V551*/ meltfptr[530] = slot; }; ; /*^apply */ /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V503*/ meltfptr[502]; /*^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___V551*/ meltfptr[530]), (melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]), (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___V516*/ meltfptr[515]; /*^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___V551*/ meltfptr[530]), (melt_ptr_t) ( /*_.VALDATA___V521*/ meltfptr[520]), (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___V489*/ meltfptr[488]; /*^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___V551*/ meltfptr[530]), (melt_ptr_t) ( /*_.VALDATA___V523*/ meltfptr[522]), (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___V507*/ meltfptr[506]; /*^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___V551*/ meltfptr[530]), (melt_ptr_t) ( /*_.VALDATA___V525*/ meltfptr[524]), (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___V518*/ meltfptr[517]; /*^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___V551*/ meltfptr[530]), (melt_ptr_t) ( /*_.VALDATA___V527*/ meltfptr[526]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ /*clear *//*_.VALUEXPORTER___V551*/ meltfptr[530] = 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, "bad MELT 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___V72*/ meltfptr[71])); /*internsym:INITIAL_SYSTEM_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V74*/ meltfptr[73])); /*internsym:CLASS_SYSTEM_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75])); /*internsym:CLASS_NAMED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])); /*internsym:MELT_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79])); /*internsym:INSTALL_MELT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])); /*internsym:INITIAL_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])); /*internsym:DISCR_STRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V92*/ meltfptr[91])); /*internsym:CLASS_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V94*/ meltfptr[93])); /*internsym:TRANSLATE_TO_C_MODULE_MELT_SOURCES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V96*/ meltfptr[95])); /*internkeyw:TRUE */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V87*/ meltfptr[86])); /*internsym:RUNFILE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97])); /*internsym:RUNDEBUG_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106])); /*internsym:TRANSLATE_RUN_MELT_EXPRESSIONS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])); /*internsym:EVAL_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])); /*internsym:CLASS_MAKEDOC_INFO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120])); /*internsym:CLASS_PROPED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V123*/ meltfptr[122])); /*internsym:MKDOC_PRIMITIVES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V159*/ meltfptr[158])); /*internsym:MKDOC_FUNCTIONS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V161*/ meltfptr[160])); /*internsym:MKDOC_CITERATORS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V163*/ meltfptr[162])); /*internsym:MKDOC_CMATCHERS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164])); /*internsym:MKDOC_SELECTORS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166])); /*internsym:MKDOC_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168])); /*internsym:MKDOC_CLASSES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V171*/ meltfptr[170])); /*internsym:MKDOC_INSTANCES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V173*/ meltfptr[172])); /*internsym:MKDOC_MACROS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V175*/ meltfptr[174])); /*internsym:MKDOC_PATMACROS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V177*/ meltfptr[176])); /*internsym:MKDOC_FORMALOCCMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V179*/ meltfptr[178])); /*internsym:MKDOC_PREDEFMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V181*/ meltfptr[180])); /*internsym:MKDOC_DOCSYMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182])); /*internsym:MKDOC_SUBCLASSMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V185*/ meltfptr[184])); /*internsym:MKDOC_BOXCOUNTER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V187*/ meltfptr[186])); /*internsym:CLASS_SYMBOL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V197*/ meltfptr[196])); /*internsym:CLASS_FORMAL_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V199*/ meltfptr[198])); /*internsym:CLASS_SOURCE_DEFINITION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V201*/ meltfptr[200])); /*internsym:CLASS_ANY_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V203*/ meltfptr[202])); /*internsym:DISCR_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V205*/ meltfptr[204])); /*internsym:LIST_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V207*/ meltfptr[206])); /*internsym:CLASS_SOURCE_DEFCLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V209*/ meltfptr[208])); /*internsym:CLASS_SEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V211*/ meltfptr[210])); /*internsym:CLASS_CLASS_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V213*/ meltfptr[212])); /*internsym:CLASS_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V215*/ meltfptr[214])); /*internsym:CLASS_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V217*/ meltfptr[216])); /*internsym:CLASS_SOURCE_DEFSELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])); /*internsym:CLASS_SOURCE_DEFINSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V221*/ meltfptr[220])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V223*/ meltfptr[222])); /*internsym:CLASS_SOURCE_DEFUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V225*/ meltfptr[224])); /*internsym:CLASS_SOURCE_DEFCITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V227*/ meltfptr[226])); /*internsym:CLASS_SOURCE_DEFCMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V229*/ meltfptr[228])); /*internsym:CLASS_SOURCE_EXPORT_PATMACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V231*/ meltfptr[230])); /*internsym:CLASS_SOURCE_EXPORT_MACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V233*/ meltfptr[232])); /*internsym:CLASS_LOCATED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236])); /*internsym:CLASS_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V241*/ meltfptr[240])); /*internsym:LIST_TO_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V247*/ meltfptr[246])); /*internsym:DISCR_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248])); /*internsym:COMPARE_NAMED_ALPHA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V251*/ meltfptr[250])); /*internsym:CLASS_SOURCE_DEFINITION_FORMAL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V270*/ meltfptr[269])); /*internsym:CLASS_CITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V283*/ meltfptr[282])); /*internsym:CLASS_ANY_MATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V288*/ meltfptr[287])); /*internsym:DISCR_STRBUF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291])); /*internsym:CLASS_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V297*/ meltfptr[296])); /*internsym:DISCR_MAP_OBJECTS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V299*/ meltfptr[298])); /*internsym:DISCR_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V301*/ meltfptr[300])); /*internsym:MELT_MODE_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V303*/ meltfptr[302])); /*internsym:LIST_APPEND2LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V305*/ meltfptr[304])); /*internsym:MACROEXPAND_TOPLEVEL_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V307*/ meltfptr[306])); /*internsym:MACROEXPAND_1 */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V309*/ meltfptr[308])); /*internsym:MAKEDOC_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])); /*internsym:FIND_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317])); /*internsym:HELP_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321])); /*internsym:NOP_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])); /*internsym:CLASS_VALUE_DESCRIPTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V337*/ meltfptr[336])); /*internsym:CLASS_CTYPE_GTY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])); /*internsym:CLASS_VARISIZED_VALUE_DESCRIPTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347])); /*internsym:ADD2OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V356*/ meltfptr[355])); #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; /*internsym:SOME_STRING_VALUE*/ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V372*/ meltfptr[371])); /*internsym:CLASS_DISCRIMINANT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373])); /*internsym:RETRIEVE_DICTIONNARY_CTYPE_GTY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V385*/ meltfptr[384])); /*internsym:RETRIEVE_DICTIONNARY_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V387*/ meltfptr[386])); /*internsym:GENERATE_GPLV3PLUS_COPYRIGHT_NOTICE_C_COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V389*/ meltfptr[388])); /*internsym:RETRIEVE_VALUE_DESCRIPTOR_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])); /*internsym:RUNTYPESUPPORT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V393*/ meltfptr[392])); /*internsym:TRANSLATETOMODULE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404])); /*internsym:TRANSLATEDEBUG_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V413*/ meltfptr[412])); /*internsym:TRANSLATEQUICKLY_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420])); /*internsym:TRANSLATEOPTIMIZED_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V429*/ meltfptr[428])); /*internsym:TRANSLATEFILE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V436*/ meltfptr[435])); /*internsym:COMPILE_LIST_SEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V444*/ meltfptr[443])); /*internsym:TRANSLATEINIT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445])); /*internsym:TRANSLATEINITMODULE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458])); /*internsym:TRANSLATEINITMODULEQUICKLYBUILT_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466])); /*internsym:TRANSLATEINITMODULEDEBUGNOLINE_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V475*/ meltfptr[474])); /*internsym:TRANSLATEINITMODULEOPTIMIZED_MODE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V483*/ meltfptr[482])); /*internsym:CLASS_INPUT_CHANNEL_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489])); /*internsym:DISCR_BUCKET_LONGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])); /*internsym:ALARM_BUCKET_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V494*/ meltfptr[493])); /*internsym:CLASS_ALARM_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V500*/ meltfptr[499])); /*internsym:DISCR_CONSTANT_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503])); /*internsym:CHILDPROC_BUCKET_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507])); /*internsym:CLASS_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512])); /*internsym:REGISTER_ALARM_TIMER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])); /*internsym:REGISTER_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V521*/ meltfptr[520])); /*internsym:REGISTER_INPUT_CHANNEL_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V523*/ meltfptr[522])); /*internsym:UNREGISTER_ALARM_TIMER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V525*/ meltfptr[524])); /*internsym:UNREGISTER_CHILD_PROCESS_HANDLER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V527*/ meltfptr[526])); /**COMMENT: set retinit from boxloc **/ ; /*_.RETINIT___V1*/ meltfptr[0] = /* finalfreshenvget */ melt_reference_value ((melt_ptr_t) ( /*_.CONTENV___V2*/ meltfptr[1])); /**COMMENT: end the initproc **/ ; #undef meltfram__ } /*end of meltmod__warmelt_modes__initialmeltchunk_9 */ 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 */ -3770); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_modes forwarding %d pointers in frame %p", 551, (void *) meltframptr_); for (ix = 0; ix < 551; 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 < 551; 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 ****/