/* GCC MELT GENERATED FILE warmelt-macro.c - DO NOT EDIT */ /***+ warmelt-macro without options +***/ #include "melt-run.h" /* used hash from melt-run.h when compiling this file: */ const char used_meltrun_md5_melt[] = MELT_RUN_HASHMD5 /* from melt-run.h */ ; /**** warmelt-macro declarations ****/ /* ordinary MELT module */ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /*usual */ struct melt_callframe_st; /*defined in melt-runtime.h */ /**!!** *** Copyright 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. Contributed by Basile Starynkevitch This file is part of GCC. GCC is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GCC is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GCC; see the file COPYING3. If not see . *****!!**/ #line 855 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 899 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 911 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 950 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 961 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 986 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_macro_EXPAND_APPLY (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1006 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_macro_EXPAND_MSEND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1038 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_macro_EXPAND_FIELDEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1096 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_macro_EXPAND_CITERATION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_macro_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_); #line 1159 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1202 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1234 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1252 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_macro_MACROEXPAND_1 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1372 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_macro_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_); #line 1412 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_macro_EXPAND_PRIMITIVE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1443 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1447 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_macro_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_); #line 1457 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1470 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_macro_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_); #line 1482 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_macro_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_); #line 1501 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1514 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_macro_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_); #line 1535 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1688 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_macro_PATTERNEXPAND_1 (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1779 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1852 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1956 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1969 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 1991 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_macro_WARN_IF_REDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2004 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2050 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2071 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_macro_CHECK_C_EXPANSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2106 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2229 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2382 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2433 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_macro_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_); #line 2578 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_macro_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_); #line 2724 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_macro_MEXPAND_DEFUN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2763 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_macro_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_); #line 2809 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_macro_MEXPAND_DEFINE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 2904 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_macro_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_); #line 2930 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_macro_SCAN_DEFCLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3050 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_macro_MEXPAND_DEFCLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3112 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_macro_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_); #line 3121 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_macro_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_); #line 3199 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3223 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_macro_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_); #line 3296 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3410 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3557 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_macro_MEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_macro_MEXPAND_LOAD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3666 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3681 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_macro_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_); #line 3710 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_macro_PATEXPAND_INSTANCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3768 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_macro_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_); #line 3805 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_macro_PATEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3863 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_macro_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_); #line 3882 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_macro_MEXPAND_OBJECT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3905 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 3956 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4004 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4051 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4092 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_macro_MEXPAND_GET_FIELD (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4133 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_macro_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_); #line 4152 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_macro_MEXPAND_SETQ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4183 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_macro_MEXPAND_IF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4237 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4273 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_macro_MEXPAND_UNLESS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4309 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_macro_MEXPAND_CPPIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4366 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_macro_FILTERGCCVERSION (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4381 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_macro_MEXPAND_GCCIF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4444 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_macro_MEXPAND_COND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4454 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_macro_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_); #line 4549 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_macro_MEXPAND_AND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4562 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_macro_LAMBDA___19__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4590 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_macro_PATEXPAND_AS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4628 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_macro_MEXPAND_AS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4642 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_macro_PATEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4657 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_macro_MEXPAND_WHEN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4672 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_macro_PATEXPAND_AND (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4709 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_macro_MEXPAND_OR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4721 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_macro_LAMBDA___20__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_macro_PATEXPAND_OR (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4777 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_macro_MEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4819 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_macro_PATEXPAND_REFERENCE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4859 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4866 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4880 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_macro_MEXPAND_DEREF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4924 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4946 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_macro_MEXPAND_SET_REF (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 4998 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_macro_MEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5015 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_macro_PATEXPAND_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5045 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_macro_MEXPAND_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5062 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_macro_PATEXPAND_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5093 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_macro_MEXPAND_MATCH (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5107 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_macro_LAMBDA___21__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5185 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_macro_MEXPAND_LETBINDING (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5269 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_macro_MEXPAND_LET (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5291 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_macro_LAMBDA___22__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5299 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_macro_LAMBDA___23__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5312 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_macro_LAMBDA___24__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5336 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5349 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_macro_MEXPAND_LETREC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5376 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_macro_LAMBDA___25__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5482 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_macro_LAMBDA___26__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5504 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_macro_MEXPAND_LAMBDA (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5527 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_macro_LAMBDA___27__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5555 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_macro_MEXPAND_VARIADIC (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5564 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_macro_LAMBDA___28__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5594 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_macro_LAMBDA___29__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5625 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_macro_LAMBDA___30__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5636 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_macro_LAMBDA___31__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5678 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_macro_MEXPAND_MULTICALL (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5711 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_macro_LAMBDA___32__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5715 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_macro_LAMBDA___33__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_macro_MEXPAND_QUOTE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5778 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_macro_MEXPAND_COMMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5808 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_macro_MEXPAND_CHEADER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5857 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5947 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5955 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_macro_LAMBDA___34__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5963 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_macro_MEXPAND_PROGN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 5988 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_macro_MEXPAND_RETURN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6011 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_macro_MEXPAND_FOREVER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6035 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_macro_LAMBDA___35__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6054 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_macro_MEXPAND_EXIT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6080 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_macro_LAMBDA___36__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6097 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_macro_MEXPAND_AGAIN (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6141 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6184 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6273 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6346 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_macro_MEXPAND_DEBUG (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6467 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6479 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_macro_LAMBDA___37__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6505 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6549 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6599 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6611 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_macro_LAMBDA___38__ (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6631 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6683 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6710 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6739 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6769 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); #line 6798 "warmelt-macro.melt" /**::procdecl::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_); MELT_EXTERN void *melt_start_this_module (void *); /* define different names when debugging or not */ #if MELT_HAVE_DEBUG MELT_EXTERN const char meltmodule_warmelt_macro__melt_have_debug_enabled[]; #define melt_have_debug_string meltmodule_warmelt_macro__melt_have_debug_enabled #else /*!MELT_HAVE_DEBUG */ MELT_EXTERN const char meltmodule_warmelt_macro__melt_have_debug_disabled[]; #define melt_have_debug_string meltmodule_warmelt_macro__melt_have_debug_disabled #endif /*!MELT_HAVE_DEBUG */ struct frame_start_module_melt_st; void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_0 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_1 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_2 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_3 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_4 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_5 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_6 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_7 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_8 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_9 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_10 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_11 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_12 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_13 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_14 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_15 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_16 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_17 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_18 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_19 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_20 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_21 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_22 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_23 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_24 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_25 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_26 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_27 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_32 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_33 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__initialmeltchunk_34 (struct frame_start_module_melt_st *, char *); void MELT_MODULE_VISIBILITY meltmod__warmelt_macro__forward_or_mark_module_start_frame (struct melt_callframe_st *fp, int marking); /**** warmelt-macro implementations ****/ #line 855 "warmelt-macro.melt" /**::proc::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un *meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un *meltxrestab_) { long current_blocklevel_signals_meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST_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_macro_EXPAND_RESTLIST_AS_LIST_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 29 melt_ptr_t mcfr_varptr[29]; #define MELTFRAM_NBVARNUM 11 long mcfr_varnum[11]; /*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_macro_EXPAND_RESTLIST_AS_LIST_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 < 29; 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 = 29; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("EXPAND_RESTLIST_AS_LIST", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:855:/ getarg"); #line 855 "warmelt-macro.melt" /**::getarg::**/ /*_.ARGLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ #line 855 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2 */ /*^getarg */ #line 855 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3 */ /*^getarg */ #line 855 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ #line 855 /*anyblock*/ { #line 859 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:859:/ cppif.then"); #line 859 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 859 /*anyblock */ { /*^checksignal */ #line 859 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = #line 859 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:859:/ cond"); #line 859 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 859 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:859:/ cond.else"); #line 859 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 859 /*anyblock */ { { /*^locexp */ #line 859 melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (859) ? (859) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:859:/ clear"); #line 859 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ #line 859 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 859 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 860 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:860:/ cppif.then"); #line 860 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 860 /*anyblock */ { /*^checksignal */ #line 860 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[0] = #line 860 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:860:/ cond"); #line 860 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 860 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:860:/ cond.else"); #line 860 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 860 /*anyblock */ { { /*^locexp */ #line 860 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (860) ? (860) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:860:/ clear"); #line 860 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ #line 860 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 860 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 861 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:861:/ cppif.then"); #line 861 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 861 /*anyblock */ { /*^checksignal */ #line 861 MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L3*/ meltfnum[0] = #line 861 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.ARGLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION ("warmelt-macro.melt:861:/ cond"); #line 861 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 861 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:861:/ cond.else"); #line 861 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 861 /*anyblock */ { { /*^locexp */ #line 861 melt_assert_failed (("check arglist"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (861) ? (861) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:861:/ clear"); #line 861 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_LIST__L3*/ meltfnum[0] = 0; /*^clear */ #line 861 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 861 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 862 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:862:/ cppif.then"); #line 862 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 862 /*anyblock */ { /*^checksignal */ #line 862 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L4*/ meltfnum[0] = #line 862 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:862:/ cond"); #line 862 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 862 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:862:/ cond.else"); #line 862 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 862 /*anyblock */ { { /*^locexp */ #line 862 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (862) ? (862) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:862:/ clear"); #line 862 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ #line 862 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 862 /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:863:/ quasiblock"); #line 863 "warmelt-macro.melt" /**::quasiblock::**/ /*^blockmultialloc */ #line 863 /*multiallocblock */ { struct meltletrec_1_st { struct meltlist_st rlist_0__LIST_; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill */ #line 863 /*inilist rlist_0__LIST_ */ /*_.LIST___V16*/ meltfptr[15] = (melt_ptr_t) & meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_LIST)))); /*_.EXPRESLIST__V15*/ meltfptr[14] = /*_.LIST___V16*/ meltfptr[15];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:863:/ clear"); #line 863 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LIST___V16*/ meltfptr[15] = 0; /*^clear */ #line 863 /*clear *//*_.LIST___V16*/ meltfptr[15] = 0; } /*end multiallocblock */ ; /*_#COUNT__L5*/ meltfnum[0] = 0;; /*citerblock FOREACH_IN_LIST */ { /* start foreach_in_list meltcit1__EACHLIST */ for ( /*_.CURPAIR__V17*/ meltfptr[15] = melt_list_first ((melt_ptr_t) /*_.ARGLIST__V2*/ meltfptr[1]); melt_magic_discr ((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[15]) == MELTOBMAG_PAIR; /*_.CURPAIR__V17*/ meltfptr[15] = melt_pair_tail ((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[15])) { /*_.CURARG__V18*/ meltfptr[17] = melt_pair_head ((melt_ptr_t) /*_.CURPAIR__V17*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:869:/ checksignal"); #line 869 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#I__L6*/ meltfnum[5] = #line 869 "warmelt-macro.melt" /**::expr::**/ (( /*_#COUNT__L5*/ meltfnum[0]) > (0));; MELT_LOCATION ("warmelt-macro.melt:869:/ cond"); #line 869 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#I__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ #line 869 /*^block */ #line 869 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:872:/ checksignal"); #line 872 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:870:/ quasiblock"); #line 870 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ #line 870 /*multiapply 4args, 1x.res */ { union meltparam_un argtab[3]; union meltparam_un restab[1]; memset (&restab, 0, sizeof (restab)); memset (&argtab, 0, sizeof (argtab)); /*^multiapply.arg */ #line 870 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^multiapply.arg */ #line 870 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^multiapply.arg */ #line 870 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*^multiapply.xres */ #line 870 restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.XTRAEXP__V22*/ meltfptr[21]; /*^multiapply.appl */ #line 870 /*_.CUREXP__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.CURARG__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock */ #line 870 { MELT_LOCATION ("warmelt-macro.melt:873:/ locexp"); #line 873 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V15*/ meltfptr[14]), (melt_ptr_t) ( /*_.CUREXP__V21*/ meltfptr[20])); } ; MELT_LOCATION ("warmelt-macro.melt:875:/ checksignal"); #line 875 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L7*/ meltfnum[6] = #line 875 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.XTRAEXP__V22*/ meltfptr[21])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION ("warmelt-macro.melt:875:/ cond"); #line 875 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_MULTIPLE__L7*/ meltfnum[6]) /*then */ { /*^cond.then */ #line 875 /*^block */ #line 875 /*anyblock */ { /*citerblock FOREACH_IN_MULTIPLE */ { /* start foreach_in_multiple meltcit2__EACHTUP */ long meltcit2__EACHTUP_ln = melt_multiple_length ((melt_ptr_t) /*_.XTRAEXP__V22*/ meltfptr[21]); for ( /*_#XIX__L8*/ meltfnum[7] = 0; ( /*_#XIX__L8*/ meltfnum[7] >= 0) && ( /*_#XIX__L8*/ meltfnum[7] < meltcit2__EACHTUP_ln); /*_#XIX__L8*/ meltfnum[7]++) { /*_.CURXTRA__V24*/ meltfptr[23] = melt_multiple_nth ((melt_ptr_t) ( /*_.XTRAEXP__V22*/ meltfptr[21]), /*_#XIX__L8*/ meltfnum[7]); { MELT_LOCATION ("warmelt-macro.melt:879:/ locexp"); #line 879 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V15*/ meltfptr[14]), (melt_ptr_t) ( /*_.CURXTRA__V24*/ meltfptr[23])); } ; if ( /*_#XIX__L8*/ meltfnum[7] < 0) break; } /* end foreach_in_multiple meltcit2__EACHTUP */ /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:876:/ clear"); #line 876 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURXTRA__V24*/ meltfptr[23] = 0; /*^clear */ #line 876 /*clear *//*_#XIX__L8*/ meltfnum[7] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:875:/ cond.else"); #line 875 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 875 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:881:/ checksignal"); #line 881 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L9*/ meltfnum[8] = #line 881 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.XTRAEXP__V22*/ meltfptr[21])) == MELTOBMAG_LIST);; MELT_LOCATION ("warmelt-macro.melt:881:/ cond"); #line 881 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_LIST__L9*/ meltfnum[8]) /*then */ { /*^cond.then */ #line 881 /*^block */ #line 881 /*anyblock */ { /*citerblock FOREACH_IN_LIST */ { /* start foreach_in_list meltcit3__EACHLIST */ for ( /*_.XTRAPAIR__V26*/ meltfptr[25] = melt_list_first ((melt_ptr_t) /*_.XTRAEXP__V22*/ meltfptr[21]); melt_magic_discr ((melt_ptr_t) /*_.XTRAPAIR__V26*/ meltfptr[25]) == MELTOBMAG_PAIR; /*_.XTRAPAIR__V26*/ meltfptr[25] = melt_pair_tail ((melt_ptr_t) /*_.XTRAPAIR__V26*/ meltfptr[25])) { /*_.CURXTRA__V27*/ meltfptr[26] = melt_pair_head ((melt_ptr_t) /*_.XTRAPAIR__V26*/ meltfptr[25]); { MELT_LOCATION ("warmelt-macro.melt:885:/ locexp"); #line 885 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V15*/ meltfptr[14]), (melt_ptr_t) ( /*_.CURXTRA__V27*/ meltfptr[26])); } ; } /* end foreach_in_list meltcit3__EACHLIST */ /*_.XTRAPAIR__V26*/ meltfptr[25] = NULL; /*_.CURXTRA__V27*/ meltfptr[26] = NULL; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:882:/ clear"); #line 882 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XTRAPAIR__V26*/ meltfptr[25] = 0; /*^clear */ #line 882 /*clear *//*_.CURXTRA__V27*/ meltfptr[26] = 0; } /*endciterblock FOREACH_IN_LIST */ ; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:881:/ cond.else"); #line 881 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 881 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:887:/ checksignal"); #line 887 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ #line 887 /*cond */ if ( /*_.XTRAEXP__V22*/ meltfptr[21]) /*then */ { /*^cond.then */ #line 887 /*^block */ #line 887 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:888:/ locexp"); #line 888 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V15*/ meltfptr[14]), (melt_ptr_t) ( /*_.XTRAEXP__V22*/ meltfptr[21])); } ; /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:887:/ cond.else"); #line 887 "warmelt-macro.melt" /**::cond.else::**/ /*_.IFELSE___V28*/ meltfptr[27] = NULL;; } ; /*^compute */ /*_.IFELSE___V25*/ meltfptr[24] = /*_.IFELSE___V28*/ meltfptr[27];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:881:/ clear"); #line 881 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFELSE___V28*/ meltfptr[27] = 0; } ; } ; /*_.IFELSE___V23*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:875:/ clear"); #line 875 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_LIST__L9*/ meltfnum[8] = 0; /*^clear */ #line 875 /*clear *//*_.IFELSE___V25*/ meltfptr[24] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:870:/ checksignal"); #line 870 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MULTI___V20*/ meltfptr[19] = /*_.IFELSE___V23*/ meltfptr[22];; MELT_LOCATION ("warmelt-macro.melt:870:/ clear"); #line 870 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_MULTIPLE__L7*/ meltfnum[6] = 0; /*^clear */ #line 870 /*clear *//*_.IFELSE___V23*/ meltfptr[22] = 0; /*^clear */ #line 870 /*clear *//*_.XTRAEXP__V22*/ meltfptr[21] = 0; /*_.IF___V19*/ meltfptr[18] = /*_.MULTI___V20*/ meltfptr[19];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:869:/ clear"); #line 869 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.MULTI___V20*/ meltfptr[19] = 0; } ; } else { /*^cond.else */ #line 869 /*_.IF___V19*/ meltfptr[18] = NULL;; } ; /*^compute */ /*_#I__L10*/ meltfnum[8] = #line 892 "warmelt-macro.melt" /**::expr::**/ (( /*_#COUNT__L5*/ meltfnum[0]) + (1));; MELT_LOCATION ("warmelt-macro.melt:892:/ compute"); #line 892 "warmelt-macro.melt" /**::compute::**/ /*_#COUNT__L5*/ meltfnum[0] = /*_#SETQ___L11*/ meltfnum[6] = /*_#I__L10*/ meltfnum[8];; } /* end foreach_in_list meltcit1__EACHLIST */ /*_.CURPAIR__V17*/ meltfptr[15] = NULL; /*_.CURARG__V18*/ meltfptr[17] = NULL; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:866:/ clear"); #line 866 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURPAIR__V17*/ meltfptr[15] = 0; /*^clear */ #line 866 /*clear *//*_.CURARG__V18*/ meltfptr[17] = 0; /*^clear */ #line 866 /*clear *//*_#I__L6*/ meltfnum[5] = 0; /*^clear */ #line 866 /*clear *//*_.IF___V19*/ meltfptr[18] = 0; /*^clear */ #line 866 /*clear *//*_#I__L10*/ meltfnum[8] = 0; /*^clear */ #line 866 /*clear *//*_#SETQ___L11*/ meltfnum[6] = 0; } /*endciterblock FOREACH_IN_LIST */ ; MELT_LOCATION ("warmelt-macro.melt:894:/ checksignal"); #line 894 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 894 /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPRESLIST__V15*/ meltfptr[14];; { MELT_LOCATION ("warmelt-macro.melt:894:/ locexp"); #line 894 "warmelt-macro.melt" /**::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 */ #line 894 ; /*finalret */ goto labend_rout; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V29*/ meltfptr[27];; MELT_LOCATION ("warmelt-macro.melt:863:/ clear"); #line 863 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.EXPRESLIST__V15*/ meltfptr[14] = 0; /*^clear */ #line 863 /*clear *//*_#COUNT__L5*/ meltfnum[0] = 0; /*^clear */ #line 863 /*clear *//*_.RETURN___V29*/ meltfptr[27] = 0; MELT_LOCATION ("warmelt-macro.melt:855:/ checksignal"); #line 855 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 855 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:855:/ locexp"); #line 855 "warmelt-macro.melt" /**::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 */ #line 855 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ #line 855 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ #line 855 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ #line 855 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ #line 855 /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; /*^clear */ #line 855 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("EXPAND_RESTLIST_AS_LIST", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST_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_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST */ #line 899 "warmelt-macro.melt" /**::proc::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE_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_macro_EXPAND_RESTLIST_AS_TUPLE_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 16 melt_ptr_t mcfr_varptr[16]; #define MELTFRAM_NBVARNUM 4 long mcfr_varnum[4]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE_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 < 16; 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 = 16; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("EXPAND_RESTLIST_AS_TUPLE", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:899:/ getarg"); #line 899 "warmelt-macro.melt" /**::getarg::**/ /*_.ARGLIST__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ #line 899 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2 */ /*^getarg */ #line 899 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3 */ /*^getarg */ #line 899 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ #line 899 /*anyblock*/ { #line 900 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:900:/ cppif.then"); #line 900 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 900 /*anyblock */ { /*^checksignal */ #line 900 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = #line 900 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:900:/ cond"); #line 900 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 900 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:900:/ cond.else"); #line 900 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 900 /*anyblock */ { { /*^locexp */ #line 900 melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (900) ? (900) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:900:/ clear"); #line 900 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ #line 900 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 900 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 901 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:901:/ cppif.then"); #line 901 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 901 /*anyblock */ { /*^checksignal */ #line 901 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[0] = #line 901 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:901:/ cond"); #line 901 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 901 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:901:/ cond.else"); #line 901 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 901 /*anyblock */ { { /*^locexp */ #line 901 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (901) ? (901) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:901:/ clear"); #line 901 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ #line 901 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 901 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 902 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:902:/ cppif.then"); #line 902 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 902 /*anyblock */ { /*^checksignal */ #line 902 MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L3*/ meltfnum[0] = #line 902 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.ARGLIST__V2*/ meltfptr[1])) == MELTOBMAG_LIST);; MELT_LOCATION ("warmelt-macro.melt:902:/ cond"); #line 902 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_LIST__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 902 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:902:/ cond.else"); #line 902 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 902 /*anyblock */ { { /*^locexp */ #line 902 melt_assert_failed (("check arglist"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (902) ? (902) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:902:/ clear"); #line 902 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_LIST__L3*/ meltfnum[0] = 0; /*^clear */ #line 902 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 902 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 903 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:903:/ cppif.then"); #line 903 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 903 /*anyblock */ { /*^checksignal */ #line 903 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L4*/ meltfnum[0] = #line 903 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:903:/ cond"); #line 903 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 903 /*_.IFELSE___V13*/ meltfptr[12] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:903:/ cond.else"); #line 903 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 903 /*anyblock */ { { /*^locexp */ #line 903 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (903) ? (903) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V12*/ meltfptr[10] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:903:/ clear"); #line 903 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L4*/ meltfnum[0] = 0; /*^clear */ #line 903 /*clear *//*_.IFELSE___V13*/ meltfptr[12] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 903 /*_.IFCPP___V12*/ meltfptr[10] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:904:/ quasiblock"); #line 904 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ #line 904 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 904 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 904 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ #line 904 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ #line 904 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.EXPRESLIST__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) (( /*!EXPAND_RESTLIST_AS_LIST */ meltfrout->tabval[1])), (melt_ptr_t) ( /*_.ARGLIST__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; MELT_LOCATION ("warmelt-macro.melt:906:/ checksignal"); #line 906 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ #line 906 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 906 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[3]); /*_.LIST_TO_MULTIPLE__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t) (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[2])), (melt_ptr_t) ( /*_.EXPRESLIST__V15*/ meltfptr[14]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.LET___V14*/ meltfptr[12] = /*_.LIST_TO_MULTIPLE__V16*/ meltfptr[15];; MELT_LOCATION ("warmelt-macro.melt:904:/ clear"); #line 904 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.EXPRESLIST__V15*/ meltfptr[14] = 0; /*^clear */ #line 904 /*clear *//*_.LIST_TO_MULTIPLE__V16*/ meltfptr[15] = 0; MELT_LOCATION ("warmelt-macro.melt:899:/ checksignal"); #line 899 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 899 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:899:/ locexp"); #line 899 "warmelt-macro.melt" /**::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 */ #line 899 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ #line 899 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ #line 899 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ #line 899 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ #line 899 /*clear *//*_.IFCPP___V12*/ meltfptr[10] = 0; /*^clear */ #line 899 /*clear *//*_.LET___V14*/ meltfptr[12] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("EXPAND_RESTLIST_AS_TUPLE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE_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_macro_EXPAND_RESTLIST_AS_TUPLE */ #line 911 "warmelt-macro.melt" /**::proc::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST_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_macro_EXPAND_PAIRLIST_AS_LIST_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 30 melt_ptr_t mcfr_varptr[30]; #define MELTFRAM_NBVARNUM 8 long mcfr_varnum[8]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST_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 < 30; 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 = 30; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("EXPAND_PAIRLIST_AS_LIST", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:911:/ getarg"); #line 911 "warmelt-macro.melt" /**::getarg::**/ /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ #line 911 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2 */ /*^getarg */ #line 911 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3 */ /*^getarg */ #line 911 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ #line 911 /*anyblock*/ { #line 912 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:912:/ cppif.then"); #line 912 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 912 /*anyblock */ { /*^checksignal */ #line 912 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = #line 912 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:912:/ cond"); #line 912 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 912 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:912:/ cond.else"); #line 912 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 912 /*anyblock */ { { /*^locexp */ #line 912 melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (912) ? (912) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:912:/ clear"); #line 912 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ #line 912 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 912 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 913 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:913:/ cppif.then"); #line 913 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 913 /*anyblock */ { /*^checksignal */ #line 913 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[0] = #line 913 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:913:/ cond"); #line 913 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 913 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:913:/ cond.else"); #line 913 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 913 /*anyblock */ { { /*^locexp */ #line 913 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (913) ? (913) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:913:/ clear"); #line 913 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ #line 913 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 913 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 914 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:914:/ cppif.then"); #line 914 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 914 /*anyblock */ { /*^checksignal */ #line 914 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L3*/ meltfnum[0] = #line 914 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:914:/ cond"); #line 914 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 914 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:914:/ cond.else"); #line 914 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 914 /*anyblock */ { { /*^locexp */ #line 914 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (914) ? (914) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:914:/ clear"); #line 914 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ #line 914 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 914 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:915:/ quasiblock"); #line 915 "warmelt-macro.melt" /**::quasiblock::**/ /*^blockmultialloc */ #line 915 /*multiallocblock */ { struct meltletrec_1_st { struct meltlist_st rlist_0__LIST_; long meltletrec_1_endgap; } *meltletrec_1_ptr = 0; meltletrec_1_ptr = (struct meltletrec_1_st *) meltgc_allocate (sizeof (struct meltletrec_1_st), 0); /*^blockmultialloc.initfill */ #line 915 /*inilist rlist_0__LIST_ */ /*_.LIST___V14*/ meltfptr[13] = (melt_ptr_t) & meltletrec_1_ptr->rlist_0__LIST_; meltletrec_1_ptr->rlist_0__LIST_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_LIST)))); /*_.EXPRESLIST__V13*/ meltfptr[12] = /*_.LIST___V14*/ meltfptr[13];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:915:/ clear"); #line 915 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LIST___V14*/ meltfptr[13] = 0; /*^clear */ #line 915 /*clear *//*_.LIST___V14*/ meltfptr[13] = 0; } /*end multiallocblock */ ; MELT_LOCATION ("warmelt-macro.melt:917:/ loop"); #line 917 "warmelt-macro.melt" /**::loop::**/ /*loop */ { labloop_EXPLOOP_1:; /*^loopbody */ #line 917 /*^block */ #line 917 /*anyblock */ { /*^checksignal */ #line 917 MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:918:/ checksignal"); #line 918 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L4*/ meltfnum[0] = #line 918 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; /*^compute */ /*_#NOT__L5*/ meltfnum[4] = #line 918 "warmelt-macro.melt" /**::expr::**/ (!( /*_#IS_PAIR__L4*/ meltfnum[0]));; MELT_LOCATION ("warmelt-macro.melt:918:/ cond"); #line 918 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#NOT__L5*/ meltfnum[4]) /*then */ { /*^cond.then */ #line 918 /*^block */ #line 918 /*anyblock */ { /*^quasiblock */ #line 918 /*^compute */ #line 918 /*_.EXPLOOP__V16*/ meltfptr[15] = NULL;; /*^exit */ #line 918 /*exit */ { goto labexit_EXPLOOP_1; } ; /*epilog */ } ; } /*noelse */ ; MELT_LOCATION ("warmelt-macro.melt:919:/ quasiblock"); #line 919 "warmelt-macro.melt" /**::quasiblock::**/ /*_.CURARG__V18*/ meltfptr[17] = #line 919 "warmelt-macro.melt" /**::expr::**/ (melt_pair_head ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])));; /*^compute */ /*_.PAIR_TAIL__V19*/ meltfptr[18] = #line 921 "warmelt-macro.melt" /**::expr::**/ (melt_pair_tail ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])));; MELT_LOCATION ("warmelt-macro.melt:921:/ compute"); #line 921 "warmelt-macro.melt" /**::compute::**/ /*_.PAIR__V2*/ meltfptr[1] = /*_.SETQ___V20*/ meltfptr[19] = /*_.PAIR_TAIL__V19*/ meltfptr[18];; MELT_LOCATION ("warmelt-macro.melt:924:/ checksignal"); #line 924 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; MELT_LOCATION ("warmelt-macro.melt:922:/ quasiblock"); #line 922 "warmelt-macro.melt" /**::quasiblock::**/ /*^multiapply */ #line 922 /*multiapply 4args, 1x.res */ { union meltparam_un argtab[3]; union meltparam_un restab[1]; memset (&restab, 0, sizeof (restab)); memset (&argtab, 0, sizeof (argtab)); /*^multiapply.arg */ #line 922 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^multiapply.arg */ #line 922 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^multiapply.arg */ #line 922 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*^multiapply.xres */ #line 922 restab[0].meltbp_aptr = (melt_ptr_t *) & /*_.XTRAEXP__V23*/ meltfptr[22]; /*^multiapply.appl */ #line 922 /*_.CUREXP__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3]), (melt_ptr_t) ( /*_.CURARG__V18*/ meltfptr[17]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, (MELTBPARSTR_PTR ""), restab); } ; /*^quasiblock */ #line 922 { MELT_LOCATION ("warmelt-macro.melt:925:/ locexp"); #line 925 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V13*/ meltfptr[12]), (melt_ptr_t) ( /*_.CUREXP__V22*/ meltfptr[21])); } ; MELT_LOCATION ("warmelt-macro.melt:927:/ checksignal"); #line 927 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_MULTIPLE__L6*/ meltfnum[5] = #line 927 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.XTRAEXP__V23*/ meltfptr[22])) == MELTOBMAG_MULTIPLE);; MELT_LOCATION ("warmelt-macro.melt:927:/ cond"); #line 927 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_MULTIPLE__L6*/ meltfnum[5]) /*then */ { /*^cond.then */ #line 927 /*^block */ #line 927 /*anyblock */ { /*citerblock FOREACH_IN_MULTIPLE */ { /* start foreach_in_multiple meltcit1__EACHTUP */ long meltcit1__EACHTUP_ln = melt_multiple_length ((melt_ptr_t) /*_.XTRAEXP__V23*/ meltfptr[22]); for ( /*_#XIX__L7*/ meltfnum[6] = 0; ( /*_#XIX__L7*/ meltfnum[6] >= 0) && ( /*_#XIX__L7*/ meltfnum[6] < meltcit1__EACHTUP_ln); /*_#XIX__L7*/ meltfnum[6]++) { /*_.CURXTRA__V25*/ meltfptr[24] = melt_multiple_nth ((melt_ptr_t) ( /*_.XTRAEXP__V23*/ meltfptr[22]), /*_#XIX__L7*/ meltfnum[6]); { MELT_LOCATION ("warmelt-macro.melt:931:/ locexp"); #line 931 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V13*/ meltfptr[12]), (melt_ptr_t) ( /*_.CURXTRA__V25*/ meltfptr[24])); } ; if ( /*_#XIX__L7*/ meltfnum[6] < 0) break; } /* end foreach_in_multiple meltcit1__EACHTUP */ /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:928:/ clear"); #line 928 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURXTRA__V25*/ meltfptr[24] = 0; /*^clear */ #line 928 /*clear *//*_#XIX__L7*/ meltfnum[6] = 0; } /*endciterblock FOREACH_IN_MULTIPLE */ ; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:927:/ cond.else"); #line 927 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 927 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:933:/ checksignal"); #line 933 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_LIST__L8*/ meltfnum[7] = #line 933 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.XTRAEXP__V23*/ meltfptr[22])) == MELTOBMAG_LIST);; MELT_LOCATION ("warmelt-macro.melt:933:/ cond"); #line 933 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_LIST__L8*/ meltfnum[7]) /*then */ { /*^cond.then */ #line 933 /*^block */ #line 933 /*anyblock */ { /*citerblock FOREACH_IN_LIST */ { /* start foreach_in_list meltcit2__EACHLIST */ for ( /*_.XTRAPAIR__V27*/ meltfptr[26] = melt_list_first ((melt_ptr_t) /*_.XTRAEXP__V23*/ meltfptr[22]); melt_magic_discr ((melt_ptr_t) /*_.XTRAPAIR__V27*/ meltfptr[26]) == MELTOBMAG_PAIR; /*_.XTRAPAIR__V27*/ meltfptr[26] = melt_pair_tail ((melt_ptr_t) /*_.XTRAPAIR__V27*/ meltfptr[26])) { /*_.CURXTRA__V28*/ meltfptr[27] = melt_pair_head ((melt_ptr_t) /*_.XTRAPAIR__V27*/ meltfptr[26]); { MELT_LOCATION ("warmelt-macro.melt:937:/ locexp"); #line 937 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V13*/ meltfptr[12]), (melt_ptr_t) ( /*_.CURXTRA__V28*/ meltfptr[27])); } ; } /* end foreach_in_list meltcit2__EACHLIST */ /*_.XTRAPAIR__V27*/ meltfptr[26] = NULL; /*_.CURXTRA__V28*/ meltfptr[27] = NULL; /*citerepilog */ MELT_LOCATION ("warmelt-macro.melt:934:/ clear"); #line 934 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.XTRAPAIR__V27*/ meltfptr[26] = 0; /*^clear */ #line 934 /*clear *//*_.CURXTRA__V28*/ meltfptr[27] = 0; } /*endciterblock FOREACH_IN_LIST */ ; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:933:/ cond.else"); #line 933 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 933 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:939:/ checksignal"); #line 939 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^cond */ #line 939 /*cond */ if ( /*_.XTRAEXP__V23*/ meltfptr[22]) /*then */ { /*^cond.then */ #line 939 /*^block */ #line 939 /*anyblock */ { { MELT_LOCATION ("warmelt-macro.melt:940:/ locexp"); #line 940 "warmelt-macro.melt" /**::locexp::**/ meltgc_append_list ((melt_ptr_t) ( /*_.EXPRESLIST__V13*/ meltfptr[12]), (melt_ptr_t) ( /*_.XTRAEXP__V23*/ meltfptr[22])); } ; /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; /*epilog */ } ; } else { MELT_LOCATION ("warmelt-macro.melt:939:/ cond.else"); #line 939 "warmelt-macro.melt" /**::cond.else::**/ /*_.IFELSE___V29*/ meltfptr[28] = NULL;; } ; /*^compute */ /*_.IFELSE___V26*/ meltfptr[25] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:933:/ clear"); #line 933 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.IFELSE___V29*/ meltfptr[28] = 0; } ; } ; /*_.IFELSE___V24*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:927:/ clear"); #line 927 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_LIST__L8*/ meltfnum[7] = 0; /*^clear */ #line 927 /*clear *//*_.IFELSE___V26*/ meltfptr[25] = 0; } ; } ; MELT_LOCATION ("warmelt-macro.melt:922:/ checksignal"); #line 922 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_.MULTI___V21*/ meltfptr[20] = /*_.IFELSE___V24*/ meltfptr[23];; MELT_LOCATION ("warmelt-macro.melt:922:/ clear"); #line 922 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_MULTIPLE__L6*/ meltfnum[5] = 0; /*^clear */ #line 922 /*clear *//*_.IFELSE___V24*/ meltfptr[23] = 0; /*^clear */ #line 922 /*clear *//*_.XTRAEXP__V23*/ meltfptr[22] = 0; /*_.LET___V17*/ meltfptr[16] = /*_.MULTI___V21*/ meltfptr[20];; MELT_LOCATION ("warmelt-macro.melt:919:/ clear"); #line 919 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.CURARG__V18*/ meltfptr[17] = 0; /*^clear */ #line 919 /*clear *//*_.PAIR_TAIL__V19*/ meltfptr[18] = 0; /*^clear */ #line 919 /*clear *//*_.SETQ___V20*/ meltfptr[19] = 0; /*^clear */ #line 919 /*clear *//*_.MULTI___V21*/ meltfptr[20] = 0; MELT_LOCATION ("warmelt-macro.melt:917:/ checksignal"); #line 917 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*epilog */ /*^clear */ #line 917 /*clear *//*_#IS_PAIR__L4*/ meltfnum[0] = 0; /*^clear */ #line 917 /*clear *//*_#NOT__L5*/ meltfnum[4] = 0; /*^clear */ #line 917 /*clear *//*_.LET___V17*/ meltfptr[16] = 0; } ; ; goto labloop_EXPLOOP_1; labexit_EXPLOOP_1:; /*^loopepilog */ #line 917 /*loopepilog */ /*_.FOREVER___V15*/ meltfptr[13] = /*_.EXPLOOP__V16*/ meltfptr[15];; } ; MELT_LOCATION ("warmelt-macro.melt:945:/ checksignal"); #line 945 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 945 /*_.RETVAL___V1*/ meltfptr[0] = /*_.EXPRESLIST__V13*/ meltfptr[12];; { MELT_LOCATION ("warmelt-macro.melt:945:/ locexp"); #line 945 "warmelt-macro.melt" /**::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 */ #line 945 ; /*finalret */ goto labend_rout; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V30*/ meltfptr[28];; MELT_LOCATION ("warmelt-macro.melt:915:/ clear"); #line 915 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.EXPRESLIST__V13*/ meltfptr[12] = 0; /*^clear */ #line 915 /*clear *//*_.FOREVER___V15*/ meltfptr[13] = 0; /*^clear */ #line 915 /*clear *//*_.RETURN___V30*/ meltfptr[28] = 0; MELT_LOCATION ("warmelt-macro.melt:911:/ checksignal"); #line 911 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 911 /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:911:/ locexp"); #line 911 "warmelt-macro.melt" /**::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 */ #line 911 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ #line 911 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ #line 911 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ #line 911 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ #line 911 /*clear *//*_.LET___V12*/ meltfptr[10] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("EXPAND_PAIRLIST_AS_LIST", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST_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_macro_EXPAND_PAIRLIST_AS_LIST */ #line 950 "warmelt-macro.melt" /**::proc::**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE (meltclosure_ptr_t meltclosp_, melt_ptr_t meltfirstargp_, const melt_argdescr_cell_t meltxargdescr_[], union meltparam_un * meltxargtab_, const melt_argdescr_cell_t meltxresdescr_[], union meltparam_un * meltxrestab_) { long current_blocklevel_signals_meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE_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_macro_EXPAND_PAIRLIST_AS_TUPLE_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 15 melt_ptr_t mcfr_varptr[15]; #define MELTFRAM_NBVARNUM 4 long mcfr_varnum[4]; /*others*/ long _spare_; } *meltframptr_ = 0, meltfram__; #define meltframe meltfram__ if (MELT_UNLIKELY (meltxargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc */ int ix = 0; meltframptr_ = (struct frame_meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE_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 < 15; 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 = 15; meltfram__.mcfr_clos = meltclosp_; meltfram__.mcfr_prev = (struct melt_callframe_st *) melt_topframe; melt_topframe = (struct melt_callframe_st *) &meltfram__; melt_trace_start ("EXPAND_PAIRLIST_AS_TUPLE", meltcallcount); /*getargs*/ /*getarg#0 */ MELT_LOCATION ("warmelt-macro.melt:950:/ getarg"); #line 950 "warmelt-macro.melt" /**::getarg::**/ /*_.PAIR__V2*/ meltfptr[1] = (melt_ptr_t) meltfirstargp_; /*getarg#1 */ /*^getarg */ #line 950 if (meltxargdescr_[0] != MELTBPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (meltxargtab_[0].meltbp_aptr) ? (*(meltxargtab_[0].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2 */ /*^getarg */ #line 950 if (meltxargdescr_[1] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MEXPANDER__V4*/ meltfptr[3] = (meltxargtab_[1].meltbp_aptr) ? (*(meltxargtab_[1].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) != NULL); /*getarg#3 */ /*^getarg */ #line 950 if (meltxargdescr_[2] != MELTBPAR_PTR) goto lab_endgetargs; /*_.MODCTX__V5*/ meltfptr[4] = (meltxargtab_[2].meltbp_aptr) ? (*(meltxargtab_[2].meltbp_aptr)) : NULL; gcc_assert (melt_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ #line 950 /*anyblock*/ { #line 951 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:951:/ cppif.then"); #line 951 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 951 /*anyblock */ { /*^checksignal */ #line 951 MELT_CHECK_SIGNAL (); ; /*_#IS_A__L1*/ meltfnum[0] = #line 951 "warmelt-macro.melt" /**::expr::**/ melt_is_instance_of ((melt_ptr_t) ( /*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t) (( /*!CLASS_ENVIRONMENT */ meltfrout->tabval[0])));; MELT_LOCATION ("warmelt-macro.melt:951:/ cond"); #line 951 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_A__L1*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 951 /*_.IFELSE___V7*/ meltfptr[6] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:951:/ cond.else"); #line 951 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 951 /*anyblock */ { { /*^locexp */ #line 951 melt_assert_failed (("check end"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (951) ? (951) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:951:/ clear"); #line 951 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_A__L1*/ meltfnum[0] = 0; /*^clear */ #line 951 /*clear *//*_.IFELSE___V7*/ meltfptr[6] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 951 /*_.IFCPP___V6*/ meltfptr[5] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 952 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:952:/ cppif.then"); #line 952 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 952 /*anyblock */ { /*^checksignal */ #line 952 MELT_CHECK_SIGNAL (); ; /*_#IS_CLOSURE__L2*/ meltfnum[0] = #line 952 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MEXPANDER__V4*/ meltfptr[3])) == MELTOBMAG_CLOSURE);; MELT_LOCATION ("warmelt-macro.melt:952:/ cond"); #line 952 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_CLOSURE__L2*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 952 /*_.IFELSE___V9*/ meltfptr[8] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:952:/ cond.else"); #line 952 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 952 /*anyblock */ { { /*^locexp */ #line 952 melt_assert_failed (("check mexpander"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (952) ? (952) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:952:/ clear"); #line 952 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_CLOSURE__L2*/ meltfnum[0] = 0; /*^clear */ #line 952 /*clear *//*_.IFELSE___V9*/ meltfptr[8] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 952 /*_.IFCPP___V8*/ meltfptr[6] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; #line 953 "warmelt-macro.melt" /**::cppif::**/ #if MELT_HAVE_DEBUG MELT_LOCATION ("warmelt-macro.melt:953:/ cppif.then"); #line 953 "warmelt-macro.melt" /**::cppif.then::**/ /*^block */ #line 953 /*anyblock */ { /*^checksignal */ #line 953 MELT_CHECK_SIGNAL (); ; /*_#IS_OBJECT__L3*/ meltfnum[0] = #line 953 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.MODCTX__V5*/ meltfptr[4])) == MELTOBMAG_OBJECT);; MELT_LOCATION ("warmelt-macro.melt:953:/ cond"); #line 953 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_OBJECT__L3*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 953 /*_.IFELSE___V11*/ meltfptr[10] = ( /*nil */ NULL);; } else { MELT_LOCATION ("warmelt-macro.melt:953:/ cond.else"); #line 953 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 953 /*anyblock */ { { /*^locexp */ #line 953 melt_assert_failed (("check modctx"), ("warmelt-macro.melt") ? ("warmelt-macro.melt") : __FILE__, (953) ? (953) : __LINE__, __FUNCTION__); ; } ; /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; /*epilog */ } ; } ; /*^compute */ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:953:/ clear"); #line 953 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_#IS_OBJECT__L3*/ meltfnum[0] = 0; /*^clear */ #line 953 /*clear *//*_.IFELSE___V11*/ meltfptr[10] = 0; } #else /*MELT_HAVE_DEBUG */ /*^cppif.else */ #line 953 /*_.IFCPP___V10*/ meltfptr[8] = ( /*nil */ NULL); #endif /*MELT_HAVE_DEBUG */ ; MELT_LOCATION ("warmelt-macro.melt:954:/ checksignal"); #line 954 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*_#IS_PAIR__L4*/ meltfnum[0] = #line 954 "warmelt-macro.melt" /**::expr::**/ (melt_magic_discr ((melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1])) == MELTOBMAG_PAIR);; MELT_LOCATION ("warmelt-macro.melt:954:/ cond"); #line 954 "warmelt-macro.melt" /**::cond::**/ /*cond */ if ( /*_#IS_PAIR__L4*/ meltfnum[0]) /*then */ { /*^cond.then */ #line 954 /*^block */ #line 954 /*anyblock */ { MELT_LOCATION ("warmelt-macro.melt:955:/ quasiblock"); #line 955 "warmelt-macro.melt" /**::quasiblock::**/ /*^checksignal */ #line 955 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 955 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 955 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.ENV__V3*/ meltfptr[2]; /*^apply.arg */ #line 955 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.MEXPANDER__V4*/ meltfptr[3]; /*^apply.arg */ #line 955 argtab[2].meltbp_aptr = (melt_ptr_t *) & /*_.MODCTX__V5*/ meltfptr[4]; /*_.EXPRESLIST__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t) (( /*!EXPAND_PAIRLIST_AS_LIST */ meltfrout-> tabval[1])), (melt_ptr_t) ( /*_.PAIR__V2*/ meltfptr[1]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; MELT_LOCATION ("warmelt-macro.melt:957:/ checksignal"); #line 957 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^apply */ #line 957 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 957 argtab[0].meltbp_aptr = (melt_ptr_t *) & ( /*!DISCR_MULTIPLE */ meltfrout->tabval[3]); /*_.LIST_TO_MULTIPLE__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) (( /*!LIST_TO_MULTIPLE */ meltfrout->tabval[2])), (melt_ptr_t) ( /*_.EXPRESLIST__V14*/ meltfptr[13]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*_.LET___V13*/ meltfptr[12] = /*_.LIST_TO_MULTIPLE__V15*/ meltfptr[14];; MELT_LOCATION ("warmelt-macro.melt:955:/ clear"); #line 955 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.EXPRESLIST__V14*/ meltfptr[13] = 0; /*^clear */ #line 955 /*clear *//*_.LIST_TO_MULTIPLE__V15*/ meltfptr[14] = 0; /*_.IF___V12*/ meltfptr[10] = /*_.LET___V13*/ meltfptr[12];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:954:/ clear"); #line 954 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.LET___V13*/ meltfptr[12] = 0; } ; } else { /*^cond.else */ #line 954 /*_.IF___V12*/ meltfptr[10] = NULL;; } ; MELT_LOCATION ("warmelt-macro.melt:950:/ checksignal"); #line 950 "warmelt-macro.melt" /**::checksignal::**/ MELT_CHECK_SIGNAL (); ; /*^quasiblock */ #line 950 /*_.RETVAL___V1*/ meltfptr[0] = /*_.IF___V12*/ meltfptr[10];; { MELT_LOCATION ("warmelt-macro.melt:950:/ locexp"); #line 950 "warmelt-macro.melt" /**::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 */ #line 950 ; /*finalret */ goto labend_rout; /*epilog */ /*^clear */ #line 950 /*clear *//*_.IFCPP___V6*/ meltfptr[5] = 0; /*^clear */ #line 950 /*clear *//*_.IFCPP___V8*/ meltfptr[6] = 0; /*^clear */ #line 950 /*clear *//*_.IFCPP___V10*/ meltfptr[8] = 0; /*^clear */ #line 950 /*clear *//*_#IS_PAIR__L4*/ meltfnum[0] = 0; /*^clear */ #line 950 /*clear *//*_.IF___V12*/ meltfptr[10] = 0; } ; goto labend_rout; labend_rout: melt_trace_end ("EXPAND_PAIRLIST_AS_TUPLE", meltcallcount); melt_blocklevel_signals = current_blocklevel_signals_meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE_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_macro_EXPAND_PAIRLIST_AS_TUPLE */ /****** emitted syntax checking for C generating devices *****/ #if MELT_HAVE_DEBUG /* generated syntax checking routine for 1 C generating devices */ MELT_EXTERN void MELT_MODULE_VISIBILITY melt_syntax_tester_warmelt_macro (void); void melt_syntax_tester_warmelt_macro (void) { if (1) return; /* generating device #1 */ /*primitive-syntax WARN_SHADOW*/ { long primres_0 = #line 1987 "warmelt-macro.melt" /**::primitive-syntax::**/ warn_shadow; if (primres_0) return; } /*end primitive-syntax WARN_SHADOW */ } /* end generated melt_syntax_tester_warmelt_macro */ #endif /*MELT_HAVE_DEBUG syntaxcheck */ typedef struct frame_start_module_melt_st { int mcfr_nbvar; #if MELT_HAVE_DEBUG const char *mcfr_flocs; #else /*!MELT_HAVE_DEBUG */ const char *mcfr_unusedflocs; #endif /*MELT_HAVE_DEBUG */ void (*mcfr_initforwmarkrout) (struct melt_callframe_st *, int); struct excepth_melt_st *mcfr_exh; struct melt_callframe_st *mcfr_prev; #define MELTFRAM_NBVARPTR 1831 melt_ptr_t mcfr_varptr[1831]; /*no varnum*/ #define MELTFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } initial_frame_st; static void initialize_module_meltdata_warmelt_macro (initial_frame_st * iniframp__, char meltpredefinited[]) { #define meltfram__ (*iniframp__) struct cdata_st { struct MELT_OBJECT_STRUCT (3) dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_STRING_STRUCT (28) dstr_2__IS_RECURSIVELY_C; struct MELT_OBJECT_STRUCT (3) dsym_3__CLASS_SELECTOR; struct MELT_STRING_STRUCT (14) dstr_4__CLASS_SELECTOR; struct MELT_OBJECT_STRUCT (3) dsym_5__RECV; struct MELT_STRING_STRUCT (4) dstr_6__RECV; struct MELT_OBJECT_STRUCT (2) dobj_7; struct MELT_MULTIPLE_STRUCT (1) dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_OBJECT_STRUCT (4) dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE; struct MELT_STRING_STRUCT (28) dstr_10__IS_RECURSIVELY_C; struct MELT_OBJECT_STRUCT (3) dsym_11__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_STRING_STRUCT (29) dstr_12__CLASS_SOURCE_GEN; struct MELT_OBJECT_STRUCT (3) dsym_13__CLASS_SOURCE; struct MELT_STRING_STRUCT (12) dstr_14__CLASS_SOURCE; struct MELT_OBJECT_STRUCT (8) dobj_15__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_STRING_STRUCT (29) dstr_16__CLASS_SOURCE_GEN; struct MELT_MULTIPLE_STRUCT (4) dtup_17__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_MULTIPLE_STRUCT (4) dtup_18__CLASS_SOURCE_GENERATOR_DEVICE; struct MELT_OBJECT_STRUCT (3) dsym_19__SRCGEN_DEFIN; struct MELT_STRING_STRUCT (12) dstr_20__SRCGEN_DEFIN; struct MELT_OBJECT_STRUCT (4) dobj_21__SRCGEN_DEFIN; struct MELT_STRING_STRUCT (12) dstr_22__SRCGEN_DEFIN; struct MELT_OBJECT_STRUCT (3) dsym_23__SRCGEN_REPR; struct MELT_STRING_STRUCT (11) dstr_24__SRCGEN_REPR; struct MELT_OBJECT_STRUCT (4) dobj_25__SRCGEN_REPR; struct MELT_STRING_STRUCT (11) dstr_26__SRCGEN_REPR; struct MELT_OBJECT_STRUCT (3) dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_STRING_STRUCT (33) dstr_28__CLASS_SOURCE_LAZ; struct MELT_OBJECT_STRUCT (8) dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_STRING_STRUCT (33) dstr_30__CLASS_SOURCE_LAZ; struct MELT_MULTIPLE_STRUCT (4) dtup_31__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_MULTIPLE_STRUCT (4) dtup_32__CLASS_SOURCE_LAZY_MACRO_EXPANSION; struct MELT_OBJECT_STRUCT (3) dsym_33__SLAZYMACRO_FUN; struct MELT_STRING_STRUCT (14) dstr_34__SLAZYMACRO_FUN; struct MELT_OBJECT_STRUCT (4) dobj_35__SLAZYMACRO_FUN; struct MELT_STRING_STRUCT (14) dstr_36__SLAZYMACRO_FUN; struct MELT_OBJECT_STRUCT (3) dsym_37__SLAZYMACRO_OPER; struct MELT_STRING_STRUCT (15) dstr_38__SLAZYMACRO_OPER; struct MELT_OBJECT_STRUCT (4) dobj_39__SLAZYMACRO_OPER; struct MELT_STRING_STRUCT (15) dstr_40__SLAZYMACRO_OPER; struct MELT_OBJECT_STRUCT (3) dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_STRING_STRUCT (32) dstr_42__CLASS_SOURCE_ARG; struct MELT_OBJECT_STRUCT (8) dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_STRING_STRUCT (32) dstr_44__CLASS_SOURCE_ARG; struct MELT_MULTIPLE_STRUCT (4) dtup_45__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_MULTIPLE_STRUCT (3) dtup_46__CLASS_SOURCE_ARGUMENTED_OPERATOR; struct MELT_OBJECT_STRUCT (3) dsym_47__SARGOP_ARGS; struct MELT_STRING_STRUCT (11) dstr_48__SARGOP_ARGS; struct MELT_OBJECT_STRUCT (4) dobj_49__SARGOP_ARGS; struct MELT_STRING_STRUCT (11) dstr_50__SARGOP_ARGS; struct MELT_OBJECT_STRUCT (3) dsym_51__CLASS_SOURCE_APPLY; struct MELT_STRING_STRUCT (18) dstr_52__CLASS_SOURCE_APP; struct MELT_OBJECT_STRUCT (8) dobj_53__CLASS_SOURCE_APPLY; struct MELT_STRING_STRUCT (18) dstr_54__CLASS_SOURCE_APP; struct MELT_MULTIPLE_STRUCT (5) dtup_55__CLASS_SOURCE_APPLY; struct MELT_MULTIPLE_STRUCT (4) dtup_56__CLASS_SOURCE_APPLY; struct MELT_OBJECT_STRUCT (3) dsym_57__SAPP_FUN; struct MELT_STRING_STRUCT (8) dstr_58__SAPP_FUN; struct MELT_OBJECT_STRUCT (4) dobj_59__SAPP_FUN; struct MELT_STRING_STRUCT (8) dstr_60__SAPP_FUN; struct MELT_OBJECT_STRUCT (3) dsym_61__CLASS_SOURCE_MSEND; struct MELT_STRING_STRUCT (18) dstr_62__CLASS_SOURCE_MSE; struct MELT_OBJECT_STRUCT (8) dobj_63__CLASS_SOURCE_MSEND; struct MELT_STRING_STRUCT (18) dstr_64__CLASS_SOURCE_MSE; struct MELT_MULTIPLE_STRUCT (5) dtup_65__CLASS_SOURCE_MSEND; struct MELT_MULTIPLE_STRUCT (5) dtup_66__CLASS_SOURCE_MSEND; struct MELT_OBJECT_STRUCT (3) dsym_67__MSEND_SELSYMB; struct MELT_STRING_STRUCT (13) dstr_68__MSEND_SELSYMB; struct MELT_OBJECT_STRUCT (4) dobj_69__MSEND_SELSYMB; struct MELT_STRING_STRUCT (13) dstr_70__MSEND_SELSYMB; struct MELT_OBJECT_STRUCT (3) dsym_71__MSEND_RECV; struct MELT_STRING_STRUCT (10) dstr_72__MSEND_RECV; struct MELT_OBJECT_STRUCT (4) dobj_73__MSEND_RECV; struct MELT_STRING_STRUCT (10) dstr_74__MSEND_RECV; struct MELT_OBJECT_STRUCT (3) dsym_75__CLASS_SOURCE_PRIMITIVE; struct MELT_STRING_STRUCT (22) dstr_76__CLASS_SOURCE_PRI; struct MELT_OBJECT_STRUCT (8) dobj_77__CLASS_SOURCE_PRIMITIVE; struct MELT_STRING_STRUCT (22) dstr_78__CLASS_SOURCE_PRI; struct MELT_MULTIPLE_STRUCT (5) dtup_79__CLASS_SOURCE_PRIMITIVE; struct MELT_MULTIPLE_STRUCT (4) dtup_80__CLASS_SOURCE_PRIMITIVE; struct MELT_OBJECT_STRUCT (3) dsym_81__SPRIM_OPER; struct MELT_STRING_STRUCT (10) dstr_82__SPRIM_OPER; struct MELT_OBJECT_STRUCT (4) dobj_83__SPRIM_OPER; struct MELT_STRING_STRUCT (10) dstr_84__SPRIM_OPER; struct MELT_OBJECT_STRUCT (3) dsym_85__CLASS_SOURCE_CITERATION; struct MELT_STRING_STRUCT (23) dstr_86__CLASS_SOURCE_CIT; struct MELT_OBJECT_STRUCT (8) dobj_87__CLASS_SOURCE_CITERATION; struct MELT_STRING_STRUCT (23) dstr_88__CLASS_SOURCE_CIT; struct MELT_MULTIPLE_STRUCT (5) dtup_89__CLASS_SOURCE_CITERATION; struct MELT_MULTIPLE_STRUCT (6) dtup_90__CLASS_SOURCE_CITERATION; struct MELT_OBJECT_STRUCT (3) dsym_91__SCITER_OPER; struct MELT_STRING_STRUCT (11) dstr_92__SCITER_OPER; struct MELT_OBJECT_STRUCT (4) dobj_93__SCITER_OPER; struct MELT_STRING_STRUCT (11) dstr_94__SCITER_OPER; struct MELT_OBJECT_STRUCT (3) dsym_95__SCITER_VARBIND; struct MELT_STRING_STRUCT (14) dstr_96__SCITER_VARBIND; struct MELT_OBJECT_STRUCT (4) dobj_97__SCITER_VARBIND; struct MELT_STRING_STRUCT (14) dstr_98__SCITER_VARBIND; struct MELT_OBJECT_STRUCT (3) dsym_99__SCITER_BODY; struct MELT_STRING_STRUCT (11) dstr_100__SCITER_BODY; struct MELT_OBJECT_STRUCT (4) dobj_101__SCITER_BODY; struct MELT_STRING_STRUCT (11) dstr_102__SCITER_BODY; struct MELT_OBJECT_STRUCT (3) dsym_103__CLASS_SOURCE_CMATCHEXPR; struct MELT_STRING_STRUCT (23) dstr_104__CLASS_SOURCE_CMA; struct MELT_OBJECT_STRUCT (8) dobj_105__CLASS_SOURCE_CMATCHEXPR; struct MELT_STRING_STRUCT (23) dstr_106__CLASS_SOURCE_CMA; struct MELT_MULTIPLE_STRUCT (5) dtup_107__CLASS_SOURCE_CMATCHEXPR; struct MELT_MULTIPLE_STRUCT (4) dtup_108__CLASS_SOURCE_CMATCHEXPR; struct MELT_OBJECT_STRUCT (3) dsym_109__SCMATX_CMATCHER; struct MELT_STRING_STRUCT (15) dstr_110__SCMATX_CMATCHER; struct MELT_OBJECT_STRUCT (4) dobj_111__SCMATX_CMATCHER; struct MELT_STRING_STRUCT (15) dstr_112__SCMATX_CMATCHER; struct MELT_OBJECT_STRUCT (3) dsym_113__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_STRING_STRUCT (25) dstr_114__CLASS_SOURCE_FUN; struct MELT_OBJECT_STRUCT (8) dobj_115__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_STRING_STRUCT (25) dstr_116__CLASS_SOURCE_FUN; struct MELT_MULTIPLE_STRUCT (5) dtup_117__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_MULTIPLE_STRUCT (5) dtup_118__CLASS_SOURCE_FUNMATCHEXPR; struct MELT_OBJECT_STRUCT (3) dsym_119__SFMATX_FMATCHER; struct MELT_STRING_STRUCT (15) dstr_120__SFMATX_FMATCHER; struct MELT_OBJECT_STRUCT (4) dobj_121__SFMATX_FMATCHER; struct MELT_STRING_STRUCT (15) dstr_122__SFMATX_FMATCHER; struct MELT_OBJECT_STRUCT (3) dsym_123__SFMATX_FMATBIND; struct MELT_STRING_STRUCT (15) dstr_124__SFMATX_FMATBIND; struct MELT_OBJECT_STRUCT (4) dobj_125__SFMATX_FMATBIND; struct MELT_STRING_STRUCT (15) dstr_126__SFMATX_FMATBIND; struct MELT_OBJECT_STRUCT (3) dsym_127__CLASS_SOURCE_TUPLE; struct MELT_STRING_STRUCT (18) dstr_128__CLASS_SOURCE_TUP; struct MELT_OBJECT_STRUCT (8) dobj_129__CLASS_SOURCE_TUPLE; struct MELT_STRING_STRUCT (18) dstr_130__CLASS_SOURCE_TUP; struct MELT_MULTIPLE_STRUCT (5) dtup_131__CLASS_SOURCE_TUPLE; struct MELT_MULTIPLE_STRUCT (3) dtup_132__CLASS_SOURCE_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_133__CLASS_SOURCE_LIST; struct MELT_STRING_STRUCT (17) dstr_134__CLASS_SOURCE_LIS; struct MELT_OBJECT_STRUCT (8) dobj_135__CLASS_SOURCE_LIST; struct MELT_STRING_STRUCT (17) dstr_136__CLASS_SOURCE_LIS; struct MELT_MULTIPLE_STRUCT (5) dtup_137__CLASS_SOURCE_LIST; struct MELT_MULTIPLE_STRUCT (3) dtup_138__CLASS_SOURCE_LIST; struct MELT_OBJECT_STRUCT (3) dsym_139__CLASS_SOURCE_PROGN; struct MELT_STRING_STRUCT (18) dstr_140__CLASS_SOURCE_PRO; struct MELT_OBJECT_STRUCT (8) dobj_141__CLASS_SOURCE_PROGN; struct MELT_STRING_STRUCT (18) dstr_142__CLASS_SOURCE_PRO; struct MELT_MULTIPLE_STRUCT (4) dtup_143__CLASS_SOURCE_PROGN; struct MELT_MULTIPLE_STRUCT (3) dtup_144__CLASS_SOURCE_PROGN; struct MELT_OBJECT_STRUCT (3) dsym_145__SPROGN_BODY; struct MELT_STRING_STRUCT (11) dstr_146__SPROGN_BODY; struct MELT_OBJECT_STRUCT (4) dobj_147__SPROGN_BODY; struct MELT_STRING_STRUCT (11) dstr_148__SPROGN_BODY; struct MELT_OBJECT_STRUCT (3) dsym_149__CLASS_SOURCE_RETURN; struct MELT_STRING_STRUCT (19) dstr_150__CLASS_SOURCE_RET; struct MELT_OBJECT_STRUCT (8) dobj_151__CLASS_SOURCE_RETURN; struct MELT_STRING_STRUCT (19) dstr_152__CLASS_SOURCE_RET; struct MELT_MULTIPLE_STRUCT (5) dtup_153__CLASS_SOURCE_RETURN; struct MELT_MULTIPLE_STRUCT (3) dtup_154__CLASS_SOURCE_RETURN; struct MELT_OBJECT_STRUCT (3) dsym_155__CLASS_SOURCE_SETQ; struct MELT_STRING_STRUCT (17) dstr_156__CLASS_SOURCE_SET; struct MELT_OBJECT_STRUCT (8) dobj_157__CLASS_SOURCE_SETQ; struct MELT_STRING_STRUCT (17) dstr_158__CLASS_SOURCE_SET; struct MELT_MULTIPLE_STRUCT (4) dtup_159__CLASS_SOURCE_SETQ; struct MELT_MULTIPLE_STRUCT (4) dtup_160__CLASS_SOURCE_SETQ; struct MELT_OBJECT_STRUCT (3) dsym_161__SSTQ_VAR; struct MELT_STRING_STRUCT (8) dstr_162__SSTQ_VAR; struct MELT_OBJECT_STRUCT (4) dobj_163__SSTQ_VAR; struct MELT_STRING_STRUCT (8) dstr_164__SSTQ_VAR; struct MELT_OBJECT_STRUCT (3) dsym_165__SSTQ_EXPR; struct MELT_STRING_STRUCT (9) dstr_166__SSTQ_EXPR; struct MELT_OBJECT_STRUCT (4) dobj_167__SSTQ_EXPR; struct MELT_STRING_STRUCT (9) dstr_168__SSTQ_EXPR; struct MELT_OBJECT_STRUCT (3) dsym_169__CLASS_SOURCE_COMMENT; struct MELT_STRING_STRUCT (20) dstr_170__CLASS_SOURCE_COM; struct MELT_OBJECT_STRUCT (8) dobj_171__CLASS_SOURCE_COMMENT; struct MELT_STRING_STRUCT (20) dstr_172__CLASS_SOURCE_COM; struct MELT_MULTIPLE_STRUCT (4) dtup_173__CLASS_SOURCE_COMMENT; struct MELT_MULTIPLE_STRUCT (3) dtup_174__CLASS_SOURCE_COMMENT; struct MELT_OBJECT_STRUCT (3) dsym_175__SCOMM_STR; struct MELT_STRING_STRUCT (9) dstr_176__SCOMM_STR; struct MELT_OBJECT_STRUCT (4) dobj_177__SCOMM_STR; struct MELT_STRING_STRUCT (9) dstr_178__SCOMM_STR; struct MELT_OBJECT_STRUCT (3) dsym_179__CLASS_SOURCE_CHEADER; struct MELT_STRING_STRUCT (20) dstr_180__CLASS_SOURCE_CHE; struct MELT_OBJECT_STRUCT (8) dobj_181__CLASS_SOURCE_CHEADER; struct MELT_STRING_STRUCT (20) dstr_182__CLASS_SOURCE_CHE; struct MELT_MULTIPLE_STRUCT (4) dtup_183__CLASS_SOURCE_CHEADER; struct MELT_MULTIPLE_STRUCT (3) dtup_184__CLASS_SOURCE_CHEADER; struct MELT_OBJECT_STRUCT (3) dsym_185__SCHEADER_CODESTRING; struct MELT_STRING_STRUCT (19) dstr_186__SCHEADER_CODESTR; struct MELT_OBJECT_STRUCT (4) dobj_187__SCHEADER_CODESTRING; struct MELT_STRING_STRUCT (19) dstr_188__SCHEADER_CODESTR; struct MELT_OBJECT_STRUCT (3) dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT (40) dstr_190__CLASS_SOURCE_USE; struct MELT_OBJECT_STRUCT (8) dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT (40) dstr_192__CLASS_SOURCE_USE; struct MELT_MULTIPLE_STRUCT (4) dtup_193__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_MULTIPLE_STRUCT (3) dtup_194__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_OBJECT_STRUCT (3) dsym_195__SUSEPACKAGE_PKGTUPLE; struct MELT_STRING_STRUCT (20) dstr_196__SUSEPACKAGE_PKGT; struct MELT_OBJECT_STRUCT (4) dobj_197__SUSEPACKAGE_PKGTUPLE; struct MELT_STRING_STRUCT (20) dstr_198__SUSEPACKAGE_PKGT; struct MELT_OBJECT_STRUCT (3) dsym_199__CLASS_SOURCE_QUOTE; struct MELT_STRING_STRUCT (18) dstr_200__CLASS_SOURCE_QUO; struct MELT_OBJECT_STRUCT (8) dobj_201__CLASS_SOURCE_QUOTE; struct MELT_STRING_STRUCT (18) dstr_202__CLASS_SOURCE_QUO; struct MELT_MULTIPLE_STRUCT (4) dtup_203__CLASS_SOURCE_QUOTE; struct MELT_MULTIPLE_STRUCT (3) dtup_204__CLASS_SOURCE_QUOTE; struct MELT_OBJECT_STRUCT (3) dsym_205__SQUOTED; struct MELT_STRING_STRUCT (7) dstr_206__SQUOTED; struct MELT_OBJECT_STRUCT (4) dobj_207__SQUOTED; struct MELT_STRING_STRUCT (7) dstr_208__SQUOTED; struct MELT_OBJECT_STRUCT (3) dsym_209__CLASS_SOURCE_EXPORTCOMMON; struct MELT_STRING_STRUCT (25) dstr_210__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_211__CLASS_SOURCE_EXPORTCOMMON; struct MELT_STRING_STRUCT (25) dstr_212__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (4) dtup_213__CLASS_SOURCE_EXPORTCOMMON; struct MELT_MULTIPLE_STRUCT (3) dtup_214__CLASS_SOURCE_EXPORTCOMMON; struct MELT_OBJECT_STRUCT (3) dsym_215__SEXPORT_NAMES; struct MELT_STRING_STRUCT (13) dstr_216__SEXPORT_NAMES; struct MELT_OBJECT_STRUCT (4) dobj_217__SEXPORT_NAMES; struct MELT_STRING_STRUCT (13) dstr_218__SEXPORT_NAMES; struct MELT_OBJECT_STRUCT (3) dsym_219__CLASS_SOURCE_EXPORT_VALUES; struct MELT_STRING_STRUCT (26) dstr_220__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_221__CLASS_SOURCE_EXPORT_VALUES; struct MELT_STRING_STRUCT (26) dstr_222__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (5) dtup_223__CLASS_SOURCE_EXPORT_VALUES; struct MELT_MULTIPLE_STRUCT (3) dtup_224__CLASS_SOURCE_EXPORT_VALUES; struct MELT_OBJECT_STRUCT (3) dsym_225__CLASS_SOURCE_EXPORT_CLASS; struct MELT_STRING_STRUCT (25) dstr_226__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_227__CLASS_SOURCE_EXPORT_CLASS; struct MELT_STRING_STRUCT (25) dstr_228__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (5) dtup_229__CLASS_SOURCE_EXPORT_CLASS; struct MELT_MULTIPLE_STRUCT (3) dtup_230__CLASS_SOURCE_EXPORT_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_231__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT (25) dstr_232__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_233__CLASS_SOURCE_EXPORT_MACRO; struct MELT_STRING_STRUCT (25) dstr_234__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (4) dtup_235__CLASS_SOURCE_EXPORT_MACRO; struct MELT_MULTIPLE_STRUCT (5) dtup_236__CLASS_SOURCE_EXPORT_MACRO; struct MELT_OBJECT_STRUCT (3) dsym_237__SEXPMAC_MNAME; struct MELT_STRING_STRUCT (13) dstr_238__SEXPMAC_MNAME; struct MELT_OBJECT_STRUCT (4) dobj_239__SEXPMAC_MNAME; struct MELT_STRING_STRUCT (13) dstr_240__SEXPMAC_MNAME; struct MELT_OBJECT_STRUCT (3) dsym_241__SEXPMAC_MVAL; struct MELT_STRING_STRUCT (12) dstr_242__SEXPMAC_MVAL; struct MELT_OBJECT_STRUCT (4) dobj_243__SEXPMAC_MVAL; struct MELT_STRING_STRUCT (12) dstr_244__SEXPMAC_MVAL; struct MELT_OBJECT_STRUCT (3) dsym_245__SEXPMAC_DOC; struct MELT_STRING_STRUCT (11) dstr_246__SEXPMAC_DOC; struct MELT_OBJECT_STRUCT (4) dobj_247__SEXPMAC_DOC; struct MELT_STRING_STRUCT (11) dstr_248__SEXPMAC_DOC; struct MELT_OBJECT_STRUCT (3) dsym_249__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT (28) dstr_250__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_251__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_STRING_STRUCT (28) dstr_252__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (5) dtup_253__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_MULTIPLE_STRUCT (6) dtup_254__CLASS_SOURCE_EXPORT_PATMACRO; struct MELT_OBJECT_STRUCT (3) dsym_255__SEXPPAT_PVAL; struct MELT_STRING_STRUCT (12) dstr_256__SEXPPAT_PVAL; struct MELT_OBJECT_STRUCT (4) dobj_257__SEXPPAT_PVAL; struct MELT_STRING_STRUCT (12) dstr_258__SEXPPAT_PVAL; struct MELT_OBJECT_STRUCT (3) dsym_259__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_STRING_STRUCT (27) dstr_260__CLASS_SOURCE_EXP; struct MELT_OBJECT_STRUCT (8) dobj_261__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_STRING_STRUCT (27) dstr_262__CLASS_SOURCE_EXP; struct MELT_MULTIPLE_STRUCT (4) dtup_263__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_MULTIPLE_STRUCT (5) dtup_264__CLASS_SOURCE_EXPORT_SYNONYM; struct MELT_OBJECT_STRUCT (3) dsym_265__SEXPSYN_NEWNAME; struct MELT_STRING_STRUCT (15) dstr_266__SEXPSYN_NEWNAME; struct MELT_OBJECT_STRUCT (4) dobj_267__SEXPSYN_NEWNAME; struct MELT_STRING_STRUCT (15) dstr_268__SEXPSYN_NEWNAME; struct MELT_OBJECT_STRUCT (3) dsym_269__SEXPSYN_OLDNAME; struct MELT_STRING_STRUCT (15) dstr_270__SEXPSYN_OLDNAME; struct MELT_OBJECT_STRUCT (4) dobj_271__SEXPSYN_OLDNAME; struct MELT_STRING_STRUCT (15) dstr_272__SEXPSYN_OLDNAME; struct MELT_OBJECT_STRUCT (3) dsym_273__SEXPSYN_DOC; struct MELT_STRING_STRUCT (11) dstr_274__SEXPSYN_DOC; struct MELT_OBJECT_STRUCT (4) dobj_275__SEXPSYN_DOC; struct MELT_STRING_STRUCT (11) dstr_276__SEXPSYN_DOC; struct MELT_OBJECT_STRUCT (3) dsym_277__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT (23) dstr_278__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_279__CLASS_SOURCE_DEFINITION; struct MELT_STRING_STRUCT (23) dstr_280__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (4) dtup_281__CLASS_SOURCE_DEFINITION; struct MELT_MULTIPLE_STRUCT (4) dtup_282__CLASS_SOURCE_DEFINITION; struct MELT_OBJECT_STRUCT (3) dsym_283__SDEF_NAME; struct MELT_STRING_STRUCT (9) dstr_284__SDEF_NAME; struct MELT_OBJECT_STRUCT (4) dobj_285__SDEF_NAME; struct MELT_STRING_STRUCT (9) dstr_286__SDEF_NAME; struct MELT_OBJECT_STRUCT (3) dsym_287__SDEF_DOC; struct MELT_STRING_STRUCT (8) dstr_288__SDEF_DOC; struct MELT_OBJECT_STRUCT (4) dobj_289__SDEF_DOC; struct MELT_STRING_STRUCT (8) dstr_290__SDEF_DOC; struct MELT_OBJECT_STRUCT (3) dsym_291__CLASS_SOURCE_DEFINE; struct MELT_STRING_STRUCT (19) dstr_292__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_293__CLASS_SOURCE_DEFINE; struct MELT_STRING_STRUCT (19) dstr_294__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (5) dtup_295__CLASS_SOURCE_DEFINE; struct MELT_MULTIPLE_STRUCT (5) dtup_296__CLASS_SOURCE_DEFINE; struct MELT_OBJECT_STRUCT (3) dsym_297__SDEFINE_BODY; struct MELT_STRING_STRUCT (12) dstr_298__SDEFINE_BODY; struct MELT_OBJECT_STRUCT (4) dobj_299__SDEFINE_BODY; struct MELT_STRING_STRUCT (12) dstr_300__SDEFINE_BODY; struct MELT_OBJECT_STRUCT (3) dsym_301__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT (30) dstr_302__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_303__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_STRING_STRUCT (30) dstr_304__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (5) dtup_305__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_MULTIPLE_STRUCT (5) dtup_306__CLASS_SOURCE_DEFINITION_FORMAL; struct MELT_OBJECT_STRUCT (3) dsym_307__SFORMAL_ARGS; struct MELT_STRING_STRUCT (12) dstr_308__SFORMAL_ARGS; struct MELT_OBJECT_STRUCT (4) dobj_309__SFORMAL_ARGS; struct MELT_STRING_STRUCT (12) dstr_310__SFORMAL_ARGS; struct MELT_OBJECT_STRUCT (3) dsym_311__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT (18) dstr_312__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_313__CLASS_SOURCE_DEFUN; struct MELT_STRING_STRUCT (18) dstr_314__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_315__CLASS_SOURCE_DEFUN; struct MELT_MULTIPLE_STRUCT (6) dtup_316__CLASS_SOURCE_DEFUN; struct MELT_OBJECT_STRUCT (3) dsym_317__SFUN_BODY; struct MELT_STRING_STRUCT (9) dstr_318__SFUN_BODY; struct MELT_OBJECT_STRUCT (4) dobj_319__SFUN_BODY; struct MELT_STRING_STRUCT (9) dstr_320__SFUN_BODY; struct MELT_OBJECT_STRUCT (3) dsym_321__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT (25) dstr_322__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_323__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_STRING_STRUCT (25) dstr_324__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_325__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_MULTIPLE_STRUCT (8) dtup_326__CLASS_SOURCE_DEFPRIMITIVE; struct MELT_OBJECT_STRUCT (3) dsym_327__SPRIM_TYPE; struct MELT_STRING_STRUCT (10) dstr_328__SPRIM_TYPE; struct MELT_OBJECT_STRUCT (4) dobj_329__SPRIM_TYPE; struct MELT_STRING_STRUCT (10) dstr_330__SPRIM_TYPE; struct MELT_OBJECT_STRUCT (3) dsym_331__SPRIM_EXPANSION; struct MELT_STRING_STRUCT (15) dstr_332__SPRIM_EXPANSION; struct MELT_OBJECT_STRUCT (4) dobj_333__SPRIM_EXPANSION; struct MELT_STRING_STRUCT (15) dstr_334__SPRIM_EXPANSION; struct MELT_OBJECT_STRUCT (3) dsym_335__SPRIM_EXPLOC; struct MELT_STRING_STRUCT (12) dstr_336__SPRIM_EXPLOC; struct MELT_OBJECT_STRUCT (4) dobj_337__SPRIM_EXPLOC; struct MELT_STRING_STRUCT (12) dstr_338__SPRIM_EXPLOC; struct MELT_OBJECT_STRUCT (3) dsym_339__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT (25) dstr_340__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_341__CLASS_SOURCE_DEFCITERATOR; struct MELT_STRING_STRUCT (25) dstr_342__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_343__CLASS_SOURCE_DEFCITERATOR; struct MELT_MULTIPLE_STRUCT (8) dtup_344__CLASS_SOURCE_DEFCITERATOR; struct MELT_OBJECT_STRUCT (3) dsym_345__SCITERDEF_CITERATOR; struct MELT_STRING_STRUCT (19) dstr_346__SCITERDEF_CITERA; struct MELT_OBJECT_STRUCT (4) dobj_347__SCITERDEF_CITERATOR; struct MELT_STRING_STRUCT (19) dstr_348__SCITERDEF_CITERA; struct MELT_OBJECT_STRUCT (3) dsym_349__SCITERDEF_BEFORELOC; struct MELT_STRING_STRUCT (19) dstr_350__SCITERDEF_BEFORE; struct MELT_OBJECT_STRUCT (4) dobj_351__SCITERDEF_BEFORELOC; struct MELT_STRING_STRUCT (19) dstr_352__SCITERDEF_BEFORE; struct MELT_OBJECT_STRUCT (3) dsym_353__SCITERDEF_AFTERLOC; struct MELT_STRING_STRUCT (18) dstr_354__SCITERDEF_AFTERL; struct MELT_OBJECT_STRUCT (4) dobj_355__SCITERDEF_AFTERLOC; struct MELT_STRING_STRUCT (18) dstr_356__SCITERDEF_AFTERL; struct MELT_OBJECT_STRUCT (3) dsym_357__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT (24) dstr_358__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_359__CLASS_SOURCE_DEFCMATCHER; struct MELT_STRING_STRUCT (24) dstr_360__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_361__CLASS_SOURCE_DEFCMATCHER; struct MELT_MULTIPLE_STRUCT (9) dtup_362__CLASS_SOURCE_DEFCMATCHER; struct MELT_OBJECT_STRUCT (3) dsym_363__SCMATDEF_CMATCHER; struct MELT_STRING_STRUCT (17) dstr_364__SCMATDEF_CMATCHE; struct MELT_OBJECT_STRUCT (4) dobj_365__SCMATDEF_CMATCHER; struct MELT_STRING_STRUCT (17) dstr_366__SCMATDEF_CMATCHE; struct MELT_OBJECT_STRUCT (3) dsym_367__SCMATDEF_TESTLOC; struct MELT_STRING_STRUCT (16) dstr_368__SCMATDEF_TESTLOC; struct MELT_OBJECT_STRUCT (4) dobj_369__SCMATDEF_TESTLOC; struct MELT_STRING_STRUCT (16) dstr_370__SCMATDEF_TESTLOC; struct MELT_OBJECT_STRUCT (3) dsym_371__SCMATDEF_FILLLOC; struct MELT_STRING_STRUCT (16) dstr_372__SCMATDEF_FILLLOC; struct MELT_OBJECT_STRUCT (4) dobj_373__SCMATDEF_FILLLOC; struct MELT_STRING_STRUCT (16) dstr_374__SCMATDEF_FILLLOC; struct MELT_OBJECT_STRUCT (3) dsym_375__SCMATDEF_OPERLOC; struct MELT_STRING_STRUCT (16) dstr_376__SCMATDEF_OPERLOC; struct MELT_OBJECT_STRUCT (4) dobj_377__SCMATDEF_OPERLOC; struct MELT_STRING_STRUCT (16) dstr_378__SCMATDEF_OPERLOC; struct MELT_OBJECT_STRUCT (3) dsym_379__CLASS_SOURCE_DEFUNMATCHER; struct MELT_STRING_STRUCT (25) dstr_380__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_381__CLASS_SOURCE_DEFUNMATCHER; struct MELT_STRING_STRUCT (25) dstr_382__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_383__CLASS_SOURCE_DEFUNMATCHER; struct MELT_MULTIPLE_STRUCT (10) dtup_384__CLASS_SOURCE_DEFUNMATCHER; struct MELT_OBJECT_STRUCT (3) dsym_385__SFUMATDEF_INS; struct MELT_STRING_STRUCT (13) dstr_386__SFUMATDEF_INS; struct MELT_OBJECT_STRUCT (4) dobj_387__SFUMATDEF_INS; struct MELT_STRING_STRUCT (13) dstr_388__SFUMATDEF_INS; struct MELT_OBJECT_STRUCT (3) dsym_389__SFUMATDEF_OUTS; struct MELT_STRING_STRUCT (14) dstr_390__SFUMATDEF_OUTS; struct MELT_OBJECT_STRUCT (4) dobj_391__SFUMATDEF_OUTS; struct MELT_STRING_STRUCT (14) dstr_392__SFUMATDEF_OUTS; struct MELT_OBJECT_STRUCT (3) dsym_393__SFUMATDEF_MATCHF; struct MELT_STRING_STRUCT (16) dstr_394__SFUMATDEF_MATCHF; struct MELT_OBJECT_STRUCT (4) dobj_395__SFUMATDEF_MATCHF; struct MELT_STRING_STRUCT (16) dstr_396__SFUMATDEF_MATCHF; struct MELT_OBJECT_STRUCT (3) dsym_397__SFUMATDEF_APPLYF; struct MELT_STRING_STRUCT (16) dstr_398__SFUMATDEF_APPLYF; struct MELT_OBJECT_STRUCT (4) dobj_399__SFUMATDEF_APPLYF; struct MELT_STRING_STRUCT (16) dstr_400__SFUMATDEF_APPLYF; struct MELT_OBJECT_STRUCT (3) dsym_401__SFUMATDEF_DATA; struct MELT_STRING_STRUCT (14) dstr_402__SFUMATDEF_DATA; struct MELT_OBJECT_STRUCT (4) dobj_403__SFUMATDEF_DATA; struct MELT_STRING_STRUCT (14) dstr_404__SFUMATDEF_DATA; struct MELT_OBJECT_STRUCT (3) dsym_405__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_STRING_STRUCT (25) dstr_406__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_407__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_STRING_STRUCT (25) dstr_408__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (5) dtup_409__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_MULTIPLE_STRUCT (5) dtup_410__CLASS_SOURCE_DEFOBJCOMMON; struct MELT_OBJECT_STRUCT (3) dsym_411__SOBJ_PREDEF; struct MELT_STRING_STRUCT (11) dstr_412__SOBJ_PREDEF; struct MELT_OBJECT_STRUCT (4) dobj_413__SOBJ_PREDEF; struct MELT_STRING_STRUCT (11) dstr_414__SOBJ_PREDEF; struct MELT_OBJECT_STRUCT (3) dsym_415__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT (21) dstr_416__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_417__CLASS_SOURCE_DEFCLASS; struct MELT_STRING_STRUCT (21) dstr_418__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_419__CLASS_SOURCE_DEFCLASS; struct MELT_MULTIPLE_STRUCT (8) dtup_420__CLASS_SOURCE_DEFCLASS; struct MELT_OBJECT_STRUCT (3) dsym_421__SCLASS_CLABIND; struct MELT_STRING_STRUCT (14) dstr_422__SCLASS_CLABIND; struct MELT_OBJECT_STRUCT (4) dobj_423__SCLASS_CLABIND; struct MELT_STRING_STRUCT (14) dstr_424__SCLASS_CLABIND; struct MELT_OBJECT_STRUCT (3) dsym_425__SCLASS_SUPERBIND; struct MELT_STRING_STRUCT (16) dstr_426__SCLASS_SUPERBIND; struct MELT_OBJECT_STRUCT (4) dobj_427__SCLASS_SUPERBIND; struct MELT_STRING_STRUCT (16) dstr_428__SCLASS_SUPERBIND; struct MELT_OBJECT_STRUCT (3) dsym_429__SCLASS_FLDBINDS; struct MELT_STRING_STRUCT (15) dstr_430__SCLASS_FLDBINDS; struct MELT_OBJECT_STRUCT (4) dobj_431__SCLASS_FLDBINDS; struct MELT_STRING_STRUCT (15) dstr_432__SCLASS_FLDBINDS; struct MELT_OBJECT_STRUCT (3) dsym_433__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT (24) dstr_434__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_435__CLASS_SOURCE_DEFINSTANCE; struct MELT_STRING_STRUCT (24) dstr_436__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (6) dtup_437__CLASS_SOURCE_DEFINSTANCE; struct MELT_MULTIPLE_STRUCT (9) dtup_438__CLASS_SOURCE_DEFINSTANCE; struct MELT_OBJECT_STRUCT (3) dsym_439__SINST_CLASS; struct MELT_STRING_STRUCT (11) dstr_440__SINST_CLASS; struct MELT_OBJECT_STRUCT (4) dobj_441__SINST_CLASS; struct MELT_STRING_STRUCT (11) dstr_442__SINST_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_443__SINST_CLABIND; struct MELT_STRING_STRUCT (13) dstr_444__SINST_CLABIND; struct MELT_OBJECT_STRUCT (4) dobj_445__SINST_CLABIND; struct MELT_STRING_STRUCT (13) dstr_446__SINST_CLABIND; struct MELT_OBJECT_STRUCT (3) dsym_447__SINST_OBJNUM; struct MELT_STRING_STRUCT (12) dstr_448__SINST_OBJNUM; struct MELT_OBJECT_STRUCT (4) dobj_449__SINST_OBJNUM; struct MELT_STRING_STRUCT (12) dstr_450__SINST_OBJNUM; struct MELT_OBJECT_STRUCT (3) dsym_451__SINST_FIELDS; struct MELT_STRING_STRUCT (12) dstr_452__SINST_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_453__SINST_FIELDS; struct MELT_STRING_STRUCT (12) dstr_454__SINST_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_455__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT (24) dstr_456__CLASS_SOURCE_DEF; struct MELT_OBJECT_STRUCT (8) dobj_457__CLASS_SOURCE_DEFSELECTOR; struct MELT_STRING_STRUCT (24) dstr_458__CLASS_SOURCE_DEF; struct MELT_MULTIPLE_STRUCT (7) dtup_459__CLASS_SOURCE_DEFSELECTOR; struct MELT_MULTIPLE_STRUCT (10) dtup_460__CLASS_SOURCE_DEFSELECTOR; struct MELT_OBJECT_STRUCT (3) dsym_461__SDEFSEL_FORMALS; struct MELT_STRING_STRUCT (15) dstr_462__SDEFSEL_FORMALS; struct MELT_OBJECT_STRUCT (4) dobj_463__SDEFSEL_FORMALS; struct MELT_STRING_STRUCT (15) dstr_464__SDEFSEL_FORMALS; struct MELT_OBJECT_STRUCT (3) dsym_465__CLASS_SOURCE_FIELDASSIGN; struct MELT_STRING_STRUCT (24) dstr_466__CLASS_SOURCE_FIE; struct MELT_OBJECT_STRUCT (8) dobj_467__CLASS_SOURCE_FIELDASSIGN; struct MELT_STRING_STRUCT (24) dstr_468__CLASS_SOURCE_FIE; struct MELT_MULTIPLE_STRUCT (4) dtup_469__CLASS_SOURCE_FIELDASSIGN; struct MELT_MULTIPLE_STRUCT (4) dtup_470__CLASS_SOURCE_FIELDASSIGN; struct MELT_OBJECT_STRUCT (3) dsym_471__SFLA_FIELD; struct MELT_STRING_STRUCT (10) dstr_472__SFLA_FIELD; struct MELT_OBJECT_STRUCT (4) dobj_473__SFLA_FIELD; struct MELT_STRING_STRUCT (10) dstr_474__SFLA_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_475__SFLA_EXPR; struct MELT_STRING_STRUCT (9) dstr_476__SFLA_EXPR; struct MELT_OBJECT_STRUCT (4) dobj_477__SFLA_EXPR; struct MELT_STRING_STRUCT (9) dstr_478__SFLA_EXPR; struct MELT_OBJECT_STRUCT (3) dsym_479__CLASS_SOURCE_INSTANCE; struct MELT_STRING_STRUCT (21) dstr_480__CLASS_SOURCE_INS; struct MELT_OBJECT_STRUCT (8) dobj_481__CLASS_SOURCE_INSTANCE; struct MELT_STRING_STRUCT (21) dstr_482__CLASS_SOURCE_INS; struct MELT_MULTIPLE_STRUCT (4) dtup_483__CLASS_SOURCE_INSTANCE; struct MELT_MULTIPLE_STRUCT (5) dtup_484__CLASS_SOURCE_INSTANCE; struct MELT_OBJECT_STRUCT (3) dsym_485__SMINS_CLASS; struct MELT_STRING_STRUCT (11) dstr_486__SMINS_CLASS; struct MELT_OBJECT_STRUCT (4) dobj_487__SMINS_CLASS; struct MELT_STRING_STRUCT (11) dstr_488__SMINS_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_489__SMINS_CLABIND; struct MELT_STRING_STRUCT (13) dstr_490__SMINS_CLABIND; struct MELT_OBJECT_STRUCT (4) dobj_491__SMINS_CLABIND; struct MELT_STRING_STRUCT (13) dstr_492__SMINS_CLABIND; struct MELT_OBJECT_STRUCT (3) dsym_493__SMINS_FIELDS; struct MELT_STRING_STRUCT (12) dstr_494__SMINS_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_495__SMINS_FIELDS; struct MELT_STRING_STRUCT (12) dstr_496__SMINS_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_497__CLASS_SOURCE_GET_FIELD; struct MELT_STRING_STRUCT (22) dstr_498__CLASS_SOURCE_GET; struct MELT_OBJECT_STRUCT (8) dobj_499__CLASS_SOURCE_GET_FIELD; struct MELT_STRING_STRUCT (22) dstr_500__CLASS_SOURCE_GET; struct MELT_MULTIPLE_STRUCT (4) dtup_501__CLASS_SOURCE_GET_FIELD; struct MELT_MULTIPLE_STRUCT (4) dtup_502__CLASS_SOURCE_GET_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_503__SUGET_OBJ; struct MELT_STRING_STRUCT (9) dstr_504__SUGET_OBJ; struct MELT_OBJECT_STRUCT (4) dobj_505__SUGET_OBJ; struct MELT_STRING_STRUCT (9) dstr_506__SUGET_OBJ; struct MELT_OBJECT_STRUCT (3) dsym_507__SUGET_FIELD; struct MELT_STRING_STRUCT (11) dstr_508__SUGET_FIELD; struct MELT_OBJECT_STRUCT (4) dobj_509__SUGET_FIELD; struct MELT_STRING_STRUCT (11) dstr_510__SUGET_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT (29) dstr_512__CLASS_SOURCE_UNS; struct MELT_OBJECT_STRUCT (8) dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT (29) dstr_514__CLASS_SOURCE_UNS; struct MELT_MULTIPLE_STRUCT (5) dtup_515__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_MULTIPLE_STRUCT (4) dtup_516__CLASS_SOURCE_UNSAFE_GET_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_517__CLASS_SOURCE_PUT_FIELDS; struct MELT_STRING_STRUCT (23) dstr_518__CLASS_SOURCE_PUT; struct MELT_OBJECT_STRUCT (8) dobj_519__CLASS_SOURCE_PUT_FIELDS; struct MELT_STRING_STRUCT (23) dstr_520__CLASS_SOURCE_PUT; struct MELT_MULTIPLE_STRUCT (4) dtup_521__CLASS_SOURCE_PUT_FIELDS; struct MELT_MULTIPLE_STRUCT (4) dtup_522__CLASS_SOURCE_PUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_523__SUPUT_OBJ; struct MELT_STRING_STRUCT (9) dstr_524__SUPUT_OBJ; struct MELT_OBJECT_STRUCT (4) dobj_525__SUPUT_OBJ; struct MELT_STRING_STRUCT (9) dstr_526__SUPUT_OBJ; struct MELT_OBJECT_STRUCT (3) dsym_527__SUPUT_FIELDS; struct MELT_STRING_STRUCT (12) dstr_528__SUPUT_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_529__SUPUT_FIELDS; struct MELT_STRING_STRUCT (12) dstr_530__SUPUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT (30) dstr_532__CLASS_SOURCE_UNS; struct MELT_OBJECT_STRUCT (8) dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT (30) dstr_534__CLASS_SOURCE_UNS; struct MELT_MULTIPLE_STRUCT (5) dtup_535__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_MULTIPLE_STRUCT (4) dtup_536__CLASS_SOURCE_UNSAFE_PUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_537__CLASS_SOURCE_IF; struct MELT_STRING_STRUCT (15) dstr_538__CLASS_SOURCE_IF; struct MELT_OBJECT_STRUCT (8) dobj_539__CLASS_SOURCE_IF; struct MELT_STRING_STRUCT (15) dstr_540__CLASS_SOURCE_IF; struct MELT_MULTIPLE_STRUCT (4) dtup_541__CLASS_SOURCE_IF; struct MELT_MULTIPLE_STRUCT (4) dtup_542__CLASS_SOURCE_IF; struct MELT_OBJECT_STRUCT (3) dsym_543__SIF_TEST; struct MELT_STRING_STRUCT (8) dstr_544__SIF_TEST; struct MELT_OBJECT_STRUCT (4) dobj_545__SIF_TEST; struct MELT_STRING_STRUCT (8) dstr_546__SIF_TEST; struct MELT_OBJECT_STRUCT (3) dsym_547__SIF_THEN; struct MELT_STRING_STRUCT (8) dstr_548__SIF_THEN; struct MELT_OBJECT_STRUCT (4) dobj_549__SIF_THEN; struct MELT_STRING_STRUCT (8) dstr_550__SIF_THEN; struct MELT_OBJECT_STRUCT (3) dsym_551__CLASS_SOURCE_IFELSE; struct MELT_STRING_STRUCT (19) dstr_552__CLASS_SOURCE_IFE; struct MELT_OBJECT_STRUCT (8) dobj_553__CLASS_SOURCE_IFELSE; struct MELT_STRING_STRUCT (19) dstr_554__CLASS_SOURCE_IFE; struct MELT_MULTIPLE_STRUCT (5) dtup_555__CLASS_SOURCE_IFELSE; struct MELT_MULTIPLE_STRUCT (5) dtup_556__CLASS_SOURCE_IFELSE; struct MELT_OBJECT_STRUCT (3) dsym_557__SIF_ELSE; struct MELT_STRING_STRUCT (8) dstr_558__SIF_ELSE; struct MELT_OBJECT_STRUCT (4) dobj_559__SIF_ELSE; struct MELT_STRING_STRUCT (8) dstr_560__SIF_ELSE; struct MELT_OBJECT_STRUCT (3) dsym_561__CLASS_SOURCE_OR; struct MELT_STRING_STRUCT (15) dstr_562__CLASS_SOURCE_OR; struct MELT_OBJECT_STRUCT (8) dobj_563__CLASS_SOURCE_OR; struct MELT_STRING_STRUCT (15) dstr_564__CLASS_SOURCE_OR; struct MELT_MULTIPLE_STRUCT (4) dtup_565__CLASS_SOURCE_OR; struct MELT_MULTIPLE_STRUCT (3) dtup_566__CLASS_SOURCE_OR; struct MELT_OBJECT_STRUCT (3) dsym_567__SOR_DISJ; struct MELT_STRING_STRUCT (8) dstr_568__SOR_DISJ; struct MELT_OBJECT_STRUCT (4) dobj_569__SOR_DISJ; struct MELT_STRING_STRUCT (8) dstr_570__SOR_DISJ; struct MELT_OBJECT_STRUCT (3) dsym_571__CLASS_SOURCE_CPPIF; struct MELT_STRING_STRUCT (18) dstr_572__CLASS_SOURCE_CPP; struct MELT_OBJECT_STRUCT (8) dobj_573__CLASS_SOURCE_CPPIF; struct MELT_STRING_STRUCT (18) dstr_574__CLASS_SOURCE_CPP; struct MELT_MULTIPLE_STRUCT (4) dtup_575__CLASS_SOURCE_CPPIF; struct MELT_MULTIPLE_STRUCT (5) dtup_576__CLASS_SOURCE_CPPIF; struct MELT_OBJECT_STRUCT (3) dsym_577__SIFP_COND; struct MELT_STRING_STRUCT (9) dstr_578__SIFP_COND; struct MELT_OBJECT_STRUCT (4) dobj_579__SIFP_COND; struct MELT_STRING_STRUCT (9) dstr_580__SIFP_COND; struct MELT_OBJECT_STRUCT (3) dsym_581__SIFP_THEN; struct MELT_STRING_STRUCT (9) dstr_582__SIFP_THEN; struct MELT_OBJECT_STRUCT (4) dobj_583__SIFP_THEN; struct MELT_STRING_STRUCT (9) dstr_584__SIFP_THEN; struct MELT_OBJECT_STRUCT (3) dsym_585__SIFP_ELSE; struct MELT_STRING_STRUCT (9) dstr_586__SIFP_ELSE; struct MELT_OBJECT_STRUCT (4) dobj_587__SIFP_ELSE; struct MELT_STRING_STRUCT (9) dstr_588__SIFP_ELSE; struct MELT_OBJECT_STRUCT (3) dsym_589__CLASS_SOURCE_MATCH; struct MELT_STRING_STRUCT (18) dstr_590__CLASS_SOURCE_MAT; struct MELT_OBJECT_STRUCT (8) dobj_591__CLASS_SOURCE_MATCH; struct MELT_STRING_STRUCT (18) dstr_592__CLASS_SOURCE_MAT; struct MELT_MULTIPLE_STRUCT (4) dtup_593__CLASS_SOURCE_MATCH; struct MELT_MULTIPLE_STRUCT (4) dtup_594__CLASS_SOURCE_MATCH; struct MELT_OBJECT_STRUCT (3) dsym_595__SMAT_MATCHEDX; struct MELT_STRING_STRUCT (13) dstr_596__SMAT_MATCHEDX; struct MELT_OBJECT_STRUCT (4) dobj_597__SMAT_MATCHEDX; struct MELT_STRING_STRUCT (13) dstr_598__SMAT_MATCHEDX; struct MELT_OBJECT_STRUCT (3) dsym_599__SMAT_CASES; struct MELT_STRING_STRUCT (10) dstr_600__SMAT_CASES; struct MELT_OBJECT_STRUCT (4) dobj_601__SMAT_CASES; struct MELT_STRING_STRUCT (10) dstr_602__SMAT_CASES; struct MELT_OBJECT_STRUCT (3) dsym_603__CLASS_SOURCE_MATCH_CASE; struct MELT_STRING_STRUCT (23) dstr_604__CLASS_SOURCE_MAT; struct MELT_OBJECT_STRUCT (8) dobj_605__CLASS_SOURCE_MATCH_CASE; struct MELT_STRING_STRUCT (23) dstr_606__CLASS_SOURCE_MAT; struct MELT_MULTIPLE_STRUCT (4) dtup_607__CLASS_SOURCE_MATCH_CASE; struct MELT_MULTIPLE_STRUCT (4) dtup_608__CLASS_SOURCE_MATCH_CASE; struct MELT_OBJECT_STRUCT (3) dsym_609__SCAM_PATT; struct MELT_STRING_STRUCT (9) dstr_610__SCAM_PATT; struct MELT_OBJECT_STRUCT (4) dobj_611__SCAM_PATT; struct MELT_STRING_STRUCT (9) dstr_612__SCAM_PATT; struct MELT_OBJECT_STRUCT (3) dsym_613__SCAM_BODY; struct MELT_STRING_STRUCT (9) dstr_614__SCAM_BODY; struct MELT_OBJECT_STRUCT (4) dobj_615__SCAM_BODY; struct MELT_STRING_STRUCT (9) dstr_616__SCAM_BODY; struct MELT_OBJECT_STRUCT (3) dsym_617__CLASS_SOURCE_LET_BINDING; struct MELT_STRING_STRUCT (24) dstr_618__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT (8) dobj_619__CLASS_SOURCE_LET_BINDING; struct MELT_STRING_STRUCT (24) dstr_620__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT (4) dtup_621__CLASS_SOURCE_LET_BINDING; struct MELT_MULTIPLE_STRUCT (5) dtup_622__CLASS_SOURCE_LET_BINDING; struct MELT_OBJECT_STRUCT (3) dsym_623__SLETB_TYPE; struct MELT_STRING_STRUCT (10) dstr_624__SLETB_TYPE; struct MELT_OBJECT_STRUCT (4) dobj_625__SLETB_TYPE; struct MELT_STRING_STRUCT (10) dstr_626__SLETB_TYPE; struct MELT_OBJECT_STRUCT (3) dsym_627__SLETB_BINDER; struct MELT_STRING_STRUCT (12) dstr_628__SLETB_BINDER; struct MELT_OBJECT_STRUCT (4) dobj_629__SLETB_BINDER; struct MELT_STRING_STRUCT (12) dstr_630__SLETB_BINDER; struct MELT_OBJECT_STRUCT (3) dsym_631__SLETB_EXPR; struct MELT_STRING_STRUCT (10) dstr_632__SLETB_EXPR; struct MELT_OBJECT_STRUCT (4) dobj_633__SLETB_EXPR; struct MELT_STRING_STRUCT (10) dstr_634__SLETB_EXPR; struct MELT_OBJECT_STRUCT (3) dsym_635__CLASS_SOURCE_LETREC_BINDING; struct MELT_STRING_STRUCT (27) dstr_636__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT (8) dobj_637__CLASS_SOURCE_LETREC_BINDING; struct MELT_STRING_STRUCT (27) dstr_638__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT (5) dtup_639__CLASS_SOURCE_LETREC_BINDING; struct MELT_MULTIPLE_STRUCT (5) dtup_640__CLASS_SOURCE_LETREC_BINDING; struct MELT_OBJECT_STRUCT (3) dsym_641__CLASS_SOURCE_LET; struct MELT_STRING_STRUCT (16) dstr_642__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT (8) dobj_643__CLASS_SOURCE_LET; struct MELT_STRING_STRUCT (16) dstr_644__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT (4) dtup_645__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT (4) dtup_646__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT (3) dsym_647__SLET_BINDINGS; struct MELT_STRING_STRUCT (13) dstr_648__SLET_BINDINGS; struct MELT_OBJECT_STRUCT (4) dobj_649__SLET_BINDINGS; struct MELT_STRING_STRUCT (13) dstr_650__SLET_BINDINGS; struct MELT_OBJECT_STRUCT (3) dsym_651__SLET_BODY; struct MELT_STRING_STRUCT (9) dstr_652__SLET_BODY; struct MELT_OBJECT_STRUCT (4) dobj_653__SLET_BODY; struct MELT_STRING_STRUCT (9) dstr_654__SLET_BODY; struct MELT_OBJECT_STRUCT (3) dsym_655__CLASS_SOURCE_LETREC; struct MELT_STRING_STRUCT (19) dstr_656__CLASS_SOURCE_LET; struct MELT_OBJECT_STRUCT (8) dobj_657__CLASS_SOURCE_LETREC; struct MELT_STRING_STRUCT (19) dstr_658__CLASS_SOURCE_LET; struct MELT_MULTIPLE_STRUCT (5) dtup_659__CLASS_SOURCE_LETREC; struct MELT_MULTIPLE_STRUCT (4) dtup_660__CLASS_SOURCE_LETREC; struct MELT_OBJECT_STRUCT (3) dsym_661__CLASS_SOURCE_LAMBDA; struct MELT_STRING_STRUCT (19) dstr_662__CLASS_SOURCE_LAM; struct MELT_OBJECT_STRUCT (8) dobj_663__CLASS_SOURCE_LAMBDA; struct MELT_STRING_STRUCT (19) dstr_664__CLASS_SOURCE_LAM; struct MELT_MULTIPLE_STRUCT (4) dtup_665__CLASS_SOURCE_LAMBDA; struct MELT_MULTIPLE_STRUCT (4) dtup_666__CLASS_SOURCE_LAMBDA; struct MELT_OBJECT_STRUCT (3) dsym_667__SLAM_ARGBIND; struct MELT_STRING_STRUCT (12) dstr_668__SLAM_ARGBIND; struct MELT_OBJECT_STRUCT (4) dobj_669__SLAM_ARGBIND; struct MELT_STRING_STRUCT (12) dstr_670__SLAM_ARGBIND; struct MELT_OBJECT_STRUCT (3) dsym_671__SLAM_BODY; struct MELT_STRING_STRUCT (9) dstr_672__SLAM_BODY; struct MELT_OBJECT_STRUCT (4) dobj_673__SLAM_BODY; struct MELT_STRING_STRUCT (9) dstr_674__SLAM_BODY; struct MELT_OBJECT_STRUCT (3) dsym_675__CLASS_SOURCE_IFVARIADIC; struct MELT_STRING_STRUCT (23) dstr_676__CLASS_SOURCE_IFV; struct MELT_OBJECT_STRUCT (8) dobj_677__CLASS_SOURCE_IFVARIADIC; struct MELT_STRING_STRUCT (23) dstr_678__CLASS_SOURCE_IFV; struct MELT_MULTIPLE_STRUCT (4) dtup_679__CLASS_SOURCE_IFVARIADIC; struct MELT_MULTIPLE_STRUCT (5) dtup_680__CLASS_SOURCE_IFVARIADIC; struct MELT_OBJECT_STRUCT (3) dsym_681__SIFVARIADIC_ARGBIND; struct MELT_STRING_STRUCT (19) dstr_682__SIFVARIADIC_ARGB; struct MELT_OBJECT_STRUCT (4) dobj_683__SIFVARIADIC_ARGBIND; struct MELT_STRING_STRUCT (19) dstr_684__SIFVARIADIC_ARGB; struct MELT_OBJECT_STRUCT (3) dsym_685__SIFVARIADIC_THEN; struct MELT_STRING_STRUCT (16) dstr_686__SIFVARIADIC_THEN; struct MELT_OBJECT_STRUCT (4) dobj_687__SIFVARIADIC_THEN; struct MELT_STRING_STRUCT (16) dstr_688__SIFVARIADIC_THEN; struct MELT_OBJECT_STRUCT (3) dsym_689__SIFVARIADIC_ELSE; struct MELT_STRING_STRUCT (16) dstr_690__SIFVARIADIC_ELSE; struct MELT_OBJECT_STRUCT (4) dobj_691__SIFVARIADIC_ELSE; struct MELT_STRING_STRUCT (16) dstr_692__SIFVARIADIC_ELSE; struct MELT_OBJECT_STRUCT (3) dsym_693__CLASS_SOURCE_MULTICALL; struct MELT_STRING_STRUCT (22) dstr_694__CLASS_SOURCE_MUL; struct MELT_OBJECT_STRUCT (8) dobj_695__CLASS_SOURCE_MULTICALL; struct MELT_STRING_STRUCT (22) dstr_696__CLASS_SOURCE_MUL; struct MELT_MULTIPLE_STRUCT (4) dtup_697__CLASS_SOURCE_MULTICALL; struct MELT_MULTIPLE_STRUCT (5) dtup_698__CLASS_SOURCE_MULTICALL; struct MELT_OBJECT_STRUCT (3) dsym_699__SMULC_RESBIND; struct MELT_STRING_STRUCT (13) dstr_700__SMULC_RESBIND; struct MELT_OBJECT_STRUCT (4) dobj_701__SMULC_RESBIND; struct MELT_STRING_STRUCT (13) dstr_702__SMULC_RESBIND; struct MELT_OBJECT_STRUCT (3) dsym_703__SMULC_CALL; struct MELT_STRING_STRUCT (10) dstr_704__SMULC_CALL; struct MELT_OBJECT_STRUCT (4) dobj_705__SMULC_CALL; struct MELT_STRING_STRUCT (10) dstr_706__SMULC_CALL; struct MELT_OBJECT_STRUCT (3) dsym_707__SMULC_BODY; struct MELT_STRING_STRUCT (10) dstr_708__SMULC_BODY; struct MELT_OBJECT_STRUCT (4) dobj_709__SMULC_BODY; struct MELT_STRING_STRUCT (10) dstr_710__SMULC_BODY; struct MELT_OBJECT_STRUCT (3) dsym_711__CLASS_SOURCE_LABELLED; struct MELT_STRING_STRUCT (21) dstr_712__CLASS_SOURCE_LAB; struct MELT_OBJECT_STRUCT (8) dobj_713__CLASS_SOURCE_LABELLED; struct MELT_STRING_STRUCT (21) dstr_714__CLASS_SOURCE_LAB; struct MELT_MULTIPLE_STRUCT (4) dtup_715__CLASS_SOURCE_LABELLED; struct MELT_MULTIPLE_STRUCT (3) dtup_716__CLASS_SOURCE_LABELLED; struct MELT_OBJECT_STRUCT (3) dsym_717__SLABEL_BIND; struct MELT_STRING_STRUCT (11) dstr_718__SLABEL_BIND; struct MELT_OBJECT_STRUCT (4) dobj_719__SLABEL_BIND; struct MELT_STRING_STRUCT (11) dstr_720__SLABEL_BIND; struct MELT_OBJECT_STRUCT (3) dsym_721__CLASS_SOURCE_FOREVER; struct MELT_STRING_STRUCT (20) dstr_722__CLASS_SOURCE_FOR; struct MELT_OBJECT_STRUCT (8) dobj_723__CLASS_SOURCE_FOREVER; struct MELT_STRING_STRUCT (20) dstr_724__CLASS_SOURCE_FOR; struct MELT_MULTIPLE_STRUCT (5) dtup_725__CLASS_SOURCE_FOREVER; struct MELT_MULTIPLE_STRUCT (4) dtup_726__CLASS_SOURCE_FOREVER; struct MELT_OBJECT_STRUCT (3) dsym_727__SFRV_BODY; struct MELT_STRING_STRUCT (9) dstr_728__SFRV_BODY; struct MELT_OBJECT_STRUCT (4) dobj_729__SFRV_BODY; struct MELT_STRING_STRUCT (9) dstr_730__SFRV_BODY; struct MELT_OBJECT_STRUCT (3) dsym_731__CLASS_SOURCE_AGAIN; struct MELT_STRING_STRUCT (18) dstr_732__CLASS_SOURCE_AGA; struct MELT_OBJECT_STRUCT (8) dobj_733__CLASS_SOURCE_AGAIN; struct MELT_STRING_STRUCT (18) dstr_734__CLASS_SOURCE_AGA; struct MELT_MULTIPLE_STRUCT (5) dtup_735__CLASS_SOURCE_AGAIN; struct MELT_MULTIPLE_STRUCT (3) dtup_736__CLASS_SOURCE_AGAIN; struct MELT_OBJECT_STRUCT (3) dsym_737__CLASS_SOURCE_EXIT; struct MELT_STRING_STRUCT (17) dstr_738__CLASS_SOURCE_EXI; struct MELT_OBJECT_STRUCT (8) dobj_739__CLASS_SOURCE_EXIT; struct MELT_STRING_STRUCT (17) dstr_740__CLASS_SOURCE_EXI; struct MELT_MULTIPLE_STRUCT (5) dtup_741__CLASS_SOURCE_EXIT; struct MELT_MULTIPLE_STRUCT (4) dtup_742__CLASS_SOURCE_EXIT; struct MELT_OBJECT_STRUCT (3) dsym_743__SEXI_BODY; struct MELT_STRING_STRUCT (9) dstr_744__SEXI_BODY; struct MELT_OBJECT_STRUCT (4) dobj_745__SEXI_BODY; struct MELT_STRING_STRUCT (9) dstr_746__SEXI_BODY; struct MELT_OBJECT_STRUCT (3) dsym_747__CLASS_SOURCE_COMPILEWARNING; struct MELT_STRING_STRUCT (27) dstr_748__CLASS_SOURCE_COM; struct MELT_OBJECT_STRUCT (8) dobj_749__CLASS_SOURCE_COMPILEWARNING; struct MELT_STRING_STRUCT (27) dstr_750__CLASS_SOURCE_COM; struct MELT_MULTIPLE_STRUCT (4) dtup_751__CLASS_SOURCE_COMPILEWARNING; struct MELT_MULTIPLE_STRUCT (4) dtup_752__CLASS_SOURCE_COMPILEWARNING; struct MELT_OBJECT_STRUCT (3) dsym_753__SCWARN_MSG; struct MELT_STRING_STRUCT (10) dstr_754__SCWARN_MSG; struct MELT_OBJECT_STRUCT (4) dobj_755__SCWARN_MSG; struct MELT_STRING_STRUCT (10) dstr_756__SCWARN_MSG; struct MELT_OBJECT_STRUCT (3) dsym_757__SCWARN_EXPR; struct MELT_STRING_STRUCT (11) dstr_758__SCWARN_EXPR; struct MELT_OBJECT_STRUCT (4) dobj_759__SCWARN_EXPR; struct MELT_STRING_STRUCT (11) dstr_760__SCWARN_EXPR; struct MELT_OBJECT_STRUCT (3) dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (49) dstr_762__CLASS_SOURCE_CUR; struct MELT_OBJECT_STRUCT (8) dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (49) dstr_764__CLASS_SOURCE_CUR; struct MELT_MULTIPLE_STRUCT (4) dtup_765__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_MULTIPLE_STRUCT (3) dtup_766__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_OBJECT_STRUCT (3) dsym_767__CMEC_COMMENT; struct MELT_STRING_STRUCT (12) dstr_768__CMEC_COMMENT; struct MELT_OBJECT_STRUCT (4) dobj_769__CMEC_COMMENT; struct MELT_STRING_STRUCT (12) dstr_770__CMEC_COMMENT; struct MELT_OBJECT_STRUCT (3) dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT (38) dstr_772__CLASS_SOURCE_PAR; struct MELT_OBJECT_STRUCT (8) dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT (38) dstr_774__CLASS_SOURCE_PAR; struct MELT_MULTIPLE_STRUCT (4) dtup_775__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_MULTIPLE_STRUCT (2) dtup_776__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; struct MELT_OBJECT_STRUCT (3) dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (56) dstr_778__CLASS_SOURCE_UPD; struct MELT_OBJECT_STRUCT (8) dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (56) dstr_780__CLASS_SOURCE_UPD; struct MELT_MULTIPLE_STRUCT (4) dtup_781__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_MULTIPLE_STRUCT (3) dtup_782__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_OBJECT_STRUCT (3) dsym_783__SUCME_COMMENT; struct MELT_STRING_STRUCT (13) dstr_784__SUCME_COMMENT; struct MELT_OBJECT_STRUCT (4) dobj_785__SUCME_COMMENT; struct MELT_STRING_STRUCT (13) dstr_786__SUCME_COMMENT; struct MELT_OBJECT_STRUCT (3) dsym_787__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_STRING_STRUCT (29) dstr_788__CLASS_SOURCE_FET; struct MELT_OBJECT_STRUCT (8) dobj_789__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_STRING_STRUCT (29) dstr_790__CLASS_SOURCE_FET; struct MELT_MULTIPLE_STRUCT (4) dtup_791__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_MULTIPLE_STRUCT (3) dtup_792__CLASS_SOURCE_FETCH_PREDEFINED; struct MELT_OBJECT_STRUCT (3) dsym_793__SFEPD_PREDEF; struct MELT_STRING_STRUCT (12) dstr_794__SFEPD_PREDEF; struct MELT_OBJECT_STRUCT (4) dobj_795__SFEPD_PREDEF; struct MELT_STRING_STRUCT (12) dstr_796__SFEPD_PREDEF; struct MELT_OBJECT_STRUCT (3) dsym_797__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_STRING_STRUCT (29) dstr_798__CLASS_SOURCE_STO; struct MELT_OBJECT_STRUCT (8) dobj_799__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_STRING_STRUCT (29) dstr_800__CLASS_SOURCE_STO; struct MELT_MULTIPLE_STRUCT (4) dtup_801__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_MULTIPLE_STRUCT (4) dtup_802__CLASS_SOURCE_STORE_PREDEFINED; struct MELT_OBJECT_STRUCT (3) dsym_803__SSTPD_PREDEF; struct MELT_STRING_STRUCT (12) dstr_804__SSTPD_PREDEF; struct MELT_OBJECT_STRUCT (4) dobj_805__SSTPD_PREDEF; struct MELT_STRING_STRUCT (12) dstr_806__SSTPD_PREDEF; struct MELT_OBJECT_STRUCT (3) dsym_807__SSTPD_VALUE; struct MELT_STRING_STRUCT (11) dstr_808__SSTPD_VALUE; struct MELT_OBJECT_STRUCT (4) dobj_809__SSTPD_VALUE; struct MELT_STRING_STRUCT (11) dstr_810__SSTPD_VALUE; struct MELT_OBJECT_STRUCT (3) dsym_811__CLASS_SOURCE_CODECHUNK; struct MELT_STRING_STRUCT (22) dstr_812__CLASS_SOURCE_COD; struct MELT_OBJECT_STRUCT (8) dobj_813__CLASS_SOURCE_CODECHUNK; struct MELT_STRING_STRUCT (22) dstr_814__CLASS_SOURCE_COD; struct MELT_MULTIPLE_STRUCT (4) dtup_815__CLASS_SOURCE_CODECHUNK; struct MELT_MULTIPLE_STRUCT (4) dtup_816__CLASS_SOURCE_CODECHUNK; struct MELT_OBJECT_STRUCT (3) dsym_817__SCH_GENSYM; struct MELT_STRING_STRUCT (10) dstr_818__SCH_GENSYM; struct MELT_OBJECT_STRUCT (4) dobj_819__SCH_GENSYM; struct MELT_STRING_STRUCT (10) dstr_820__SCH_GENSYM; struct MELT_OBJECT_STRUCT (3) dsym_821__SCH_CHUNKS; struct MELT_STRING_STRUCT (10) dstr_822__SCH_CHUNKS; struct MELT_OBJECT_STRUCT (4) dobj_823__SCH_CHUNKS; struct MELT_STRING_STRUCT (10) dstr_824__SCH_CHUNKS; struct MELT_OBJECT_STRUCT (3) dsym_825__CLASS_SOURCE_PATTERN; struct MELT_STRING_STRUCT (20) dstr_826__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_827__CLASS_SOURCE_PATTERN; struct MELT_STRING_STRUCT (20) dstr_828__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (4) dtup_829__CLASS_SOURCE_PATTERN; struct MELT_MULTIPLE_STRUCT (3) dtup_830__CLASS_SOURCE_PATTERN; struct MELT_OBJECT_STRUCT (3) dsym_831__PAT_WEIGHT; struct MELT_STRING_STRUCT (10) dstr_832__PAT_WEIGHT; struct MELT_OBJECT_STRUCT (4) dobj_833__PAT_WEIGHT; struct MELT_STRING_STRUCT (10) dstr_834__PAT_WEIGHT; struct MELT_OBJECT_STRUCT (3) dsym_835__CLASS_SOURCE_PATTERN_OR; struct MELT_STRING_STRUCT (23) dstr_836__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_837__CLASS_SOURCE_PATTERN_OR; struct MELT_STRING_STRUCT (23) dstr_838__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_839__CLASS_SOURCE_PATTERN_OR; struct MELT_MULTIPLE_STRUCT (4) dtup_840__CLASS_SOURCE_PATTERN_OR; struct MELT_OBJECT_STRUCT (3) dsym_841__ORPAT_DISJ; struct MELT_STRING_STRUCT (10) dstr_842__ORPAT_DISJ; struct MELT_OBJECT_STRUCT (4) dobj_843__ORPAT_DISJ; struct MELT_STRING_STRUCT (10) dstr_844__ORPAT_DISJ; struct MELT_OBJECT_STRUCT (3) dsym_845__CLASS_SOURCE_PATTERN_AND; struct MELT_STRING_STRUCT (24) dstr_846__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_847__CLASS_SOURCE_PATTERN_AND; struct MELT_STRING_STRUCT (24) dstr_848__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_849__CLASS_SOURCE_PATTERN_AND; struct MELT_MULTIPLE_STRUCT (4) dtup_850__CLASS_SOURCE_PATTERN_AND; struct MELT_OBJECT_STRUCT (3) dsym_851__ANDPAT_CONJ; struct MELT_STRING_STRUCT (11) dstr_852__ANDPAT_CONJ; struct MELT_OBJECT_STRUCT (4) dobj_853__ANDPAT_CONJ; struct MELT_STRING_STRUCT (11) dstr_854__ANDPAT_CONJ; struct MELT_OBJECT_STRUCT (3) dsym_855__CLASS_SOURCE_PATTERN_WHEN; struct MELT_STRING_STRUCT (25) dstr_856__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_857__CLASS_SOURCE_PATTERN_WHEN; struct MELT_STRING_STRUCT (25) dstr_858__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_859__CLASS_SOURCE_PATTERN_WHEN; struct MELT_MULTIPLE_STRUCT (5) dtup_860__CLASS_SOURCE_PATTERN_WHEN; struct MELT_OBJECT_STRUCT (3) dsym_861__WHENPAT_SUBPAT; struct MELT_STRING_STRUCT (14) dstr_862__WHENPAT_SUBPAT; struct MELT_OBJECT_STRUCT (4) dobj_863__WHENPAT_SUBPAT; struct MELT_STRING_STRUCT (14) dstr_864__WHENPAT_SUBPAT; struct MELT_OBJECT_STRUCT (3) dsym_865__WHENPAT_COND; struct MELT_STRING_STRUCT (12) dstr_866__WHENPAT_COND; struct MELT_OBJECT_STRUCT (4) dobj_867__WHENPAT_COND; struct MELT_STRING_STRUCT (12) dstr_868__WHENPAT_COND; struct MELT_OBJECT_STRUCT (3) dsym_869__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_STRING_STRUCT (29) dstr_870__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_871__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_STRING_STRUCT (29) dstr_872__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_873__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_MULTIPLE_STRUCT (5) dtup_874__CLASS_SOURCE_PATTERN_VARIABLE; struct MELT_OBJECT_STRUCT (3) dsym_875__SPATVAR_SYMB; struct MELT_STRING_STRUCT (12) dstr_876__SPATVAR_SYMB; struct MELT_OBJECT_STRUCT (4) dobj_877__SPATVAR_SYMB; struct MELT_STRING_STRUCT (12) dstr_878__SPATVAR_SYMB; struct MELT_OBJECT_STRUCT (3) dsym_879__SPATVAR_NBOCC; struct MELT_STRING_STRUCT (13) dstr_880__SPATVAR_NBOCC; struct MELT_OBJECT_STRUCT (4) dobj_881__SPATVAR_NBOCC; struct MELT_STRING_STRUCT (13) dstr_882__SPATVAR_NBOCC; struct MELT_OBJECT_STRUCT (3) dsym_883__SPAT_VAR; struct MELT_STRING_STRUCT (8) dstr_884__SPAT_VAR; struct MELT_OBJECT_STRUCT (3) dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_STRING_STRUCT (35) dstr_886__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_STRING_STRUCT (35) dstr_888__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (6) dtup_889__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_MULTIPLE_STRUCT (5) dtup_890__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; struct MELT_OBJECT_STRUCT (3) dsym_891__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_STRING_STRUCT (29) dstr_892__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_893__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_STRING_STRUCT (29) dstr_894__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_895__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_MULTIPLE_STRUCT (4) dtup_896__CLASS_SOURCE_PATTERN_CONSTANT; struct MELT_OBJECT_STRUCT (3) dsym_897__SPAT_CONSTX; struct MELT_STRING_STRUCT (11) dstr_898__SPAT_CONSTX; struct MELT_OBJECT_STRUCT (4) dobj_899__SPAT_CONSTX; struct MELT_STRING_STRUCT (11) dstr_900__SPAT_CONSTX; struct MELT_OBJECT_STRUCT (3) dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_STRING_STRUCT (30) dstr_902__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_STRING_STRUCT (30) dstr_904__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_905__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_MULTIPLE_STRUCT (4) dtup_906__CLASS_SOURCE_PATTERN_CONSTRUCT; struct MELT_OBJECT_STRUCT (3) dsym_907__CTPAT_SUBPA; struct MELT_STRING_STRUCT (11) dstr_908__CTPAT_SUBPA; struct MELT_OBJECT_STRUCT (4) dobj_909__CTPAT_SUBPA; struct MELT_STRING_STRUCT (11) dstr_910__CTPAT_SUBPA; struct MELT_OBJECT_STRUCT (3) dsym_911__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_STRING_STRUCT (26) dstr_912__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_913__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_STRING_STRUCT (26) dstr_914__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (6) dtup_915__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_MULTIPLE_STRUCT (4) dtup_916__CLASS_SOURCE_PATTERN_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_917__CLASS_SOURCE_PATTERN_LIST; struct MELT_STRING_STRUCT (25) dstr_918__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_919__CLASS_SOURCE_PATTERN_LIST; struct MELT_STRING_STRUCT (25) dstr_920__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (6) dtup_921__CLASS_SOURCE_PATTERN_LIST; struct MELT_MULTIPLE_STRUCT (4) dtup_922__CLASS_SOURCE_PATTERN_LIST; struct MELT_OBJECT_STRUCT (3) dsym_923__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_STRING_STRUCT (27) dstr_924__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_925__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_STRING_STRUCT (27) dstr_926__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (5) dtup_927__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_MULTIPLE_STRUCT (5) dtup_928__CLASS_SOURCE_PATTERN_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_929__SPAT_CLASS; struct MELT_STRING_STRUCT (10) dstr_930__SPAT_CLASS; struct MELT_OBJECT_STRUCT (4) dobj_931__SPAT_CLASS; struct MELT_STRING_STRUCT (10) dstr_932__SPAT_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_933__SPAT_FIELDS; struct MELT_STRING_STRUCT (11) dstr_934__SPAT_FIELDS; struct MELT_OBJECT_STRUCT (4) dobj_935__SPAT_FIELDS; struct MELT_STRING_STRUCT (11) dstr_936__SPAT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_937__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_STRING_STRUCT (29) dstr_938__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_939__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_STRING_STRUCT (29) dstr_940__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (6) dtup_941__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_MULTIPLE_STRUCT (5) dtup_942__CLASS_SOURCE_PATTERN_INSTANCE; struct MELT_OBJECT_STRUCT (3) dsym_943__CLASS_SOURCE_FIELD_PATTERN; struct MELT_STRING_STRUCT (26) dstr_944__CLASS_SOURCE_FIE; struct MELT_OBJECT_STRUCT (8) dobj_945__CLASS_SOURCE_FIELD_PATTERN; struct MELT_STRING_STRUCT (26) dstr_946__CLASS_SOURCE_FIE; struct MELT_MULTIPLE_STRUCT (4) dtup_947__CLASS_SOURCE_FIELD_PATTERN; struct MELT_MULTIPLE_STRUCT (4) dtup_948__CLASS_SOURCE_FIELD_PATTERN; struct MELT_OBJECT_STRUCT (3) dsym_949__SPAF_FIELD; struct MELT_STRING_STRUCT (10) dstr_950__SPAF_FIELD; struct MELT_OBJECT_STRUCT (4) dobj_951__SPAF_FIELD; struct MELT_STRING_STRUCT (10) dstr_952__SPAF_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_953__SPAF_PATTERN; struct MELT_STRING_STRUCT (12) dstr_954__SPAF_PATTERN; struct MELT_OBJECT_STRUCT (4) dobj_955__SPAF_PATTERN; struct MELT_STRING_STRUCT (12) dstr_956__SPAF_PATTERN; struct MELT_OBJECT_STRUCT (3) dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_STRING_STRUCT (30) dstr_958__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_STRING_STRUCT (30) dstr_960__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (6) dtup_961__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_MULTIPLE_STRUCT (9) dtup_962__CLASS_SOURCE_PATTERN_COMPOSITE; struct MELT_OBJECT_STRUCT (3) dsym_963__SPAC_OPERATOR; struct MELT_STRING_STRUCT (13) dstr_964__SPAC_OPERATOR; struct MELT_OBJECT_STRUCT (4) dobj_965__SPAC_OPERATOR; struct MELT_STRING_STRUCT (13) dstr_966__SPAC_OPERATOR; struct MELT_OBJECT_STRUCT (3) dsym_967__SPAC_OPERBIND; struct MELT_STRING_STRUCT (13) dstr_968__SPAC_OPERBIND; struct MELT_OBJECT_STRUCT (4) dobj_969__SPAC_OPERBIND; struct MELT_STRING_STRUCT (13) dstr_970__SPAC_OPERBIND; struct MELT_OBJECT_STRUCT (3) dsym_971__SPAC_INARGS; struct MELT_STRING_STRUCT (11) dstr_972__SPAC_INARGS; struct MELT_OBJECT_STRUCT (4) dobj_973__SPAC_INARGS; struct MELT_STRING_STRUCT (11) dstr_974__SPAC_INARGS; struct MELT_OBJECT_STRUCT (3) dsym_975__SPAC_OUTARGS; struct MELT_STRING_STRUCT (12) dstr_976__SPAC_OUTARGS; struct MELT_OBJECT_STRUCT (4) dobj_977__SPAC_OUTARGS; struct MELT_STRING_STRUCT (12) dstr_978__SPAC_OUTARGS; struct MELT_OBJECT_STRUCT (3) dsym_979__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_STRING_STRUCT (28) dstr_980__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_981__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_STRING_STRUCT (28) dstr_982__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (7) dtup_983__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_MULTIPLE_STRUCT (9) dtup_984__CLASS_SOURCE_PATTERN_MATCHER; struct MELT_OBJECT_STRUCT (3) dsym_985__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_STRING_STRUCT (28) dstr_986__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_987__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_STRING_STRUCT (28) dstr_988__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (8) dtup_989__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_MULTIPLE_STRUCT (9) dtup_990__CLASS_SOURCE_PATTERN_C_MATCH; struct MELT_OBJECT_STRUCT (3) dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_STRING_STRUCT (30) dstr_992__CLASS_SOURCE_PAT; struct MELT_OBJECT_STRUCT (8) dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_STRING_STRUCT (30) dstr_994__CLASS_SOURCE_PAT; struct MELT_MULTIPLE_STRUCT (8) dtup_995__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_MULTIPLE_STRUCT (9) dtup_996__CLASS_SOURCE_PATTERN_FUN_MATCH; struct MELT_ROUTINE_STRUCT (1) drout_997__EXPAND_RESTLIST_AS_LIST; struct MELT_CLOSURE_STRUCT (0) dclo_998__EXPAND_RESTLIST_AS_LIST; struct MELT_OBJECT_STRUCT (3) dsym_999__CLASS_ENVIRONMENT; struct MELT_STRING_STRUCT (17) dstr_1000__CLASS_ENVIRONMEN; struct MELT_ROUTINE_STRUCT (4) drout_1001__EXPAND_RESTLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1002__EXPAND_RESTLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_1003__LIST_TO_MULTIPLE; struct MELT_STRING_STRUCT (16) dstr_1004__LIST_TO_MULTIPLE; struct MELT_OBJECT_STRUCT (3) dsym_1005__DISCR_MULTIPLE; struct MELT_STRING_STRUCT (14) dstr_1006__DISCR_MULTIPLE; struct MELT_ROUTINE_STRUCT (1) drout_1007__EXPAND_PAIRLIST_AS_LIST; struct MELT_CLOSURE_STRUCT (0) dclo_1008__EXPAND_PAIRLIST_AS_LIST; struct MELT_ROUTINE_STRUCT (4) drout_1009__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1010__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_ROUTINE_STRUCT (5) drout_1011__REGISTER_GENERATOR_DEVICE; struct MELT_CLOSURE_STRUCT (0) dclo_1012__REGISTER_GENERATOR_DEVICE; struct MELT_OBJECT_STRUCT (3) dsym_1013__MELT_DEBUG_FUN; struct MELT_STRING_STRUCT (14) dstr_1014__MELT_DEBUG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_1015__CLASS_MODULE_CONTEXT; struct MELT_STRING_STRUCT (20) dstr_1016__CLASS_MODULE_CON; struct MELT_OBJECT_STRUCT (3) dsym_1017__CLASS_LOCATED; struct MELT_STRING_STRUCT (13) dstr_1018__CLASS_LOCATED; struct MELT_ROUTINE_STRUCT (4) drout_1019__EXPAND_APPLY; struct MELT_CLOSURE_STRUCT (0) dclo_1020__EXPAND_APPLY; struct MELT_OBJECT_STRUCT (3) dsym_1021__CLASS_SEXPR; struct MELT_STRING_STRUCT (11) dstr_1022__CLASS_SEXPR; struct MELT_ROUTINE_STRUCT (7) drout_1023__EXPAND_MSEND; struct MELT_CLOSURE_STRUCT (0) dclo_1024__EXPAND_MSEND; struct MELT_OBJECT_STRUCT (3) dsym_1025__CLASS_SYMBOL; struct MELT_STRING_STRUCT (12) dstr_1026__CLASS_SYMBOL; struct MELT_ROUTINE_STRUCT (9) drout_1027__EXPAND_FIELDEXPR; struct MELT_CLOSURE_STRUCT (0) dclo_1028__EXPAND_FIELDEXPR; struct MELT_OBJECT_STRUCT (3) dsym_1029__CLASS_FIELD; struct MELT_STRING_STRUCT (11) dstr_1030__CLASS_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_1031__CLASS_KEYWORD; struct MELT_STRING_STRUCT (13) dstr_1032__CLASS_KEYWORD; struct MELT_OBJECT_STRUCT (3) dsym_1033__CLASS_NAMED; struct MELT_STRING_STRUCT (11) dstr_1034__CLASS_NAMED; struct MELT_ROUTINE_STRUCT (11) drout_1035__EXPAND_CITERATION; struct MELT_CLOSURE_STRUCT (0) dclo_1036__EXPAND_CITERATION; struct MELT_OBJECT_STRUCT (3) dsym_1037__CLASS_CITERATOR; struct MELT_STRING_STRUCT (15) dstr_1038__CLASS_CITERATOR; struct MELT_OBJECT_STRUCT (3) dsym_1039__FRESH_ENV; struct MELT_STRING_STRUCT (9) dstr_1040__FRESH_ENV; struct MELT_OBJECT_STRUCT (3) dsym_1041__MULTIPLE_EVERY; struct MELT_STRING_STRUCT (14) dstr_1042__MULTIPLE_EVERY; struct MELT_ROUTINE_STRUCT (1) drout_1043__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1044__PUT_ENV; struct MELT_STRING_STRUCT (7) dstr_1045__PUT_ENV; struct MELT_ROUTINE_STRUCT (6) drout_1046__EXPAND_CMATCHEXPR; struct MELT_CLOSURE_STRUCT (0) dclo_1047__EXPAND_CMATCHEXPR; struct MELT_OBJECT_STRUCT (3) dsym_1048__CLASS_CMATCHER; struct MELT_STRING_STRUCT (14) dstr_1049__CLASS_CMATCHER; struct MELT_ROUTINE_STRUCT (6) drout_1050__EXPAND_FUNMATCHEXPR; struct MELT_CLOSURE_STRUCT (0) dclo_1051__EXPAND_FUNMATCHEXPR; struct MELT_OBJECT_STRUCT (3) dsym_1052__CLASS_FUNMATCHER; struct MELT_STRING_STRUCT (16) dstr_1053__CLASS_FUNMATCHER; struct MELT_ROUTINE_STRUCT (5) drout_1054__EXPAND_KEYWORDFUN; struct MELT_CLOSURE_STRUCT (0) dclo_1055__EXPAND_KEYWORDFUN; struct MELT_ROUTINE_STRUCT (34) drout_1056__MACROEXPAND_1; struct MELT_CLOSURE_STRUCT (0) dclo_1057__MACROEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_1058__FIND_ENV; struct MELT_STRING_STRUCT (8) dstr_1059__FIND_ENV; struct MELT_OBJECT_STRUCT (3) dsym_1060__CLASS_MACRO_BINDING; struct MELT_STRING_STRUCT (19) dstr_1061__CLASS_MACRO_BIND; struct MELT_OBJECT_STRUCT (3) dsym_1062__CLASS_SELECTOR_BINDING; struct MELT_STRING_STRUCT (22) dstr_1063__CLASS_SELECTOR_B; struct MELT_OBJECT_STRUCT (3) dsym_1064__CLASS_PRIMITIVE_BINDING; struct MELT_STRING_STRUCT (23) dstr_1065__CLASS_PRIMITIVE_; struct MELT_OBJECT_STRUCT (3) dsym_1066__CLASS_CITERATOR_BINDING; struct MELT_STRING_STRUCT (23) dstr_1067__CLASS_CITERATOR_; struct MELT_OBJECT_STRUCT (3) dsym_1068__CLASS_CMATCHER_BINDING; struct MELT_STRING_STRUCT (22) dstr_1069__CLASS_CMATCHER_B; struct MELT_OBJECT_STRUCT (3) dsym_1070__CLASS_FUNMATCHER_BINDING; struct MELT_STRING_STRUCT (24) dstr_1071__CLASS_FUNMATCHER; struct MELT_OBJECT_STRUCT (3) dsym_1072__CLASS_FIELD_BINDING; struct MELT_STRING_STRUCT (19) dstr_1073__CLASS_FIELD_BIND; struct MELT_OBJECT_STRUCT (3) dsym_1074__CLASS_FORMAL_BINDING; struct MELT_STRING_STRUCT (20) dstr_1075__CLASS_FORMAL_BIN; struct MELT_OBJECT_STRUCT (3) dsym_1076__CLASS_LET_BINDING; struct MELT_STRING_STRUCT (17) dstr_1077__CLASS_LET_BINDIN; struct MELT_OBJECT_STRUCT (3) dsym_1078__CLASS_VALUE_BINDING; struct MELT_STRING_STRUCT (19) dstr_1079__CLASS_VALUE_BIND; struct MELT_OBJECT_STRUCT (3) dsym_1080__CLASS_PRIMITIVE; struct MELT_STRING_STRUCT (15) dstr_1081__CLASS_PRIMITIVE; struct MELT_ROUTINE_STRUCT (0) drout_1082__LAMBDA_; struct MELT_ROUTINE_STRUCT (5) drout_1083__EXPAND_PRIMITIVE; struct MELT_CLOSURE_STRUCT (0) dclo_1084__EXPAND_PRIMITIVE; struct MELT_OBJECT_STRUCT (3) dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_STRING_STRUCT (31) dstr_1086__CLASS_PATTERN_EX; struct MELT_OBJECT_STRUCT (3) dsym_1087__CLASS_ROOT; struct MELT_STRING_STRUCT (10) dstr_1088__CLASS_ROOT; struct MELT_OBJECT_STRUCT (8) dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_STRING_STRUCT (31) dstr_1090__CLASS_PATTERN_EX; struct MELT_MULTIPLE_STRUCT (1) dtup_1091__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_MULTIPLE_STRUCT (4) dtup_1092__CLASS_PATTERN_EXPANSION_CONTEXT; struct MELT_OBJECT_STRUCT (3) dsym_1093__PCTX_MEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1094__PCTX_MEXPANDER; struct MELT_OBJECT_STRUCT (4) dobj_1095__PCTX_MEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1096__PCTX_MEXPANDER; struct MELT_OBJECT_STRUCT (3) dsym_1097__PCTX_PEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1098__PCTX_PEXPANDER; struct MELT_OBJECT_STRUCT (4) dobj_1099__PCTX_PEXPANDER; struct MELT_STRING_STRUCT (14) dstr_1100__PCTX_PEXPANDER; struct MELT_OBJECT_STRUCT (3) dsym_1101__PCTX_VARMAP; struct MELT_STRING_STRUCT (11) dstr_1102__PCTX_VARMAP; struct MELT_OBJECT_STRUCT (4) dobj_1103__PCTX_VARMAP; struct MELT_STRING_STRUCT (11) dstr_1104__PCTX_VARMAP; struct MELT_OBJECT_STRUCT (3) dsym_1105__PCTX_MODCTX; struct MELT_STRING_STRUCT (11) dstr_1106__PCTX_MODCTX; struct MELT_OBJECT_STRUCT (4) dobj_1107__PCTX_MODCTX; struct MELT_STRING_STRUCT (11) dstr_1108__PCTX_MODCTX; struct MELT_ROUTINE_STRUCT (5) drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1110__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_1111__PAIRLIST_TO_MULTIPLE; struct MELT_STRING_STRUCT (20) dstr_1112__PAIRLIST_TO_MULT; struct MELT_ROUTINE_STRUCT (1) drout_1113__LAMBDA_; struct MELT_ROUTINE_STRUCT (15) drout_1114__PATMACEXPAND_FOR_MATCHER; struct MELT_CLOSURE_STRUCT (0) dclo_1115__PATMACEXPAND_FOR_MATCHER; struct MELT_OBJECT_STRUCT (3) dsym_1116__CLASS_ANY_MATCHER; struct MELT_STRING_STRUCT (17) dstr_1117__CLASS_ANY_MATCHE; struct MELT_OBJECT_STRUCT (3) dsym_1118__CLASS_REFERENCE; struct MELT_STRING_STRUCT (15) dstr_1119__CLASS_REFERENCE; struct MELT_OBJECT_STRUCT (3) dsym_1120__MULTIPLE_MAP; struct MELT_STRING_STRUCT (12) dstr_1121__MULTIPLE_MAP; struct MELT_ROUTINE_STRUCT (3) drout_1122__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_1123__LAMBDA_; struct MELT_ROUTINE_STRUCT (5) drout_1124__PATTERN_WEIGHT_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1125__PATTERN_WEIGHT_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_1126__DISCR_INTEGER; struct MELT_STRING_STRUCT (13) dstr_1127__DISCR_INTEGER; struct MELT_ROUTINE_STRUCT (2) drout_1128__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1129__DISCR_CONSTANT_INTEGER; struct MELT_STRING_STRUCT (22) dstr_1130__DISCR_CONSTANT_I; struct MELT_ROUTINE_STRUCT (19) drout_1131__PATTERNEXPAND_EXPR; struct MELT_CLOSURE_STRUCT (0) dclo_1132__PATTERNEXPAND_EXPR; struct MELT_OBJECT_STRUCT (3) dsym_1133__CLASS_PATMACRO_BINDING; struct MELT_STRING_STRUCT (22) dstr_1134__CLASS_PATMACRO_B; struct MELT_ROUTINE_STRUCT (16) drout_1135__PATTERNEXPAND_1; struct MELT_CLOSURE_STRUCT (0) dclo_1136__PATTERNEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_1137__QUESTION; struct MELT_STRING_STRUCT (8) dstr_1138__QUESTION; struct meltint_st dint_1139__; struct MELT_OBJECT_STRUCT (3) dsym_1140__; struct MELT_STRING_STRUCT (1) dstr_1141__; struct meltint_st dint_1142__; struct meltint_st dint_1143__; struct meltint_st dint_1144__; struct MELT_ROUTINE_STRUCT (5) drout_1145__MACROEXPAND_TOPLEVEL_LIST; struct MELT_CLOSURE_STRUCT (0) dclo_1146__MACROEXPAND_TOPLEVEL_LIST; struct MELT_OBJECT_STRUCT (3) dsym_1147__DISCR_LIST; struct MELT_STRING_STRUCT (10) dstr_1148__DISCR_LIST; struct MELT_ROUTINE_STRUCT (15) drout_1149__LAMBDA_ARG_BINDINGS; struct MELT_CLOSURE_STRUCT (0) dclo_1150__LAMBDA_ARG_BINDINGS; struct MELT_OBJECT_STRUCT (3) dsym_1151__CTYPE_VALUE; struct MELT_STRING_STRUCT (11) dstr_1152__CTYPE_VALUE; struct MELT_OBJECT_STRUCT (3) dsym_1153__DISCR_MAP_OBJECTS; struct MELT_STRING_STRUCT (17) dstr_1154__DISCR_MAP_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_1155__DISCR_FORMAL_SEQUENCE; struct MELT_STRING_STRUCT (21) dstr_1156__DISCR_FORMAL_SEQ; struct MELT_OBJECT_STRUCT (3) dsym_1157__REST; struct MELT_STRING_STRUCT (4) dstr_1158__REST; struct MELT_OBJECT_STRUCT (3) dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE; struct MELT_STRING_STRUCT (30) dstr_1160__DISCR_VARIADIC_F; struct MELT_OBJECT_STRUCT (3) dsym_1161__CLASS_CTYPE; struct MELT_STRING_STRUCT (11) dstr_1162__CLASS_CTYPE; struct MELT_OBJECT_STRUCT (3) dsym_1163__CLASS_ANY_BINDING; struct MELT_STRING_STRUCT (17) dstr_1164__CLASS_ANY_BINDIN; struct MELT_ROUTINE_STRUCT (5) drout_1165__INSTALL_INITIAL_MACRO; struct MELT_CLOSURE_STRUCT (0) dclo_1166__INSTALL_INITIAL_MACRO; struct MELT_OBJECT_STRUCT (3) dsym_1167__INITIAL_ENVIRONMENT; struct MELT_STRING_STRUCT (19) dstr_1168__INITIAL_ENVIRONM; struct MELT_ROUTINE_STRUCT (5) drout_1169__INSTALL_INITIAL_PATMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_1170__INSTALL_INITIAL_PATMACRO; struct MELT_OBJECT_STRUCT (3) dsym_1171__WARN_SHADOW; struct MELT_STRING_STRUCT (11) dstr_1172__WARN_SHADOW; struct MELT_OBJECT_STRUCT (5) dobj_1173__WARN_SHADOW; struct MELT_MULTIPLE_STRUCT (1) dtup_1174__WARN_SHADOW; struct MELT_MULTIPLE_STRUCT (0) dtup_1175__WARN_SHADOW; struct MELT_STRING_STRUCT (11) dstr_1176__warn_shadow; struct MELT_STRING_STRUCT (11) dstr_1177__WARN_SHADOW; struct MELT_ROUTINE_STRUCT (3) drout_1178__WARN_IF_REDEFINED; struct MELT_CLOSURE_STRUCT (0) dclo_1179__WARN_IF_REDEFINED; struct MELT_ROUTINE_STRUCT (6) drout_1180__FLATTEN_FOR_C_CODE_EXPANSION; struct MELT_CLOSURE_STRUCT (0) dclo_1181__FLATTEN_FOR_C_CODE_EXPANSION; struct MELT_OBJECT_STRUCT (3) dsym_1182__DISCR_VERBATIM_STRING; struct MELT_STRING_STRUCT (21) dstr_1183__DISCR_VERBATIM_S; struct MELT_ROUTINE_STRUCT (5) drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION; struct MELT_CLOSURE_STRUCT (0) dclo_1185__PARSE_PAIRLIST_C_CODE_EXPANSION; struct MELT_ROUTINE_STRUCT (4) drout_1186__CHECK_C_EXPANSION; struct MELT_CLOSURE_STRUCT (0) dclo_1187__CHECK_C_EXPANSION; struct MELT_ROUTINE_STRUCT (22) drout_1188__MEXPAND_DEFPRIMITIVE; struct MELT_CLOSURE_STRUCT (0) dclo_1189__MEXPAND_DEFPRIMITIVE; struct MELT_OBJECT_STRUCT (3) dsym_1190__DOC; struct MELT_STRING_STRUCT (3) dstr_1191__DOC; struct MELT_OBJECT_STRUCT (3) dsym_1192__DEFPRIMITIVE; struct MELT_STRING_STRUCT (12) dstr_1193__DEFPRIMITIVE; struct MELT_ROUTINE_STRUCT (19) drout_1194__MEXPAND_DEFCITERATOR; struct MELT_CLOSURE_STRUCT (0) dclo_1195__MEXPAND_DEFCITERATOR; struct MELT_OBJECT_STRUCT (3) dsym_1196__DEFCITERATOR; struct MELT_STRING_STRUCT (12) dstr_1197__DEFCITERATOR; struct MELT_ROUTINE_STRUCT (21) drout_1198__MEXPAND_DEFCMATCHER; struct MELT_CLOSURE_STRUCT (0) dclo_1199__MEXPAND_DEFCMATCHER; struct MELT_ROUTINE_STRUCT (0) drout_1200__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1201__DEFCMATCHER; struct MELT_STRING_STRUCT (11) dstr_1202__DEFCMATCHER; struct MELT_ROUTINE_STRUCT (15) drout_1203__MEXPAND_DEFUNMATCHER; struct MELT_CLOSURE_STRUCT (0) dclo_1204__MEXPAND_DEFUNMATCHER; struct MELT_ROUTINE_STRUCT (0) drout_1205__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1206__DEFUNMATCHER; struct MELT_STRING_STRUCT (12) dstr_1207__DEFUNMATCHER; struct MELT_ROUTINE_STRUCT (16) drout_1208__MEXPAND_DEFUN; struct MELT_CLOSURE_STRUCT (0) dclo_1209__MEXPAND_DEFUN; struct MELT_OBJECT_STRUCT (3) dsym_1210__CLASS_FUNCTION_BINDING; struct MELT_STRING_STRUCT (22) dstr_1211__CLASS_FUNCTION_B; struct MELT_ROUTINE_STRUCT (1) drout_1212__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1213__DEFUN; struct MELT_STRING_STRUCT (5) dstr_1214__DEFUN; struct MELT_ROUTINE_STRUCT (22) drout_1215__MEXPAND_DEFINE; struct MELT_CLOSURE_STRUCT (0) dclo_1216__MEXPAND_DEFINE; struct MELT_OBJECT_STRUCT (3) dsym_1217__CLASS_DEFINED_VALUE_BINDING; struct MELT_STRING_STRUCT (27) dstr_1218__CLASS_DEFINED_VA; struct MELT_OBJECT_STRUCT (3) dsym_1219__TRUE; struct MELT_STRING_STRUCT (4) dstr_1220__TRUE; struct MELT_ROUTINE_STRUCT (1) drout_1221__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1222__DEFINE; struct MELT_STRING_STRUCT (6) dstr_1223__DEFINE; struct MELT_ROUTINE_STRUCT (14) drout_1224__SCAN_DEFCLASS; struct MELT_CLOSURE_STRUCT (0) dclo_1225__SCAN_DEFCLASS; struct MELT_OBJECT_STRUCT (3) dsym_1226__SUPER; struct MELT_STRING_STRUCT (5) dstr_1227__SUPER; struct MELT_OBJECT_STRUCT (3) dsym_1228__CLASS_CLASS_BINDING; struct MELT_STRING_STRUCT (19) dstr_1229__CLASS_CLASS_BIND; struct MELT_OBJECT_STRUCT (3) dsym_1230__CLASS_CLASS; struct MELT_STRING_STRUCT (11) dstr_1231__CLASS_CLASS; struct MELT_OBJECT_STRUCT (3) dsym_1232__FIELDS; struct MELT_STRING_STRUCT (6) dstr_1233__FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_1234__PREDEF; struct MELT_STRING_STRUCT (6) dstr_1235__PREDEF; struct MELT_ROUTINE_STRUCT (27) drout_1236__MEXPAND_DEFCLASS; struct MELT_CLOSURE_STRUCT (0) dclo_1237__MEXPAND_DEFCLASS; struct MELT_OBJECT_STRUCT (3) dsym_1238__DISCR_CLASS_SEQUENCE; struct MELT_STRING_STRUCT (20) dstr_1239__DISCR_CLASS_SEQU; struct MELT_OBJECT_STRUCT (3) dsym_1240__DISCR_MAP_STRINGS; struct MELT_STRING_STRUCT (17) dstr_1241__DISCR_MAP_STRING; struct MELT_OBJECT_STRUCT (3) dsym_1242__DISCR_FIELD_SEQUENCE; struct MELT_STRING_STRUCT (20) dstr_1243__DISCR_FIELD_SEQU; struct MELT_ROUTINE_STRUCT (1) drout_1244__LAMBDA_; struct MELT_ROUTINE_STRUCT (9) drout_1245__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1246__DEFCLASS; struct MELT_STRING_STRUCT (8) dstr_1247__DEFCLASS; struct MELT_ROUTINE_STRUCT (14) drout_1248__PARSE_FIELD_ASSIGNMENT; struct MELT_CLOSURE_STRUCT (0) dclo_1249__PARSE_FIELD_ASSIGNMENT; struct MELT_OBJECT_STRUCT (3) dsym_1250__MULTIPLE_ITERATE_TEST; struct MELT_STRING_STRUCT (21) dstr_1251__MULTIPLE_ITERATE; struct MELT_ROUTINE_STRUCT (3) drout_1252__LAMBDA_; struct MELT_ROUTINE_STRUCT (20) drout_1253__MEXPAND_DEFINSTANCE; struct MELT_CLOSURE_STRUCT (0) dclo_1254__MEXPAND_DEFINSTANCE; struct MELT_OBJECT_STRUCT (3) dsym_1255__CLASS_INSTANCE_BINDING; struct MELT_STRING_STRUCT (22) dstr_1256__CLASS_INSTANCE_B; struct MELT_OBJECT_STRUCT (3) dsym_1257__OBJ_NUM; struct MELT_STRING_STRUCT (7) dstr_1258__OBJ_NUM; struct MELT_OBJECT_STRUCT (3) dsym_1259__DEFINSTANCE; struct MELT_STRING_STRUCT (11) dstr_1260__DEFINSTANCE; struct MELT_ROUTINE_STRUCT (28) drout_1261__MEXPAND_DEFSELECTOR; struct MELT_CLOSURE_STRUCT (0) dclo_1262__MEXPAND_DEFSELECTOR; struct MELT_OBJECT_STRUCT (3) dsym_1263__MELT_MODE_REFERENCE; struct MELT_STRING_STRUCT (19) dstr_1264__MELT_MODE_REFERE; struct MELT_OBJECT_STRUCT (3) dsym_1265__FORMALS; struct MELT_STRING_STRUCT (7) dstr_1266__FORMALS; struct MELT_OBJECT_STRUCT (3) dsym_1267__DEFSELECTOR; struct MELT_STRING_STRUCT (11) dstr_1268__DEFSELECTOR; struct MELT_ROUTINE_STRUCT (14) drout_1269__MEXPAND_INSTANCE; struct MELT_CLOSURE_STRUCT (0) dclo_1270__MEXPAND_INSTANCE; struct MELT_OBJECT_STRUCT (3) dsym_1271__INSTANCE; struct MELT_STRING_STRUCT (8) dstr_1272__INSTANCE; struct MELT_ROUTINE_STRUCT (8) drout_1273__MEXPAND_LOAD; struct MELT_CLOSURE_STRUCT (0) dclo_1274__MEXPAND_LOAD; struct MELT_OBJECT_STRUCT (3) dsym_1275__LOAD; struct MELT_STRING_STRUCT (4) dstr_1276__LOAD; struct MELT_ROUTINE_STRUCT (13) drout_1277__PARSE_FIELD_PATTERN; struct MELT_CLOSURE_STRUCT (0) dclo_1278__PARSE_FIELD_PATTERN; struct MELT_ROUTINE_STRUCT (2) drout_1279__LAMBDA_; struct MELT_ROUTINE_STRUCT (20) drout_1280__PATEXPAND_INSTANCE; struct MELT_CLOSURE_STRUCT (0) dclo_1281__PATEXPAND_INSTANCE; struct MELT_ROUTINE_STRUCT (1) drout_1282__LAMBDA_; struct MELT_ROUTINE_STRUCT (20) drout_1283__PATEXPAND_OBJECT; struct MELT_CLOSURE_STRUCT (0) dclo_1284__PATEXPAND_OBJECT; struct MELT_ROUTINE_STRUCT (1) drout_1285__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_1286__MEXPAND_OBJECT; struct MELT_CLOSURE_STRUCT (0) dclo_1287__MEXPAND_OBJECT; struct MELT_OBJECT_STRUCT (3) dsym_1288__OBJECT; struct MELT_STRING_STRUCT (6) dstr_1289__OBJECT; struct MELT_ROUTINE_STRUCT (10) drout_1290__MEXPAND_CODE_CHUNK; struct MELT_CLOSURE_STRUCT (0) dclo_1291__MEXPAND_CODE_CHUNK; struct MELT_OBJECT_STRUCT (3) dsym_1292__CODE_CHUNK; struct MELT_STRING_STRUCT (10) dstr_1293__CODE_CHUNK; struct MELT_ROUTINE_STRUCT (9) drout_1294__MEXPAND_UNSAFE_PUT_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_1295__MEXPAND_UNSAFE_PUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_1296__UNSAFE_PUT_FIELDS; struct MELT_STRING_STRUCT (17) dstr_1297__UNSAFE_PUT_FIELD; struct MELT_ROUTINE_STRUCT (9) drout_1298__MEXPAND_PUT_FIELDS; struct MELT_CLOSURE_STRUCT (0) dclo_1299__MEXPAND_PUT_FIELDS; struct MELT_OBJECT_STRUCT (3) dsym_1300__PUT_FIELDS; struct MELT_STRING_STRUCT (10) dstr_1301__PUT_FIELDS; struct MELT_ROUTINE_STRUCT (6) drout_1302__MEXPAND_UNSAFE_GET_FIELD; struct MELT_CLOSURE_STRUCT (0) dclo_1303__MEXPAND_UNSAFE_GET_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_1304__UNSAFE_GET_FIELD; struct MELT_STRING_STRUCT (16) dstr_1305__UNSAFE_GET_FIELD; struct MELT_ROUTINE_STRUCT (6) drout_1306__MEXPAND_GET_FIELD; struct MELT_CLOSURE_STRUCT (0) dclo_1307__MEXPAND_GET_FIELD; struct MELT_OBJECT_STRUCT (3) dsym_1308__GET_FIELD; struct MELT_STRING_STRUCT (9) dstr_1309__GET_FIELD; struct MELT_ROUTINE_STRUCT (6) drout_1310__PAIRLIST_TO_PROGN; struct MELT_CLOSURE_STRUCT (0) dclo_1311__PAIRLIST_TO_PROGN; struct MELT_ROUTINE_STRUCT (0) drout_1312__LAMBDA_; struct MELT_ROUTINE_STRUCT (5) drout_1313__MEXPAND_SETQ; struct MELT_CLOSURE_STRUCT (0) dclo_1314__MEXPAND_SETQ; struct MELT_OBJECT_STRUCT (3) dsym_1315__SETQ; struct MELT_STRING_STRUCT (4) dstr_1316__SETQ; struct MELT_ROUTINE_STRUCT (6) drout_1317__MEXPAND_IF; struct MELT_CLOSURE_STRUCT (0) dclo_1318__MEXPAND_IF; struct MELT_OBJECT_STRUCT (3) dsym_1319__IF; struct MELT_STRING_STRUCT (2) dstr_1320__IF; struct MELT_ROUTINE_STRUCT (6) drout_1321__MEXPAND_WHEN; struct MELT_CLOSURE_STRUCT (0) dclo_1322__MEXPAND_WHEN; struct MELT_OBJECT_STRUCT (3) dsym_1323__WHEN; struct MELT_STRING_STRUCT (4) dstr_1324__WHEN; struct MELT_ROUTINE_STRUCT (6) drout_1325__MEXPAND_UNLESS; struct MELT_CLOSURE_STRUCT (0) dclo_1326__MEXPAND_UNLESS; struct MELT_OBJECT_STRUCT (3) dsym_1327__UNLESS; struct MELT_STRING_STRUCT (6) dstr_1328__UNLESS; struct MELT_ROUTINE_STRUCT (6) drout_1329__MEXPAND_CPPIF; struct MELT_CLOSURE_STRUCT (0) dclo_1330__MEXPAND_CPPIF; struct MELT_OBJECT_STRUCT (3) dsym_1331__CPPIF; struct MELT_STRING_STRUCT (5) dstr_1332__CPPIF; struct MELT_ROUTINE_STRUCT (0) drout_1333__FILTERGCCVERSION; struct MELT_CLOSURE_STRUCT (0) dclo_1334__FILTERGCCVERSION; struct MELT_ROUTINE_STRUCT (6) drout_1335__MEXPAND_GCCIF; struct MELT_CLOSURE_STRUCT (0) dclo_1336__MEXPAND_GCCIF; struct MELT_OBJECT_STRUCT (3) dsym_1337__GCCIF; struct MELT_STRING_STRUCT (5) dstr_1338__GCCIF; struct MELT_ROUTINE_STRUCT (11) drout_1339__MEXPAND_COND; struct MELT_CLOSURE_STRUCT (0) dclo_1340__MEXPAND_COND; struct MELT_ROUTINE_STRUCT (1) drout_1341__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1342__ELSE; struct MELT_STRING_STRUCT (4) dstr_1343__ELSE; struct MELT_OBJECT_STRUCT (3) dsym_1344__COND; struct MELT_STRING_STRUCT (4) dstr_1345__COND; struct MELT_ROUTINE_STRUCT (8) drout_1346__MEXPAND_AND; struct MELT_CLOSURE_STRUCT (0) dclo_1347__MEXPAND_AND; struct MELT_ROUTINE_STRUCT (0) drout_1348__LAMBDA_; struct MELT_ROUTINE_STRUCT (10) drout_1349__PATEXPAND_AS; struct MELT_CLOSURE_STRUCT (0) dclo_1350__PATEXPAND_AS; struct MELT_ROUTINE_STRUCT (3) drout_1351__MEXPAND_AS; struct MELT_CLOSURE_STRUCT (0) dclo_1352__MEXPAND_AS; struct MELT_OBJECT_STRUCT (3) dsym_1353__AS; struct MELT_STRING_STRUCT (2) dstr_1354__AS; struct MELT_ROUTINE_STRUCT (4) drout_1355__PATEXPAND_WHEN; struct MELT_CLOSURE_STRUCT (0) dclo_1356__PATEXPAND_WHEN; struct MELT_ROUTINE_STRUCT (3) drout_1357__MEXPAND_WHEN; struct MELT_CLOSURE_STRUCT (0) dclo_1358__MEXPAND_WHEN; struct MELT_ROUTINE_STRUCT (8) drout_1359__PATEXPAND_AND; struct MELT_CLOSURE_STRUCT (0) dclo_1360__PATEXPAND_AND; struct MELT_OBJECT_STRUCT (3) dsym_1361__AND; struct MELT_STRING_STRUCT (3) dstr_1362__AND; struct MELT_ROUTINE_STRUCT (8) drout_1363__MEXPAND_OR; struct MELT_CLOSURE_STRUCT (0) dclo_1364__MEXPAND_OR; struct MELT_ROUTINE_STRUCT (0) drout_1365__LAMBDA_; struct MELT_ROUTINE_STRUCT (8) drout_1366__PATEXPAND_OR; struct MELT_CLOSURE_STRUCT (0) dclo_1367__PATEXPAND_OR; struct MELT_OBJECT_STRUCT (3) dsym_1368__OR; struct MELT_STRING_STRUCT (2) dstr_1369__OR; struct MELT_ROUTINE_STRUCT (14) drout_1370__MEXPAND_REFERENCE; struct MELT_CLOSURE_STRUCT (0) dclo_1371__MEXPAND_REFERENCE; struct MELT_OBJECT_STRUCT (3) dsym_1372__REFERENCED_VALUE; struct MELT_STRING_STRUCT (16) dstr_1373__REFERENCED_VALUE; struct MELT_ROUTINE_STRUCT (10) drout_1374__PATEXPAND_REFERENCE; struct MELT_CLOSURE_STRUCT (0) dclo_1375__PATEXPAND_REFERENCE; struct meltint_st dint_1376__; struct MELT_OBJECT_STRUCT (3) dsym_1377__REFERENCE; struct MELT_STRING_STRUCT (9) dstr_1378__REFERENCE; struct MELT_ROUTINE_STRUCT (4) drout_1379__MEXPANDOBSOLETE_CONTAINER; struct MELT_CLOSURE_STRUCT (0) dclo_1380__MEXPANDOBSOLETE_CONTAINER; struct MELT_ROUTINE_STRUCT (3) drout_1381__PATEXPANDOBSOLETE_CONTAINER; struct MELT_CLOSURE_STRUCT (0) dclo_1382__PATEXPANDOBSOLETE_CONTAINER; struct MELT_OBJECT_STRUCT (3) dsym_1383__CONTAINER; struct MELT_STRING_STRUCT (9) dstr_1384__CONTAINER; struct MELT_ROUTINE_STRUCT (13) drout_1385__MEXPAND_DEREF; struct MELT_CLOSURE_STRUCT (0) dclo_1386__MEXPAND_DEREF; struct MELT_OBJECT_STRUCT (3) dsym_1387__REFERENCED_VALUE; struct MELT_STRING_STRUCT (16) dstr_1388__REFERENCED_VALUE; struct MELT_OBJECT_STRUCT (3) dsym_1389__DEREF; struct MELT_STRING_STRUCT (5) dstr_1390__DEREF; struct MELT_ROUTINE_STRUCT (4) drout_1391__MEXPANDOBSOLETE_CONTENT; struct MELT_CLOSURE_STRUCT (0) dclo_1392__MEXPANDOBSOLETE_CONTENT; struct MELT_OBJECT_STRUCT (3) dsym_1393__CONTENT; struct MELT_STRING_STRUCT (7) dstr_1394__CONTENT; struct MELT_OBJECT_STRUCT (3) dsym_1395__EXCLAIM; struct MELT_STRING_STRUCT (7) dstr_1396__EXCLAIM; struct MELT_ROUTINE_STRUCT (14) drout_1397__MEXPAND_SET_REF; struct MELT_CLOSURE_STRUCT (0) dclo_1398__MEXPAND_SET_REF; struct MELT_OBJECT_STRUCT (3) dsym_1399__SET_REF; struct MELT_STRING_STRUCT (7) dstr_1400__SET_REF; struct MELT_ROUTINE_STRUCT (5) drout_1401__MEXPAND_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1402__MEXPAND_TUPLE; struct MELT_ROUTINE_STRUCT (6) drout_1403__PATEXPAND_TUPLE; struct MELT_CLOSURE_STRUCT (0) dclo_1404__PATEXPAND_TUPLE; struct MELT_OBJECT_STRUCT (3) dsym_1405__TUPLE; struct MELT_STRING_STRUCT (5) dstr_1406__TUPLE; struct MELT_ROUTINE_STRUCT (5) drout_1407__MEXPAND_LIST; struct MELT_CLOSURE_STRUCT (0) dclo_1408__MEXPAND_LIST; struct MELT_ROUTINE_STRUCT (6) drout_1409__PATEXPAND_LIST; struct MELT_CLOSURE_STRUCT (0) dclo_1410__PATEXPAND_LIST; struct MELT_OBJECT_STRUCT (3) dsym_1411__LIST; struct MELT_STRING_STRUCT (4) dstr_1412__LIST; struct MELT_ROUTINE_STRUCT (17) drout_1413__MEXPAND_MATCH; struct MELT_CLOSURE_STRUCT (0) dclo_1414__MEXPAND_MATCH; struct MELT_ROUTINE_STRUCT (1) drout_1415__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1416__MATCH; struct MELT_STRING_STRUCT (5) dstr_1417__MATCH; struct MELT_ROUTINE_STRUCT (13) drout_1418__MEXPAND_LETBINDING; struct MELT_CLOSURE_STRUCT (0) dclo_1419__MEXPAND_LETBINDING; struct MELT_OBJECT_STRUCT (3) dsym_1420__CLASS_FIXED_BINDING; struct MELT_STRING_STRUCT (19) dstr_1421__CLASS_FIXED_BIND; struct MELT_ROUTINE_STRUCT (17) drout_1422__MEXPAND_LET; struct MELT_CLOSURE_STRUCT (0) dclo_1423__MEXPAND_LET; struct MELT_ROUTINE_STRUCT (2) drout_1424__LAMBDA_; struct MELT_ROUTINE_STRUCT (3) drout_1425__LAMBDA_; struct MELT_ROUTINE_STRUCT (0) drout_1426__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1427__LET; struct MELT_STRING_STRUCT (3) dstr_1428__LET; struct MELT_ROUTINE_STRUCT (1) drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE; struct MELT_CLOSURE_STRUCT (0) dclo_1430__YES_RECURSIVELY_CONSTRUCTIBLE; struct MELT_OBJECT_STRUCT (3) dsym_1431__INSTALL_METHOD; struct MELT_STRING_STRUCT (14) dstr_1432__INSTALL_METHOD; struct MELT_ROUTINE_STRUCT (20) drout_1433__MEXPAND_LETREC; struct MELT_CLOSURE_STRUCT (0) dclo_1434__MEXPAND_LETREC; struct MELT_ROUTINE_STRUCT (1) drout_1435__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1436__CLASS_LETREC_BINDING; struct MELT_STRING_STRUCT (20) dstr_1437__CLASS_LETREC_BIN; struct MELT_ROUTINE_STRUCT (0) drout_1438__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1439__LETREC; struct MELT_STRING_STRUCT (6) dstr_1440__LETREC; struct MELT_ROUTINE_STRUCT (10) drout_1441__MEXPAND_LAMBDA; struct MELT_CLOSURE_STRUCT (0) dclo_1442__MEXPAND_LAMBDA; struct MELT_ROUTINE_STRUCT (0) drout_1443__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1444__LAMBDA; struct MELT_STRING_STRUCT (6) dstr_1445__LAMBDA; struct MELT_ROUTINE_STRUCT (25) drout_1446__MEXPAND_VARIADIC; struct MELT_CLOSURE_STRUCT (0) dclo_1447__MEXPAND_VARIADIC; struct MELT_ROUTINE_STRUCT (2) drout_1448__LAMBDA_; struct MELT_ROUTINE_STRUCT (0) drout_1449__LAMBDA_; struct MELT_ROUTINE_STRUCT (0) drout_1450__LAMBDA_; struct MELT_ROUTINE_STRUCT (2) drout_1451__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1452__VARIADIC; struct MELT_STRING_STRUCT (8) dstr_1453__VARIADIC; struct MELT_ROUTINE_STRUCT (15) drout_1454__MEXPAND_MULTICALL; struct MELT_CLOSURE_STRUCT (0) dclo_1455__MEXPAND_MULTICALL; struct MELT_ROUTINE_STRUCT (1) drout_1456__LAMBDA_; struct MELT_ROUTINE_STRUCT (0) drout_1457__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1458__MULTICALL; struct MELT_STRING_STRUCT (9) dstr_1459__MULTICALL; struct MELT_ROUTINE_STRUCT (5) drout_1460__MEXPAND_QUOTE; struct MELT_CLOSURE_STRUCT (0) dclo_1461__MEXPAND_QUOTE; struct MELT_OBJECT_STRUCT (3) dsym_1462__QUOTE; struct MELT_STRING_STRUCT (5) dstr_1463__QUOTE; struct MELT_ROUTINE_STRUCT (3) drout_1464__MEXPAND_COMMENT; struct MELT_CLOSURE_STRUCT (0) dclo_1465__MEXPAND_COMMENT; struct MELT_OBJECT_STRUCT (3) dsym_1466__COMMENT; struct MELT_STRING_STRUCT (7) dstr_1467__COMMENT; struct MELT_ROUTINE_STRUCT (9) drout_1468__MEXPAND_CHEADER; struct MELT_CLOSURE_STRUCT (0) dclo_1469__MEXPAND_CHEADER; struct MELT_OBJECT_STRUCT (3) dsym_1470__CLASS_SEXPR_MACROSTRING; struct MELT_STRING_STRUCT (23) dstr_1471__CLASS_SEXPR_MACR; struct MELT_OBJECT_STRUCT (3) dsym_1472__DISCR_STRBUF; struct MELT_STRING_STRUCT (12) dstr_1473__DISCR_STRBUF; struct MELT_OBJECT_STRUCT (3) dsym_1474__ADD2OUT; struct MELT_STRING_STRUCT (7) dstr_1475__ADD2OUT; struct MELT_OBJECT_STRUCT (3) dsym_1476__CHEADER; struct MELT_STRING_STRUCT (7) dstr_1477__CHEADER; struct MELT_ROUTINE_STRUCT (8) drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_CLOSURE_STRUCT (0) dclo_1479__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_OBJECT_STRUCT (3) dsym_1480__DISCR_STRING; struct MELT_STRING_STRUCT (12) dstr_1481__DISCR_STRING; struct MELT_OBJECT_STRUCT (3) dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT (27) dstr_1483__USE_PACKAGE_FROM; struct MELT_OBJECT_STRUCT (3) dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG; struct MELT_STRING_STRUCT (27) dstr_1485__USE_PACKAGE_FROM; struct MELT_ROUTINE_STRUCT (5) drout_1486__PAIRLIST_TO_RETURN; struct MELT_CLOSURE_STRUCT (0) dclo_1487__PAIRLIST_TO_RETURN; struct MELT_ROUTINE_STRUCT (0) drout_1488__LAMBDA_; struct MELT_ROUTINE_STRUCT (2) drout_1489__MEXPAND_PROGN; struct MELT_CLOSURE_STRUCT (0) dclo_1490__MEXPAND_PROGN; struct MELT_OBJECT_STRUCT (3) dsym_1491__PROGN; struct MELT_STRING_STRUCT (5) dstr_1492__PROGN; struct MELT_ROUTINE_STRUCT (3) drout_1493__MEXPAND_RETURN; struct MELT_CLOSURE_STRUCT (0) dclo_1494__MEXPAND_RETURN; struct MELT_OBJECT_STRUCT (3) dsym_1495__RETURN; struct MELT_STRING_STRUCT (6) dstr_1496__RETURN; struct MELT_ROUTINE_STRUCT (10) drout_1497__MEXPAND_FOREVER; struct MELT_CLOSURE_STRUCT (0) dclo_1498__MEXPAND_FOREVER; struct MELT_OBJECT_STRUCT (3) dsym_1499__CLASS_LABEL_BINDING; struct MELT_STRING_STRUCT (19) dstr_1500__CLASS_LABEL_BIND; struct MELT_ROUTINE_STRUCT (0) drout_1501__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1502__FOREVER; struct MELT_STRING_STRUCT (7) dstr_1503__FOREVER; struct MELT_ROUTINE_STRUCT (10) drout_1504__MEXPAND_EXIT; struct MELT_CLOSURE_STRUCT (0) dclo_1505__MEXPAND_EXIT; struct MELT_ROUTINE_STRUCT (0) drout_1506__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1507__EXIT; struct MELT_STRING_STRUCT (4) dstr_1508__EXIT; struct MELT_ROUTINE_STRUCT (6) drout_1509__MEXPAND_AGAIN; struct MELT_CLOSURE_STRUCT (0) dclo_1510__MEXPAND_AGAIN; struct MELT_OBJECT_STRUCT (3) dsym_1511__AGAIN; struct MELT_STRING_STRUCT (5) dstr_1512__AGAIN; struct MELT_ROUTINE_STRUCT (4) drout_1513__MEXPAND_COMPILE_WARNING; struct MELT_CLOSURE_STRUCT (0) dclo_1514__MEXPAND_COMPILE_WARNING; struct MELT_OBJECT_STRUCT (3) dsym_1515__COMPILE_WARNING; struct MELT_STRING_STRUCT (15) dstr_1516__COMPILE_WARNING; struct MELT_ROUTINE_STRUCT (15) drout_1517__MEXPAND_ASSERT_MSG; struct MELT_CLOSURE_STRUCT (0) dclo_1518__MEXPAND_ASSERT_MSG; struct MELT_OBJECT_STRUCT (3) dsym_1519__ASSERT_FAILED; struct MELT_STRING_STRUCT (13) dstr_1520__ASSERT_FAILED; struct MELT_OBJECT_STRUCT (3) dsym_1521__FIND_ENV_DEBUG; struct MELT_STRING_STRUCT (14) dstr_1522__FIND_ENV_DEBUG; struct MELT_OBJECT_STRUCT (3) dsym_1523__MELT_HAVE_DEBUG; struct MELT_STRING_STRUCT (15) dstr_1524__MELT_HAVE_DEBUG; struct MELT_OBJECT_STRUCT (3) dsym_1525__ASSERT_MSG; struct MELT_STRING_STRUCT (10) dstr_1526__ASSERT_MSG; struct MELT_ROUTINE_STRUCT (11) drout_1527__MEXPAND_DEBUG_MSG; struct MELT_CLOSURE_STRUCT (0) dclo_1528__MEXPAND_DEBUG_MSG; struct MELT_OBJECT_STRUCT (3) dsym_1529__THE_MELTCALLCOUNT; struct MELT_STRING_STRUCT (17) dstr_1530__THE_MELTCALLCOUN; struct MELT_OBJECT_STRUCT (3) dsym_1531__DEBUG_MSG_FUN; struct MELT_STRING_STRUCT (13) dstr_1532__DEBUG_MSG_FUN; struct MELT_OBJECT_STRUCT (3) dsym_1533__DEBUG_MSG; struct MELT_STRING_STRUCT (9) dstr_1534__DEBUG_MSG; struct MELT_ROUTINE_STRUCT (24) drout_1535__MEXPAND_DEBUG; struct MELT_CLOSURE_STRUCT (0) dclo_1536__MEXPAND_DEBUG; struct MELT_OBJECT_STRUCT (3) dsym_1537__MELT_NEED_DBG; struct MELT_STRING_STRUCT (13) dstr_1538__MELT_NEED_DBG; struct MELT_OBJECT_STRUCT (3) dsym_1539__MELT_INCREMENT_DBGCOUNTER; struct MELT_STRING_STRUCT (25) dstr_1540__MELT_INCREMENT_D; struct MELT_OBJECT_STRUCT (3) dsym_1541__LIST_APPEND2LIST; struct MELT_STRING_STRUCT (16) dstr_1542__LIST_APPEND2LIST; struct meltint_st dint_1543__; struct MELT_OBJECT_STRUCT (3) dsym_1544__DEBUG; struct MELT_STRING_STRUCT (5) dstr_1545__DEBUG; struct MELT_ROUTINE_STRUCT (9) drout_1546__MEXPAND_EXPORT_VALUES; struct MELT_CLOSURE_STRUCT (0) dclo_1547__MEXPAND_EXPORT_VALUES; struct MELT_ROUTINE_STRUCT (2) drout_1548__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1549__EXPORT_VALUES; struct MELT_STRING_STRUCT (13) dstr_1550__EXPORT_VALUES; struct MELT_ROUTINE_STRUCT (6) drout_1551__MEXPAND_EXPORT_MACRO; struct MELT_CLOSURE_STRUCT (0) dclo_1552__MEXPAND_EXPORT_MACRO; struct MELT_OBJECT_STRUCT (3) dsym_1553__EXPORT_MACRO; struct MELT_STRING_STRUCT (12) dstr_1554__EXPORT_MACRO; struct MELT_ROUTINE_STRUCT (6) drout_1555__MEXPAND_EXPORT_PATMACRO; struct MELT_CLOSURE_STRUCT (0) dclo_1556__MEXPAND_EXPORT_PATMACRO; struct MELT_OBJECT_STRUCT (3) dsym_1557__EXPORT_PATMACRO; struct MELT_STRING_STRUCT (15) dstr_1558__EXPORT_PATMACRO; struct MELT_ROUTINE_STRUCT (9) drout_1559__MEXPAND_EXPORT_CLASS; struct MELT_CLOSURE_STRUCT (0) dclo_1560__MEXPAND_EXPORT_CLASS; struct MELT_ROUTINE_STRUCT (1) drout_1561__LAMBDA_; struct MELT_OBJECT_STRUCT (3) dsym_1562__EXPORT_CLASS; struct MELT_STRING_STRUCT (12) dstr_1563__EXPORT_CLASS; struct MELT_ROUTINE_STRUCT (7) drout_1564__MEXPAND_EXPORT_SYNONYM; struct MELT_CLOSURE_STRUCT (0) dclo_1565__MEXPAND_EXPORT_SYNONYM; struct MELT_OBJECT_STRUCT (3) dsym_1566__EXPORT_SYNONYM; struct MELT_STRING_STRUCT (14) dstr_1567__EXPORT_SYNONYM; struct MELT_ROUTINE_STRUCT (4) drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_CLOSURE_STRUCT (0) dclo_1569__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_OBJECT_STRUCT (3) dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (36) dstr_1571__CURRENT_MODULE_E; struct MELT_ROUTINE_STRUCT (5) drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT; struct MELT_CLOSURE_STRUCT (0) dclo_1573__MEXPAND_PARENT_MODULE_ENVIRONMENT; struct MELT_OBJECT_STRUCT (3) dsym_1574__PARENT_MODULE_ENVIRONMENT; struct MELT_STRING_STRUCT (25) dstr_1575__PARENT_MODULE_EN; struct MELT_ROUTINE_STRUCT (4) drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_CLOSURE_STRUCT (0) dclo_1577__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_OBJECT_STRUCT (3) dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct MELT_STRING_STRUCT (43) dstr_1579__UPDATE_CURRENT_M; struct MELT_ROUTINE_STRUCT (6) drout_1580__MEXPAND_FETCH_PREDEFINED; struct MELT_CLOSURE_STRUCT (0) dclo_1581__MEXPAND_FETCH_PREDEFINED; struct MELT_OBJECT_STRUCT (3) dsym_1582__FETCH_PREDEFINED; struct MELT_STRING_STRUCT (16) dstr_1583__FETCH_PREDEFINED; struct MELT_ROUTINE_STRUCT (6) drout_1584__MEXPAND_STORE_PREDEFINED; struct MELT_CLOSURE_STRUCT (0) dclo_1585__MEXPAND_STORE_PREDEFINED; struct MELT_OBJECT_STRUCT (3) dsym_1586__STORE_PREDEFINED; struct MELT_STRING_STRUCT (16) dstr_1587__STORE_PREDEFINED; struct MELT_OBJECT_STRUCT (3) dsym_1588__EXPAND_APPLY; struct MELT_STRING_STRUCT (12) dstr_1589__EXPAND_APPLY; struct MELT_OBJECT_STRUCT (3) dsym_1590__EXPAND_MSEND; struct MELT_STRING_STRUCT (12) dstr_1591__EXPAND_MSEND; struct MELT_OBJECT_STRUCT (3) dsym_1592__EXPAND_PAIRLIST_AS_TUPLE; struct MELT_STRING_STRUCT (24) dstr_1593__EXPAND_PAIRLIST_; struct MELT_OBJECT_STRUCT (3) dsym_1594__EXPAND_PRIMITIVE; struct MELT_STRING_STRUCT (16) dstr_1595__EXPAND_PRIMITIVE; struct MELT_OBJECT_STRUCT (3) dsym_1596__INSTALL_INITIAL_MACRO; struct MELT_STRING_STRUCT (21) dstr_1597__INSTALL_INITIAL_; struct MELT_OBJECT_STRUCT (3) dsym_1598__LAMBDA_ARG_BINDINGS; struct MELT_STRING_STRUCT (19) dstr_1599__LAMBDA_ARG_BINDI; struct MELT_OBJECT_STRUCT (3) dsym_1600__MACROEXPAND_1; struct MELT_STRING_STRUCT (13) dstr_1601__MACROEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_1602__MACROEXPAND_TOPLEVEL_LIST; struct MELT_STRING_STRUCT (25) dstr_1603__MACROEXPAND_TOPL; struct MELT_OBJECT_STRUCT (3) dsym_1604__PATTERNEXPAND_1; struct MELT_STRING_STRUCT (15) dstr_1605__PATTERNEXPAND_1; struct MELT_OBJECT_STRUCT (3) dsym_1606__PATTERNEXPAND_EXPR; struct MELT_STRING_STRUCT (18) dstr_1607__PATTERNEXPAND_EX; struct MELT_OBJECT_STRUCT (3) dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE; struct MELT_STRING_STRUCT (31) dstr_1609__PATTERNEXPAND_PA; struct MELT_OBJECT_STRUCT (3) dsym_1610__PATTERN_WEIGHT_TUPLE; struct MELT_STRING_STRUCT (20) dstr_1611__PATTERN_WEIGHT_T; struct MELT_OBJECT_STRUCT (3) dsym_1612__REGISTER_GENERATOR_DEVICE; struct MELT_STRING_STRUCT (25) dstr_1613__REGISTER_GENERAT; long spare_; } *cdat = NULL; dbgprintf ("start initialize_module_meltdata_warmelt_macro iniframp__=%p", (void *) iniframp__); (void) meltpredefinited; /* avoid warning if non-used. */ melt_assertmsg ("check module initial frame", iniframp__->mcfr_nbvar == /*minihash */ -2457); cdat = (struct cdata_st *) meltgc_allocate (sizeof (*cdat), 0); melt_prohibit_garbcoll = TRUE; /*initial routine predef */ /*initial routine fill */ /*iniobj dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V76*/ meltfptr[75]) /*_.VALDATA___V76*/ meltfptr[75] = (melt_ptr_t) & cdat->dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 922662082; cdat->dsym_1__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 3; /*inistring dstr_2__IS_RECURSIVELY_C*/ /*_.VALSTR___V77*/ meltfptr[76] = (melt_ptr_t) & cdat->dstr_2__IS_RECURSIVELY_C; cdat->dstr_2__IS_RECURSIVELY_C.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_2__IS_RECURSIVELY_C.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (cdat->dstr_2__IS_RECURSIVELY_C.val) - 1); /*iniobj dsym_3__CLASS_SELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (melt_ptr_t) & cdat->dsym_3__CLASS_SELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_3__CLASS_SELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_3__CLASS_SELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_3__CLASS_SELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_3__CLASS_SELECTOR.obj_hash = 100646971; cdat->dsym_3__CLASS_SELECTOR.obj_len = 3; /*inistring dstr_4__CLASS_SELECTOR*/ /*_.VALSTR___V79*/ meltfptr[78] = (melt_ptr_t) & cdat->dstr_4__CLASS_SELECTOR; cdat->dstr_4__CLASS_SELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_4__CLASS_SELECTOR.val, "CLASS_SELECTOR", sizeof (cdat->dstr_4__CLASS_SELECTOR.val) - 1); /*iniobj dsym_5__RECV*/ /*uniqueobj*/ if (! /*_.VALDATA___V80*/ meltfptr[79]) /*_.VALDATA___V80*/ meltfptr[79] = (melt_ptr_t) & cdat->dsym_5__RECV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_5__RECV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_5__RECV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_5__RECV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_5__RECV.obj_hash = 10842790; cdat->dsym_5__RECV.obj_len = 3; /*inistring dstr_6__RECV*/ /*_.VALSTR___V81*/ meltfptr[80] = (melt_ptr_t) & cdat->dstr_6__RECV; cdat->dstr_6__RECV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_6__RECV.val, "RECV", sizeof (cdat->dstr_6__RECV.val) - 1); MELT_LOCATION ("warmelt-macro.melt:39:/ iniobj"); #line 39 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_7*/ /*_.VALDATA___V82*/ meltfptr[81] = (melt_ptr_t) & cdat->dobj_7; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_7", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_7", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_7.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FORMAL_BINDING)))); cdat->dobj_7.obj_num = 0; cdat->dobj_7.obj_hash = 361872327; cdat->dobj_7.obj_len = 2; /*inimult dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE */ /*_.VALTUP___V83*/ meltfptr[82] = (melt_ptr_t) & cdat->dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE; cdat->dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_8__IS_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; /*^iniobj */ #line 39 /*iniobj dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE*/ /*_.VALDATA___V84*/ meltfptr[83] = (melt_ptr_t) & cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", melt_magic_discr ((melt_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6])) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE", ((meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.meltobj_class = (meltobject_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_hash = 467648738; cdat->dobj_9__IS_RECURSIVELY_CONSTRUCTIBLE.obj_len = 4; /*inistring dstr_10__IS_RECURSIVELY_C*/ /*_.VALSTR___V85*/ meltfptr[84] = (melt_ptr_t) & cdat->dstr_10__IS_RECURSIVELY_C; cdat->dstr_10__IS_RECURSIVELY_C.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_10__IS_RECURSIVELY_C.val, "IS_RECURSIVELY_CONSTRUCTIBLE", sizeof (cdat->dstr_10__IS_RECURSIVELY_C.val) - 1); /*iniobj dsym_11__CLASS_SOURCE_GENERATOR_DEVICE*/ /*uniqueobj*/ if (! /*_.VALDATA___V86*/ meltfptr[85]) /*_.VALDATA___V86*/ meltfptr[85] = (melt_ptr_t) & cdat->dsym_11__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_11__CLASS_SOURCE_GENERATOR_DEVICE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_11__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_11__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_11__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 331634544; cdat->dsym_11__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 3; /*inistring dstr_12__CLASS_SOURCE_GEN*/ /*_.VALSTR___V87*/ meltfptr[86] = (melt_ptr_t) & cdat->dstr_12__CLASS_SOURCE_GEN; cdat->dstr_12__CLASS_SOURCE_GEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_12__CLASS_SOURCE_GEN.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (cdat->dstr_12__CLASS_SOURCE_GEN.val) - 1); /*iniobj dsym_13__CLASS_SOURCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V88*/ meltfptr[87]) /*_.VALDATA___V88*/ meltfptr[87] = (melt_ptr_t) & cdat->dsym_13__CLASS_SOURCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_13__CLASS_SOURCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_13__CLASS_SOURCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_13__CLASS_SOURCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_13__CLASS_SOURCE.obj_hash = 656628255; cdat->dsym_13__CLASS_SOURCE.obj_len = 3; /*inistring dstr_14__CLASS_SOURCE*/ /*_.VALSTR___V89*/ meltfptr[88] = (melt_ptr_t) & cdat->dstr_14__CLASS_SOURCE; cdat->dstr_14__CLASS_SOURCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_14__CLASS_SOURCE.val, "CLASS_SOURCE", sizeof (cdat->dstr_14__CLASS_SOURCE.val) - 1); MELT_LOCATION ("warmelt-macro.melt:44:/ iniobj"); #line 44 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_15__CLASS_SOURCE_GENERATOR_DEVICE*/ /*_.VALDATA___V90*/ meltfptr[89] = (melt_ptr_t) & cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_15__CLASS_SOURCE_GENERATOR_DEVICE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_15__CLASS_SOURCE_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_hash = 661987112; cdat->dobj_15__CLASS_SOURCE_GENERATOR_DEVICE.obj_len = 8; /*inistring dstr_16__CLASS_SOURCE_GEN*/ /*_.VALSTR___V91*/ meltfptr[90] = (melt_ptr_t) & cdat->dstr_16__CLASS_SOURCE_GEN; cdat->dstr_16__CLASS_SOURCE_GEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_16__CLASS_SOURCE_GEN.val, "CLASS_SOURCE_GENERATOR_DEVICE", sizeof (cdat->dstr_16__CLASS_SOURCE_GEN.val) - 1); /*inimult dtup_17__CLASS_SOURCE_GENERATOR_DEVICE */ /*_.VALTUP___V92*/ meltfptr[91] = (melt_ptr_t) & cdat->dtup_17__CLASS_SOURCE_GENERATOR_DEVICE; cdat->dtup_17__CLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_17__CLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*inimult dtup_18__CLASS_SOURCE_GENERATOR_DEVICE */ /*_.VALTUP___V97*/ meltfptr[96] = (melt_ptr_t) & cdat->dtup_18__CLASS_SOURCE_GENERATOR_DEVICE; cdat->dtup_18__CLASS_SOURCE_GENERATOR_DEVICE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_18__CLASS_SOURCE_GENERATOR_DEVICE.nbval = 4; /*iniobj dsym_19__SRCGEN_DEFIN*/ /*uniqueobj*/ if (! /*_.VALDATA___V98*/ meltfptr[97]) /*_.VALDATA___V98*/ meltfptr[97] = (melt_ptr_t) & cdat->dsym_19__SRCGEN_DEFIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_19__SRCGEN_DEFIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_19__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_19__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_19__SRCGEN_DEFIN.obj_hash = 416281938; cdat->dsym_19__SRCGEN_DEFIN.obj_len = 3; /*inistring dstr_20__SRCGEN_DEFIN*/ /*_.VALSTR___V99*/ meltfptr[98] = (melt_ptr_t) & cdat->dstr_20__SRCGEN_DEFIN; cdat->dstr_20__SRCGEN_DEFIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_20__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (cdat->dstr_20__SRCGEN_DEFIN.val) - 1); /*^iniobj */ #line 44 /*iniobj dobj_21__SRCGEN_DEFIN*/ /*_.VALDATA___V93*/ meltfptr[92] = (melt_ptr_t) & cdat->dobj_21__SRCGEN_DEFIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_21__SRCGEN_DEFIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_21__SRCGEN_DEFIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_21__SRCGEN_DEFIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_21__SRCGEN_DEFIN.obj_num = 2; cdat->dobj_21__SRCGEN_DEFIN.obj_hash = 309048175; cdat->dobj_21__SRCGEN_DEFIN.obj_len = 4; /*inistring dstr_22__SRCGEN_DEFIN*/ /*_.VALSTR___V94*/ meltfptr[93] = (melt_ptr_t) & cdat->dstr_22__SRCGEN_DEFIN; cdat->dstr_22__SRCGEN_DEFIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_22__SRCGEN_DEFIN.val, "SRCGEN_DEFIN", sizeof (cdat->dstr_22__SRCGEN_DEFIN.val) - 1); /*iniobj dsym_23__SRCGEN_REPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V100*/ meltfptr[99]) /*_.VALDATA___V100*/ meltfptr[99] = (melt_ptr_t) & cdat->dsym_23__SRCGEN_REPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_23__SRCGEN_REPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_23__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_23__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_23__SRCGEN_REPR.obj_hash = 87012860; cdat->dsym_23__SRCGEN_REPR.obj_len = 3; /*inistring dstr_24__SRCGEN_REPR*/ /*_.VALSTR___V101*/ meltfptr[100] = (melt_ptr_t) & cdat->dstr_24__SRCGEN_REPR; cdat->dstr_24__SRCGEN_REPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_24__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (cdat->dstr_24__SRCGEN_REPR.val) - 1); /*^iniobj */ #line 44 /*iniobj dobj_25__SRCGEN_REPR*/ /*_.VALDATA___V95*/ meltfptr[94] = (melt_ptr_t) & cdat->dobj_25__SRCGEN_REPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_25__SRCGEN_REPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_25__SRCGEN_REPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_25__SRCGEN_REPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_25__SRCGEN_REPR.obj_num = 3; cdat->dobj_25__SRCGEN_REPR.obj_hash = 372448139; cdat->dobj_25__SRCGEN_REPR.obj_len = 4; /*inistring dstr_26__SRCGEN_REPR*/ /*_.VALSTR___V96*/ meltfptr[95] = (melt_ptr_t) & cdat->dstr_26__SRCGEN_REPR; cdat->dstr_26__SRCGEN_REPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_26__SRCGEN_REPR.val, "SRCGEN_REPR", sizeof (cdat->dstr_26__SRCGEN_REPR.val) - 1); /*iniobj dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*uniqueobj*/ if (! /*_.VALDATA___V102*/ meltfptr[101]) /*_.VALDATA___V102*/ meltfptr[101] = (melt_ptr_t) & cdat->dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 697763169; cdat->dsym_27__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 3; /*inistring dstr_28__CLASS_SOURCE_LAZ*/ /*_.VALSTR___V103*/ meltfptr[102] = (melt_ptr_t) & cdat->dstr_28__CLASS_SOURCE_LAZ; cdat->dstr_28__CLASS_SOURCE_LAZ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_28__CLASS_SOURCE_LAZ.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (cdat->dstr_28__CLASS_SOURCE_LAZ.val) - 1); MELT_LOCATION ("warmelt-macro.melt:53:/ iniobj"); #line 53 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION*/ /*_.VALDATA___V104*/ meltfptr[103] = (melt_ptr_t) & cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_num = MELTOBMAG_OBJECT; cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_hash = 368439209; cdat->dobj_29__CLASS_SOURCE_LAZY_MACRO_EXPANSION.obj_len = 8; /*inistring dstr_30__CLASS_SOURCE_LAZ*/ /*_.VALSTR___V105*/ meltfptr[104] = (melt_ptr_t) & cdat->dstr_30__CLASS_SOURCE_LAZ; cdat->dstr_30__CLASS_SOURCE_LAZ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_30__CLASS_SOURCE_LAZ.val, "CLASS_SOURCE_LAZY_MACRO_EXPANSION", sizeof (cdat->dstr_30__CLASS_SOURCE_LAZ.val) - 1); /*inimult dtup_31__CLASS_SOURCE_LAZY_MACRO_EXPANSION */ /*_.VALTUP___V106*/ meltfptr[105] = (melt_ptr_t) & cdat->dtup_31__CLASS_SOURCE_LAZY_MACRO_EXPANSION; cdat->dtup_31__CLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_31__CLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*inimult dtup_32__CLASS_SOURCE_LAZY_MACRO_EXPANSION */ /*_.VALTUP___V111*/ meltfptr[110] = (melt_ptr_t) & cdat->dtup_32__CLASS_SOURCE_LAZY_MACRO_EXPANSION; cdat->dtup_32__CLASS_SOURCE_LAZY_MACRO_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_32__CLASS_SOURCE_LAZY_MACRO_EXPANSION.nbval = 4; /*iniobj dsym_33__SLAZYMACRO_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V112*/ meltfptr[111]) /*_.VALDATA___V112*/ meltfptr[111] = (melt_ptr_t) & cdat->dsym_33__SLAZYMACRO_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_33__SLAZYMACRO_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_33__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_33__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_33__SLAZYMACRO_FUN.obj_hash = 351872737; cdat->dsym_33__SLAZYMACRO_FUN.obj_len = 3; /*inistring dstr_34__SLAZYMACRO_FUN*/ /*_.VALSTR___V113*/ meltfptr[112] = (melt_ptr_t) & cdat->dstr_34__SLAZYMACRO_FUN; cdat->dstr_34__SLAZYMACRO_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_34__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (cdat->dstr_34__SLAZYMACRO_FUN.val) - 1); /*^iniobj */ #line 53 /*iniobj dobj_35__SLAZYMACRO_FUN*/ /*_.VALDATA___V107*/ meltfptr[106] = (melt_ptr_t) & cdat->dobj_35__SLAZYMACRO_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_35__SLAZYMACRO_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_35__SLAZYMACRO_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_35__SLAZYMACRO_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_35__SLAZYMACRO_FUN.obj_num = 2; cdat->dobj_35__SLAZYMACRO_FUN.obj_hash = 814314844; cdat->dobj_35__SLAZYMACRO_FUN.obj_len = 4; /*inistring dstr_36__SLAZYMACRO_FUN*/ /*_.VALSTR___V108*/ meltfptr[107] = (melt_ptr_t) & cdat->dstr_36__SLAZYMACRO_FUN; cdat->dstr_36__SLAZYMACRO_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_36__SLAZYMACRO_FUN.val, "SLAZYMACRO_FUN", sizeof (cdat->dstr_36__SLAZYMACRO_FUN.val) - 1); /*iniobj dsym_37__SLAZYMACRO_OPER*/ /*uniqueobj*/ if (! /*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) & cdat->dsym_37__SLAZYMACRO_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_37__SLAZYMACRO_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_37__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_37__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_37__SLAZYMACRO_OPER.obj_hash = 624086838; cdat->dsym_37__SLAZYMACRO_OPER.obj_len = 3; /*inistring dstr_38__SLAZYMACRO_OPER*/ /*_.VALSTR___V115*/ meltfptr[114] = (melt_ptr_t) & cdat->dstr_38__SLAZYMACRO_OPER; cdat->dstr_38__SLAZYMACRO_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_38__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (cdat->dstr_38__SLAZYMACRO_OPER.val) - 1); /*^iniobj */ #line 53 /*iniobj dobj_39__SLAZYMACRO_OPER*/ /*_.VALDATA___V109*/ meltfptr[108] = (melt_ptr_t) & cdat->dobj_39__SLAZYMACRO_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_39__SLAZYMACRO_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_39__SLAZYMACRO_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_39__SLAZYMACRO_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_39__SLAZYMACRO_OPER.obj_num = 3; cdat->dobj_39__SLAZYMACRO_OPER.obj_hash = 94635059; cdat->dobj_39__SLAZYMACRO_OPER.obj_len = 4; /*inistring dstr_40__SLAZYMACRO_OPER*/ /*_.VALSTR___V110*/ meltfptr[109] = (melt_ptr_t) & cdat->dstr_40__SLAZYMACRO_OPER; cdat->dstr_40__SLAZYMACRO_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_40__SLAZYMACRO_OPER.val, "SLAZYMACRO_OPER", sizeof (cdat->dstr_40__SLAZYMACRO_OPER.val) - 1); /*iniobj dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) & cdat->dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 872813783; cdat->dsym_41__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 3; /*inistring dstr_42__CLASS_SOURCE_ARG*/ /*_.VALSTR___V117*/ meltfptr[116] = (melt_ptr_t) & cdat->dstr_42__CLASS_SOURCE_ARG; cdat->dstr_42__CLASS_SOURCE_ARG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_42__CLASS_SOURCE_ARG.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (cdat->dstr_42__CLASS_SOURCE_ARG.val) - 1); MELT_LOCATION ("warmelt-macro.melt:66:/ iniobj"); #line 66 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR*/ /*_.VALDATA___V118*/ meltfptr[117] = (melt_ptr_t) & cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_hash = 1009414693; cdat->dobj_43__CLASS_SOURCE_ARGUMENTED_OPERATOR.obj_len = 8; /*inistring dstr_44__CLASS_SOURCE_ARG*/ /*_.VALSTR___V119*/ meltfptr[118] = (melt_ptr_t) & cdat->dstr_44__CLASS_SOURCE_ARG; cdat->dstr_44__CLASS_SOURCE_ARG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_44__CLASS_SOURCE_ARG.val, "CLASS_SOURCE_ARGUMENTED_OPERATOR", sizeof (cdat->dstr_44__CLASS_SOURCE_ARG.val) - 1); /*inimult dtup_45__CLASS_SOURCE_ARGUMENTED_OPERATOR */ /*_.VALTUP___V120*/ meltfptr[119] = (melt_ptr_t) & cdat->dtup_45__CLASS_SOURCE_ARGUMENTED_OPERATOR; cdat->dtup_45__CLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_45__CLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 4; /*inimult dtup_46__CLASS_SOURCE_ARGUMENTED_OPERATOR */ /*_.VALTUP___V123*/ meltfptr[122] = (melt_ptr_t) & cdat->dtup_46__CLASS_SOURCE_ARGUMENTED_OPERATOR; cdat->dtup_46__CLASS_SOURCE_ARGUMENTED_OPERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_46__CLASS_SOURCE_ARGUMENTED_OPERATOR.nbval = 3; /*iniobj dsym_47__SARGOP_ARGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) & cdat->dsym_47__SARGOP_ARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_47__SARGOP_ARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_47__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_47__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_47__SARGOP_ARGS.obj_hash = 720295827; cdat->dsym_47__SARGOP_ARGS.obj_len = 3; /*inistring dstr_48__SARGOP_ARGS*/ /*_.VALSTR___V125*/ meltfptr[124] = (melt_ptr_t) & cdat->dstr_48__SARGOP_ARGS; cdat->dstr_48__SARGOP_ARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_48__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (cdat->dstr_48__SARGOP_ARGS.val) - 1); /*^iniobj */ #line 66 /*iniobj dobj_49__SARGOP_ARGS*/ /*_.VALDATA___V121*/ meltfptr[120] = (melt_ptr_t) & cdat->dobj_49__SARGOP_ARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_49__SARGOP_ARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_49__SARGOP_ARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_49__SARGOP_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_49__SARGOP_ARGS.obj_num = 2; cdat->dobj_49__SARGOP_ARGS.obj_hash = 927759700; cdat->dobj_49__SARGOP_ARGS.obj_len = 4; /*inistring dstr_50__SARGOP_ARGS*/ /*_.VALSTR___V122*/ meltfptr[121] = (melt_ptr_t) & cdat->dstr_50__SARGOP_ARGS; cdat->dstr_50__SARGOP_ARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_50__SARGOP_ARGS.val, "SARGOP_ARGS", sizeof (cdat->dstr_50__SARGOP_ARGS.val) - 1); /*iniobj dsym_51__CLASS_SOURCE_APPLY*/ /*uniqueobj*/ if (! /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) & cdat->dsym_51__CLASS_SOURCE_APPLY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_51__CLASS_SOURCE_APPLY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_51__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_51__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_51__CLASS_SOURCE_APPLY.obj_hash = 908584793; cdat->dsym_51__CLASS_SOURCE_APPLY.obj_len = 3; /*inistring dstr_52__CLASS_SOURCE_APP*/ /*_.VALSTR___V127*/ meltfptr[126] = (melt_ptr_t) & cdat->dstr_52__CLASS_SOURCE_APP; cdat->dstr_52__CLASS_SOURCE_APP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_52__CLASS_SOURCE_APP.val, "CLASS_SOURCE_APPLY", sizeof (cdat->dstr_52__CLASS_SOURCE_APP.val) - 1); MELT_LOCATION ("warmelt-macro.melt:74:/ iniobj"); #line 74 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_53__CLASS_SOURCE_APPLY*/ /*_.VALDATA___V128*/ meltfptr[127] = (melt_ptr_t) & cdat->dobj_53__CLASS_SOURCE_APPLY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_53__CLASS_SOURCE_APPLY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_53__CLASS_SOURCE_APPLY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_53__CLASS_SOURCE_APPLY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_53__CLASS_SOURCE_APPLY.obj_num = MELTOBMAG_OBJECT; cdat->dobj_53__CLASS_SOURCE_APPLY.obj_hash = 372908211; cdat->dobj_53__CLASS_SOURCE_APPLY.obj_len = 8; /*inistring dstr_54__CLASS_SOURCE_APP*/ /*_.VALSTR___V129*/ meltfptr[128] = (melt_ptr_t) & cdat->dstr_54__CLASS_SOURCE_APP; cdat->dstr_54__CLASS_SOURCE_APP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_54__CLASS_SOURCE_APP.val, "CLASS_SOURCE_APPLY", sizeof (cdat->dstr_54__CLASS_SOURCE_APP.val) - 1); /*inimult dtup_55__CLASS_SOURCE_APPLY */ /*_.VALTUP___V130*/ meltfptr[129] = (melt_ptr_t) & cdat->dtup_55__CLASS_SOURCE_APPLY; cdat->dtup_55__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_55__CLASS_SOURCE_APPLY.nbval = 5; /*inimult dtup_56__CLASS_SOURCE_APPLY */ /*_.VALTUP___V133*/ meltfptr[132] = (melt_ptr_t) & cdat->dtup_56__CLASS_SOURCE_APPLY; cdat->dtup_56__CLASS_SOURCE_APPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_56__CLASS_SOURCE_APPLY.nbval = 4; /*iniobj dsym_57__SAPP_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V134*/ meltfptr[133]) /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) & cdat->dsym_57__SAPP_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_57__SAPP_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_57__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_57__SAPP_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_57__SAPP_FUN.obj_hash = 218083126; cdat->dsym_57__SAPP_FUN.obj_len = 3; /*inistring dstr_58__SAPP_FUN*/ /*_.VALSTR___V135*/ meltfptr[134] = (melt_ptr_t) & cdat->dstr_58__SAPP_FUN; cdat->dstr_58__SAPP_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_58__SAPP_FUN.val, "SAPP_FUN", sizeof (cdat->dstr_58__SAPP_FUN.val) - 1); /*^iniobj */ #line 74 /*iniobj dobj_59__SAPP_FUN*/ /*_.VALDATA___V131*/ meltfptr[130] = (melt_ptr_t) & cdat->dobj_59__SAPP_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_59__SAPP_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_59__SAPP_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_59__SAPP_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_59__SAPP_FUN.obj_num = 3; cdat->dobj_59__SAPP_FUN.obj_hash = 866276697; cdat->dobj_59__SAPP_FUN.obj_len = 4; /*inistring dstr_60__SAPP_FUN*/ /*_.VALSTR___V132*/ meltfptr[131] = (melt_ptr_t) & cdat->dstr_60__SAPP_FUN; cdat->dstr_60__SAPP_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_60__SAPP_FUN.val, "SAPP_FUN", sizeof (cdat->dstr_60__SAPP_FUN.val) - 1); /*iniobj dsym_61__CLASS_SOURCE_MSEND*/ /*uniqueobj*/ if (! /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) & cdat->dsym_61__CLASS_SOURCE_MSEND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_61__CLASS_SOURCE_MSEND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_61__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_61__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_61__CLASS_SOURCE_MSEND.obj_hash = 115197475; cdat->dsym_61__CLASS_SOURCE_MSEND.obj_len = 3; /*inistring dstr_62__CLASS_SOURCE_MSE*/ /*_.VALSTR___V137*/ meltfptr[136] = (melt_ptr_t) & cdat->dstr_62__CLASS_SOURCE_MSE; cdat->dstr_62__CLASS_SOURCE_MSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_62__CLASS_SOURCE_MSE.val, "CLASS_SOURCE_MSEND", sizeof (cdat->dstr_62__CLASS_SOURCE_MSE.val) - 1); MELT_LOCATION ("warmelt-macro.melt:84:/ iniobj"); #line 84 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_63__CLASS_SOURCE_MSEND*/ /*_.VALDATA___V138*/ meltfptr[137] = (melt_ptr_t) & cdat->dobj_63__CLASS_SOURCE_MSEND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_63__CLASS_SOURCE_MSEND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_63__CLASS_SOURCE_MSEND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_63__CLASS_SOURCE_MSEND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_63__CLASS_SOURCE_MSEND.obj_num = MELTOBMAG_OBJECT; cdat->dobj_63__CLASS_SOURCE_MSEND.obj_hash = 956491007; cdat->dobj_63__CLASS_SOURCE_MSEND.obj_len = 8; /*inistring dstr_64__CLASS_SOURCE_MSE*/ /*_.VALSTR___V139*/ meltfptr[138] = (melt_ptr_t) & cdat->dstr_64__CLASS_SOURCE_MSE; cdat->dstr_64__CLASS_SOURCE_MSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_64__CLASS_SOURCE_MSE.val, "CLASS_SOURCE_MSEND", sizeof (cdat->dstr_64__CLASS_SOURCE_MSE.val) - 1); /*inimult dtup_65__CLASS_SOURCE_MSEND */ /*_.VALTUP___V140*/ meltfptr[139] = (melt_ptr_t) & cdat->dtup_65__CLASS_SOURCE_MSEND; cdat->dtup_65__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_65__CLASS_SOURCE_MSEND.nbval = 5; /*inimult dtup_66__CLASS_SOURCE_MSEND */ /*_.VALTUP___V145*/ meltfptr[144] = (melt_ptr_t) & cdat->dtup_66__CLASS_SOURCE_MSEND; cdat->dtup_66__CLASS_SOURCE_MSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_66__CLASS_SOURCE_MSEND.nbval = 5; /*iniobj dsym_67__MSEND_SELSYMB*/ /*uniqueobj*/ if (! /*_.VALDATA___V146*/ meltfptr[145]) /*_.VALDATA___V146*/ meltfptr[145] = (melt_ptr_t) & cdat->dsym_67__MSEND_SELSYMB; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_67__MSEND_SELSYMB", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_67__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_67__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_67__MSEND_SELSYMB.obj_hash = 864994865; cdat->dsym_67__MSEND_SELSYMB.obj_len = 3; /*inistring dstr_68__MSEND_SELSYMB*/ /*_.VALSTR___V147*/ meltfptr[146] = (melt_ptr_t) & cdat->dstr_68__MSEND_SELSYMB; cdat->dstr_68__MSEND_SELSYMB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_68__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (cdat->dstr_68__MSEND_SELSYMB.val) - 1); /*^iniobj */ #line 84 /*iniobj dobj_69__MSEND_SELSYMB*/ /*_.VALDATA___V141*/ meltfptr[140] = (melt_ptr_t) & cdat->dobj_69__MSEND_SELSYMB; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_69__MSEND_SELSYMB", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_69__MSEND_SELSYMB", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_69__MSEND_SELSYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_69__MSEND_SELSYMB.obj_num = 3; cdat->dobj_69__MSEND_SELSYMB.obj_hash = 427572235; cdat->dobj_69__MSEND_SELSYMB.obj_len = 4; /*inistring dstr_70__MSEND_SELSYMB*/ /*_.VALSTR___V142*/ meltfptr[141] = (melt_ptr_t) & cdat->dstr_70__MSEND_SELSYMB; cdat->dstr_70__MSEND_SELSYMB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_70__MSEND_SELSYMB.val, "MSEND_SELSYMB", sizeof (cdat->dstr_70__MSEND_SELSYMB.val) - 1); /*iniobj dsym_71__MSEND_RECV*/ /*uniqueobj*/ if (! /*_.VALDATA___V148*/ meltfptr[147]) /*_.VALDATA___V148*/ meltfptr[147] = (melt_ptr_t) & cdat->dsym_71__MSEND_RECV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_71__MSEND_RECV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_71__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_71__MSEND_RECV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_71__MSEND_RECV.obj_hash = 1050966842; cdat->dsym_71__MSEND_RECV.obj_len = 3; /*inistring dstr_72__MSEND_RECV*/ /*_.VALSTR___V149*/ meltfptr[148] = (melt_ptr_t) & cdat->dstr_72__MSEND_RECV; cdat->dstr_72__MSEND_RECV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_72__MSEND_RECV.val, "MSEND_RECV", sizeof (cdat->dstr_72__MSEND_RECV.val) - 1); /*^iniobj */ #line 84 /*iniobj dobj_73__MSEND_RECV*/ /*_.VALDATA___V143*/ meltfptr[142] = (melt_ptr_t) & cdat->dobj_73__MSEND_RECV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_73__MSEND_RECV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_73__MSEND_RECV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_73__MSEND_RECV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_73__MSEND_RECV.obj_num = 4; cdat->dobj_73__MSEND_RECV.obj_hash = 517787481; cdat->dobj_73__MSEND_RECV.obj_len = 4; /*inistring dstr_74__MSEND_RECV*/ /*_.VALSTR___V144*/ meltfptr[143] = (melt_ptr_t) & cdat->dstr_74__MSEND_RECV; cdat->dstr_74__MSEND_RECV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_74__MSEND_RECV.val, "MSEND_RECV", sizeof (cdat->dstr_74__MSEND_RECV.val) - 1); /*iniobj dsym_75__CLASS_SOURCE_PRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V150*/ meltfptr[149]) /*_.VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) & cdat->dsym_75__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_75__CLASS_SOURCE_PRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_75__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_75__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_75__CLASS_SOURCE_PRIMITIVE.obj_hash = 683295797; cdat->dsym_75__CLASS_SOURCE_PRIMITIVE.obj_len = 3; /*inistring dstr_76__CLASS_SOURCE_PRI*/ /*_.VALSTR___V151*/ meltfptr[150] = (melt_ptr_t) & cdat->dstr_76__CLASS_SOURCE_PRI; cdat->dstr_76__CLASS_SOURCE_PRI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_76__CLASS_SOURCE_PRI.val, "CLASS_SOURCE_PRIMITIVE", sizeof (cdat->dstr_76__CLASS_SOURCE_PRI.val) - 1); MELT_LOCATION ("warmelt-macro.melt:95:/ iniobj"); #line 95 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_77__CLASS_SOURCE_PRIMITIVE*/ /*_.VALDATA___V152*/ meltfptr[151] = (melt_ptr_t) & cdat->dobj_77__CLASS_SOURCE_PRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_77__CLASS_SOURCE_PRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_77__CLASS_SOURCE_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_hash = 332167797; cdat->dobj_77__CLASS_SOURCE_PRIMITIVE.obj_len = 8; /*inistring dstr_78__CLASS_SOURCE_PRI*/ /*_.VALSTR___V153*/ meltfptr[152] = (melt_ptr_t) & cdat->dstr_78__CLASS_SOURCE_PRI; cdat->dstr_78__CLASS_SOURCE_PRI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_78__CLASS_SOURCE_PRI.val, "CLASS_SOURCE_PRIMITIVE", sizeof (cdat->dstr_78__CLASS_SOURCE_PRI.val) - 1); /*inimult dtup_79__CLASS_SOURCE_PRIMITIVE */ /*_.VALTUP___V154*/ meltfptr[153] = (melt_ptr_t) & cdat->dtup_79__CLASS_SOURCE_PRIMITIVE; cdat->dtup_79__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_79__CLASS_SOURCE_PRIMITIVE.nbval = 5; /*inimult dtup_80__CLASS_SOURCE_PRIMITIVE */ /*_.VALTUP___V157*/ meltfptr[156] = (melt_ptr_t) & cdat->dtup_80__CLASS_SOURCE_PRIMITIVE; cdat->dtup_80__CLASS_SOURCE_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_80__CLASS_SOURCE_PRIMITIVE.nbval = 4; /*iniobj dsym_81__SPRIM_OPER*/ /*uniqueobj*/ if (! /*_.VALDATA___V158*/ meltfptr[157]) /*_.VALDATA___V158*/ meltfptr[157] = (melt_ptr_t) & cdat->dsym_81__SPRIM_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_81__SPRIM_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_81__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_81__SPRIM_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_81__SPRIM_OPER.obj_hash = 400545277; cdat->dsym_81__SPRIM_OPER.obj_len = 3; /*inistring dstr_82__SPRIM_OPER*/ /*_.VALSTR___V159*/ meltfptr[158] = (melt_ptr_t) & cdat->dstr_82__SPRIM_OPER; cdat->dstr_82__SPRIM_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_82__SPRIM_OPER.val, "SPRIM_OPER", sizeof (cdat->dstr_82__SPRIM_OPER.val) - 1); /*^iniobj */ #line 95 /*iniobj dobj_83__SPRIM_OPER*/ /*_.VALDATA___V155*/ meltfptr[154] = (melt_ptr_t) & cdat->dobj_83__SPRIM_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_83__SPRIM_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_83__SPRIM_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_83__SPRIM_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_83__SPRIM_OPER.obj_num = 3; cdat->dobj_83__SPRIM_OPER.obj_hash = 303418964; cdat->dobj_83__SPRIM_OPER.obj_len = 4; /*inistring dstr_84__SPRIM_OPER*/ /*_.VALSTR___V156*/ meltfptr[155] = (melt_ptr_t) & cdat->dstr_84__SPRIM_OPER; cdat->dstr_84__SPRIM_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_84__SPRIM_OPER.val, "SPRIM_OPER", sizeof (cdat->dstr_84__SPRIM_OPER.val) - 1); /*iniobj dsym_85__CLASS_SOURCE_CITERATION*/ /*uniqueobj*/ if (! /*_.VALDATA___V160*/ meltfptr[159]) /*_.VALDATA___V160*/ meltfptr[159] = (melt_ptr_t) & cdat->dsym_85__CLASS_SOURCE_CITERATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_85__CLASS_SOURCE_CITERATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_85__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_85__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_85__CLASS_SOURCE_CITERATION.obj_hash = 723843174; cdat->dsym_85__CLASS_SOURCE_CITERATION.obj_len = 3; /*inistring dstr_86__CLASS_SOURCE_CIT*/ /*_.VALSTR___V161*/ meltfptr[160] = (melt_ptr_t) & cdat->dstr_86__CLASS_SOURCE_CIT; cdat->dstr_86__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_86__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_86__CLASS_SOURCE_CIT.val) - 1); MELT_LOCATION ("warmelt-macro.melt:106:/ iniobj"); #line 106 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_87__CLASS_SOURCE_CITERATION*/ /*_.VALDATA___V162*/ meltfptr[161] = (melt_ptr_t) & cdat->dobj_87__CLASS_SOURCE_CITERATION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_87__CLASS_SOURCE_CITERATION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_87__CLASS_SOURCE_CITERATION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_87__CLASS_SOURCE_CITERATION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_num = MELTOBMAG_OBJECT; cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_hash = 494034829; cdat->dobj_87__CLASS_SOURCE_CITERATION.obj_len = 8; /*inistring dstr_88__CLASS_SOURCE_CIT*/ /*_.VALSTR___V163*/ meltfptr[162] = (melt_ptr_t) & cdat->dstr_88__CLASS_SOURCE_CIT; cdat->dstr_88__CLASS_SOURCE_CIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_88__CLASS_SOURCE_CIT.val, "CLASS_SOURCE_CITERATION", sizeof (cdat->dstr_88__CLASS_SOURCE_CIT.val) - 1); /*inimult dtup_89__CLASS_SOURCE_CITERATION */ /*_.VALTUP___V164*/ meltfptr[163] = (melt_ptr_t) & cdat->dtup_89__CLASS_SOURCE_CITERATION; cdat->dtup_89__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_89__CLASS_SOURCE_CITERATION.nbval = 5; /*inimult dtup_90__CLASS_SOURCE_CITERATION */ /*_.VALTUP___V171*/ meltfptr[170] = (melt_ptr_t) & cdat->dtup_90__CLASS_SOURCE_CITERATION; cdat->dtup_90__CLASS_SOURCE_CITERATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_90__CLASS_SOURCE_CITERATION.nbval = 6; /*iniobj dsym_91__SCITER_OPER*/ /*uniqueobj*/ if (! /*_.VALDATA___V172*/ meltfptr[171]) /*_.VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) & cdat->dsym_91__SCITER_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_91__SCITER_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_91__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_91__SCITER_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_91__SCITER_OPER.obj_hash = 662216556; cdat->dsym_91__SCITER_OPER.obj_len = 3; /*inistring dstr_92__SCITER_OPER*/ /*_.VALSTR___V173*/ meltfptr[172] = (melt_ptr_t) & cdat->dstr_92__SCITER_OPER; cdat->dstr_92__SCITER_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_92__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_92__SCITER_OPER.val) - 1); /*^iniobj */ #line 106 /*iniobj dobj_93__SCITER_OPER*/ /*_.VALDATA___V165*/ meltfptr[164] = (melt_ptr_t) & cdat->dobj_93__SCITER_OPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_93__SCITER_OPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_93__SCITER_OPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_93__SCITER_OPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_93__SCITER_OPER.obj_num = 3; cdat->dobj_93__SCITER_OPER.obj_hash = 707991564; cdat->dobj_93__SCITER_OPER.obj_len = 4; /*inistring dstr_94__SCITER_OPER*/ /*_.VALSTR___V166*/ meltfptr[165] = (melt_ptr_t) & cdat->dstr_94__SCITER_OPER; cdat->dstr_94__SCITER_OPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_94__SCITER_OPER.val, "SCITER_OPER", sizeof (cdat->dstr_94__SCITER_OPER.val) - 1); /*iniobj dsym_95__SCITER_VARBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V174*/ meltfptr[173]) /*_.VALDATA___V174*/ meltfptr[173] = (melt_ptr_t) & cdat->dsym_95__SCITER_VARBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_95__SCITER_VARBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_95__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_95__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_95__SCITER_VARBIND.obj_hash = 394324639; cdat->dsym_95__SCITER_VARBIND.obj_len = 3; /*inistring dstr_96__SCITER_VARBIND*/ /*_.VALSTR___V175*/ meltfptr[174] = (melt_ptr_t) & cdat->dstr_96__SCITER_VARBIND; cdat->dstr_96__SCITER_VARBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_96__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_96__SCITER_VARBIND.val) - 1); /*^iniobj */ #line 106 /*iniobj dobj_97__SCITER_VARBIND*/ /*_.VALDATA___V167*/ meltfptr[166] = (melt_ptr_t) & cdat->dobj_97__SCITER_VARBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_97__SCITER_VARBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_97__SCITER_VARBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_97__SCITER_VARBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_97__SCITER_VARBIND.obj_num = 4; cdat->dobj_97__SCITER_VARBIND.obj_hash = 947010446; cdat->dobj_97__SCITER_VARBIND.obj_len = 4; /*inistring dstr_98__SCITER_VARBIND*/ /*_.VALSTR___V168*/ meltfptr[167] = (melt_ptr_t) & cdat->dstr_98__SCITER_VARBIND; cdat->dstr_98__SCITER_VARBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_98__SCITER_VARBIND.val, "SCITER_VARBIND", sizeof (cdat->dstr_98__SCITER_VARBIND.val) - 1); /*iniobj dsym_99__SCITER_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) & cdat->dsym_99__SCITER_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_99__SCITER_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_99__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_99__SCITER_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_99__SCITER_BODY.obj_hash = 751320796; cdat->dsym_99__SCITER_BODY.obj_len = 3; /*inistring dstr_100__SCITER_BODY*/ /*_.VALSTR___V177*/ meltfptr[176] = (melt_ptr_t) & cdat->dstr_100__SCITER_BODY; cdat->dstr_100__SCITER_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_100__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_100__SCITER_BODY.val) - 1); /*^iniobj */ #line 106 /*iniobj dobj_101__SCITER_BODY*/ /*_.VALDATA___V169*/ meltfptr[168] = (melt_ptr_t) & cdat->dobj_101__SCITER_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_101__SCITER_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_101__SCITER_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_101__SCITER_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_101__SCITER_BODY.obj_num = 5; cdat->dobj_101__SCITER_BODY.obj_hash = 404493362; cdat->dobj_101__SCITER_BODY.obj_len = 4; /*inistring dstr_102__SCITER_BODY*/ /*_.VALSTR___V170*/ meltfptr[169] = (melt_ptr_t) & cdat->dstr_102__SCITER_BODY; cdat->dstr_102__SCITER_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_102__SCITER_BODY.val, "SCITER_BODY", sizeof (cdat->dstr_102__SCITER_BODY.val) - 1); /*iniobj dsym_103__CLASS_SOURCE_CMATCHEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) & cdat->dsym_103__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_103__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_103__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_103__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_103__CLASS_SOURCE_CMATCHEXPR.obj_hash = 558397590; cdat->dsym_103__CLASS_SOURCE_CMATCHEXPR.obj_len = 3; /*inistring dstr_104__CLASS_SOURCE_CMA*/ /*_.VALSTR___V179*/ meltfptr[178] = (melt_ptr_t) & cdat->dstr_104__CLASS_SOURCE_CMA; cdat->dstr_104__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_104__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_104__CLASS_SOURCE_CMA. val) - 1); MELT_LOCATION ("warmelt-macro.melt:118:/ iniobj"); #line 118 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_105__CLASS_SOURCE_CMATCHEXPR*/ /*_.VALDATA___V180*/ meltfptr[179] = (melt_ptr_t) & cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_105__CLASS_SOURCE_CMATCHEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_105__CLASS_SOURCE_CMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_hash = 794452488; cdat->dobj_105__CLASS_SOURCE_CMATCHEXPR.obj_len = 8; /*inistring dstr_106__CLASS_SOURCE_CMA*/ /*_.VALSTR___V181*/ meltfptr[180] = (melt_ptr_t) & cdat->dstr_106__CLASS_SOURCE_CMA; cdat->dstr_106__CLASS_SOURCE_CMA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_106__CLASS_SOURCE_CMA.val, "CLASS_SOURCE_CMATCHEXPR", sizeof (cdat->dstr_106__CLASS_SOURCE_CMA. val) - 1); /*inimult dtup_107__CLASS_SOURCE_CMATCHEXPR */ /*_.VALTUP___V182*/ meltfptr[181] = (melt_ptr_t) & cdat->dtup_107__CLASS_SOURCE_CMATCHEXPR; cdat->dtup_107__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_107__CLASS_SOURCE_CMATCHEXPR.nbval = 5; /*inimult dtup_108__CLASS_SOURCE_CMATCHEXPR */ /*_.VALTUP___V185*/ meltfptr[184] = (melt_ptr_t) & cdat->dtup_108__CLASS_SOURCE_CMATCHEXPR; cdat->dtup_108__CLASS_SOURCE_CMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_108__CLASS_SOURCE_CMATCHEXPR.nbval = 4; /*iniobj dsym_109__SCMATX_CMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) & cdat->dsym_109__SCMATX_CMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_109__SCMATX_CMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_109__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_109__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_109__SCMATX_CMATCHER.obj_hash = 479043970; cdat->dsym_109__SCMATX_CMATCHER.obj_len = 3; /*inistring dstr_110__SCMATX_CMATCHER*/ /*_.VALSTR___V187*/ meltfptr[186] = (melt_ptr_t) & cdat->dstr_110__SCMATX_CMATCHER; cdat->dstr_110__SCMATX_CMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_110__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_110__SCMATX_CMATCHER.val) - 1); /*^iniobj */ #line 118 /*iniobj dobj_111__SCMATX_CMATCHER*/ /*_.VALDATA___V183*/ meltfptr[182] = (melt_ptr_t) & cdat->dobj_111__SCMATX_CMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_111__SCMATX_CMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_111__SCMATX_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_111__SCMATX_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_111__SCMATX_CMATCHER.obj_num = 3; cdat->dobj_111__SCMATX_CMATCHER.obj_hash = 482980938; cdat->dobj_111__SCMATX_CMATCHER.obj_len = 4; /*inistring dstr_112__SCMATX_CMATCHER*/ /*_.VALSTR___V184*/ meltfptr[183] = (melt_ptr_t) & cdat->dstr_112__SCMATX_CMATCHER; cdat->dstr_112__SCMATX_CMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_112__SCMATX_CMATCHER.val, "SCMATX_CMATCHER", sizeof (cdat->dstr_112__SCMATX_CMATCHER.val) - 1); /*iniobj dsym_113__CLASS_SOURCE_FUNMATCHEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) & cdat->dsym_113__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_113__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_113__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_113__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_113__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 443076985; cdat->dsym_113__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 3; /*inistring dstr_114__CLASS_SOURCE_FUN*/ /*_.VALSTR___V189*/ meltfptr[188] = (melt_ptr_t) & cdat->dstr_114__CLASS_SOURCE_FUN; cdat->dstr_114__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_114__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_114__CLASS_SOURCE_FUN. val) - 1); MELT_LOCATION ("warmelt-macro.melt:127:/ iniobj"); #line 127 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_115__CLASS_SOURCE_FUNMATCHEXPR*/ /*_.VALDATA___V190*/ meltfptr[189] = (melt_ptr_t) & cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_115__CLASS_SOURCE_FUNMATCHEXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_115__CLASS_SOURCE_FUNMATCHEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_hash = 264833157; cdat->dobj_115__CLASS_SOURCE_FUNMATCHEXPR.obj_len = 8; /*inistring dstr_116__CLASS_SOURCE_FUN*/ /*_.VALSTR___V191*/ meltfptr[190] = (melt_ptr_t) & cdat->dstr_116__CLASS_SOURCE_FUN; cdat->dstr_116__CLASS_SOURCE_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_116__CLASS_SOURCE_FUN.val, "CLASS_SOURCE_FUNMATCHEXPR", sizeof (cdat->dstr_116__CLASS_SOURCE_FUN. val) - 1); /*inimult dtup_117__CLASS_SOURCE_FUNMATCHEXPR */ /*_.VALTUP___V192*/ meltfptr[191] = (melt_ptr_t) & cdat->dtup_117__CLASS_SOURCE_FUNMATCHEXPR; cdat->dtup_117__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_117__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*inimult dtup_118__CLASS_SOURCE_FUNMATCHEXPR */ /*_.VALTUP___V197*/ meltfptr[196] = (melt_ptr_t) & cdat->dtup_118__CLASS_SOURCE_FUNMATCHEXPR; cdat->dtup_118__CLASS_SOURCE_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_118__CLASS_SOURCE_FUNMATCHEXPR.nbval = 5; /*iniobj dsym_119__SFMATX_FMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V198*/ meltfptr[197]) /*_.VALDATA___V198*/ meltfptr[197] = (melt_ptr_t) & cdat->dsym_119__SFMATX_FMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_119__SFMATX_FMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_119__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_119__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_119__SFMATX_FMATCHER.obj_hash = 71065864; cdat->dsym_119__SFMATX_FMATCHER.obj_len = 3; /*inistring dstr_120__SFMATX_FMATCHER*/ /*_.VALSTR___V199*/ meltfptr[198] = (melt_ptr_t) & cdat->dstr_120__SFMATX_FMATCHER; cdat->dstr_120__SFMATX_FMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_120__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_120__SFMATX_FMATCHER.val) - 1); /*^iniobj */ #line 127 /*iniobj dobj_121__SFMATX_FMATCHER*/ /*_.VALDATA___V193*/ meltfptr[192] = (melt_ptr_t) & cdat->dobj_121__SFMATX_FMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_121__SFMATX_FMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_121__SFMATX_FMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_121__SFMATX_FMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_121__SFMATX_FMATCHER.obj_num = 3; cdat->dobj_121__SFMATX_FMATCHER.obj_hash = 673164443; cdat->dobj_121__SFMATX_FMATCHER.obj_len = 4; /*inistring dstr_122__SFMATX_FMATCHER*/ /*_.VALSTR___V194*/ meltfptr[193] = (melt_ptr_t) & cdat->dstr_122__SFMATX_FMATCHER; cdat->dstr_122__SFMATX_FMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_122__SFMATX_FMATCHER.val, "SFMATX_FMATCHER", sizeof (cdat->dstr_122__SFMATX_FMATCHER.val) - 1); /*iniobj dsym_123__SFMATX_FMATBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) & cdat->dsym_123__SFMATX_FMATBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_123__SFMATX_FMATBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_123__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_123__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_123__SFMATX_FMATBIND.obj_hash = 413504396; cdat->dsym_123__SFMATX_FMATBIND.obj_len = 3; /*inistring dstr_124__SFMATX_FMATBIND*/ /*_.VALSTR___V201*/ meltfptr[200] = (melt_ptr_t) & cdat->dstr_124__SFMATX_FMATBIND; cdat->dstr_124__SFMATX_FMATBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_124__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_124__SFMATX_FMATBIND.val) - 1); /*^iniobj */ #line 127 /*iniobj dobj_125__SFMATX_FMATBIND*/ /*_.VALDATA___V195*/ meltfptr[194] = (melt_ptr_t) & cdat->dobj_125__SFMATX_FMATBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_125__SFMATX_FMATBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_125__SFMATX_FMATBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_125__SFMATX_FMATBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_125__SFMATX_FMATBIND.obj_num = 4; cdat->dobj_125__SFMATX_FMATBIND.obj_hash = 50501172; cdat->dobj_125__SFMATX_FMATBIND.obj_len = 4; /*inistring dstr_126__SFMATX_FMATBIND*/ /*_.VALSTR___V196*/ meltfptr[195] = (melt_ptr_t) & cdat->dstr_126__SFMATX_FMATBIND; cdat->dstr_126__SFMATX_FMATBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_126__SFMATX_FMATBIND.val, "SFMATX_FMATBIND", sizeof (cdat->dstr_126__SFMATX_FMATBIND.val) - 1); /*iniobj dsym_127__CLASS_SOURCE_TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) & cdat->dsym_127__CLASS_SOURCE_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_127__CLASS_SOURCE_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_127__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_127__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_127__CLASS_SOURCE_TUPLE.obj_hash = 303778336; cdat->dsym_127__CLASS_SOURCE_TUPLE.obj_len = 3; /*inistring dstr_128__CLASS_SOURCE_TUP*/ /*_.VALSTR___V203*/ meltfptr[202] = (melt_ptr_t) & cdat->dstr_128__CLASS_SOURCE_TUP; cdat->dstr_128__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_128__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_128__CLASS_SOURCE_TUP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:138:/ iniobj"); #line 138 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_129__CLASS_SOURCE_TUPLE*/ /*_.VALDATA___V204*/ meltfptr[203] = (melt_ptr_t) & cdat->dobj_129__CLASS_SOURCE_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_129__CLASS_SOURCE_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_129__CLASS_SOURCE_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_129__CLASS_SOURCE_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_hash = 952693984; cdat->dobj_129__CLASS_SOURCE_TUPLE.obj_len = 8; /*inistring dstr_130__CLASS_SOURCE_TUP*/ /*_.VALSTR___V205*/ meltfptr[204] = (melt_ptr_t) & cdat->dstr_130__CLASS_SOURCE_TUP; cdat->dstr_130__CLASS_SOURCE_TUP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_130__CLASS_SOURCE_TUP.val, "CLASS_SOURCE_TUPLE", sizeof (cdat->dstr_130__CLASS_SOURCE_TUP. val) - 1); /*inimult dtup_131__CLASS_SOURCE_TUPLE */ /*_.VALTUP___V206*/ meltfptr[205] = (melt_ptr_t) & cdat->dtup_131__CLASS_SOURCE_TUPLE; cdat->dtup_131__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_131__CLASS_SOURCE_TUPLE.nbval = 5; /*inimult dtup_132__CLASS_SOURCE_TUPLE */ /*_.VALTUP___V207*/ meltfptr[206] = (melt_ptr_t) & cdat->dtup_132__CLASS_SOURCE_TUPLE; cdat->dtup_132__CLASS_SOURCE_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_132__CLASS_SOURCE_TUPLE.nbval = 3; /*iniobj dsym_133__CLASS_SOURCE_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V208*/ meltfptr[207]) /*_.VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) & cdat->dsym_133__CLASS_SOURCE_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_133__CLASS_SOURCE_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_133__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_133__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_133__CLASS_SOURCE_LIST.obj_hash = 62834193; cdat->dsym_133__CLASS_SOURCE_LIST.obj_len = 3; /*inistring dstr_134__CLASS_SOURCE_LIS*/ /*_.VALSTR___V209*/ meltfptr[208] = (melt_ptr_t) & cdat->dstr_134__CLASS_SOURCE_LIS; cdat->dstr_134__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_134__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_134__CLASS_SOURCE_LIS. val) - 1); MELT_LOCATION ("warmelt-macro.melt:145:/ iniobj"); #line 145 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_135__CLASS_SOURCE_LIST*/ /*_.VALDATA___V210*/ meltfptr[209] = (melt_ptr_t) & cdat->dobj_135__CLASS_SOURCE_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_135__CLASS_SOURCE_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_135__CLASS_SOURCE_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_135__CLASS_SOURCE_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_135__CLASS_SOURCE_LIST.obj_num = MELTOBMAG_OBJECT; cdat->dobj_135__CLASS_SOURCE_LIST.obj_hash = 419953514; cdat->dobj_135__CLASS_SOURCE_LIST.obj_len = 8; /*inistring dstr_136__CLASS_SOURCE_LIS*/ /*_.VALSTR___V211*/ meltfptr[210] = (melt_ptr_t) & cdat->dstr_136__CLASS_SOURCE_LIS; cdat->dstr_136__CLASS_SOURCE_LIS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_136__CLASS_SOURCE_LIS.val, "CLASS_SOURCE_LIST", sizeof (cdat->dstr_136__CLASS_SOURCE_LIS. val) - 1); /*inimult dtup_137__CLASS_SOURCE_LIST */ /*_.VALTUP___V212*/ meltfptr[211] = (melt_ptr_t) & cdat->dtup_137__CLASS_SOURCE_LIST; cdat->dtup_137__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_137__CLASS_SOURCE_LIST.nbval = 5; /*inimult dtup_138__CLASS_SOURCE_LIST */ /*_.VALTUP___V213*/ meltfptr[212] = (melt_ptr_t) & cdat->dtup_138__CLASS_SOURCE_LIST; cdat->dtup_138__CLASS_SOURCE_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_138__CLASS_SOURCE_LIST.nbval = 3; /*iniobj dsym_139__CLASS_SOURCE_PROGN*/ /*uniqueobj*/ if (! /*_.VALDATA___V214*/ meltfptr[213]) /*_.VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) & cdat->dsym_139__CLASS_SOURCE_PROGN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_139__CLASS_SOURCE_PROGN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_139__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_139__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_139__CLASS_SOURCE_PROGN.obj_hash = 819854317; cdat->dsym_139__CLASS_SOURCE_PROGN.obj_len = 3; /*inistring dstr_140__CLASS_SOURCE_PRO*/ /*_.VALSTR___V215*/ meltfptr[214] = (melt_ptr_t) & cdat->dstr_140__CLASS_SOURCE_PRO; cdat->dstr_140__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_140__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_140__CLASS_SOURCE_PRO. val) - 1); MELT_LOCATION ("warmelt-macro.melt:152:/ iniobj"); #line 152 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_141__CLASS_SOURCE_PROGN*/ /*_.VALDATA___V216*/ meltfptr[215] = (melt_ptr_t) & cdat->dobj_141__CLASS_SOURCE_PROGN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_141__CLASS_SOURCE_PROGN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_141__CLASS_SOURCE_PROGN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_141__CLASS_SOURCE_PROGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_141__CLASS_SOURCE_PROGN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_141__CLASS_SOURCE_PROGN.obj_hash = 605694917; cdat->dobj_141__CLASS_SOURCE_PROGN.obj_len = 8; /*inistring dstr_142__CLASS_SOURCE_PRO*/ /*_.VALSTR___V217*/ meltfptr[216] = (melt_ptr_t) & cdat->dstr_142__CLASS_SOURCE_PRO; cdat->dstr_142__CLASS_SOURCE_PRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_142__CLASS_SOURCE_PRO.val, "CLASS_SOURCE_PROGN", sizeof (cdat->dstr_142__CLASS_SOURCE_PRO. val) - 1); /*inimult dtup_143__CLASS_SOURCE_PROGN */ /*_.VALTUP___V218*/ meltfptr[217] = (melt_ptr_t) & cdat->dtup_143__CLASS_SOURCE_PROGN; cdat->dtup_143__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_143__CLASS_SOURCE_PROGN.nbval = 4; /*inimult dtup_144__CLASS_SOURCE_PROGN */ /*_.VALTUP___V221*/ meltfptr[220] = (melt_ptr_t) & cdat->dtup_144__CLASS_SOURCE_PROGN; cdat->dtup_144__CLASS_SOURCE_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_144__CLASS_SOURCE_PROGN.nbval = 3; /*iniobj dsym_145__SPROGN_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V222*/ meltfptr[221]) /*_.VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) & cdat->dsym_145__SPROGN_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_145__SPROGN_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_145__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_145__SPROGN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_145__SPROGN_BODY.obj_hash = 1027893439; cdat->dsym_145__SPROGN_BODY.obj_len = 3; /*inistring dstr_146__SPROGN_BODY*/ /*_.VALSTR___V223*/ meltfptr[222] = (melt_ptr_t) & cdat->dstr_146__SPROGN_BODY; cdat->dstr_146__SPROGN_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_146__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_146__SPROGN_BODY.val) - 1); /*^iniobj */ #line 152 /*iniobj dobj_147__SPROGN_BODY*/ /*_.VALDATA___V219*/ meltfptr[218] = (melt_ptr_t) & cdat->dobj_147__SPROGN_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_147__SPROGN_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_147__SPROGN_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_147__SPROGN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_147__SPROGN_BODY.obj_num = 2; cdat->dobj_147__SPROGN_BODY.obj_hash = 18483643; cdat->dobj_147__SPROGN_BODY.obj_len = 4; /*inistring dstr_148__SPROGN_BODY*/ /*_.VALSTR___V220*/ meltfptr[219] = (melt_ptr_t) & cdat->dstr_148__SPROGN_BODY; cdat->dstr_148__SPROGN_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_148__SPROGN_BODY.val, "SPROGN_BODY", sizeof (cdat->dstr_148__SPROGN_BODY.val) - 1); /*iniobj dsym_149__CLASS_SOURCE_RETURN*/ /*uniqueobj*/ if (! /*_.VALDATA___V224*/ meltfptr[223]) /*_.VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) & cdat->dsym_149__CLASS_SOURCE_RETURN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_149__CLASS_SOURCE_RETURN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_149__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_149__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_149__CLASS_SOURCE_RETURN.obj_hash = 288930130; cdat->dsym_149__CLASS_SOURCE_RETURN.obj_len = 3; /*inistring dstr_150__CLASS_SOURCE_RET*/ /*_.VALSTR___V225*/ meltfptr[224] = (melt_ptr_t) & cdat->dstr_150__CLASS_SOURCE_RET; cdat->dstr_150__CLASS_SOURCE_RET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_150__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_150__CLASS_SOURCE_RET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:160:/ iniobj"); #line 160 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_151__CLASS_SOURCE_RETURN*/ /*_.VALDATA___V226*/ meltfptr[225] = (melt_ptr_t) & cdat->dobj_151__CLASS_SOURCE_RETURN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_151__CLASS_SOURCE_RETURN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_151__CLASS_SOURCE_RETURN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_151__CLASS_SOURCE_RETURN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_151__CLASS_SOURCE_RETURN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_151__CLASS_SOURCE_RETURN.obj_hash = 856065982; cdat->dobj_151__CLASS_SOURCE_RETURN.obj_len = 8; /*inistring dstr_152__CLASS_SOURCE_RET*/ /*_.VALSTR___V227*/ meltfptr[226] = (melt_ptr_t) & cdat->dstr_152__CLASS_SOURCE_RET; cdat->dstr_152__CLASS_SOURCE_RET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_152__CLASS_SOURCE_RET.val, "CLASS_SOURCE_RETURN", sizeof (cdat->dstr_152__CLASS_SOURCE_RET. val) - 1); /*inimult dtup_153__CLASS_SOURCE_RETURN */ /*_.VALTUP___V228*/ meltfptr[227] = (melt_ptr_t) & cdat->dtup_153__CLASS_SOURCE_RETURN; cdat->dtup_153__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_153__CLASS_SOURCE_RETURN.nbval = 5; /*inimult dtup_154__CLASS_SOURCE_RETURN */ /*_.VALTUP___V229*/ meltfptr[228] = (melt_ptr_t) & cdat->dtup_154__CLASS_SOURCE_RETURN; cdat->dtup_154__CLASS_SOURCE_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_154__CLASS_SOURCE_RETURN.nbval = 3; /*iniobj dsym_155__CLASS_SOURCE_SETQ*/ /*uniqueobj*/ if (! /*_.VALDATA___V230*/ meltfptr[229]) /*_.VALDATA___V230*/ meltfptr[229] = (melt_ptr_t) & cdat->dsym_155__CLASS_SOURCE_SETQ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_155__CLASS_SOURCE_SETQ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_155__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_155__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_155__CLASS_SOURCE_SETQ.obj_hash = 335918923; cdat->dsym_155__CLASS_SOURCE_SETQ.obj_len = 3; /*inistring dstr_156__CLASS_SOURCE_SET*/ /*_.VALSTR___V231*/ meltfptr[230] = (melt_ptr_t) & cdat->dstr_156__CLASS_SOURCE_SET; cdat->dstr_156__CLASS_SOURCE_SET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_156__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_156__CLASS_SOURCE_SET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:167:/ iniobj"); #line 167 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_157__CLASS_SOURCE_SETQ*/ /*_.VALDATA___V232*/ meltfptr[231] = (melt_ptr_t) & cdat->dobj_157__CLASS_SOURCE_SETQ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_157__CLASS_SOURCE_SETQ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_157__CLASS_SOURCE_SETQ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_157__CLASS_SOURCE_SETQ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_157__CLASS_SOURCE_SETQ.obj_num = MELTOBMAG_OBJECT; cdat->dobj_157__CLASS_SOURCE_SETQ.obj_hash = 334980351; cdat->dobj_157__CLASS_SOURCE_SETQ.obj_len = 8; /*inistring dstr_158__CLASS_SOURCE_SET*/ /*_.VALSTR___V233*/ meltfptr[232] = (melt_ptr_t) & cdat->dstr_158__CLASS_SOURCE_SET; cdat->dstr_158__CLASS_SOURCE_SET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_158__CLASS_SOURCE_SET.val, "CLASS_SOURCE_SETQ", sizeof (cdat->dstr_158__CLASS_SOURCE_SET. val) - 1); /*inimult dtup_159__CLASS_SOURCE_SETQ */ /*_.VALTUP___V234*/ meltfptr[233] = (melt_ptr_t) & cdat->dtup_159__CLASS_SOURCE_SETQ; cdat->dtup_159__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_159__CLASS_SOURCE_SETQ.nbval = 4; /*inimult dtup_160__CLASS_SOURCE_SETQ */ /*_.VALTUP___V239*/ meltfptr[238] = (melt_ptr_t) & cdat->dtup_160__CLASS_SOURCE_SETQ; cdat->dtup_160__CLASS_SOURCE_SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_160__CLASS_SOURCE_SETQ.nbval = 4; /*iniobj dsym_161__SSTQ_VAR*/ /*uniqueobj*/ if (! /*_.VALDATA___V240*/ meltfptr[239]) /*_.VALDATA___V240*/ meltfptr[239] = (melt_ptr_t) & cdat->dsym_161__SSTQ_VAR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_161__SSTQ_VAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_161__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_161__SSTQ_VAR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_161__SSTQ_VAR.obj_hash = 140668190; cdat->dsym_161__SSTQ_VAR.obj_len = 3; /*inistring dstr_162__SSTQ_VAR*/ /*_.VALSTR___V241*/ meltfptr[240] = (melt_ptr_t) & cdat->dstr_162__SSTQ_VAR; cdat->dstr_162__SSTQ_VAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_162__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_162__SSTQ_VAR.val) - 1); /*^iniobj */ #line 167 /*iniobj dobj_163__SSTQ_VAR*/ /*_.VALDATA___V235*/ meltfptr[234] = (melt_ptr_t) & cdat->dobj_163__SSTQ_VAR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_163__SSTQ_VAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_163__SSTQ_VAR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_163__SSTQ_VAR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_163__SSTQ_VAR.obj_num = 2; cdat->dobj_163__SSTQ_VAR.obj_hash = 517944653; cdat->dobj_163__SSTQ_VAR.obj_len = 4; /*inistring dstr_164__SSTQ_VAR*/ /*_.VALSTR___V236*/ meltfptr[235] = (melt_ptr_t) & cdat->dstr_164__SSTQ_VAR; cdat->dstr_164__SSTQ_VAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_164__SSTQ_VAR.val, "SSTQ_VAR", sizeof (cdat->dstr_164__SSTQ_VAR.val) - 1); /*iniobj dsym_165__SSTQ_EXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V242*/ meltfptr[241]) /*_.VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) & cdat->dsym_165__SSTQ_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_165__SSTQ_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_165__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_165__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_165__SSTQ_EXPR.obj_hash = 13829252; cdat->dsym_165__SSTQ_EXPR.obj_len = 3; /*inistring dstr_166__SSTQ_EXPR*/ /*_.VALSTR___V243*/ meltfptr[242] = (melt_ptr_t) & cdat->dstr_166__SSTQ_EXPR; cdat->dstr_166__SSTQ_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_166__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_166__SSTQ_EXPR.val) - 1); /*^iniobj */ #line 167 /*iniobj dobj_167__SSTQ_EXPR*/ /*_.VALDATA___V237*/ meltfptr[236] = (melt_ptr_t) & cdat->dobj_167__SSTQ_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_167__SSTQ_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_167__SSTQ_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_167__SSTQ_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_167__SSTQ_EXPR.obj_num = 3; cdat->dobj_167__SSTQ_EXPR.obj_hash = 297716340; cdat->dobj_167__SSTQ_EXPR.obj_len = 4; /*inistring dstr_168__SSTQ_EXPR*/ /*_.VALSTR___V238*/ meltfptr[237] = (melt_ptr_t) & cdat->dstr_168__SSTQ_EXPR; cdat->dstr_168__SSTQ_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_168__SSTQ_EXPR.val, "SSTQ_EXPR", sizeof (cdat->dstr_168__SSTQ_EXPR.val) - 1); /*iniobj dsym_169__CLASS_SOURCE_COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V244*/ meltfptr[243]) /*_.VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) & cdat->dsym_169__CLASS_SOURCE_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_169__CLASS_SOURCE_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_169__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_169__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_169__CLASS_SOURCE_COMMENT.obj_hash = 156677751; cdat->dsym_169__CLASS_SOURCE_COMMENT.obj_len = 3; /*inistring dstr_170__CLASS_SOURCE_COM*/ /*_.VALSTR___V245*/ meltfptr[244] = (melt_ptr_t) & cdat->dstr_170__CLASS_SOURCE_COM; cdat->dstr_170__CLASS_SOURCE_COM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_170__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_170__CLASS_SOURCE_COM. val) - 1); MELT_LOCATION ("warmelt-macro.melt:176:/ iniobj"); #line 176 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_171__CLASS_SOURCE_COMMENT*/ /*_.VALDATA___V246*/ meltfptr[245] = (melt_ptr_t) & cdat->dobj_171__CLASS_SOURCE_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_171__CLASS_SOURCE_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_171__CLASS_SOURCE_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_171__CLASS_SOURCE_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_hash = 532297103; cdat->dobj_171__CLASS_SOURCE_COMMENT.obj_len = 8; /*inistring dstr_172__CLASS_SOURCE_COM*/ /*_.VALSTR___V247*/ meltfptr[246] = (melt_ptr_t) & cdat->dstr_172__CLASS_SOURCE_COM; cdat->dstr_172__CLASS_SOURCE_COM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_172__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMMENT", sizeof (cdat->dstr_172__CLASS_SOURCE_COM. val) - 1); /*inimult dtup_173__CLASS_SOURCE_COMMENT */ /*_.VALTUP___V248*/ meltfptr[247] = (melt_ptr_t) & cdat->dtup_173__CLASS_SOURCE_COMMENT; cdat->dtup_173__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_173__CLASS_SOURCE_COMMENT.nbval = 4; /*inimult dtup_174__CLASS_SOURCE_COMMENT */ /*_.VALTUP___V251*/ meltfptr[250] = (melt_ptr_t) & cdat->dtup_174__CLASS_SOURCE_COMMENT; cdat->dtup_174__CLASS_SOURCE_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_174__CLASS_SOURCE_COMMENT.nbval = 3; /*iniobj dsym_175__SCOMM_STR*/ /*uniqueobj*/ if (! /*_.VALDATA___V252*/ meltfptr[251]) /*_.VALDATA___V252*/ meltfptr[251] = (melt_ptr_t) & cdat->dsym_175__SCOMM_STR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_175__SCOMM_STR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_175__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_175__SCOMM_STR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_175__SCOMM_STR.obj_hash = 224660524; cdat->dsym_175__SCOMM_STR.obj_len = 3; /*inistring dstr_176__SCOMM_STR*/ /*_.VALSTR___V253*/ meltfptr[252] = (melt_ptr_t) & cdat->dstr_176__SCOMM_STR; cdat->dstr_176__SCOMM_STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_176__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_176__SCOMM_STR.val) - 1); /*^iniobj */ #line 176 /*iniobj dobj_177__SCOMM_STR*/ /*_.VALDATA___V249*/ meltfptr[248] = (melt_ptr_t) & cdat->dobj_177__SCOMM_STR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_177__SCOMM_STR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_177__SCOMM_STR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_177__SCOMM_STR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_177__SCOMM_STR.obj_num = 2; cdat->dobj_177__SCOMM_STR.obj_hash = 595458464; cdat->dobj_177__SCOMM_STR.obj_len = 4; /*inistring dstr_178__SCOMM_STR*/ /*_.VALSTR___V250*/ meltfptr[249] = (melt_ptr_t) & cdat->dstr_178__SCOMM_STR; cdat->dstr_178__SCOMM_STR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_178__SCOMM_STR.val, "SCOMM_STR", sizeof (cdat->dstr_178__SCOMM_STR.val) - 1); /*iniobj dsym_179__CLASS_SOURCE_CHEADER*/ /*uniqueobj*/ if (! /*_.VALDATA___V254*/ meltfptr[253]) /*_.VALDATA___V254*/ meltfptr[253] = (melt_ptr_t) & cdat->dsym_179__CLASS_SOURCE_CHEADER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_179__CLASS_SOURCE_CHEADER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_179__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_179__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_179__CLASS_SOURCE_CHEADER.obj_hash = 496789791; cdat->dsym_179__CLASS_SOURCE_CHEADER.obj_len = 3; /*inistring dstr_180__CLASS_SOURCE_CHE*/ /*_.VALSTR___V255*/ meltfptr[254] = (melt_ptr_t) & cdat->dstr_180__CLASS_SOURCE_CHE; cdat->dstr_180__CLASS_SOURCE_CHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_180__CLASS_SOURCE_CHE.val, "CLASS_SOURCE_CHEADER", sizeof (cdat->dstr_180__CLASS_SOURCE_CHE. val) - 1); MELT_LOCATION ("warmelt-macro.melt:184:/ iniobj"); #line 184 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_181__CLASS_SOURCE_CHEADER*/ /*_.VALDATA___V256*/ meltfptr[255] = (melt_ptr_t) & cdat->dobj_181__CLASS_SOURCE_CHEADER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_181__CLASS_SOURCE_CHEADER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_181__CLASS_SOURCE_CHEADER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_181__CLASS_SOURCE_CHEADER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_hash = 429150863; cdat->dobj_181__CLASS_SOURCE_CHEADER.obj_len = 8; /*inistring dstr_182__CLASS_SOURCE_CHE*/ /*_.VALSTR___V257*/ meltfptr[256] = (melt_ptr_t) & cdat->dstr_182__CLASS_SOURCE_CHE; cdat->dstr_182__CLASS_SOURCE_CHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_182__CLASS_SOURCE_CHE.val, "CLASS_SOURCE_CHEADER", sizeof (cdat->dstr_182__CLASS_SOURCE_CHE. val) - 1); /*inimult dtup_183__CLASS_SOURCE_CHEADER */ /*_.VALTUP___V258*/ meltfptr[257] = (melt_ptr_t) & cdat->dtup_183__CLASS_SOURCE_CHEADER; cdat->dtup_183__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_183__CLASS_SOURCE_CHEADER.nbval = 4; /*inimult dtup_184__CLASS_SOURCE_CHEADER */ /*_.VALTUP___V261*/ meltfptr[260] = (melt_ptr_t) & cdat->dtup_184__CLASS_SOURCE_CHEADER; cdat->dtup_184__CLASS_SOURCE_CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_184__CLASS_SOURCE_CHEADER.nbval = 3; /*iniobj dsym_185__SCHEADER_CODESTRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V262*/ meltfptr[261]) /*_.VALDATA___V262*/ meltfptr[261] = (melt_ptr_t) & cdat->dsym_185__SCHEADER_CODESTRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_185__SCHEADER_CODESTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_185__SCHEADER_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_185__SCHEADER_CODESTRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_185__SCHEADER_CODESTRING.obj_hash = 615894156; cdat->dsym_185__SCHEADER_CODESTRING.obj_len = 3; /*inistring dstr_186__SCHEADER_CODESTR*/ /*_.VALSTR___V263*/ meltfptr[262] = (melt_ptr_t) & cdat->dstr_186__SCHEADER_CODESTR; cdat->dstr_186__SCHEADER_CODESTR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_186__SCHEADER_CODESTR.val, "SCHEADER_CODESTRING", sizeof (cdat->dstr_186__SCHEADER_CODESTR. val) - 1); /*^iniobj */ #line 184 /*iniobj dobj_187__SCHEADER_CODESTRING*/ /*_.VALDATA___V259*/ meltfptr[258] = (melt_ptr_t) & cdat->dobj_187__SCHEADER_CODESTRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_187__SCHEADER_CODESTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_187__SCHEADER_CODESTRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_187__SCHEADER_CODESTRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_187__SCHEADER_CODESTRING.obj_num = 2; cdat->dobj_187__SCHEADER_CODESTRING.obj_hash = 47570347; cdat->dobj_187__SCHEADER_CODESTRING.obj_len = 4; /*inistring dstr_188__SCHEADER_CODESTR*/ /*_.VALSTR___V260*/ meltfptr[259] = (melt_ptr_t) & cdat->dstr_188__SCHEADER_CODESTR; cdat->dstr_188__SCHEADER_CODESTR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_188__SCHEADER_CODESTR.val, "SCHEADER_CODESTRING", sizeof (cdat->dstr_188__SCHEADER_CODESTR. val) - 1); /*iniobj dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*uniqueobj*/ if (! /*_.VALDATA___V264*/ meltfptr[263]) /*_.VALDATA___V264*/ meltfptr[263] = (melt_ptr_t) & cdat->dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 958702304; cdat->dsym_189__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 3; /*inistring dstr_190__CLASS_SOURCE_USE*/ /*_.VALSTR___V265*/ meltfptr[264] = (melt_ptr_t) & cdat->dstr_190__CLASS_SOURCE_USE; cdat->dstr_190__CLASS_SOURCE_USE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_190__CLASS_SOURCE_USE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (cdat->dstr_190__CLASS_SOURCE_USE. val) - 1); MELT_LOCATION ("warmelt-macro.melt:194:/ iniobj"); #line 194 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG*/ /*_.VALDATA___V266*/ meltfptr[265] = (melt_ptr_t) & cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_num = MELTOBMAG_OBJECT; cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 338771978; cdat->dobj_191__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 8; /*inistring dstr_192__CLASS_SOURCE_USE*/ /*_.VALSTR___V267*/ meltfptr[266] = (melt_ptr_t) & cdat->dstr_192__CLASS_SOURCE_USE; cdat->dstr_192__CLASS_SOURCE_USE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_192__CLASS_SOURCE_USE.val, "CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", sizeof (cdat->dstr_192__CLASS_SOURCE_USE. val) - 1); /*inimult dtup_193__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ /*_.VALTUP___V268*/ meltfptr[267] = (melt_ptr_t) & cdat->dtup_193__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; cdat->dtup_193__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_193__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 4; /*inimult dtup_194__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ /*_.VALTUP___V271*/ meltfptr[270] = (melt_ptr_t) & cdat->dtup_194__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; cdat->dtup_194__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_194__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 3; /*iniobj dsym_195__SUSEPACKAGE_PKGTUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V272*/ meltfptr[271]) /*_.VALDATA___V272*/ meltfptr[271] = (melt_ptr_t) & cdat->dsym_195__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_195__SUSEPACKAGE_PKGTUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_195__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_195__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_195__SUSEPACKAGE_PKGTUPLE.obj_hash = 122969018; cdat->dsym_195__SUSEPACKAGE_PKGTUPLE.obj_len = 3; /*inistring dstr_196__SUSEPACKAGE_PKGT*/ /*_.VALSTR___V273*/ meltfptr[272] = (melt_ptr_t) & cdat->dstr_196__SUSEPACKAGE_PKGT; cdat->dstr_196__SUSEPACKAGE_PKGT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_196__SUSEPACKAGE_PKGT.val, "SUSEPACKAGE_PKGTUPLE", sizeof (cdat->dstr_196__SUSEPACKAGE_PKGT. val) - 1); /*^iniobj */ #line 194 /*iniobj dobj_197__SUSEPACKAGE_PKGTUPLE*/ /*_.VALDATA___V269*/ meltfptr[268] = (melt_ptr_t) & cdat->dobj_197__SUSEPACKAGE_PKGTUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_197__SUSEPACKAGE_PKGTUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_197__SUSEPACKAGE_PKGTUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_num = 2; cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_hash = 484804283; cdat->dobj_197__SUSEPACKAGE_PKGTUPLE.obj_len = 4; /*inistring dstr_198__SUSEPACKAGE_PKGT*/ /*_.VALSTR___V270*/ meltfptr[269] = (melt_ptr_t) & cdat->dstr_198__SUSEPACKAGE_PKGT; cdat->dstr_198__SUSEPACKAGE_PKGT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_198__SUSEPACKAGE_PKGT.val, "SUSEPACKAGE_PKGTUPLE", sizeof (cdat->dstr_198__SUSEPACKAGE_PKGT. val) - 1); /*iniobj dsym_199__CLASS_SOURCE_QUOTE*/ /*uniqueobj*/ if (! /*_.VALDATA___V274*/ meltfptr[273]) /*_.VALDATA___V274*/ meltfptr[273] = (melt_ptr_t) & cdat->dsym_199__CLASS_SOURCE_QUOTE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_199__CLASS_SOURCE_QUOTE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_199__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_199__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_199__CLASS_SOURCE_QUOTE.obj_hash = 488554331; cdat->dsym_199__CLASS_SOURCE_QUOTE.obj_len = 3; /*inistring dstr_200__CLASS_SOURCE_QUO*/ /*_.VALSTR___V275*/ meltfptr[274] = (melt_ptr_t) & cdat->dstr_200__CLASS_SOURCE_QUO; cdat->dstr_200__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_200__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_200__CLASS_SOURCE_QUO. val) - 1); MELT_LOCATION ("warmelt-macro.melt:204:/ iniobj"); #line 204 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_201__CLASS_SOURCE_QUOTE*/ /*_.VALDATA___V276*/ meltfptr[275] = (melt_ptr_t) & cdat->dobj_201__CLASS_SOURCE_QUOTE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_201__CLASS_SOURCE_QUOTE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_201__CLASS_SOURCE_QUOTE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_201__CLASS_SOURCE_QUOTE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_hash = 175857055; cdat->dobj_201__CLASS_SOURCE_QUOTE.obj_len = 8; /*inistring dstr_202__CLASS_SOURCE_QUO*/ /*_.VALSTR___V277*/ meltfptr[276] = (melt_ptr_t) & cdat->dstr_202__CLASS_SOURCE_QUO; cdat->dstr_202__CLASS_SOURCE_QUO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_202__CLASS_SOURCE_QUO.val, "CLASS_SOURCE_QUOTE", sizeof (cdat->dstr_202__CLASS_SOURCE_QUO. val) - 1); /*inimult dtup_203__CLASS_SOURCE_QUOTE */ /*_.VALTUP___V278*/ meltfptr[277] = (melt_ptr_t) & cdat->dtup_203__CLASS_SOURCE_QUOTE; cdat->dtup_203__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_203__CLASS_SOURCE_QUOTE.nbval = 4; /*inimult dtup_204__CLASS_SOURCE_QUOTE */ /*_.VALTUP___V281*/ meltfptr[280] = (melt_ptr_t) & cdat->dtup_204__CLASS_SOURCE_QUOTE; cdat->dtup_204__CLASS_SOURCE_QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_204__CLASS_SOURCE_QUOTE.nbval = 3; /*iniobj dsym_205__SQUOTED*/ /*uniqueobj*/ if (! /*_.VALDATA___V282*/ meltfptr[281]) /*_.VALDATA___V282*/ meltfptr[281] = (melt_ptr_t) & cdat->dsym_205__SQUOTED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_205__SQUOTED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_205__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_205__SQUOTED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_205__SQUOTED.obj_hash = 28914429; cdat->dsym_205__SQUOTED.obj_len = 3; /*inistring dstr_206__SQUOTED*/ /*_.VALSTR___V283*/ meltfptr[282] = (melt_ptr_t) & cdat->dstr_206__SQUOTED; cdat->dstr_206__SQUOTED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_206__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_206__SQUOTED.val) - 1); /*^iniobj */ #line 204 /*iniobj dobj_207__SQUOTED*/ /*_.VALDATA___V279*/ meltfptr[278] = (melt_ptr_t) & cdat->dobj_207__SQUOTED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_207__SQUOTED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_207__SQUOTED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_207__SQUOTED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_207__SQUOTED.obj_num = 2; cdat->dobj_207__SQUOTED.obj_hash = 671854136; cdat->dobj_207__SQUOTED.obj_len = 4; /*inistring dstr_208__SQUOTED*/ /*_.VALSTR___V280*/ meltfptr[279] = (melt_ptr_t) & cdat->dstr_208__SQUOTED; cdat->dstr_208__SQUOTED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_208__SQUOTED.val, "SQUOTED", sizeof (cdat->dstr_208__SQUOTED.val) - 1); /*iniobj dsym_209__CLASS_SOURCE_EXPORTCOMMON*/ /*uniqueobj*/ if (! /*_.VALDATA___V284*/ meltfptr[283]) /*_.VALDATA___V284*/ meltfptr[283] = (melt_ptr_t) & cdat->dsym_209__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_209__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_209__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_209__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_209__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 334297015; cdat->dsym_209__CLASS_SOURCE_EXPORTCOMMON.obj_len = 3; /*inistring dstr_210__CLASS_SOURCE_EXP*/ /*_.VALSTR___V285*/ meltfptr[284] = (melt_ptr_t) & cdat->dstr_210__CLASS_SOURCE_EXP; cdat->dstr_210__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_210__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_210__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:211:/ iniobj"); #line 211 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_211__CLASS_SOURCE_EXPORTCOMMON*/ /*_.VALDATA___V286*/ meltfptr[285] = (melt_ptr_t) & cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_211__CLASS_SOURCE_EXPORTCOMMON", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_211__CLASS_SOURCE_EXPORTCOMMON", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_num = MELTOBMAG_OBJECT; cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_hash = 1015170934; cdat->dobj_211__CLASS_SOURCE_EXPORTCOMMON.obj_len = 8; /*inistring dstr_212__CLASS_SOURCE_EXP*/ /*_.VALSTR___V287*/ meltfptr[286] = (melt_ptr_t) & cdat->dstr_212__CLASS_SOURCE_EXP; cdat->dstr_212__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_212__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORTCOMMON", sizeof (cdat->dstr_212__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_213__CLASS_SOURCE_EXPORTCOMMON */ /*_.VALTUP___V288*/ meltfptr[287] = (melt_ptr_t) & cdat->dtup_213__CLASS_SOURCE_EXPORTCOMMON; cdat->dtup_213__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_213__CLASS_SOURCE_EXPORTCOMMON.nbval = 4; /*inimult dtup_214__CLASS_SOURCE_EXPORTCOMMON */ /*_.VALTUP___V291*/ meltfptr[290] = (melt_ptr_t) & cdat->dtup_214__CLASS_SOURCE_EXPORTCOMMON; cdat->dtup_214__CLASS_SOURCE_EXPORTCOMMON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_214__CLASS_SOURCE_EXPORTCOMMON.nbval = 3; /*iniobj dsym_215__SEXPORT_NAMES*/ /*uniqueobj*/ if (! /*_.VALDATA___V292*/ meltfptr[291]) /*_.VALDATA___V292*/ meltfptr[291] = (melt_ptr_t) & cdat->dsym_215__SEXPORT_NAMES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_215__SEXPORT_NAMES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_215__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_215__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_215__SEXPORT_NAMES.obj_hash = 1015438775; cdat->dsym_215__SEXPORT_NAMES.obj_len = 3; /*inistring dstr_216__SEXPORT_NAMES*/ /*_.VALSTR___V293*/ meltfptr[292] = (melt_ptr_t) & cdat->dstr_216__SEXPORT_NAMES; cdat->dstr_216__SEXPORT_NAMES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_216__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_216__SEXPORT_NAMES.val) - 1); /*^iniobj */ #line 211 /*iniobj dobj_217__SEXPORT_NAMES*/ /*_.VALDATA___V289*/ meltfptr[288] = (melt_ptr_t) & cdat->dobj_217__SEXPORT_NAMES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_217__SEXPORT_NAMES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_217__SEXPORT_NAMES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_217__SEXPORT_NAMES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_217__SEXPORT_NAMES.obj_num = 2; cdat->dobj_217__SEXPORT_NAMES.obj_hash = 1012169506; cdat->dobj_217__SEXPORT_NAMES.obj_len = 4; /*inistring dstr_218__SEXPORT_NAMES*/ /*_.VALSTR___V290*/ meltfptr[289] = (melt_ptr_t) & cdat->dstr_218__SEXPORT_NAMES; cdat->dstr_218__SEXPORT_NAMES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_218__SEXPORT_NAMES.val, "SEXPORT_NAMES", sizeof (cdat->dstr_218__SEXPORT_NAMES.val) - 1); /*iniobj dsym_219__CLASS_SOURCE_EXPORT_VALUES*/ /*uniqueobj*/ if (! /*_.VALDATA___V294*/ meltfptr[293]) /*_.VALDATA___V294*/ meltfptr[293] = (melt_ptr_t) & cdat->dsym_219__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_219__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_219__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_219__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_219__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 1002145334; cdat->dsym_219__CLASS_SOURCE_EXPORT_VALUES.obj_len = 3; /*inistring dstr_220__CLASS_SOURCE_EXP*/ /*_.VALSTR___V295*/ meltfptr[294] = (melt_ptr_t) & cdat->dstr_220__CLASS_SOURCE_EXP; cdat->dstr_220__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_220__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_220__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:220:/ iniobj"); #line 220 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_221__CLASS_SOURCE_EXPORT_VALUES*/ /*_.VALDATA___V296*/ meltfptr[295] = (melt_ptr_t) & cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_221__CLASS_SOURCE_EXPORT_VALUES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_221__CLASS_SOURCE_EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_num = MELTOBMAG_OBJECT; cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_hash = 480638668; cdat->dobj_221__CLASS_SOURCE_EXPORT_VALUES.obj_len = 8; /*inistring dstr_222__CLASS_SOURCE_EXP*/ /*_.VALSTR___V297*/ meltfptr[296] = (melt_ptr_t) & cdat->dstr_222__CLASS_SOURCE_EXP; cdat->dstr_222__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_222__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_VALUES", sizeof (cdat->dstr_222__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_223__CLASS_SOURCE_EXPORT_VALUES */ /*_.VALTUP___V298*/ meltfptr[297] = (melt_ptr_t) & cdat->dtup_223__CLASS_SOURCE_EXPORT_VALUES; cdat->dtup_223__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_223__CLASS_SOURCE_EXPORT_VALUES.nbval = 5; /*inimult dtup_224__CLASS_SOURCE_EXPORT_VALUES */ /*_.VALTUP___V299*/ meltfptr[298] = (melt_ptr_t) & cdat->dtup_224__CLASS_SOURCE_EXPORT_VALUES; cdat->dtup_224__CLASS_SOURCE_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_224__CLASS_SOURCE_EXPORT_VALUES.nbval = 3; /*iniobj dsym_225__CLASS_SOURCE_EXPORT_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V300*/ meltfptr[299]) /*_.VALDATA___V300*/ meltfptr[299] = (melt_ptr_t) & cdat->dsym_225__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_225__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_225__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_225__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_225__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 460824012; cdat->dsym_225__CLASS_SOURCE_EXPORT_CLASS.obj_len = 3; /*inistring dstr_226__CLASS_SOURCE_EXP*/ /*_.VALSTR___V301*/ meltfptr[300] = (melt_ptr_t) & cdat->dstr_226__CLASS_SOURCE_EXP; cdat->dstr_226__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_226__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_226__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:227:/ iniobj"); #line 227 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_227__CLASS_SOURCE_EXPORT_CLASS*/ /*_.VALDATA___V302*/ meltfptr[301] = (melt_ptr_t) & cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_227__CLASS_SOURCE_EXPORT_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_227__CLASS_SOURCE_EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_num = MELTOBMAG_OBJECT; cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_hash = 672349188; cdat->dobj_227__CLASS_SOURCE_EXPORT_CLASS.obj_len = 8; /*inistring dstr_228__CLASS_SOURCE_EXP*/ /*_.VALSTR___V303*/ meltfptr[302] = (melt_ptr_t) & cdat->dstr_228__CLASS_SOURCE_EXP; cdat->dstr_228__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_228__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_CLASS", sizeof (cdat->dstr_228__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_229__CLASS_SOURCE_EXPORT_CLASS */ /*_.VALTUP___V304*/ meltfptr[303] = (melt_ptr_t) & cdat->dtup_229__CLASS_SOURCE_EXPORT_CLASS; cdat->dtup_229__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_229__CLASS_SOURCE_EXPORT_CLASS.nbval = 5; /*inimult dtup_230__CLASS_SOURCE_EXPORT_CLASS */ /*_.VALTUP___V305*/ meltfptr[304] = (melt_ptr_t) & cdat->dtup_230__CLASS_SOURCE_EXPORT_CLASS; cdat->dtup_230__CLASS_SOURCE_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_230__CLASS_SOURCE_EXPORT_CLASS.nbval = 3; /*iniobj dsym_231__CLASS_SOURCE_EXPORT_MACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V306*/ meltfptr[305]) /*_.VALDATA___V306*/ meltfptr[305] = (melt_ptr_t) & cdat->dsym_231__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_231__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_231__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_231__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_231__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 228690420; cdat->dsym_231__CLASS_SOURCE_EXPORT_MACRO.obj_len = 3; /*inistring dstr_232__CLASS_SOURCE_EXP*/ /*_.VALSTR___V307*/ meltfptr[306] = (melt_ptr_t) & cdat->dstr_232__CLASS_SOURCE_EXP; cdat->dstr_232__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_232__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_232__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:236:/ iniobj"); #line 236 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_233__CLASS_SOURCE_EXPORT_MACRO*/ /*_.VALDATA___V308*/ meltfptr[307] = (melt_ptr_t) & cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_233__CLASS_SOURCE_EXPORT_MACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_233__CLASS_SOURCE_EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_num = MELTOBMAG_OBJECT; cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_hash = 98888438; cdat->dobj_233__CLASS_SOURCE_EXPORT_MACRO.obj_len = 8; /*inistring dstr_234__CLASS_SOURCE_EXP*/ /*_.VALSTR___V309*/ meltfptr[308] = (melt_ptr_t) & cdat->dstr_234__CLASS_SOURCE_EXP; cdat->dstr_234__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_234__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_MACRO", sizeof (cdat->dstr_234__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_235__CLASS_SOURCE_EXPORT_MACRO */ /*_.VALTUP___V310*/ meltfptr[309] = (melt_ptr_t) & cdat->dtup_235__CLASS_SOURCE_EXPORT_MACRO; cdat->dtup_235__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_235__CLASS_SOURCE_EXPORT_MACRO.nbval = 4; /*inimult dtup_236__CLASS_SOURCE_EXPORT_MACRO */ /*_.VALTUP___V317*/ meltfptr[316] = (melt_ptr_t) & cdat->dtup_236__CLASS_SOURCE_EXPORT_MACRO; cdat->dtup_236__CLASS_SOURCE_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_236__CLASS_SOURCE_EXPORT_MACRO.nbval = 5; /*iniobj dsym_237__SEXPMAC_MNAME*/ /*uniqueobj*/ if (! /*_.VALDATA___V318*/ meltfptr[317]) /*_.VALDATA___V318*/ meltfptr[317] = (melt_ptr_t) & cdat->dsym_237__SEXPMAC_MNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_237__SEXPMAC_MNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_237__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_237__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_237__SEXPMAC_MNAME.obj_hash = 179808938; cdat->dsym_237__SEXPMAC_MNAME.obj_len = 3; /*inistring dstr_238__SEXPMAC_MNAME*/ /*_.VALSTR___V319*/ meltfptr[318] = (melt_ptr_t) & cdat->dstr_238__SEXPMAC_MNAME; cdat->dstr_238__SEXPMAC_MNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_238__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_238__SEXPMAC_MNAME.val) - 1); /*^iniobj */ #line 236 /*iniobj dobj_239__SEXPMAC_MNAME*/ /*_.VALDATA___V311*/ meltfptr[310] = (melt_ptr_t) & cdat->dobj_239__SEXPMAC_MNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_239__SEXPMAC_MNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_239__SEXPMAC_MNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_239__SEXPMAC_MNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_239__SEXPMAC_MNAME.obj_num = 2; cdat->dobj_239__SEXPMAC_MNAME.obj_hash = 639666053; cdat->dobj_239__SEXPMAC_MNAME.obj_len = 4; /*inistring dstr_240__SEXPMAC_MNAME*/ /*_.VALSTR___V312*/ meltfptr[311] = (melt_ptr_t) & cdat->dstr_240__SEXPMAC_MNAME; cdat->dstr_240__SEXPMAC_MNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_240__SEXPMAC_MNAME.val, "SEXPMAC_MNAME", sizeof (cdat->dstr_240__SEXPMAC_MNAME.val) - 1); /*iniobj dsym_241__SEXPMAC_MVAL*/ /*uniqueobj*/ if (! /*_.VALDATA___V320*/ meltfptr[319]) /*_.VALDATA___V320*/ meltfptr[319] = (melt_ptr_t) & cdat->dsym_241__SEXPMAC_MVAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_241__SEXPMAC_MVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_241__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_241__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_241__SEXPMAC_MVAL.obj_hash = 95565036; cdat->dsym_241__SEXPMAC_MVAL.obj_len = 3; /*inistring dstr_242__SEXPMAC_MVAL*/ /*_.VALSTR___V321*/ meltfptr[320] = (melt_ptr_t) & cdat->dstr_242__SEXPMAC_MVAL; cdat->dstr_242__SEXPMAC_MVAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_242__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_242__SEXPMAC_MVAL.val) - 1); /*^iniobj */ #line 236 /*iniobj dobj_243__SEXPMAC_MVAL*/ /*_.VALDATA___V313*/ meltfptr[312] = (melt_ptr_t) & cdat->dobj_243__SEXPMAC_MVAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_243__SEXPMAC_MVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_243__SEXPMAC_MVAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_243__SEXPMAC_MVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_243__SEXPMAC_MVAL.obj_num = 3; cdat->dobj_243__SEXPMAC_MVAL.obj_hash = 306598138; cdat->dobj_243__SEXPMAC_MVAL.obj_len = 4; /*inistring dstr_244__SEXPMAC_MVAL*/ /*_.VALSTR___V314*/ meltfptr[313] = (melt_ptr_t) & cdat->dstr_244__SEXPMAC_MVAL; cdat->dstr_244__SEXPMAC_MVAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_244__SEXPMAC_MVAL.val, "SEXPMAC_MVAL", sizeof (cdat->dstr_244__SEXPMAC_MVAL.val) - 1); /*iniobj dsym_245__SEXPMAC_DOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V322*/ meltfptr[321]) /*_.VALDATA___V322*/ meltfptr[321] = (melt_ptr_t) & cdat->dsym_245__SEXPMAC_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_245__SEXPMAC_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_245__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_245__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_245__SEXPMAC_DOC.obj_hash = 738660567; cdat->dsym_245__SEXPMAC_DOC.obj_len = 3; /*inistring dstr_246__SEXPMAC_DOC*/ /*_.VALSTR___V323*/ meltfptr[322] = (melt_ptr_t) & cdat->dstr_246__SEXPMAC_DOC; cdat->dstr_246__SEXPMAC_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_246__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_246__SEXPMAC_DOC.val) - 1); /*^iniobj */ #line 236 /*iniobj dobj_247__SEXPMAC_DOC*/ /*_.VALDATA___V315*/ meltfptr[314] = (melt_ptr_t) & cdat->dobj_247__SEXPMAC_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_247__SEXPMAC_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_247__SEXPMAC_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_247__SEXPMAC_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_247__SEXPMAC_DOC.obj_num = 4; cdat->dobj_247__SEXPMAC_DOC.obj_hash = 296787860; cdat->dobj_247__SEXPMAC_DOC.obj_len = 4; /*inistring dstr_248__SEXPMAC_DOC*/ /*_.VALSTR___V316*/ meltfptr[315] = (melt_ptr_t) & cdat->dstr_248__SEXPMAC_DOC; cdat->dstr_248__SEXPMAC_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_248__SEXPMAC_DOC.val, "SEXPMAC_DOC", sizeof (cdat->dstr_248__SEXPMAC_DOC.val) - 1); /*iniobj dsym_249__CLASS_SOURCE_EXPORT_PATMACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V324*/ meltfptr[323]) /*_.VALDATA___V324*/ meltfptr[323] = (melt_ptr_t) & cdat->dsym_249__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_249__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_249__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_249__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_249__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 991451453; cdat->dsym_249__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_250__CLASS_SOURCE_EXP*/ /*_.VALSTR___V325*/ meltfptr[324] = (melt_ptr_t) & cdat->dstr_250__CLASS_SOURCE_EXP; cdat->dstr_250__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_250__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_250__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:249:/ iniobj"); #line 249 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_251__CLASS_SOURCE_EXPORT_PATMACRO*/ /*_.VALDATA___V326*/ meltfptr[325] = (melt_ptr_t) & cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_251__CLASS_SOURCE_EXPORT_PATMACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_251__CLASS_SOURCE_EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_num = MELTOBMAG_OBJECT; cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_hash = 456095037; cdat->dobj_251__CLASS_SOURCE_EXPORT_PATMACRO.obj_len = 8; /*inistring dstr_252__CLASS_SOURCE_EXP*/ /*_.VALSTR___V327*/ meltfptr[326] = (melt_ptr_t) & cdat->dstr_252__CLASS_SOURCE_EXP; cdat->dstr_252__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_252__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_PATMACRO", sizeof (cdat->dstr_252__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_253__CLASS_SOURCE_EXPORT_PATMACRO */ /*_.VALTUP___V328*/ meltfptr[327] = (melt_ptr_t) & cdat->dtup_253__CLASS_SOURCE_EXPORT_PATMACRO; cdat->dtup_253__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_253__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 5; /*inimult dtup_254__CLASS_SOURCE_EXPORT_PATMACRO */ /*_.VALTUP___V331*/ meltfptr[330] = (melt_ptr_t) & cdat->dtup_254__CLASS_SOURCE_EXPORT_PATMACRO; cdat->dtup_254__CLASS_SOURCE_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_254__CLASS_SOURCE_EXPORT_PATMACRO.nbval = 6; /*iniobj dsym_255__SEXPPAT_PVAL*/ /*uniqueobj*/ if (! /*_.VALDATA___V332*/ meltfptr[331]) /*_.VALDATA___V332*/ meltfptr[331] = (melt_ptr_t) & cdat->dsym_255__SEXPPAT_PVAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_255__SEXPPAT_PVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_255__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_255__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_255__SEXPPAT_PVAL.obj_hash = 727802015; cdat->dsym_255__SEXPPAT_PVAL.obj_len = 3; /*inistring dstr_256__SEXPPAT_PVAL*/ /*_.VALSTR___V333*/ meltfptr[332] = (melt_ptr_t) & cdat->dstr_256__SEXPPAT_PVAL; cdat->dstr_256__SEXPPAT_PVAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_256__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_256__SEXPPAT_PVAL.val) - 1); /*^iniobj */ #line 249 /*iniobj dobj_257__SEXPPAT_PVAL*/ /*_.VALDATA___V329*/ meltfptr[328] = (melt_ptr_t) & cdat->dobj_257__SEXPPAT_PVAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_257__SEXPPAT_PVAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_257__SEXPPAT_PVAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_257__SEXPPAT_PVAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_257__SEXPPAT_PVAL.obj_num = 5; cdat->dobj_257__SEXPPAT_PVAL.obj_hash = 229119971; cdat->dobj_257__SEXPPAT_PVAL.obj_len = 4; /*inistring dstr_258__SEXPPAT_PVAL*/ /*_.VALSTR___V330*/ meltfptr[329] = (melt_ptr_t) & cdat->dstr_258__SEXPPAT_PVAL; cdat->dstr_258__SEXPPAT_PVAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_258__SEXPPAT_PVAL.val, "SEXPPAT_PVAL", sizeof (cdat->dstr_258__SEXPPAT_PVAL.val) - 1); /*iniobj dsym_259__CLASS_SOURCE_EXPORT_SYNONYM*/ /*uniqueobj*/ if (! /*_.VALDATA___V334*/ meltfptr[333]) /*_.VALDATA___V334*/ meltfptr[333] = (melt_ptr_t) & cdat->dsym_259__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_259__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_259__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_259__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_259__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 648101459; cdat->dsym_259__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 3; /*inistring dstr_260__CLASS_SOURCE_EXP*/ /*_.VALSTR___V335*/ meltfptr[334] = (melt_ptr_t) & cdat->dstr_260__CLASS_SOURCE_EXP; cdat->dstr_260__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_260__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_260__CLASS_SOURCE_EXP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:261:/ iniobj"); #line 261 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_261__CLASS_SOURCE_EXPORT_SYNONYM*/ /*_.VALDATA___V336*/ meltfptr[335] = (melt_ptr_t) & cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_261__CLASS_SOURCE_EXPORT_SYNONYM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_261__CLASS_SOURCE_EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_num = MELTOBMAG_OBJECT; cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_hash = 236693091; cdat->dobj_261__CLASS_SOURCE_EXPORT_SYNONYM.obj_len = 8; /*inistring dstr_262__CLASS_SOURCE_EXP*/ /*_.VALSTR___V337*/ meltfptr[336] = (melt_ptr_t) & cdat->dstr_262__CLASS_SOURCE_EXP; cdat->dstr_262__CLASS_SOURCE_EXP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_262__CLASS_SOURCE_EXP.val, "CLASS_SOURCE_EXPORT_SYNONYM", sizeof (cdat->dstr_262__CLASS_SOURCE_EXP. val) - 1); /*inimult dtup_263__CLASS_SOURCE_EXPORT_SYNONYM */ /*_.VALTUP___V338*/ meltfptr[337] = (melt_ptr_t) & cdat->dtup_263__CLASS_SOURCE_EXPORT_SYNONYM; cdat->dtup_263__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_263__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 4; /*inimult dtup_264__CLASS_SOURCE_EXPORT_SYNONYM */ /*_.VALTUP___V345*/ meltfptr[344] = (melt_ptr_t) & cdat->dtup_264__CLASS_SOURCE_EXPORT_SYNONYM; cdat->dtup_264__CLASS_SOURCE_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_264__CLASS_SOURCE_EXPORT_SYNONYM.nbval = 5; /*iniobj dsym_265__SEXPSYN_NEWNAME*/ /*uniqueobj*/ if (! /*_.VALDATA___V346*/ meltfptr[345]) /*_.VALDATA___V346*/ meltfptr[345] = (melt_ptr_t) & cdat->dsym_265__SEXPSYN_NEWNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_265__SEXPSYN_NEWNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_265__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_265__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_265__SEXPSYN_NEWNAME.obj_hash = 389558226; cdat->dsym_265__SEXPSYN_NEWNAME.obj_len = 3; /*inistring dstr_266__SEXPSYN_NEWNAME*/ /*_.VALSTR___V347*/ meltfptr[346] = (melt_ptr_t) & cdat->dstr_266__SEXPSYN_NEWNAME; cdat->dstr_266__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_266__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_266__SEXPSYN_NEWNAME.val) - 1); /*^iniobj */ #line 261 /*iniobj dobj_267__SEXPSYN_NEWNAME*/ /*_.VALDATA___V339*/ meltfptr[338] = (melt_ptr_t) & cdat->dobj_267__SEXPSYN_NEWNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_267__SEXPSYN_NEWNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_267__SEXPSYN_NEWNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_267__SEXPSYN_NEWNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_267__SEXPSYN_NEWNAME.obj_num = 2; cdat->dobj_267__SEXPSYN_NEWNAME.obj_hash = 596100597; cdat->dobj_267__SEXPSYN_NEWNAME.obj_len = 4; /*inistring dstr_268__SEXPSYN_NEWNAME*/ /*_.VALSTR___V340*/ meltfptr[339] = (melt_ptr_t) & cdat->dstr_268__SEXPSYN_NEWNAME; cdat->dstr_268__SEXPSYN_NEWNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_268__SEXPSYN_NEWNAME.val, "SEXPSYN_NEWNAME", sizeof (cdat->dstr_268__SEXPSYN_NEWNAME.val) - 1); /*iniobj dsym_269__SEXPSYN_OLDNAME*/ /*uniqueobj*/ if (! /*_.VALDATA___V348*/ meltfptr[347]) /*_.VALDATA___V348*/ meltfptr[347] = (melt_ptr_t) & cdat->dsym_269__SEXPSYN_OLDNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_269__SEXPSYN_OLDNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_269__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_269__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_269__SEXPSYN_OLDNAME.obj_hash = 233669029; cdat->dsym_269__SEXPSYN_OLDNAME.obj_len = 3; /*inistring dstr_270__SEXPSYN_OLDNAME*/ /*_.VALSTR___V349*/ meltfptr[348] = (melt_ptr_t) & cdat->dstr_270__SEXPSYN_OLDNAME; cdat->dstr_270__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_270__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_270__SEXPSYN_OLDNAME.val) - 1); /*^iniobj */ #line 261 /*iniobj dobj_271__SEXPSYN_OLDNAME*/ /*_.VALDATA___V341*/ meltfptr[340] = (melt_ptr_t) & cdat->dobj_271__SEXPSYN_OLDNAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_271__SEXPSYN_OLDNAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_271__SEXPSYN_OLDNAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_271__SEXPSYN_OLDNAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_271__SEXPSYN_OLDNAME.obj_num = 3; cdat->dobj_271__SEXPSYN_OLDNAME.obj_hash = 818580257; cdat->dobj_271__SEXPSYN_OLDNAME.obj_len = 4; /*inistring dstr_272__SEXPSYN_OLDNAME*/ /*_.VALSTR___V342*/ meltfptr[341] = (melt_ptr_t) & cdat->dstr_272__SEXPSYN_OLDNAME; cdat->dstr_272__SEXPSYN_OLDNAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_272__SEXPSYN_OLDNAME.val, "SEXPSYN_OLDNAME", sizeof (cdat->dstr_272__SEXPSYN_OLDNAME.val) - 1); /*iniobj dsym_273__SEXPSYN_DOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V350*/ meltfptr[349]) /*_.VALDATA___V350*/ meltfptr[349] = (melt_ptr_t) & cdat->dsym_273__SEXPSYN_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_273__SEXPSYN_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_273__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_273__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_273__SEXPSYN_DOC.obj_hash = 963580937; cdat->dsym_273__SEXPSYN_DOC.obj_len = 3; /*inistring dstr_274__SEXPSYN_DOC*/ /*_.VALSTR___V351*/ meltfptr[350] = (melt_ptr_t) & cdat->dstr_274__SEXPSYN_DOC; cdat->dstr_274__SEXPSYN_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_274__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_274__SEXPSYN_DOC.val) - 1); /*^iniobj */ #line 261 /*iniobj dobj_275__SEXPSYN_DOC*/ /*_.VALDATA___V343*/ meltfptr[342] = (melt_ptr_t) & cdat->dobj_275__SEXPSYN_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_275__SEXPSYN_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_275__SEXPSYN_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_275__SEXPSYN_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_275__SEXPSYN_DOC.obj_num = 4; cdat->dobj_275__SEXPSYN_DOC.obj_hash = 791837060; cdat->dobj_275__SEXPSYN_DOC.obj_len = 4; /*inistring dstr_276__SEXPSYN_DOC*/ /*_.VALSTR___V344*/ meltfptr[343] = (melt_ptr_t) & cdat->dstr_276__SEXPSYN_DOC; cdat->dstr_276__SEXPSYN_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_276__SEXPSYN_DOC.val, "SEXPSYN_DOC", sizeof (cdat->dstr_276__SEXPSYN_DOC.val) - 1); /*iniobj dsym_277__CLASS_SOURCE_DEFINITION*/ /*uniqueobj*/ if (! /*_.VALDATA___V352*/ meltfptr[351]) /*_.VALDATA___V352*/ meltfptr[351] = (melt_ptr_t) & cdat->dsym_277__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_277__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_277__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_277__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_277__CLASS_SOURCE_DEFINITION.obj_hash = 208176225; cdat->dsym_277__CLASS_SOURCE_DEFINITION.obj_len = 3; /*inistring dstr_278__CLASS_SOURCE_DEF*/ /*_.VALSTR___V353*/ meltfptr[352] = (melt_ptr_t) & cdat->dstr_278__CLASS_SOURCE_DEF; cdat->dstr_278__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_278__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_278__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:272:/ iniobj"); #line 272 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_279__CLASS_SOURCE_DEFINITION*/ /*_.VALDATA___V354*/ meltfptr[353] = (melt_ptr_t) & cdat->dobj_279__CLASS_SOURCE_DEFINITION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_279__CLASS_SOURCE_DEFINITION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_279__CLASS_SOURCE_DEFINITION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_279__CLASS_SOURCE_DEFINITION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_num = MELTOBMAG_OBJECT; cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_hash = 972354236; cdat->dobj_279__CLASS_SOURCE_DEFINITION.obj_len = 8; /*inistring dstr_280__CLASS_SOURCE_DEF*/ /*_.VALSTR___V355*/ meltfptr[354] = (melt_ptr_t) & cdat->dstr_280__CLASS_SOURCE_DEF; cdat->dstr_280__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_280__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION", sizeof (cdat->dstr_280__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_281__CLASS_SOURCE_DEFINITION */ /*_.VALTUP___V356*/ meltfptr[355] = (melt_ptr_t) & cdat->dtup_281__CLASS_SOURCE_DEFINITION; cdat->dtup_281__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_281__CLASS_SOURCE_DEFINITION.nbval = 4; /*inimult dtup_282__CLASS_SOURCE_DEFINITION */ /*_.VALTUP___V361*/ meltfptr[360] = (melt_ptr_t) & cdat->dtup_282__CLASS_SOURCE_DEFINITION; cdat->dtup_282__CLASS_SOURCE_DEFINITION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_282__CLASS_SOURCE_DEFINITION.nbval = 4; /*iniobj dsym_283__SDEF_NAME*/ /*uniqueobj*/ if (! /*_.VALDATA___V362*/ meltfptr[361]) /*_.VALDATA___V362*/ meltfptr[361] = (melt_ptr_t) & cdat->dsym_283__SDEF_NAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_283__SDEF_NAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_283__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_283__SDEF_NAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_283__SDEF_NAME.obj_hash = 768386693; cdat->dsym_283__SDEF_NAME.obj_len = 3; /*inistring dstr_284__SDEF_NAME*/ /*_.VALSTR___V363*/ meltfptr[362] = (melt_ptr_t) & cdat->dstr_284__SDEF_NAME; cdat->dstr_284__SDEF_NAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_284__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_284__SDEF_NAME.val) - 1); /*^iniobj */ #line 272 /*iniobj dobj_285__SDEF_NAME*/ /*_.VALDATA___V357*/ meltfptr[356] = (melt_ptr_t) & cdat->dobj_285__SDEF_NAME; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_285__SDEF_NAME", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_285__SDEF_NAME", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_285__SDEF_NAME.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_285__SDEF_NAME.obj_num = 2; cdat->dobj_285__SDEF_NAME.obj_hash = 1048871745; cdat->dobj_285__SDEF_NAME.obj_len = 4; /*inistring dstr_286__SDEF_NAME*/ /*_.VALSTR___V358*/ meltfptr[357] = (melt_ptr_t) & cdat->dstr_286__SDEF_NAME; cdat->dstr_286__SDEF_NAME.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_286__SDEF_NAME.val, "SDEF_NAME", sizeof (cdat->dstr_286__SDEF_NAME.val) - 1); /*iniobj dsym_287__SDEF_DOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V364*/ meltfptr[363]) /*_.VALDATA___V364*/ meltfptr[363] = (melt_ptr_t) & cdat->dsym_287__SDEF_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_287__SDEF_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_287__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_287__SDEF_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_287__SDEF_DOC.obj_hash = 1012921623; cdat->dsym_287__SDEF_DOC.obj_len = 3; /*inistring dstr_288__SDEF_DOC*/ /*_.VALSTR___V365*/ meltfptr[364] = (melt_ptr_t) & cdat->dstr_288__SDEF_DOC; cdat->dstr_288__SDEF_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_288__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_288__SDEF_DOC.val) - 1); /*^iniobj */ #line 272 /*iniobj dobj_289__SDEF_DOC*/ /*_.VALDATA___V359*/ meltfptr[358] = (melt_ptr_t) & cdat->dobj_289__SDEF_DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_289__SDEF_DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_289__SDEF_DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_289__SDEF_DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_289__SDEF_DOC.obj_num = 3; cdat->dobj_289__SDEF_DOC.obj_hash = 239780846; cdat->dobj_289__SDEF_DOC.obj_len = 4; /*inistring dstr_290__SDEF_DOC*/ /*_.VALSTR___V360*/ meltfptr[359] = (melt_ptr_t) & cdat->dstr_290__SDEF_DOC; cdat->dstr_290__SDEF_DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_290__SDEF_DOC.val, "SDEF_DOC", sizeof (cdat->dstr_290__SDEF_DOC.val) - 1); /*iniobj dsym_291__CLASS_SOURCE_DEFINE*/ /*uniqueobj*/ if (! /*_.VALDATA___V366*/ meltfptr[365]) /*_.VALDATA___V366*/ meltfptr[365] = (melt_ptr_t) & cdat->dsym_291__CLASS_SOURCE_DEFINE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_291__CLASS_SOURCE_DEFINE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_291__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_291__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_291__CLASS_SOURCE_DEFINE.obj_hash = 111330536; cdat->dsym_291__CLASS_SOURCE_DEFINE.obj_len = 3; /*inistring dstr_292__CLASS_SOURCE_DEF*/ /*_.VALSTR___V367*/ meltfptr[366] = (melt_ptr_t) & cdat->dstr_292__CLASS_SOURCE_DEF; cdat->dstr_292__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_292__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_292__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:282:/ iniobj"); #line 282 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_293__CLASS_SOURCE_DEFINE*/ /*_.VALDATA___V368*/ meltfptr[367] = (melt_ptr_t) & cdat->dobj_293__CLASS_SOURCE_DEFINE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_293__CLASS_SOURCE_DEFINE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_293__CLASS_SOURCE_DEFINE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_293__CLASS_SOURCE_DEFINE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_hash = 628726542; cdat->dobj_293__CLASS_SOURCE_DEFINE.obj_len = 8; /*inistring dstr_294__CLASS_SOURCE_DEF*/ /*_.VALSTR___V369*/ meltfptr[368] = (melt_ptr_t) & cdat->dstr_294__CLASS_SOURCE_DEF; cdat->dstr_294__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_294__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINE", sizeof (cdat->dstr_294__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_295__CLASS_SOURCE_DEFINE */ /*_.VALTUP___V370*/ meltfptr[369] = (melt_ptr_t) & cdat->dtup_295__CLASS_SOURCE_DEFINE; cdat->dtup_295__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_295__CLASS_SOURCE_DEFINE.nbval = 5; /*inimult dtup_296__CLASS_SOURCE_DEFINE */ /*_.VALTUP___V373*/ meltfptr[372] = (melt_ptr_t) & cdat->dtup_296__CLASS_SOURCE_DEFINE; cdat->dtup_296__CLASS_SOURCE_DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_296__CLASS_SOURCE_DEFINE.nbval = 5; /*iniobj dsym_297__SDEFINE_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V374*/ meltfptr[373]) /*_.VALDATA___V374*/ meltfptr[373] = (melt_ptr_t) & cdat->dsym_297__SDEFINE_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_297__SDEFINE_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_297__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_297__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_297__SDEFINE_BODY.obj_hash = 63508154; cdat->dsym_297__SDEFINE_BODY.obj_len = 3; /*inistring dstr_298__SDEFINE_BODY*/ /*_.VALSTR___V375*/ meltfptr[374] = (melt_ptr_t) & cdat->dstr_298__SDEFINE_BODY; cdat->dstr_298__SDEFINE_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_298__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (cdat->dstr_298__SDEFINE_BODY.val) - 1); /*^iniobj */ #line 282 /*iniobj dobj_299__SDEFINE_BODY*/ /*_.VALDATA___V371*/ meltfptr[370] = (melt_ptr_t) & cdat->dobj_299__SDEFINE_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_299__SDEFINE_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_299__SDEFINE_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_299__SDEFINE_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_299__SDEFINE_BODY.obj_num = 4; cdat->dobj_299__SDEFINE_BODY.obj_hash = 741814451; cdat->dobj_299__SDEFINE_BODY.obj_len = 4; /*inistring dstr_300__SDEFINE_BODY*/ /*_.VALSTR___V372*/ meltfptr[371] = (melt_ptr_t) & cdat->dstr_300__SDEFINE_BODY; cdat->dstr_300__SDEFINE_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_300__SDEFINE_BODY.val, "SDEFINE_BODY", sizeof (cdat->dstr_300__SDEFINE_BODY.val) - 1); /*iniobj dsym_301__CLASS_SOURCE_DEFINITION_FORMAL*/ /*uniqueobj*/ if (! /*_.VALDATA___V376*/ meltfptr[375]) /*_.VALDATA___V376*/ meltfptr[375] = (melt_ptr_t) & cdat->dsym_301__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_301__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_301__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_301__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_301__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 444695028; cdat->dsym_301__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 3; /*inistring dstr_302__CLASS_SOURCE_DEF*/ /*_.VALSTR___V377*/ meltfptr[376] = (melt_ptr_t) & cdat->dstr_302__CLASS_SOURCE_DEF; cdat->dstr_302__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_302__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_302__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:290:/ iniobj"); #line 290 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_303__CLASS_SOURCE_DEFINITION_FORMAL*/ /*_.VALDATA___V378*/ meltfptr[377] = (melt_ptr_t) & cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_303__CLASS_SOURCE_DEFINITION_FORMAL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_303__CLASS_SOURCE_DEFINITION_FORMAL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_num = MELTOBMAG_OBJECT; cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_hash = 961430733; cdat->dobj_303__CLASS_SOURCE_DEFINITION_FORMAL.obj_len = 8; /*inistring dstr_304__CLASS_SOURCE_DEF*/ /*_.VALSTR___V379*/ meltfptr[378] = (melt_ptr_t) & cdat->dstr_304__CLASS_SOURCE_DEF; cdat->dstr_304__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_304__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINITION_FORMAL", sizeof (cdat->dstr_304__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_305__CLASS_SOURCE_DEFINITION_FORMAL */ /*_.VALTUP___V380*/ meltfptr[379] = (melt_ptr_t) & cdat->dtup_305__CLASS_SOURCE_DEFINITION_FORMAL; cdat->dtup_305__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_305__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*inimult dtup_306__CLASS_SOURCE_DEFINITION_FORMAL */ /*_.VALTUP___V383*/ meltfptr[382] = (melt_ptr_t) & cdat->dtup_306__CLASS_SOURCE_DEFINITION_FORMAL; cdat->dtup_306__CLASS_SOURCE_DEFINITION_FORMAL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_306__CLASS_SOURCE_DEFINITION_FORMAL.nbval = 5; /*iniobj dsym_307__SFORMAL_ARGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V384*/ meltfptr[383]) /*_.VALDATA___V384*/ meltfptr[383] = (melt_ptr_t) & cdat->dsym_307__SFORMAL_ARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_307__SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_307__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_307__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_307__SFORMAL_ARGS.obj_hash = 190096587; cdat->dsym_307__SFORMAL_ARGS.obj_len = 3; /*inistring dstr_308__SFORMAL_ARGS*/ /*_.VALSTR___V385*/ meltfptr[384] = (melt_ptr_t) & cdat->dstr_308__SFORMAL_ARGS; cdat->dstr_308__SFORMAL_ARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_308__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_308__SFORMAL_ARGS.val) - 1); /*^iniobj */ #line 290 /*iniobj dobj_309__SFORMAL_ARGS*/ /*_.VALDATA___V381*/ meltfptr[380] = (melt_ptr_t) & cdat->dobj_309__SFORMAL_ARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_309__SFORMAL_ARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_309__SFORMAL_ARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_309__SFORMAL_ARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_309__SFORMAL_ARGS.obj_num = 4; cdat->dobj_309__SFORMAL_ARGS.obj_hash = 432032996; cdat->dobj_309__SFORMAL_ARGS.obj_len = 4; /*inistring dstr_310__SFORMAL_ARGS*/ /*_.VALSTR___V382*/ meltfptr[381] = (melt_ptr_t) & cdat->dstr_310__SFORMAL_ARGS; cdat->dstr_310__SFORMAL_ARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_310__SFORMAL_ARGS.val, "SFORMAL_ARGS", sizeof (cdat->dstr_310__SFORMAL_ARGS.val) - 1); /*iniobj dsym_311__CLASS_SOURCE_DEFUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V386*/ meltfptr[385]) /*_.VALDATA___V386*/ meltfptr[385] = (melt_ptr_t) & cdat->dsym_311__CLASS_SOURCE_DEFUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_311__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_311__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_311__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_311__CLASS_SOURCE_DEFUN.obj_hash = 872711296; cdat->dsym_311__CLASS_SOURCE_DEFUN.obj_len = 3; /*inistring dstr_312__CLASS_SOURCE_DEF*/ /*_.VALSTR___V387*/ meltfptr[386] = (melt_ptr_t) & cdat->dstr_312__CLASS_SOURCE_DEF; cdat->dstr_312__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_312__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_312__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:298:/ iniobj"); #line 298 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_313__CLASS_SOURCE_DEFUN*/ /*_.VALDATA___V388*/ meltfptr[387] = (melt_ptr_t) & cdat->dobj_313__CLASS_SOURCE_DEFUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_313__CLASS_SOURCE_DEFUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_313__CLASS_SOURCE_DEFUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_313__CLASS_SOURCE_DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_hash = 746695072; cdat->dobj_313__CLASS_SOURCE_DEFUN.obj_len = 8; /*inistring dstr_314__CLASS_SOURCE_DEF*/ /*_.VALSTR___V389*/ meltfptr[388] = (melt_ptr_t) & cdat->dstr_314__CLASS_SOURCE_DEF; cdat->dstr_314__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_314__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUN", sizeof (cdat->dstr_314__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_315__CLASS_SOURCE_DEFUN */ /*_.VALTUP___V390*/ meltfptr[389] = (melt_ptr_t) & cdat->dtup_315__CLASS_SOURCE_DEFUN; cdat->dtup_315__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_315__CLASS_SOURCE_DEFUN.nbval = 6; /*inimult dtup_316__CLASS_SOURCE_DEFUN */ /*_.VALTUP___V393*/ meltfptr[392] = (melt_ptr_t) & cdat->dtup_316__CLASS_SOURCE_DEFUN; cdat->dtup_316__CLASS_SOURCE_DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_316__CLASS_SOURCE_DEFUN.nbval = 6; /*iniobj dsym_317__SFUN_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V394*/ meltfptr[393]) /*_.VALDATA___V394*/ meltfptr[393] = (melt_ptr_t) & cdat->dsym_317__SFUN_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_317__SFUN_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_317__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_317__SFUN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_317__SFUN_BODY.obj_hash = 860615464; cdat->dsym_317__SFUN_BODY.obj_len = 3; /*inistring dstr_318__SFUN_BODY*/ /*_.VALSTR___V395*/ meltfptr[394] = (melt_ptr_t) & cdat->dstr_318__SFUN_BODY; cdat->dstr_318__SFUN_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_318__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_318__SFUN_BODY.val) - 1); /*^iniobj */ #line 298 /*iniobj dobj_319__SFUN_BODY*/ /*_.VALDATA___V391*/ meltfptr[390] = (melt_ptr_t) & cdat->dobj_319__SFUN_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_319__SFUN_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_319__SFUN_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_319__SFUN_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_319__SFUN_BODY.obj_num = 5; cdat->dobj_319__SFUN_BODY.obj_hash = 733541896; cdat->dobj_319__SFUN_BODY.obj_len = 4; /*inistring dstr_320__SFUN_BODY*/ /*_.VALSTR___V392*/ meltfptr[391] = (melt_ptr_t) & cdat->dstr_320__SFUN_BODY; cdat->dstr_320__SFUN_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_320__SFUN_BODY.val, "SFUN_BODY", sizeof (cdat->dstr_320__SFUN_BODY.val) - 1); /*iniobj dsym_321__CLASS_SOURCE_DEFPRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V396*/ meltfptr[395]) /*_.VALDATA___V396*/ meltfptr[395] = (melt_ptr_t) & cdat->dsym_321__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_321__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_321__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_321__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_321__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 89550180; cdat->dsym_321__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 3; /*inistring dstr_322__CLASS_SOURCE_DEF*/ /*_.VALSTR___V397*/ meltfptr[396] = (melt_ptr_t) & cdat->dstr_322__CLASS_SOURCE_DEF; cdat->dstr_322__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_322__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_322__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:305:/ iniobj"); #line 305 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_323__CLASS_SOURCE_DEFPRIMITIVE*/ /*_.VALDATA___V398*/ meltfptr[397] = (melt_ptr_t) & cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_323__CLASS_SOURCE_DEFPRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_323__CLASS_SOURCE_DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_hash = 978454436; cdat->dobj_323__CLASS_SOURCE_DEFPRIMITIVE.obj_len = 8; /*inistring dstr_324__CLASS_SOURCE_DEF*/ /*_.VALSTR___V399*/ meltfptr[398] = (melt_ptr_t) & cdat->dstr_324__CLASS_SOURCE_DEF; cdat->dstr_324__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_324__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFPRIMITIVE", sizeof (cdat->dstr_324__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_325__CLASS_SOURCE_DEFPRIMITIVE */ /*_.VALTUP___V400*/ meltfptr[399] = (melt_ptr_t) & cdat->dtup_325__CLASS_SOURCE_DEFPRIMITIVE; cdat->dtup_325__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_325__CLASS_SOURCE_DEFPRIMITIVE.nbval = 6; /*inimult dtup_326__CLASS_SOURCE_DEFPRIMITIVE */ /*_.VALTUP___V407*/ meltfptr[406] = (melt_ptr_t) & cdat->dtup_326__CLASS_SOURCE_DEFPRIMITIVE; cdat->dtup_326__CLASS_SOURCE_DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_326__CLASS_SOURCE_DEFPRIMITIVE.nbval = 8; /*iniobj dsym_327__SPRIM_TYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V408*/ meltfptr[407]) /*_.VALDATA___V408*/ meltfptr[407] = (melt_ptr_t) & cdat->dsym_327__SPRIM_TYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_327__SPRIM_TYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_327__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_327__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_327__SPRIM_TYPE.obj_hash = 614174808; cdat->dsym_327__SPRIM_TYPE.obj_len = 3; /*inistring dstr_328__SPRIM_TYPE*/ /*_.VALSTR___V409*/ meltfptr[408] = (melt_ptr_t) & cdat->dstr_328__SPRIM_TYPE; cdat->dstr_328__SPRIM_TYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_328__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_328__SPRIM_TYPE.val) - 1); /*^iniobj */ #line 305 /*iniobj dobj_329__SPRIM_TYPE*/ /*_.VALDATA___V401*/ meltfptr[400] = (melt_ptr_t) & cdat->dobj_329__SPRIM_TYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_329__SPRIM_TYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_329__SPRIM_TYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_329__SPRIM_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_329__SPRIM_TYPE.obj_num = 5; cdat->dobj_329__SPRIM_TYPE.obj_hash = 378413623; cdat->dobj_329__SPRIM_TYPE.obj_len = 4; /*inistring dstr_330__SPRIM_TYPE*/ /*_.VALSTR___V402*/ meltfptr[401] = (melt_ptr_t) & cdat->dstr_330__SPRIM_TYPE; cdat->dstr_330__SPRIM_TYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_330__SPRIM_TYPE.val, "SPRIM_TYPE", sizeof (cdat->dstr_330__SPRIM_TYPE.val) - 1); /*iniobj dsym_331__SPRIM_EXPANSION*/ /*uniqueobj*/ if (! /*_.VALDATA___V410*/ meltfptr[409]) /*_.VALDATA___V410*/ meltfptr[409] = (melt_ptr_t) & cdat->dsym_331__SPRIM_EXPANSION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_331__SPRIM_EXPANSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_331__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_331__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_331__SPRIM_EXPANSION.obj_hash = 343124792; cdat->dsym_331__SPRIM_EXPANSION.obj_len = 3; /*inistring dstr_332__SPRIM_EXPANSION*/ /*_.VALSTR___V411*/ meltfptr[410] = (melt_ptr_t) & cdat->dstr_332__SPRIM_EXPANSION; cdat->dstr_332__SPRIM_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_332__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_332__SPRIM_EXPANSION.val) - 1); /*^iniobj */ #line 305 /*iniobj dobj_333__SPRIM_EXPANSION*/ /*_.VALDATA___V403*/ meltfptr[402] = (melt_ptr_t) & cdat->dobj_333__SPRIM_EXPANSION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_333__SPRIM_EXPANSION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_333__SPRIM_EXPANSION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_333__SPRIM_EXPANSION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_333__SPRIM_EXPANSION.obj_num = 6; cdat->dobj_333__SPRIM_EXPANSION.obj_hash = 1070075861; cdat->dobj_333__SPRIM_EXPANSION.obj_len = 4; /*inistring dstr_334__SPRIM_EXPANSION*/ /*_.VALSTR___V404*/ meltfptr[403] = (melt_ptr_t) & cdat->dstr_334__SPRIM_EXPANSION; cdat->dstr_334__SPRIM_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_334__SPRIM_EXPANSION.val, "SPRIM_EXPANSION", sizeof (cdat->dstr_334__SPRIM_EXPANSION.val) - 1); /*iniobj dsym_335__SPRIM_EXPLOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V412*/ meltfptr[411]) /*_.VALDATA___V412*/ meltfptr[411] = (melt_ptr_t) & cdat->dsym_335__SPRIM_EXPLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_335__SPRIM_EXPLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_335__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_335__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_335__SPRIM_EXPLOC.obj_hash = 574291993; cdat->dsym_335__SPRIM_EXPLOC.obj_len = 3; /*inistring dstr_336__SPRIM_EXPLOC*/ /*_.VALSTR___V413*/ meltfptr[412] = (melt_ptr_t) & cdat->dstr_336__SPRIM_EXPLOC; cdat->dstr_336__SPRIM_EXPLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_336__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (cdat->dstr_336__SPRIM_EXPLOC.val) - 1); /*^iniobj */ #line 305 /*iniobj dobj_337__SPRIM_EXPLOC*/ /*_.VALDATA___V405*/ meltfptr[404] = (melt_ptr_t) & cdat->dobj_337__SPRIM_EXPLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_337__SPRIM_EXPLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_337__SPRIM_EXPLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_337__SPRIM_EXPLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_337__SPRIM_EXPLOC.obj_num = 7; cdat->dobj_337__SPRIM_EXPLOC.obj_hash = 133846511; cdat->dobj_337__SPRIM_EXPLOC.obj_len = 4; /*inistring dstr_338__SPRIM_EXPLOC*/ /*_.VALSTR___V406*/ meltfptr[405] = (melt_ptr_t) & cdat->dstr_338__SPRIM_EXPLOC; cdat->dstr_338__SPRIM_EXPLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_338__SPRIM_EXPLOC.val, "SPRIM_EXPLOC", sizeof (cdat->dstr_338__SPRIM_EXPLOC.val) - 1); /*iniobj dsym_339__CLASS_SOURCE_DEFCITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V414*/ meltfptr[413]) /*_.VALDATA___V414*/ meltfptr[413] = (melt_ptr_t) & cdat->dsym_339__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_339__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_339__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_339__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_339__CLASS_SOURCE_DEFCITERATOR.obj_hash = 908057495; cdat->dsym_339__CLASS_SOURCE_DEFCITERATOR.obj_len = 3; /*inistring dstr_340__CLASS_SOURCE_DEF*/ /*_.VALSTR___V415*/ meltfptr[414] = (melt_ptr_t) & cdat->dstr_340__CLASS_SOURCE_DEF; cdat->dstr_340__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_340__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_340__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:318:/ iniobj"); #line 318 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_341__CLASS_SOURCE_DEFCITERATOR*/ /*_.VALDATA___V416*/ meltfptr[415] = (melt_ptr_t) & cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_341__CLASS_SOURCE_DEFCITERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_341__CLASS_SOURCE_DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_hash = 97684963; cdat->dobj_341__CLASS_SOURCE_DEFCITERATOR.obj_len = 8; /*inistring dstr_342__CLASS_SOURCE_DEF*/ /*_.VALSTR___V417*/ meltfptr[416] = (melt_ptr_t) & cdat->dstr_342__CLASS_SOURCE_DEF; cdat->dstr_342__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_342__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCITERATOR", sizeof (cdat->dstr_342__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_343__CLASS_SOURCE_DEFCITERATOR */ /*_.VALTUP___V418*/ meltfptr[417] = (melt_ptr_t) & cdat->dtup_343__CLASS_SOURCE_DEFCITERATOR; cdat->dtup_343__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_343__CLASS_SOURCE_DEFCITERATOR.nbval = 6; /*inimult dtup_344__CLASS_SOURCE_DEFCITERATOR */ /*_.VALTUP___V425*/ meltfptr[424] = (melt_ptr_t) & cdat->dtup_344__CLASS_SOURCE_DEFCITERATOR; cdat->dtup_344__CLASS_SOURCE_DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_344__CLASS_SOURCE_DEFCITERATOR.nbval = 8; /*iniobj dsym_345__SCITERDEF_CITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V426*/ meltfptr[425]) /*_.VALDATA___V426*/ meltfptr[425] = (melt_ptr_t) & cdat->dsym_345__SCITERDEF_CITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_345__SCITERDEF_CITERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_345__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_345__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_345__SCITERDEF_CITERATOR.obj_hash = 321745206; cdat->dsym_345__SCITERDEF_CITERATOR.obj_len = 3; /*inistring dstr_346__SCITERDEF_CITERA*/ /*_.VALSTR___V427*/ meltfptr[426] = (melt_ptr_t) & cdat->dstr_346__SCITERDEF_CITERA; cdat->dstr_346__SCITERDEF_CITERA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_346__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_346__SCITERDEF_CITERA. val) - 1); /*^iniobj */ #line 318 /*iniobj dobj_347__SCITERDEF_CITERATOR*/ /*_.VALDATA___V419*/ meltfptr[418] = (melt_ptr_t) & cdat->dobj_347__SCITERDEF_CITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_347__SCITERDEF_CITERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_347__SCITERDEF_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_347__SCITERDEF_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_347__SCITERDEF_CITERATOR.obj_num = 5; cdat->dobj_347__SCITERDEF_CITERATOR.obj_hash = 1004400148; cdat->dobj_347__SCITERDEF_CITERATOR.obj_len = 4; /*inistring dstr_348__SCITERDEF_CITERA*/ /*_.VALSTR___V420*/ meltfptr[419] = (melt_ptr_t) & cdat->dstr_348__SCITERDEF_CITERA; cdat->dstr_348__SCITERDEF_CITERA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_348__SCITERDEF_CITERA.val, "SCITERDEF_CITERATOR", sizeof (cdat->dstr_348__SCITERDEF_CITERA. val) - 1); /*iniobj dsym_349__SCITERDEF_BEFORELOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V428*/ meltfptr[427]) /*_.VALDATA___V428*/ meltfptr[427] = (melt_ptr_t) & cdat->dsym_349__SCITERDEF_BEFORELOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_349__SCITERDEF_BEFORELOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_349__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_349__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_349__SCITERDEF_BEFORELOC.obj_hash = 288005518; cdat->dsym_349__SCITERDEF_BEFORELOC.obj_len = 3; /*inistring dstr_350__SCITERDEF_BEFORE*/ /*_.VALSTR___V429*/ meltfptr[428] = (melt_ptr_t) & cdat->dstr_350__SCITERDEF_BEFORE; cdat->dstr_350__SCITERDEF_BEFORE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_350__SCITERDEF_BEFORE.val, "SCITERDEF_BEFORELOC", sizeof (cdat->dstr_350__SCITERDEF_BEFORE. val) - 1); /*^iniobj */ #line 318 /*iniobj dobj_351__SCITERDEF_BEFORELOC*/ /*_.VALDATA___V421*/ meltfptr[420] = (melt_ptr_t) & cdat->dobj_351__SCITERDEF_BEFORELOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_351__SCITERDEF_BEFORELOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_351__SCITERDEF_BEFORELOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_351__SCITERDEF_BEFORELOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_351__SCITERDEF_BEFORELOC.obj_num = 6; cdat->dobj_351__SCITERDEF_BEFORELOC.obj_hash = 898967499; cdat->dobj_351__SCITERDEF_BEFORELOC.obj_len = 4; /*inistring dstr_352__SCITERDEF_BEFORE*/ /*_.VALSTR___V422*/ meltfptr[421] = (melt_ptr_t) & cdat->dstr_352__SCITERDEF_BEFORE; cdat->dstr_352__SCITERDEF_BEFORE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_352__SCITERDEF_BEFORE.val, "SCITERDEF_BEFORELOC", sizeof (cdat->dstr_352__SCITERDEF_BEFORE. val) - 1); /*iniobj dsym_353__SCITERDEF_AFTERLOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V430*/ meltfptr[429]) /*_.VALDATA___V430*/ meltfptr[429] = (melt_ptr_t) & cdat->dsym_353__SCITERDEF_AFTERLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_353__SCITERDEF_AFTERLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_353__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_353__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_353__SCITERDEF_AFTERLOC.obj_hash = 434501382; cdat->dsym_353__SCITERDEF_AFTERLOC.obj_len = 3; /*inistring dstr_354__SCITERDEF_AFTERL*/ /*_.VALSTR___V431*/ meltfptr[430] = (melt_ptr_t) & cdat->dstr_354__SCITERDEF_AFTERL; cdat->dstr_354__SCITERDEF_AFTERL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_354__SCITERDEF_AFTERL.val, "SCITERDEF_AFTERLOC", sizeof (cdat->dstr_354__SCITERDEF_AFTERL. val) - 1); /*^iniobj */ #line 318 /*iniobj dobj_355__SCITERDEF_AFTERLOC*/ /*_.VALDATA___V423*/ meltfptr[422] = (melt_ptr_t) & cdat->dobj_355__SCITERDEF_AFTERLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_355__SCITERDEF_AFTERLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_355__SCITERDEF_AFTERLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_355__SCITERDEF_AFTERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_355__SCITERDEF_AFTERLOC.obj_num = 7; cdat->dobj_355__SCITERDEF_AFTERLOC.obj_hash = 1039100250; cdat->dobj_355__SCITERDEF_AFTERLOC.obj_len = 4; /*inistring dstr_356__SCITERDEF_AFTERL*/ /*_.VALSTR___V424*/ meltfptr[423] = (melt_ptr_t) & cdat->dstr_356__SCITERDEF_AFTERL; cdat->dstr_356__SCITERDEF_AFTERL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_356__SCITERDEF_AFTERL.val, "SCITERDEF_AFTERLOC", sizeof (cdat->dstr_356__SCITERDEF_AFTERL. val) - 1); /*iniobj dsym_357__CLASS_SOURCE_DEFCMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V432*/ meltfptr[431]) /*_.VALDATA___V432*/ meltfptr[431] = (melt_ptr_t) & cdat->dsym_357__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_357__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_357__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_357__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_357__CLASS_SOURCE_DEFCMATCHER.obj_hash = 177651266; cdat->dsym_357__CLASS_SOURCE_DEFCMATCHER.obj_len = 3; /*inistring dstr_358__CLASS_SOURCE_DEF*/ /*_.VALSTR___V433*/ meltfptr[432] = (melt_ptr_t) & cdat->dstr_358__CLASS_SOURCE_DEF; cdat->dstr_358__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_358__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_358__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:328:/ iniobj"); #line 328 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_359__CLASS_SOURCE_DEFCMATCHER*/ /*_.VALDATA___V434*/ meltfptr[433] = (melt_ptr_t) & cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_359__CLASS_SOURCE_DEFCMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_359__CLASS_SOURCE_DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_hash = 850781225; cdat->dobj_359__CLASS_SOURCE_DEFCMATCHER.obj_len = 8; /*inistring dstr_360__CLASS_SOURCE_DEF*/ /*_.VALSTR___V435*/ meltfptr[434] = (melt_ptr_t) & cdat->dstr_360__CLASS_SOURCE_DEF; cdat->dstr_360__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_360__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCMATCHER", sizeof (cdat->dstr_360__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_361__CLASS_SOURCE_DEFCMATCHER */ /*_.VALTUP___V436*/ meltfptr[435] = (melt_ptr_t) & cdat->dtup_361__CLASS_SOURCE_DEFCMATCHER; cdat->dtup_361__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_361__CLASS_SOURCE_DEFCMATCHER.nbval = 6; /*inimult dtup_362__CLASS_SOURCE_DEFCMATCHER */ /*_.VALTUP___V445*/ meltfptr[444] = (melt_ptr_t) & cdat->dtup_362__CLASS_SOURCE_DEFCMATCHER; cdat->dtup_362__CLASS_SOURCE_DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_362__CLASS_SOURCE_DEFCMATCHER.nbval = 9; /*iniobj dsym_363__SCMATDEF_CMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V446*/ meltfptr[445]) /*_.VALDATA___V446*/ meltfptr[445] = (melt_ptr_t) & cdat->dsym_363__SCMATDEF_CMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_363__SCMATDEF_CMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_363__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_363__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_363__SCMATDEF_CMATCHER.obj_hash = 75922864; cdat->dsym_363__SCMATDEF_CMATCHER.obj_len = 3; /*inistring dstr_364__SCMATDEF_CMATCHE*/ /*_.VALSTR___V447*/ meltfptr[446] = (melt_ptr_t) & cdat->dstr_364__SCMATDEF_CMATCHE; cdat->dstr_364__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_364__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_364__SCMATDEF_CMATCHE. val) - 1); /*^iniobj */ #line 328 /*iniobj dobj_365__SCMATDEF_CMATCHER*/ /*_.VALDATA___V437*/ meltfptr[436] = (melt_ptr_t) & cdat->dobj_365__SCMATDEF_CMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_365__SCMATDEF_CMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_365__SCMATDEF_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_365__SCMATDEF_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_365__SCMATDEF_CMATCHER.obj_num = 5; cdat->dobj_365__SCMATDEF_CMATCHER.obj_hash = 321717219; cdat->dobj_365__SCMATDEF_CMATCHER.obj_len = 4; /*inistring dstr_366__SCMATDEF_CMATCHE*/ /*_.VALSTR___V438*/ meltfptr[437] = (melt_ptr_t) & cdat->dstr_366__SCMATDEF_CMATCHE; cdat->dstr_366__SCMATDEF_CMATCHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_366__SCMATDEF_CMATCHE.val, "SCMATDEF_CMATCHER", sizeof (cdat->dstr_366__SCMATDEF_CMATCHE. val) - 1); /*iniobj dsym_367__SCMATDEF_TESTLOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V448*/ meltfptr[447]) /*_.VALDATA___V448*/ meltfptr[447] = (melt_ptr_t) & cdat->dsym_367__SCMATDEF_TESTLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_367__SCMATDEF_TESTLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_367__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_367__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_367__SCMATDEF_TESTLOC.obj_hash = 614986849; cdat->dsym_367__SCMATDEF_TESTLOC.obj_len = 3; /*inistring dstr_368__SCMATDEF_TESTLOC*/ /*_.VALSTR___V449*/ meltfptr[448] = (melt_ptr_t) & cdat->dstr_368__SCMATDEF_TESTLOC; cdat->dstr_368__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_368__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (cdat->dstr_368__SCMATDEF_TESTLOC. val) - 1); /*^iniobj */ #line 328 /*iniobj dobj_369__SCMATDEF_TESTLOC*/ /*_.VALDATA___V439*/ meltfptr[438] = (melt_ptr_t) & cdat->dobj_369__SCMATDEF_TESTLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_369__SCMATDEF_TESTLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_369__SCMATDEF_TESTLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_369__SCMATDEF_TESTLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_369__SCMATDEF_TESTLOC.obj_num = 6; cdat->dobj_369__SCMATDEF_TESTLOC.obj_hash = 35561378; cdat->dobj_369__SCMATDEF_TESTLOC.obj_len = 4; /*inistring dstr_370__SCMATDEF_TESTLOC*/ /*_.VALSTR___V440*/ meltfptr[439] = (melt_ptr_t) & cdat->dstr_370__SCMATDEF_TESTLOC; cdat->dstr_370__SCMATDEF_TESTLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_370__SCMATDEF_TESTLOC.val, "SCMATDEF_TESTLOC", sizeof (cdat->dstr_370__SCMATDEF_TESTLOC. val) - 1); /*iniobj dsym_371__SCMATDEF_FILLLOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V450*/ meltfptr[449]) /*_.VALDATA___V450*/ meltfptr[449] = (melt_ptr_t) & cdat->dsym_371__SCMATDEF_FILLLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_371__SCMATDEF_FILLLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_371__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_371__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_371__SCMATDEF_FILLLOC.obj_hash = 822963004; cdat->dsym_371__SCMATDEF_FILLLOC.obj_len = 3; /*inistring dstr_372__SCMATDEF_FILLLOC*/ /*_.VALSTR___V451*/ meltfptr[450] = (melt_ptr_t) & cdat->dstr_372__SCMATDEF_FILLLOC; cdat->dstr_372__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_372__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (cdat->dstr_372__SCMATDEF_FILLLOC. val) - 1); /*^iniobj */ #line 328 /*iniobj dobj_373__SCMATDEF_FILLLOC*/ /*_.VALDATA___V441*/ meltfptr[440] = (melt_ptr_t) & cdat->dobj_373__SCMATDEF_FILLLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_373__SCMATDEF_FILLLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_373__SCMATDEF_FILLLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_373__SCMATDEF_FILLLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_373__SCMATDEF_FILLLOC.obj_num = 7; cdat->dobj_373__SCMATDEF_FILLLOC.obj_hash = 430007770; cdat->dobj_373__SCMATDEF_FILLLOC.obj_len = 4; /*inistring dstr_374__SCMATDEF_FILLLOC*/ /*_.VALSTR___V442*/ meltfptr[441] = (melt_ptr_t) & cdat->dstr_374__SCMATDEF_FILLLOC; cdat->dstr_374__SCMATDEF_FILLLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_374__SCMATDEF_FILLLOC.val, "SCMATDEF_FILLLOC", sizeof (cdat->dstr_374__SCMATDEF_FILLLOC. val) - 1); /*iniobj dsym_375__SCMATDEF_OPERLOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V452*/ meltfptr[451]) /*_.VALDATA___V452*/ meltfptr[451] = (melt_ptr_t) & cdat->dsym_375__SCMATDEF_OPERLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_375__SCMATDEF_OPERLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_375__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_375__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_375__SCMATDEF_OPERLOC.obj_hash = 958702304; cdat->dsym_375__SCMATDEF_OPERLOC.obj_len = 3; /*inistring dstr_376__SCMATDEF_OPERLOC*/ /*_.VALSTR___V453*/ meltfptr[452] = (melt_ptr_t) & cdat->dstr_376__SCMATDEF_OPERLOC; cdat->dstr_376__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_376__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (cdat->dstr_376__SCMATDEF_OPERLOC. val) - 1); /*^iniobj */ #line 328 /*iniobj dobj_377__SCMATDEF_OPERLOC*/ /*_.VALDATA___V443*/ meltfptr[442] = (melt_ptr_t) & cdat->dobj_377__SCMATDEF_OPERLOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_377__SCMATDEF_OPERLOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_377__SCMATDEF_OPERLOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_377__SCMATDEF_OPERLOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_377__SCMATDEF_OPERLOC.obj_num = 8; cdat->dobj_377__SCMATDEF_OPERLOC.obj_hash = 855187088; cdat->dobj_377__SCMATDEF_OPERLOC.obj_len = 4; /*inistring dstr_378__SCMATDEF_OPERLOC*/ /*_.VALSTR___V444*/ meltfptr[443] = (melt_ptr_t) & cdat->dstr_378__SCMATDEF_OPERLOC; cdat->dstr_378__SCMATDEF_OPERLOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_378__SCMATDEF_OPERLOC.val, "SCMATDEF_OPERLOC", sizeof (cdat->dstr_378__SCMATDEF_OPERLOC. val) - 1); /*iniobj dsym_379__CLASS_SOURCE_DEFUNMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V454*/ meltfptr[453]) /*_.VALDATA___V454*/ meltfptr[453] = (melt_ptr_t) & cdat->dsym_379__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_379__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_379__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_379__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_379__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 952645922; cdat->dsym_379__CLASS_SOURCE_DEFUNMATCHER.obj_len = 3; /*inistring dstr_380__CLASS_SOURCE_DEF*/ /*_.VALSTR___V455*/ meltfptr[454] = (melt_ptr_t) & cdat->dstr_380__CLASS_SOURCE_DEF; cdat->dstr_380__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_380__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_380__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:347:/ iniobj"); #line 347 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_381__CLASS_SOURCE_DEFUNMATCHER*/ /*_.VALDATA___V456*/ meltfptr[455] = (melt_ptr_t) & cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_381__CLASS_SOURCE_DEFUNMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_381__CLASS_SOURCE_DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_hash = 340232711; cdat->dobj_381__CLASS_SOURCE_DEFUNMATCHER.obj_len = 8; /*inistring dstr_382__CLASS_SOURCE_DEF*/ /*_.VALSTR___V457*/ meltfptr[456] = (melt_ptr_t) & cdat->dstr_382__CLASS_SOURCE_DEF; cdat->dstr_382__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_382__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFUNMATCHER", sizeof (cdat->dstr_382__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_383__CLASS_SOURCE_DEFUNMATCHER */ /*_.VALTUP___V458*/ meltfptr[457] = (melt_ptr_t) & cdat->dtup_383__CLASS_SOURCE_DEFUNMATCHER; cdat->dtup_383__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_383__CLASS_SOURCE_DEFUNMATCHER.nbval = 6; /*inimult dtup_384__CLASS_SOURCE_DEFUNMATCHER */ /*_.VALTUP___V469*/ meltfptr[468] = (melt_ptr_t) & cdat->dtup_384__CLASS_SOURCE_DEFUNMATCHER; cdat->dtup_384__CLASS_SOURCE_DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_384__CLASS_SOURCE_DEFUNMATCHER.nbval = 10; /*iniobj dsym_385__SFUMATDEF_INS*/ /*uniqueobj*/ if (! /*_.VALDATA___V470*/ meltfptr[469]) /*_.VALDATA___V470*/ meltfptr[469] = (melt_ptr_t) & cdat->dsym_385__SFUMATDEF_INS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_385__SFUMATDEF_INS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_385__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_385__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_385__SFUMATDEF_INS.obj_hash = 827702548; cdat->dsym_385__SFUMATDEF_INS.obj_len = 3; /*inistring dstr_386__SFUMATDEF_INS*/ /*_.VALSTR___V471*/ meltfptr[470] = (melt_ptr_t) & cdat->dstr_386__SFUMATDEF_INS; cdat->dstr_386__SFUMATDEF_INS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_386__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_386__SFUMATDEF_INS.val) - 1); /*^iniobj */ #line 347 /*iniobj dobj_387__SFUMATDEF_INS*/ /*_.VALDATA___V459*/ meltfptr[458] = (melt_ptr_t) & cdat->dobj_387__SFUMATDEF_INS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_387__SFUMATDEF_INS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_387__SFUMATDEF_INS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_387__SFUMATDEF_INS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_387__SFUMATDEF_INS.obj_num = 5; cdat->dobj_387__SFUMATDEF_INS.obj_hash = 358397837; cdat->dobj_387__SFUMATDEF_INS.obj_len = 4; /*inistring dstr_388__SFUMATDEF_INS*/ /*_.VALSTR___V460*/ meltfptr[459] = (melt_ptr_t) & cdat->dstr_388__SFUMATDEF_INS; cdat->dstr_388__SFUMATDEF_INS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_388__SFUMATDEF_INS.val, "SFUMATDEF_INS", sizeof (cdat->dstr_388__SFUMATDEF_INS.val) - 1); /*iniobj dsym_389__SFUMATDEF_OUTS*/ /*uniqueobj*/ if (! /*_.VALDATA___V472*/ meltfptr[471]) /*_.VALDATA___V472*/ meltfptr[471] = (melt_ptr_t) & cdat->dsym_389__SFUMATDEF_OUTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_389__SFUMATDEF_OUTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_389__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_389__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_389__SFUMATDEF_OUTS.obj_hash = 314080299; cdat->dsym_389__SFUMATDEF_OUTS.obj_len = 3; /*inistring dstr_390__SFUMATDEF_OUTS*/ /*_.VALSTR___V473*/ meltfptr[472] = (melt_ptr_t) & cdat->dstr_390__SFUMATDEF_OUTS; cdat->dstr_390__SFUMATDEF_OUTS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_390__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_390__SFUMATDEF_OUTS.val) - 1); /*^iniobj */ #line 347 /*iniobj dobj_391__SFUMATDEF_OUTS*/ /*_.VALDATA___V461*/ meltfptr[460] = (melt_ptr_t) & cdat->dobj_391__SFUMATDEF_OUTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_391__SFUMATDEF_OUTS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_391__SFUMATDEF_OUTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_391__SFUMATDEF_OUTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_391__SFUMATDEF_OUTS.obj_num = 6; cdat->dobj_391__SFUMATDEF_OUTS.obj_hash = 280586215; cdat->dobj_391__SFUMATDEF_OUTS.obj_len = 4; /*inistring dstr_392__SFUMATDEF_OUTS*/ /*_.VALSTR___V462*/ meltfptr[461] = (melt_ptr_t) & cdat->dstr_392__SFUMATDEF_OUTS; cdat->dstr_392__SFUMATDEF_OUTS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_392__SFUMATDEF_OUTS.val, "SFUMATDEF_OUTS", sizeof (cdat->dstr_392__SFUMATDEF_OUTS.val) - 1); /*iniobj dsym_393__SFUMATDEF_MATCHF*/ /*uniqueobj*/ if (! /*_.VALDATA___V474*/ meltfptr[473]) /*_.VALDATA___V474*/ meltfptr[473] = (melt_ptr_t) & cdat->dsym_393__SFUMATDEF_MATCHF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_393__SFUMATDEF_MATCHF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_393__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_393__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_393__SFUMATDEF_MATCHF.obj_hash = 105121313; cdat->dsym_393__SFUMATDEF_MATCHF.obj_len = 3; /*inistring dstr_394__SFUMATDEF_MATCHF*/ /*_.VALSTR___V475*/ meltfptr[474] = (melt_ptr_t) & cdat->dstr_394__SFUMATDEF_MATCHF; cdat->dstr_394__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_394__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_394__SFUMATDEF_MATCHF. val) - 1); /*^iniobj */ #line 347 /*iniobj dobj_395__SFUMATDEF_MATCHF*/ /*_.VALDATA___V463*/ meltfptr[462] = (melt_ptr_t) & cdat->dobj_395__SFUMATDEF_MATCHF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_395__SFUMATDEF_MATCHF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_395__SFUMATDEF_MATCHF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_395__SFUMATDEF_MATCHF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_395__SFUMATDEF_MATCHF.obj_num = 7; cdat->dobj_395__SFUMATDEF_MATCHF.obj_hash = 560679845; cdat->dobj_395__SFUMATDEF_MATCHF.obj_len = 4; /*inistring dstr_396__SFUMATDEF_MATCHF*/ /*_.VALSTR___V464*/ meltfptr[463] = (melt_ptr_t) & cdat->dstr_396__SFUMATDEF_MATCHF; cdat->dstr_396__SFUMATDEF_MATCHF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_396__SFUMATDEF_MATCHF.val, "SFUMATDEF_MATCHF", sizeof (cdat->dstr_396__SFUMATDEF_MATCHF. val) - 1); /*iniobj dsym_397__SFUMATDEF_APPLYF*/ /*uniqueobj*/ if (! /*_.VALDATA___V476*/ meltfptr[475]) /*_.VALDATA___V476*/ meltfptr[475] = (melt_ptr_t) & cdat->dsym_397__SFUMATDEF_APPLYF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_397__SFUMATDEF_APPLYF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_397__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_397__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_397__SFUMATDEF_APPLYF.obj_hash = 921369127; cdat->dsym_397__SFUMATDEF_APPLYF.obj_len = 3; /*inistring dstr_398__SFUMATDEF_APPLYF*/ /*_.VALSTR___V477*/ meltfptr[476] = (melt_ptr_t) & cdat->dstr_398__SFUMATDEF_APPLYF; cdat->dstr_398__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_398__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_398__SFUMATDEF_APPLYF. val) - 1); /*^iniobj */ #line 347 /*iniobj dobj_399__SFUMATDEF_APPLYF*/ /*_.VALDATA___V465*/ meltfptr[464] = (melt_ptr_t) & cdat->dobj_399__SFUMATDEF_APPLYF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_399__SFUMATDEF_APPLYF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_399__SFUMATDEF_APPLYF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_399__SFUMATDEF_APPLYF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_399__SFUMATDEF_APPLYF.obj_num = 8; cdat->dobj_399__SFUMATDEF_APPLYF.obj_hash = 550214567; cdat->dobj_399__SFUMATDEF_APPLYF.obj_len = 4; /*inistring dstr_400__SFUMATDEF_APPLYF*/ /*_.VALSTR___V466*/ meltfptr[465] = (melt_ptr_t) & cdat->dstr_400__SFUMATDEF_APPLYF; cdat->dstr_400__SFUMATDEF_APPLYF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_400__SFUMATDEF_APPLYF.val, "SFUMATDEF_APPLYF", sizeof (cdat->dstr_400__SFUMATDEF_APPLYF. val) - 1); /*iniobj dsym_401__SFUMATDEF_DATA*/ /*uniqueobj*/ if (! /*_.VALDATA___V478*/ meltfptr[477]) /*_.VALDATA___V478*/ meltfptr[477] = (melt_ptr_t) & cdat->dsym_401__SFUMATDEF_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_401__SFUMATDEF_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_401__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_401__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_401__SFUMATDEF_DATA.obj_hash = 137569219; cdat->dsym_401__SFUMATDEF_DATA.obj_len = 3; /*inistring dstr_402__SFUMATDEF_DATA*/ /*_.VALSTR___V479*/ meltfptr[478] = (melt_ptr_t) & cdat->dstr_402__SFUMATDEF_DATA; cdat->dstr_402__SFUMATDEF_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_402__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_402__SFUMATDEF_DATA.val) - 1); /*^iniobj */ #line 347 /*iniobj dobj_403__SFUMATDEF_DATA*/ /*_.VALDATA___V467*/ meltfptr[466] = (melt_ptr_t) & cdat->dobj_403__SFUMATDEF_DATA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_403__SFUMATDEF_DATA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_403__SFUMATDEF_DATA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_403__SFUMATDEF_DATA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_403__SFUMATDEF_DATA.obj_num = 9; cdat->dobj_403__SFUMATDEF_DATA.obj_hash = 879440799; cdat->dobj_403__SFUMATDEF_DATA.obj_len = 4; /*inistring dstr_404__SFUMATDEF_DATA*/ /*_.VALSTR___V468*/ meltfptr[467] = (melt_ptr_t) & cdat->dstr_404__SFUMATDEF_DATA; cdat->dstr_404__SFUMATDEF_DATA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_404__SFUMATDEF_DATA.val, "SFUMATDEF_DATA", sizeof (cdat->dstr_404__SFUMATDEF_DATA.val) - 1); /*iniobj dsym_405__CLASS_SOURCE_DEFOBJCOMMON*/ /*uniqueobj*/ if (! /*_.VALDATA___V480*/ meltfptr[479]) /*_.VALDATA___V480*/ meltfptr[479] = (melt_ptr_t) & cdat->dsym_405__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_405__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_405__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_405__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_405__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 59608014; cdat->dsym_405__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 3; /*inistring dstr_406__CLASS_SOURCE_DEF*/ /*_.VALSTR___V481*/ meltfptr[480] = (melt_ptr_t) & cdat->dstr_406__CLASS_SOURCE_DEF; cdat->dstr_406__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_406__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_406__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:367:/ iniobj"); #line 367 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_407__CLASS_SOURCE_DEFOBJCOMMON*/ /*_.VALDATA___V482*/ meltfptr[481] = (melt_ptr_t) & cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_407__CLASS_SOURCE_DEFOBJCOMMON", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_407__CLASS_SOURCE_DEFOBJCOMMON", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_num = MELTOBMAG_OBJECT; cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_hash = 989424806; cdat->dobj_407__CLASS_SOURCE_DEFOBJCOMMON.obj_len = 8; /*inistring dstr_408__CLASS_SOURCE_DEF*/ /*_.VALSTR___V483*/ meltfptr[482] = (melt_ptr_t) & cdat->dstr_408__CLASS_SOURCE_DEF; cdat->dstr_408__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_408__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFOBJCOMMON", sizeof (cdat->dstr_408__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_409__CLASS_SOURCE_DEFOBJCOMMON */ /*_.VALTUP___V484*/ meltfptr[483] = (melt_ptr_t) & cdat->dtup_409__CLASS_SOURCE_DEFOBJCOMMON; cdat->dtup_409__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_409__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*inimult dtup_410__CLASS_SOURCE_DEFOBJCOMMON */ /*_.VALTUP___V487*/ meltfptr[486] = (melt_ptr_t) & cdat->dtup_410__CLASS_SOURCE_DEFOBJCOMMON; cdat->dtup_410__CLASS_SOURCE_DEFOBJCOMMON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_410__CLASS_SOURCE_DEFOBJCOMMON.nbval = 5; /*iniobj dsym_411__SOBJ_PREDEF*/ /*uniqueobj*/ if (! /*_.VALDATA___V488*/ meltfptr[487]) /*_.VALDATA___V488*/ meltfptr[487] = (melt_ptr_t) & cdat->dsym_411__SOBJ_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_411__SOBJ_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_411__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_411__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_411__SOBJ_PREDEF.obj_hash = 86176455; cdat->dsym_411__SOBJ_PREDEF.obj_len = 3; /*inistring dstr_412__SOBJ_PREDEF*/ /*_.VALSTR___V489*/ meltfptr[488] = (melt_ptr_t) & cdat->dstr_412__SOBJ_PREDEF; cdat->dstr_412__SOBJ_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_412__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_412__SOBJ_PREDEF.val) - 1); /*^iniobj */ #line 367 /*iniobj dobj_413__SOBJ_PREDEF*/ /*_.VALDATA___V485*/ meltfptr[484] = (melt_ptr_t) & cdat->dobj_413__SOBJ_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_413__SOBJ_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_413__SOBJ_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_413__SOBJ_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_413__SOBJ_PREDEF.obj_num = 4; cdat->dobj_413__SOBJ_PREDEF.obj_hash = 698445721; cdat->dobj_413__SOBJ_PREDEF.obj_len = 4; /*inistring dstr_414__SOBJ_PREDEF*/ /*_.VALSTR___V486*/ meltfptr[485] = (melt_ptr_t) & cdat->dstr_414__SOBJ_PREDEF; cdat->dstr_414__SOBJ_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_414__SOBJ_PREDEF.val, "SOBJ_PREDEF", sizeof (cdat->dstr_414__SOBJ_PREDEF.val) - 1); /*iniobj dsym_415__CLASS_SOURCE_DEFCLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V490*/ meltfptr[489]) /*_.VALDATA___V490*/ meltfptr[489] = (melt_ptr_t) & cdat->dsym_415__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_415__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_415__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_415__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_415__CLASS_SOURCE_DEFCLASS.obj_hash = 964015067; cdat->dsym_415__CLASS_SOURCE_DEFCLASS.obj_len = 3; /*inistring dstr_416__CLASS_SOURCE_DEF*/ /*_.VALSTR___V491*/ meltfptr[490] = (melt_ptr_t) & cdat->dstr_416__CLASS_SOURCE_DEF; cdat->dstr_416__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_416__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_416__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:377:/ iniobj"); #line 377 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_417__CLASS_SOURCE_DEFCLASS*/ /*_.VALDATA___V492*/ meltfptr[491] = (melt_ptr_t) & cdat->dobj_417__CLASS_SOURCE_DEFCLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_417__CLASS_SOURCE_DEFCLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_417__CLASS_SOURCE_DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_417__CLASS_SOURCE_DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_num = MELTOBMAG_OBJECT; cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_hash = 828446724; cdat->dobj_417__CLASS_SOURCE_DEFCLASS.obj_len = 8; /*inistring dstr_418__CLASS_SOURCE_DEF*/ /*_.VALSTR___V493*/ meltfptr[492] = (melt_ptr_t) & cdat->dstr_418__CLASS_SOURCE_DEF; cdat->dstr_418__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_418__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFCLASS", sizeof (cdat->dstr_418__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_419__CLASS_SOURCE_DEFCLASS */ /*_.VALTUP___V494*/ meltfptr[493] = (melt_ptr_t) & cdat->dtup_419__CLASS_SOURCE_DEFCLASS; cdat->dtup_419__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_419__CLASS_SOURCE_DEFCLASS.nbval = 6; /*inimult dtup_420__CLASS_SOURCE_DEFCLASS */ /*_.VALTUP___V501*/ meltfptr[500] = (melt_ptr_t) & cdat->dtup_420__CLASS_SOURCE_DEFCLASS; cdat->dtup_420__CLASS_SOURCE_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_420__CLASS_SOURCE_DEFCLASS.nbval = 8; /*iniobj dsym_421__SCLASS_CLABIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V502*/ meltfptr[501]) /*_.VALDATA___V502*/ meltfptr[501] = (melt_ptr_t) & cdat->dsym_421__SCLASS_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_421__SCLASS_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_421__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_421__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_421__SCLASS_CLABIND.obj_hash = 547477738; cdat->dsym_421__SCLASS_CLABIND.obj_len = 3; /*inistring dstr_422__SCLASS_CLABIND*/ /*_.VALSTR___V503*/ meltfptr[502] = (melt_ptr_t) & cdat->dstr_422__SCLASS_CLABIND; cdat->dstr_422__SCLASS_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_422__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_422__SCLASS_CLABIND.val) - 1); /*^iniobj */ #line 377 /*iniobj dobj_423__SCLASS_CLABIND*/ /*_.VALDATA___V495*/ meltfptr[494] = (melt_ptr_t) & cdat->dobj_423__SCLASS_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_423__SCLASS_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_423__SCLASS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_423__SCLASS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_423__SCLASS_CLABIND.obj_num = 5; cdat->dobj_423__SCLASS_CLABIND.obj_hash = 666052255; cdat->dobj_423__SCLASS_CLABIND.obj_len = 4; /*inistring dstr_424__SCLASS_CLABIND*/ /*_.VALSTR___V496*/ meltfptr[495] = (melt_ptr_t) & cdat->dstr_424__SCLASS_CLABIND; cdat->dstr_424__SCLASS_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_424__SCLASS_CLABIND.val, "SCLASS_CLABIND", sizeof (cdat->dstr_424__SCLASS_CLABIND.val) - 1); /*iniobj dsym_425__SCLASS_SUPERBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V504*/ meltfptr[503]) /*_.VALDATA___V504*/ meltfptr[503] = (melt_ptr_t) & cdat->dsym_425__SCLASS_SUPERBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_425__SCLASS_SUPERBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_425__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_425__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_425__SCLASS_SUPERBIND.obj_hash = 920892924; cdat->dsym_425__SCLASS_SUPERBIND.obj_len = 3; /*inistring dstr_426__SCLASS_SUPERBIND*/ /*_.VALSTR___V505*/ meltfptr[504] = (melt_ptr_t) & cdat->dstr_426__SCLASS_SUPERBIND; cdat->dstr_426__SCLASS_SUPERBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_426__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_426__SCLASS_SUPERBIND. val) - 1); /*^iniobj */ #line 377 /*iniobj dobj_427__SCLASS_SUPERBIND*/ /*_.VALDATA___V497*/ meltfptr[496] = (melt_ptr_t) & cdat->dobj_427__SCLASS_SUPERBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_427__SCLASS_SUPERBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_427__SCLASS_SUPERBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_427__SCLASS_SUPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_427__SCLASS_SUPERBIND.obj_num = 6; cdat->dobj_427__SCLASS_SUPERBIND.obj_hash = 786175678; cdat->dobj_427__SCLASS_SUPERBIND.obj_len = 4; /*inistring dstr_428__SCLASS_SUPERBIND*/ /*_.VALSTR___V498*/ meltfptr[497] = (melt_ptr_t) & cdat->dstr_428__SCLASS_SUPERBIND; cdat->dstr_428__SCLASS_SUPERBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_428__SCLASS_SUPERBIND.val, "SCLASS_SUPERBIND", sizeof (cdat->dstr_428__SCLASS_SUPERBIND. val) - 1); /*iniobj dsym_429__SCLASS_FLDBINDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V506*/ meltfptr[505]) /*_.VALDATA___V506*/ meltfptr[505] = (melt_ptr_t) & cdat->dsym_429__SCLASS_FLDBINDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_429__SCLASS_FLDBINDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_429__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_429__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_429__SCLASS_FLDBINDS.obj_hash = 972028873; cdat->dsym_429__SCLASS_FLDBINDS.obj_len = 3; /*inistring dstr_430__SCLASS_FLDBINDS*/ /*_.VALSTR___V507*/ meltfptr[506] = (melt_ptr_t) & cdat->dstr_430__SCLASS_FLDBINDS; cdat->dstr_430__SCLASS_FLDBINDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_430__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_430__SCLASS_FLDBINDS.val) - 1); /*^iniobj */ #line 377 /*iniobj dobj_431__SCLASS_FLDBINDS*/ /*_.VALDATA___V499*/ meltfptr[498] = (melt_ptr_t) & cdat->dobj_431__SCLASS_FLDBINDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_431__SCLASS_FLDBINDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_431__SCLASS_FLDBINDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_431__SCLASS_FLDBINDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_431__SCLASS_FLDBINDS.obj_num = 7; cdat->dobj_431__SCLASS_FLDBINDS.obj_hash = 756603586; cdat->dobj_431__SCLASS_FLDBINDS.obj_len = 4; /*inistring dstr_432__SCLASS_FLDBINDS*/ /*_.VALSTR___V500*/ meltfptr[499] = (melt_ptr_t) & cdat->dstr_432__SCLASS_FLDBINDS; cdat->dstr_432__SCLASS_FLDBINDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_432__SCLASS_FLDBINDS.val, "SCLASS_FLDBINDS", sizeof (cdat->dstr_432__SCLASS_FLDBINDS.val) - 1); /*iniobj dsym_433__CLASS_SOURCE_DEFINSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V508*/ meltfptr[507]) /*_.VALDATA___V508*/ meltfptr[507] = (melt_ptr_t) & cdat->dsym_433__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_433__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_433__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_433__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_433__CLASS_SOURCE_DEFINSTANCE.obj_hash = 1015265906; cdat->dsym_433__CLASS_SOURCE_DEFINSTANCE.obj_len = 3; /*inistring dstr_434__CLASS_SOURCE_DEF*/ /*_.VALSTR___V509*/ meltfptr[508] = (melt_ptr_t) & cdat->dstr_434__CLASS_SOURCE_DEF; cdat->dstr_434__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_434__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_434__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:390:/ iniobj"); #line 390 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_435__CLASS_SOURCE_DEFINSTANCE*/ /*_.VALDATA___V510*/ meltfptr[509] = (melt_ptr_t) & cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_435__CLASS_SOURCE_DEFINSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_435__CLASS_SOURCE_DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_hash = 329181665; cdat->dobj_435__CLASS_SOURCE_DEFINSTANCE.obj_len = 8; /*inistring dstr_436__CLASS_SOURCE_DEF*/ /*_.VALSTR___V511*/ meltfptr[510] = (melt_ptr_t) & cdat->dstr_436__CLASS_SOURCE_DEF; cdat->dstr_436__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_436__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFINSTANCE", sizeof (cdat->dstr_436__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_437__CLASS_SOURCE_DEFINSTANCE */ /*_.VALTUP___V512*/ meltfptr[511] = (melt_ptr_t) & cdat->dtup_437__CLASS_SOURCE_DEFINSTANCE; cdat->dtup_437__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_437__CLASS_SOURCE_DEFINSTANCE.nbval = 6; /*inimult dtup_438__CLASS_SOURCE_DEFINSTANCE */ /*_.VALTUP___V521*/ meltfptr[520] = (melt_ptr_t) & cdat->dtup_438__CLASS_SOURCE_DEFINSTANCE; cdat->dtup_438__CLASS_SOURCE_DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_438__CLASS_SOURCE_DEFINSTANCE.nbval = 9; /*iniobj dsym_439__SINST_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V522*/ meltfptr[521]) /*_.VALDATA___V522*/ meltfptr[521] = (melt_ptr_t) & cdat->dsym_439__SINST_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_439__SINST_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_439__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_439__SINST_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_439__SINST_CLASS.obj_hash = 251075917; cdat->dsym_439__SINST_CLASS.obj_len = 3; /*inistring dstr_440__SINST_CLASS*/ /*_.VALSTR___V523*/ meltfptr[522] = (melt_ptr_t) & cdat->dstr_440__SINST_CLASS; cdat->dstr_440__SINST_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_440__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_440__SINST_CLASS.val) - 1); /*^iniobj */ #line 390 /*iniobj dobj_441__SINST_CLASS*/ /*_.VALDATA___V513*/ meltfptr[512] = (melt_ptr_t) & cdat->dobj_441__SINST_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_441__SINST_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_441__SINST_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_441__SINST_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_441__SINST_CLASS.obj_num = 5; cdat->dobj_441__SINST_CLASS.obj_hash = 574194245; cdat->dobj_441__SINST_CLASS.obj_len = 4; /*inistring dstr_442__SINST_CLASS*/ /*_.VALSTR___V514*/ meltfptr[513] = (melt_ptr_t) & cdat->dstr_442__SINST_CLASS; cdat->dstr_442__SINST_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_442__SINST_CLASS.val, "SINST_CLASS", sizeof (cdat->dstr_442__SINST_CLASS.val) - 1); /*iniobj dsym_443__SINST_CLABIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V524*/ meltfptr[523]) /*_.VALDATA___V524*/ meltfptr[523] = (melt_ptr_t) & cdat->dsym_443__SINST_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_443__SINST_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_443__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_443__SINST_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_443__SINST_CLABIND.obj_hash = 724106735; cdat->dsym_443__SINST_CLABIND.obj_len = 3; /*inistring dstr_444__SINST_CLABIND*/ /*_.VALSTR___V525*/ meltfptr[524] = (melt_ptr_t) & cdat->dstr_444__SINST_CLABIND; cdat->dstr_444__SINST_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_444__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_444__SINST_CLABIND.val) - 1); /*^iniobj */ #line 390 /*iniobj dobj_445__SINST_CLABIND*/ /*_.VALDATA___V515*/ meltfptr[514] = (melt_ptr_t) & cdat->dobj_445__SINST_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_445__SINST_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_445__SINST_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_445__SINST_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_445__SINST_CLABIND.obj_num = 6; cdat->dobj_445__SINST_CLABIND.obj_hash = 1043748233; cdat->dobj_445__SINST_CLABIND.obj_len = 4; /*inistring dstr_446__SINST_CLABIND*/ /*_.VALSTR___V516*/ meltfptr[515] = (melt_ptr_t) & cdat->dstr_446__SINST_CLABIND; cdat->dstr_446__SINST_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_446__SINST_CLABIND.val, "SINST_CLABIND", sizeof (cdat->dstr_446__SINST_CLABIND.val) - 1); /*iniobj dsym_447__SINST_OBJNUM*/ /*uniqueobj*/ if (! /*_.VALDATA___V526*/ meltfptr[525]) /*_.VALDATA___V526*/ meltfptr[525] = (melt_ptr_t) & cdat->dsym_447__SINST_OBJNUM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_447__SINST_OBJNUM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_447__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_447__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_447__SINST_OBJNUM.obj_hash = 504129586; cdat->dsym_447__SINST_OBJNUM.obj_len = 3; /*inistring dstr_448__SINST_OBJNUM*/ /*_.VALSTR___V527*/ meltfptr[526] = (melt_ptr_t) & cdat->dstr_448__SINST_OBJNUM; cdat->dstr_448__SINST_OBJNUM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_448__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_448__SINST_OBJNUM.val) - 1); /*^iniobj */ #line 390 /*iniobj dobj_449__SINST_OBJNUM*/ /*_.VALDATA___V517*/ meltfptr[516] = (melt_ptr_t) & cdat->dobj_449__SINST_OBJNUM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_449__SINST_OBJNUM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_449__SINST_OBJNUM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_449__SINST_OBJNUM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_449__SINST_OBJNUM.obj_num = 7; cdat->dobj_449__SINST_OBJNUM.obj_hash = 657918446; cdat->dobj_449__SINST_OBJNUM.obj_len = 4; /*inistring dstr_450__SINST_OBJNUM*/ /*_.VALSTR___V518*/ meltfptr[517] = (melt_ptr_t) & cdat->dstr_450__SINST_OBJNUM; cdat->dstr_450__SINST_OBJNUM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_450__SINST_OBJNUM.val, "SINST_OBJNUM", sizeof (cdat->dstr_450__SINST_OBJNUM.val) - 1); /*iniobj dsym_451__SINST_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V528*/ meltfptr[527]) /*_.VALDATA___V528*/ meltfptr[527] = (melt_ptr_t) & cdat->dsym_451__SINST_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_451__SINST_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_451__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_451__SINST_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_451__SINST_FIELDS.obj_hash = 827706478; cdat->dsym_451__SINST_FIELDS.obj_len = 3; /*inistring dstr_452__SINST_FIELDS*/ /*_.VALSTR___V529*/ meltfptr[528] = (melt_ptr_t) & cdat->dstr_452__SINST_FIELDS; cdat->dstr_452__SINST_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_452__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_452__SINST_FIELDS.val) - 1); /*^iniobj */ #line 390 /*iniobj dobj_453__SINST_FIELDS*/ /*_.VALDATA___V519*/ meltfptr[518] = (melt_ptr_t) & cdat->dobj_453__SINST_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_453__SINST_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_453__SINST_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_453__SINST_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_453__SINST_FIELDS.obj_num = 8; cdat->dobj_453__SINST_FIELDS.obj_hash = 1025201640; cdat->dobj_453__SINST_FIELDS.obj_len = 4; /*inistring dstr_454__SINST_FIELDS*/ /*_.VALSTR___V520*/ meltfptr[519] = (melt_ptr_t) & cdat->dstr_454__SINST_FIELDS; cdat->dstr_454__SINST_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_454__SINST_FIELDS.val, "SINST_FIELDS", sizeof (cdat->dstr_454__SINST_FIELDS.val) - 1); /*iniobj dsym_455__CLASS_SOURCE_DEFSELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V530*/ meltfptr[529]) /*_.VALDATA___V530*/ meltfptr[529] = (melt_ptr_t) & cdat->dsym_455__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_455__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_455__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_455__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_455__CLASS_SOURCE_DEFSELECTOR.obj_hash = 2178050; cdat->dsym_455__CLASS_SOURCE_DEFSELECTOR.obj_len = 3; /*inistring dstr_456__CLASS_SOURCE_DEF*/ /*_.VALSTR___V531*/ meltfptr[530] = (melt_ptr_t) & cdat->dstr_456__CLASS_SOURCE_DEF; cdat->dstr_456__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_456__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_456__CLASS_SOURCE_DEF. val) - 1); MELT_LOCATION ("warmelt-macro.melt:404:/ iniobj"); #line 404 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_457__CLASS_SOURCE_DEFSELECTOR*/ /*_.VALDATA___V532*/ meltfptr[531] = (melt_ptr_t) & cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_457__CLASS_SOURCE_DEFSELECTOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_457__CLASS_SOURCE_DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_hash = 152720230; cdat->dobj_457__CLASS_SOURCE_DEFSELECTOR.obj_len = 8; /*inistring dstr_458__CLASS_SOURCE_DEF*/ /*_.VALSTR___V533*/ meltfptr[532] = (melt_ptr_t) & cdat->dstr_458__CLASS_SOURCE_DEF; cdat->dstr_458__CLASS_SOURCE_DEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_458__CLASS_SOURCE_DEF.val, "CLASS_SOURCE_DEFSELECTOR", sizeof (cdat->dstr_458__CLASS_SOURCE_DEF. val) - 1); /*inimult dtup_459__CLASS_SOURCE_DEFSELECTOR */ /*_.VALTUP___V534*/ meltfptr[533] = (melt_ptr_t) & cdat->dtup_459__CLASS_SOURCE_DEFSELECTOR; cdat->dtup_459__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_459__CLASS_SOURCE_DEFSELECTOR.nbval = 7; /*inimult dtup_460__CLASS_SOURCE_DEFSELECTOR */ /*_.VALTUP___V537*/ meltfptr[536] = (melt_ptr_t) & cdat->dtup_460__CLASS_SOURCE_DEFSELECTOR; cdat->dtup_460__CLASS_SOURCE_DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_460__CLASS_SOURCE_DEFSELECTOR.nbval = 10; /*iniobj dsym_461__SDEFSEL_FORMALS*/ /*uniqueobj*/ if (! /*_.VALDATA___V538*/ meltfptr[537]) /*_.VALDATA___V538*/ meltfptr[537] = (melt_ptr_t) & cdat->dsym_461__SDEFSEL_FORMALS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_461__SDEFSEL_FORMALS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_461__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_461__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_461__SDEFSEL_FORMALS.obj_hash = 800815677; cdat->dsym_461__SDEFSEL_FORMALS.obj_len = 3; /*inistring dstr_462__SDEFSEL_FORMALS*/ /*_.VALSTR___V539*/ meltfptr[538] = (melt_ptr_t) & cdat->dstr_462__SDEFSEL_FORMALS; cdat->dstr_462__SDEFSEL_FORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_462__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_462__SDEFSEL_FORMALS.val) - 1); /*^iniobj */ #line 404 /*iniobj dobj_463__SDEFSEL_FORMALS*/ /*_.VALDATA___V535*/ meltfptr[534] = (melt_ptr_t) & cdat->dobj_463__SDEFSEL_FORMALS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_463__SDEFSEL_FORMALS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_463__SDEFSEL_FORMALS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_463__SDEFSEL_FORMALS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_463__SDEFSEL_FORMALS.obj_num = 9; cdat->dobj_463__SDEFSEL_FORMALS.obj_hash = 684000235; cdat->dobj_463__SDEFSEL_FORMALS.obj_len = 4; /*inistring dstr_464__SDEFSEL_FORMALS*/ /*_.VALSTR___V536*/ meltfptr[535] = (melt_ptr_t) & cdat->dstr_464__SDEFSEL_FORMALS; cdat->dstr_464__SDEFSEL_FORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_464__SDEFSEL_FORMALS.val, "SDEFSEL_FORMALS", sizeof (cdat->dstr_464__SDEFSEL_FORMALS.val) - 1); /*iniobj dsym_465__CLASS_SOURCE_FIELDASSIGN*/ /*uniqueobj*/ if (! /*_.VALDATA___V540*/ meltfptr[539]) /*_.VALDATA___V540*/ meltfptr[539] = (melt_ptr_t) & cdat->dsym_465__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_465__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_465__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_465__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_465__CLASS_SOURCE_FIELDASSIGN.obj_hash = 362514023; cdat->dsym_465__CLASS_SOURCE_FIELDASSIGN.obj_len = 3; /*inistring dstr_466__CLASS_SOURCE_FIE*/ /*_.VALSTR___V541*/ meltfptr[540] = (melt_ptr_t) & cdat->dstr_466__CLASS_SOURCE_FIE; cdat->dstr_466__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_466__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_466__CLASS_SOURCE_FIE. val) - 1); MELT_LOCATION ("warmelt-macro.melt:413:/ iniobj"); #line 413 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_467__CLASS_SOURCE_FIELDASSIGN*/ /*_.VALDATA___V542*/ meltfptr[541] = (melt_ptr_t) & cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_467__CLASS_SOURCE_FIELDASSIGN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_467__CLASS_SOURCE_FIELDASSIGN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_hash = 803464390; cdat->dobj_467__CLASS_SOURCE_FIELDASSIGN.obj_len = 8; /*inistring dstr_468__CLASS_SOURCE_FIE*/ /*_.VALSTR___V543*/ meltfptr[542] = (melt_ptr_t) & cdat->dstr_468__CLASS_SOURCE_FIE; cdat->dstr_468__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_468__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELDASSIGN", sizeof (cdat->dstr_468__CLASS_SOURCE_FIE. val) - 1); /*inimult dtup_469__CLASS_SOURCE_FIELDASSIGN */ /*_.VALTUP___V544*/ meltfptr[543] = (melt_ptr_t) & cdat->dtup_469__CLASS_SOURCE_FIELDASSIGN; cdat->dtup_469__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_469__CLASS_SOURCE_FIELDASSIGN.nbval = 4; /*inimult dtup_470__CLASS_SOURCE_FIELDASSIGN */ /*_.VALTUP___V549*/ meltfptr[548] = (melt_ptr_t) & cdat->dtup_470__CLASS_SOURCE_FIELDASSIGN; cdat->dtup_470__CLASS_SOURCE_FIELDASSIGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_470__CLASS_SOURCE_FIELDASSIGN.nbval = 4; /*iniobj dsym_471__SFLA_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V550*/ meltfptr[549]) /*_.VALDATA___V550*/ meltfptr[549] = (melt_ptr_t) & cdat->dsym_471__SFLA_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_471__SFLA_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_471__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_471__SFLA_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_471__SFLA_FIELD.obj_hash = 53606921; cdat->dsym_471__SFLA_FIELD.obj_len = 3; /*inistring dstr_472__SFLA_FIELD*/ /*_.VALSTR___V551*/ meltfptr[550] = (melt_ptr_t) & cdat->dstr_472__SFLA_FIELD; cdat->dstr_472__SFLA_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_472__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_472__SFLA_FIELD.val) - 1); /*^iniobj */ #line 413 /*iniobj dobj_473__SFLA_FIELD*/ /*_.VALDATA___V545*/ meltfptr[544] = (melt_ptr_t) & cdat->dobj_473__SFLA_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_473__SFLA_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_473__SFLA_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_473__SFLA_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_473__SFLA_FIELD.obj_num = 2; cdat->dobj_473__SFLA_FIELD.obj_hash = 149617405; cdat->dobj_473__SFLA_FIELD.obj_len = 4; /*inistring dstr_474__SFLA_FIELD*/ /*_.VALSTR___V546*/ meltfptr[545] = (melt_ptr_t) & cdat->dstr_474__SFLA_FIELD; cdat->dstr_474__SFLA_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_474__SFLA_FIELD.val, "SFLA_FIELD", sizeof (cdat->dstr_474__SFLA_FIELD.val) - 1); /*iniobj dsym_475__SFLA_EXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V552*/ meltfptr[551]) /*_.VALDATA___V552*/ meltfptr[551] = (melt_ptr_t) & cdat->dsym_475__SFLA_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_475__SFLA_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_475__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_475__SFLA_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_475__SFLA_EXPR.obj_hash = 723165498; cdat->dsym_475__SFLA_EXPR.obj_len = 3; /*inistring dstr_476__SFLA_EXPR*/ /*_.VALSTR___V553*/ meltfptr[552] = (melt_ptr_t) & cdat->dstr_476__SFLA_EXPR; cdat->dstr_476__SFLA_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_476__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_476__SFLA_EXPR.val) - 1); /*^iniobj */ #line 413 /*iniobj dobj_477__SFLA_EXPR*/ /*_.VALDATA___V547*/ meltfptr[546] = (melt_ptr_t) & cdat->dobj_477__SFLA_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_477__SFLA_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_477__SFLA_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_477__SFLA_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_477__SFLA_EXPR.obj_num = 3; cdat->dobj_477__SFLA_EXPR.obj_hash = 650550465; cdat->dobj_477__SFLA_EXPR.obj_len = 4; /*inistring dstr_478__SFLA_EXPR*/ /*_.VALSTR___V548*/ meltfptr[547] = (melt_ptr_t) & cdat->dstr_478__SFLA_EXPR; cdat->dstr_478__SFLA_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_478__SFLA_EXPR.val, "SFLA_EXPR", sizeof (cdat->dstr_478__SFLA_EXPR.val) - 1); /*iniobj dsym_479__CLASS_SOURCE_INSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V554*/ meltfptr[553]) /*_.VALDATA___V554*/ meltfptr[553] = (melt_ptr_t) & cdat->dsym_479__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_479__CLASS_SOURCE_INSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_479__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_479__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_479__CLASS_SOURCE_INSTANCE.obj_hash = 185000661; cdat->dsym_479__CLASS_SOURCE_INSTANCE.obj_len = 3; /*inistring dstr_480__CLASS_SOURCE_INS*/ /*_.VALSTR___V555*/ meltfptr[554] = (melt_ptr_t) & cdat->dstr_480__CLASS_SOURCE_INS; cdat->dstr_480__CLASS_SOURCE_INS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_480__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_480__CLASS_SOURCE_INS. val) - 1); MELT_LOCATION ("warmelt-macro.melt:424:/ iniobj"); #line 424 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_481__CLASS_SOURCE_INSTANCE*/ /*_.VALDATA___V556*/ meltfptr[555] = (melt_ptr_t) & cdat->dobj_481__CLASS_SOURCE_INSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_481__CLASS_SOURCE_INSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_481__CLASS_SOURCE_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_481__CLASS_SOURCE_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_hash = 411526040; cdat->dobj_481__CLASS_SOURCE_INSTANCE.obj_len = 8; /*inistring dstr_482__CLASS_SOURCE_INS*/ /*_.VALSTR___V557*/ meltfptr[556] = (melt_ptr_t) & cdat->dstr_482__CLASS_SOURCE_INS; cdat->dstr_482__CLASS_SOURCE_INS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_482__CLASS_SOURCE_INS.val, "CLASS_SOURCE_INSTANCE", sizeof (cdat->dstr_482__CLASS_SOURCE_INS. val) - 1); /*inimult dtup_483__CLASS_SOURCE_INSTANCE */ /*_.VALTUP___V558*/ meltfptr[557] = (melt_ptr_t) & cdat->dtup_483__CLASS_SOURCE_INSTANCE; cdat->dtup_483__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_483__CLASS_SOURCE_INSTANCE.nbval = 4; /*inimult dtup_484__CLASS_SOURCE_INSTANCE */ /*_.VALTUP___V565*/ meltfptr[564] = (melt_ptr_t) & cdat->dtup_484__CLASS_SOURCE_INSTANCE; cdat->dtup_484__CLASS_SOURCE_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_484__CLASS_SOURCE_INSTANCE.nbval = 5; /*iniobj dsym_485__SMINS_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V566*/ meltfptr[565]) /*_.VALDATA___V566*/ meltfptr[565] = (melt_ptr_t) & cdat->dsym_485__SMINS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_485__SMINS_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_485__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_485__SMINS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_485__SMINS_CLASS.obj_hash = 354373683; cdat->dsym_485__SMINS_CLASS.obj_len = 3; /*inistring dstr_486__SMINS_CLASS*/ /*_.VALSTR___V567*/ meltfptr[566] = (melt_ptr_t) & cdat->dstr_486__SMINS_CLASS; cdat->dstr_486__SMINS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_486__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_486__SMINS_CLASS.val) - 1); /*^iniobj */ #line 424 /*iniobj dobj_487__SMINS_CLASS*/ /*_.VALDATA___V559*/ meltfptr[558] = (melt_ptr_t) & cdat->dobj_487__SMINS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_487__SMINS_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_487__SMINS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_487__SMINS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_487__SMINS_CLASS.obj_num = 2; cdat->dobj_487__SMINS_CLASS.obj_hash = 401488759; cdat->dobj_487__SMINS_CLASS.obj_len = 4; /*inistring dstr_488__SMINS_CLASS*/ /*_.VALSTR___V560*/ meltfptr[559] = (melt_ptr_t) & cdat->dstr_488__SMINS_CLASS; cdat->dstr_488__SMINS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_488__SMINS_CLASS.val, "SMINS_CLASS", sizeof (cdat->dstr_488__SMINS_CLASS.val) - 1); /*iniobj dsym_489__SMINS_CLABIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V568*/ meltfptr[567]) /*_.VALDATA___V568*/ meltfptr[567] = (melt_ptr_t) & cdat->dsym_489__SMINS_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_489__SMINS_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_489__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_489__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_489__SMINS_CLABIND.obj_hash = 893906416; cdat->dsym_489__SMINS_CLABIND.obj_len = 3; /*inistring dstr_490__SMINS_CLABIND*/ /*_.VALSTR___V569*/ meltfptr[568] = (melt_ptr_t) & cdat->dstr_490__SMINS_CLABIND; cdat->dstr_490__SMINS_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_490__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_490__SMINS_CLABIND.val) - 1); /*^iniobj */ #line 424 /*iniobj dobj_491__SMINS_CLABIND*/ /*_.VALDATA___V561*/ meltfptr[560] = (melt_ptr_t) & cdat->dobj_491__SMINS_CLABIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_491__SMINS_CLABIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_491__SMINS_CLABIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_491__SMINS_CLABIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_491__SMINS_CLABIND.obj_num = 3; cdat->dobj_491__SMINS_CLABIND.obj_hash = 720767860; cdat->dobj_491__SMINS_CLABIND.obj_len = 4; /*inistring dstr_492__SMINS_CLABIND*/ /*_.VALSTR___V562*/ meltfptr[561] = (melt_ptr_t) & cdat->dstr_492__SMINS_CLABIND; cdat->dstr_492__SMINS_CLABIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_492__SMINS_CLABIND.val, "SMINS_CLABIND", sizeof (cdat->dstr_492__SMINS_CLABIND.val) - 1); /*iniobj dsym_493__SMINS_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V570*/ meltfptr[569]) /*_.VALDATA___V570*/ meltfptr[569] = (melt_ptr_t) & cdat->dsym_493__SMINS_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_493__SMINS_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_493__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_493__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_493__SMINS_FIELDS.obj_hash = 235347076; cdat->dsym_493__SMINS_FIELDS.obj_len = 3; /*inistring dstr_494__SMINS_FIELDS*/ /*_.VALSTR___V571*/ meltfptr[570] = (melt_ptr_t) & cdat->dstr_494__SMINS_FIELDS; cdat->dstr_494__SMINS_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_494__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_494__SMINS_FIELDS.val) - 1); /*^iniobj */ #line 424 /*iniobj dobj_495__SMINS_FIELDS*/ /*_.VALDATA___V563*/ meltfptr[562] = (melt_ptr_t) & cdat->dobj_495__SMINS_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_495__SMINS_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_495__SMINS_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_495__SMINS_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_495__SMINS_FIELDS.obj_num = 4; cdat->dobj_495__SMINS_FIELDS.obj_hash = 368476447; cdat->dobj_495__SMINS_FIELDS.obj_len = 4; /*inistring dstr_496__SMINS_FIELDS*/ /*_.VALSTR___V564*/ meltfptr[563] = (melt_ptr_t) & cdat->dstr_496__SMINS_FIELDS; cdat->dstr_496__SMINS_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_496__SMINS_FIELDS.val, "SMINS_FIELDS", sizeof (cdat->dstr_496__SMINS_FIELDS.val) - 1); /*iniobj dsym_497__CLASS_SOURCE_GET_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V572*/ meltfptr[571]) /*_.VALDATA___V572*/ meltfptr[571] = (melt_ptr_t) & cdat->dsym_497__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_497__CLASS_SOURCE_GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_497__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_497__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_497__CLASS_SOURCE_GET_FIELD.obj_hash = 291216467; cdat->dsym_497__CLASS_SOURCE_GET_FIELD.obj_len = 3; /*inistring dstr_498__CLASS_SOURCE_GET*/ /*_.VALSTR___V573*/ meltfptr[572] = (melt_ptr_t) & cdat->dstr_498__CLASS_SOURCE_GET; cdat->dstr_498__CLASS_SOURCE_GET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_498__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_498__CLASS_SOURCE_GET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:436:/ iniobj"); #line 436 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_499__CLASS_SOURCE_GET_FIELD*/ /*_.VALDATA___V574*/ meltfptr[573] = (melt_ptr_t) & cdat->dobj_499__CLASS_SOURCE_GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_499__CLASS_SOURCE_GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_499__CLASS_SOURCE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_499__CLASS_SOURCE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_hash = 852928606; cdat->dobj_499__CLASS_SOURCE_GET_FIELD.obj_len = 8; /*inistring dstr_500__CLASS_SOURCE_GET*/ /*_.VALSTR___V575*/ meltfptr[574] = (melt_ptr_t) & cdat->dstr_500__CLASS_SOURCE_GET; cdat->dstr_500__CLASS_SOURCE_GET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_500__CLASS_SOURCE_GET.val, "CLASS_SOURCE_GET_FIELD", sizeof (cdat->dstr_500__CLASS_SOURCE_GET. val) - 1); /*inimult dtup_501__CLASS_SOURCE_GET_FIELD */ /*_.VALTUP___V576*/ meltfptr[575] = (melt_ptr_t) & cdat->dtup_501__CLASS_SOURCE_GET_FIELD; cdat->dtup_501__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_501__CLASS_SOURCE_GET_FIELD.nbval = 4; /*inimult dtup_502__CLASS_SOURCE_GET_FIELD */ /*_.VALTUP___V581*/ meltfptr[580] = (melt_ptr_t) & cdat->dtup_502__CLASS_SOURCE_GET_FIELD; cdat->dtup_502__CLASS_SOURCE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_502__CLASS_SOURCE_GET_FIELD.nbval = 4; /*iniobj dsym_503__SUGET_OBJ*/ /*uniqueobj*/ if (! /*_.VALDATA___V582*/ meltfptr[581]) /*_.VALDATA___V582*/ meltfptr[581] = (melt_ptr_t) & cdat->dsym_503__SUGET_OBJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_503__SUGET_OBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_503__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_503__SUGET_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_503__SUGET_OBJ.obj_hash = 649934642; cdat->dsym_503__SUGET_OBJ.obj_len = 3; /*inistring dstr_504__SUGET_OBJ*/ /*_.VALSTR___V583*/ meltfptr[582] = (melt_ptr_t) & cdat->dstr_504__SUGET_OBJ; cdat->dstr_504__SUGET_OBJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_504__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_504__SUGET_OBJ.val) - 1); /*^iniobj */ #line 436 /*iniobj dobj_505__SUGET_OBJ*/ /*_.VALDATA___V577*/ meltfptr[576] = (melt_ptr_t) & cdat->dobj_505__SUGET_OBJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_505__SUGET_OBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_505__SUGET_OBJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_505__SUGET_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_505__SUGET_OBJ.obj_num = 2; cdat->dobj_505__SUGET_OBJ.obj_hash = 743929727; cdat->dobj_505__SUGET_OBJ.obj_len = 4; /*inistring dstr_506__SUGET_OBJ*/ /*_.VALSTR___V578*/ meltfptr[577] = (melt_ptr_t) & cdat->dstr_506__SUGET_OBJ; cdat->dstr_506__SUGET_OBJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_506__SUGET_OBJ.val, "SUGET_OBJ", sizeof (cdat->dstr_506__SUGET_OBJ.val) - 1); /*iniobj dsym_507__SUGET_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V584*/ meltfptr[583]) /*_.VALDATA___V584*/ meltfptr[583] = (melt_ptr_t) & cdat->dsym_507__SUGET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_507__SUGET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_507__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_507__SUGET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_507__SUGET_FIELD.obj_hash = 430834528; cdat->dsym_507__SUGET_FIELD.obj_len = 3; /*inistring dstr_508__SUGET_FIELD*/ /*_.VALSTR___V585*/ meltfptr[584] = (melt_ptr_t) & cdat->dstr_508__SUGET_FIELD; cdat->dstr_508__SUGET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_508__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_508__SUGET_FIELD.val) - 1); /*^iniobj */ #line 436 /*iniobj dobj_509__SUGET_FIELD*/ /*_.VALDATA___V579*/ meltfptr[578] = (melt_ptr_t) & cdat->dobj_509__SUGET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_509__SUGET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_509__SUGET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_509__SUGET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_509__SUGET_FIELD.obj_num = 3; cdat->dobj_509__SUGET_FIELD.obj_hash = 50074280; cdat->dobj_509__SUGET_FIELD.obj_len = 4; /*inistring dstr_510__SUGET_FIELD*/ /*_.VALSTR___V580*/ meltfptr[579] = (melt_ptr_t) & cdat->dstr_510__SUGET_FIELD; cdat->dstr_510__SUGET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_510__SUGET_FIELD.val, "SUGET_FIELD", sizeof (cdat->dstr_510__SUGET_FIELD.val) - 1); /*iniobj dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V586*/ meltfptr[585]) /*_.VALDATA___V586*/ meltfptr[585] = (melt_ptr_t) & cdat->dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 846462223; cdat->dsym_511__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 3; /*inistring dstr_512__CLASS_SOURCE_UNS*/ /*_.VALSTR___V587*/ meltfptr[586] = (melt_ptr_t) & cdat->dstr_512__CLASS_SOURCE_UNS; cdat->dstr_512__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_512__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_512__CLASS_SOURCE_UNS. val) - 1); MELT_LOCATION ("warmelt-macro.melt:447:/ iniobj"); #line 447 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD*/ /*_.VALDATA___V588*/ meltfptr[587] = (melt_ptr_t) & cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_num = MELTOBMAG_OBJECT; cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_hash = 779119154; cdat->dobj_513__CLASS_SOURCE_UNSAFE_GET_FIELD.obj_len = 8; /*inistring dstr_514__CLASS_SOURCE_UNS*/ /*_.VALSTR___V589*/ meltfptr[588] = (melt_ptr_t) & cdat->dstr_514__CLASS_SOURCE_UNS; cdat->dstr_514__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_514__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_GET_FIELD", sizeof (cdat->dstr_514__CLASS_SOURCE_UNS. val) - 1); /*inimult dtup_515__CLASS_SOURCE_UNSAFE_GET_FIELD */ /*_.VALTUP___V590*/ meltfptr[589] = (melt_ptr_t) & cdat->dtup_515__CLASS_SOURCE_UNSAFE_GET_FIELD; cdat->dtup_515__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_515__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 5; /*inimult dtup_516__CLASS_SOURCE_UNSAFE_GET_FIELD */ /*_.VALTUP___V591*/ meltfptr[590] = (melt_ptr_t) & cdat->dtup_516__CLASS_SOURCE_UNSAFE_GET_FIELD; cdat->dtup_516__CLASS_SOURCE_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_516__CLASS_SOURCE_UNSAFE_GET_FIELD.nbval = 4; /*iniobj dsym_517__CLASS_SOURCE_PUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V592*/ meltfptr[591]) /*_.VALDATA___V592*/ meltfptr[591] = (melt_ptr_t) & cdat->dsym_517__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_517__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_517__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_517__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_517__CLASS_SOURCE_PUT_FIELDS.obj_hash = 484783195; cdat->dsym_517__CLASS_SOURCE_PUT_FIELDS.obj_len = 3; /*inistring dstr_518__CLASS_SOURCE_PUT*/ /*_.VALSTR___V593*/ meltfptr[592] = (melt_ptr_t) & cdat->dstr_518__CLASS_SOURCE_PUT; cdat->dstr_518__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_518__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_518__CLASS_SOURCE_PUT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:456:/ iniobj"); #line 456 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_519__CLASS_SOURCE_PUT_FIELDS*/ /*_.VALDATA___V594*/ meltfptr[593] = (melt_ptr_t) & cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_519__CLASS_SOURCE_PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_519__CLASS_SOURCE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_hash = 423680705; cdat->dobj_519__CLASS_SOURCE_PUT_FIELDS.obj_len = 8; /*inistring dstr_520__CLASS_SOURCE_PUT*/ /*_.VALSTR___V595*/ meltfptr[594] = (melt_ptr_t) & cdat->dstr_520__CLASS_SOURCE_PUT; cdat->dstr_520__CLASS_SOURCE_PUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_520__CLASS_SOURCE_PUT.val, "CLASS_SOURCE_PUT_FIELDS", sizeof (cdat->dstr_520__CLASS_SOURCE_PUT. val) - 1); /*inimult dtup_521__CLASS_SOURCE_PUT_FIELDS */ /*_.VALTUP___V596*/ meltfptr[595] = (melt_ptr_t) & cdat->dtup_521__CLASS_SOURCE_PUT_FIELDS; cdat->dtup_521__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_521__CLASS_SOURCE_PUT_FIELDS.nbval = 4; /*inimult dtup_522__CLASS_SOURCE_PUT_FIELDS */ /*_.VALTUP___V601*/ meltfptr[600] = (melt_ptr_t) & cdat->dtup_522__CLASS_SOURCE_PUT_FIELDS; cdat->dtup_522__CLASS_SOURCE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_522__CLASS_SOURCE_PUT_FIELDS.nbval = 4; /*iniobj dsym_523__SUPUT_OBJ*/ /*uniqueobj*/ if (! /*_.VALDATA___V602*/ meltfptr[601]) /*_.VALDATA___V602*/ meltfptr[601] = (melt_ptr_t) & cdat->dsym_523__SUPUT_OBJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_523__SUPUT_OBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_523__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_523__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_523__SUPUT_OBJ.obj_hash = 762778287; cdat->dsym_523__SUPUT_OBJ.obj_len = 3; /*inistring dstr_524__SUPUT_OBJ*/ /*_.VALSTR___V603*/ meltfptr[602] = (melt_ptr_t) & cdat->dstr_524__SUPUT_OBJ; cdat->dstr_524__SUPUT_OBJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_524__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_524__SUPUT_OBJ.val) - 1); /*^iniobj */ #line 456 /*iniobj dobj_525__SUPUT_OBJ*/ /*_.VALDATA___V597*/ meltfptr[596] = (melt_ptr_t) & cdat->dobj_525__SUPUT_OBJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_525__SUPUT_OBJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_525__SUPUT_OBJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_525__SUPUT_OBJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_525__SUPUT_OBJ.obj_num = 2; cdat->dobj_525__SUPUT_OBJ.obj_hash = 111547049; cdat->dobj_525__SUPUT_OBJ.obj_len = 4; /*inistring dstr_526__SUPUT_OBJ*/ /*_.VALSTR___V598*/ meltfptr[597] = (melt_ptr_t) & cdat->dstr_526__SUPUT_OBJ; cdat->dstr_526__SUPUT_OBJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_526__SUPUT_OBJ.val, "SUPUT_OBJ", sizeof (cdat->dstr_526__SUPUT_OBJ.val) - 1); /*iniobj dsym_527__SUPUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V604*/ meltfptr[603]) /*_.VALDATA___V604*/ meltfptr[603] = (melt_ptr_t) & cdat->dsym_527__SUPUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_527__SUPUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_527__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_527__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_527__SUPUT_FIELDS.obj_hash = 595613222; cdat->dsym_527__SUPUT_FIELDS.obj_len = 3; /*inistring dstr_528__SUPUT_FIELDS*/ /*_.VALSTR___V605*/ meltfptr[604] = (melt_ptr_t) & cdat->dstr_528__SUPUT_FIELDS; cdat->dstr_528__SUPUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_528__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_528__SUPUT_FIELDS.val) - 1); /*^iniobj */ #line 456 /*iniobj dobj_529__SUPUT_FIELDS*/ /*_.VALDATA___V599*/ meltfptr[598] = (melt_ptr_t) & cdat->dobj_529__SUPUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_529__SUPUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_529__SUPUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_529__SUPUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_529__SUPUT_FIELDS.obj_num = 3; cdat->dobj_529__SUPUT_FIELDS.obj_hash = 669452002; cdat->dobj_529__SUPUT_FIELDS.obj_len = 4; /*inistring dstr_530__SUPUT_FIELDS*/ /*_.VALSTR___V600*/ meltfptr[599] = (melt_ptr_t) & cdat->dstr_530__SUPUT_FIELDS; cdat->dstr_530__SUPUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_530__SUPUT_FIELDS.val, "SUPUT_FIELDS", sizeof (cdat->dstr_530__SUPUT_FIELDS.val) - 1); /*iniobj dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V606*/ meltfptr[605]) /*_.VALDATA___V606*/ meltfptr[605] = (melt_ptr_t) & cdat->dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 24821450; cdat->dsym_531__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 3; /*inistring dstr_532__CLASS_SOURCE_UNS*/ /*_.VALSTR___V607*/ meltfptr[606] = (melt_ptr_t) & cdat->dstr_532__CLASS_SOURCE_UNS; cdat->dstr_532__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_532__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_532__CLASS_SOURCE_UNS. val) - 1); MELT_LOCATION ("warmelt-macro.melt:466:/ iniobj"); #line 466 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS*/ /*_.VALDATA___V608*/ meltfptr[607] = (melt_ptr_t) & cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_num = MELTOBMAG_OBJECT; cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_hash = 173104783; cdat->dobj_533__CLASS_SOURCE_UNSAFE_PUT_FIELDS.obj_len = 8; /*inistring dstr_534__CLASS_SOURCE_UNS*/ /*_.VALSTR___V609*/ meltfptr[608] = (melt_ptr_t) & cdat->dstr_534__CLASS_SOURCE_UNS; cdat->dstr_534__CLASS_SOURCE_UNS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_534__CLASS_SOURCE_UNS.val, "CLASS_SOURCE_UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_534__CLASS_SOURCE_UNS. val) - 1); /*inimult dtup_535__CLASS_SOURCE_UNSAFE_PUT_FIELDS */ /*_.VALTUP___V610*/ meltfptr[609] = (melt_ptr_t) & cdat->dtup_535__CLASS_SOURCE_UNSAFE_PUT_FIELDS; cdat->dtup_535__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_535__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 5; /*inimult dtup_536__CLASS_SOURCE_UNSAFE_PUT_FIELDS */ /*_.VALTUP___V611*/ meltfptr[610] = (melt_ptr_t) & cdat->dtup_536__CLASS_SOURCE_UNSAFE_PUT_FIELDS; cdat->dtup_536__CLASS_SOURCE_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_536__CLASS_SOURCE_UNSAFE_PUT_FIELDS.nbval = 4; /*iniobj dsym_537__CLASS_SOURCE_IF*/ /*uniqueobj*/ if (! /*_.VALDATA___V612*/ meltfptr[611]) /*_.VALDATA___V612*/ meltfptr[611] = (melt_ptr_t) & cdat->dsym_537__CLASS_SOURCE_IF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_537__CLASS_SOURCE_IF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_537__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_537__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_537__CLASS_SOURCE_IF.obj_hash = 852156504; cdat->dsym_537__CLASS_SOURCE_IF.obj_len = 3; /*inistring dstr_538__CLASS_SOURCE_IF*/ /*_.VALSTR___V613*/ meltfptr[612] = (melt_ptr_t) & cdat->dstr_538__CLASS_SOURCE_IF; cdat->dstr_538__CLASS_SOURCE_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_538__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_538__CLASS_SOURCE_IF.val) - 1); MELT_LOCATION ("warmelt-macro.melt:475:/ iniobj"); #line 475 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_539__CLASS_SOURCE_IF*/ /*_.VALDATA___V614*/ meltfptr[613] = (melt_ptr_t) & cdat->dobj_539__CLASS_SOURCE_IF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_539__CLASS_SOURCE_IF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_539__CLASS_SOURCE_IF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_539__CLASS_SOURCE_IF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_539__CLASS_SOURCE_IF.obj_num = MELTOBMAG_OBJECT; cdat->dobj_539__CLASS_SOURCE_IF.obj_hash = 840476354; cdat->dobj_539__CLASS_SOURCE_IF.obj_len = 8; /*inistring dstr_540__CLASS_SOURCE_IF*/ /*_.VALSTR___V615*/ meltfptr[614] = (melt_ptr_t) & cdat->dstr_540__CLASS_SOURCE_IF; cdat->dstr_540__CLASS_SOURCE_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_540__CLASS_SOURCE_IF.val, "CLASS_SOURCE_IF", sizeof (cdat->dstr_540__CLASS_SOURCE_IF.val) - 1); /*inimult dtup_541__CLASS_SOURCE_IF */ /*_.VALTUP___V616*/ meltfptr[615] = (melt_ptr_t) & cdat->dtup_541__CLASS_SOURCE_IF; cdat->dtup_541__CLASS_SOURCE_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_541__CLASS_SOURCE_IF.nbval = 4; /*inimult dtup_542__CLASS_SOURCE_IF */ /*_.VALTUP___V621*/ meltfptr[620] = (melt_ptr_t) & cdat->dtup_542__CLASS_SOURCE_IF; cdat->dtup_542__CLASS_SOURCE_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_542__CLASS_SOURCE_IF.nbval = 4; /*iniobj dsym_543__SIF_TEST*/ /*uniqueobj*/ if (! /*_.VALDATA___V622*/ meltfptr[621]) /*_.VALDATA___V622*/ meltfptr[621] = (melt_ptr_t) & cdat->dsym_543__SIF_TEST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_543__SIF_TEST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_543__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_543__SIF_TEST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_543__SIF_TEST.obj_hash = 531822652; cdat->dsym_543__SIF_TEST.obj_len = 3; /*inistring dstr_544__SIF_TEST*/ /*_.VALSTR___V623*/ meltfptr[622] = (melt_ptr_t) & cdat->dstr_544__SIF_TEST; cdat->dstr_544__SIF_TEST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_544__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_544__SIF_TEST.val) - 1); /*^iniobj */ #line 475 /*iniobj dobj_545__SIF_TEST*/ /*_.VALDATA___V617*/ meltfptr[616] = (melt_ptr_t) & cdat->dobj_545__SIF_TEST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_545__SIF_TEST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_545__SIF_TEST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_545__SIF_TEST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_545__SIF_TEST.obj_num = 2; cdat->dobj_545__SIF_TEST.obj_hash = 839497740; cdat->dobj_545__SIF_TEST.obj_len = 4; /*inistring dstr_546__SIF_TEST*/ /*_.VALSTR___V618*/ meltfptr[617] = (melt_ptr_t) & cdat->dstr_546__SIF_TEST; cdat->dstr_546__SIF_TEST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_546__SIF_TEST.val, "SIF_TEST", sizeof (cdat->dstr_546__SIF_TEST.val) - 1); /*iniobj dsym_547__SIF_THEN*/ /*uniqueobj*/ if (! /*_.VALDATA___V624*/ meltfptr[623]) /*_.VALDATA___V624*/ meltfptr[623] = (melt_ptr_t) & cdat->dsym_547__SIF_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_547__SIF_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_547__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_547__SIF_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_547__SIF_THEN.obj_hash = 111634546; cdat->dsym_547__SIF_THEN.obj_len = 3; /*inistring dstr_548__SIF_THEN*/ /*_.VALSTR___V625*/ meltfptr[624] = (melt_ptr_t) & cdat->dstr_548__SIF_THEN; cdat->dstr_548__SIF_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_548__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_548__SIF_THEN.val) - 1); /*^iniobj */ #line 475 /*iniobj dobj_549__SIF_THEN*/ /*_.VALDATA___V619*/ meltfptr[618] = (melt_ptr_t) & cdat->dobj_549__SIF_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_549__SIF_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_549__SIF_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_549__SIF_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_549__SIF_THEN.obj_num = 3; cdat->dobj_549__SIF_THEN.obj_hash = 20215251; cdat->dobj_549__SIF_THEN.obj_len = 4; /*inistring dstr_550__SIF_THEN*/ /*_.VALSTR___V620*/ meltfptr[619] = (melt_ptr_t) & cdat->dstr_550__SIF_THEN; cdat->dstr_550__SIF_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_550__SIF_THEN.val, "SIF_THEN", sizeof (cdat->dstr_550__SIF_THEN.val) - 1); /*iniobj dsym_551__CLASS_SOURCE_IFELSE*/ /*uniqueobj*/ if (! /*_.VALDATA___V626*/ meltfptr[625]) /*_.VALDATA___V626*/ meltfptr[625] = (melt_ptr_t) & cdat->dsym_551__CLASS_SOURCE_IFELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_551__CLASS_SOURCE_IFELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_551__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_551__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_551__CLASS_SOURCE_IFELSE.obj_hash = 588500358; cdat->dsym_551__CLASS_SOURCE_IFELSE.obj_len = 3; /*inistring dstr_552__CLASS_SOURCE_IFE*/ /*_.VALSTR___V627*/ meltfptr[626] = (melt_ptr_t) & cdat->dstr_552__CLASS_SOURCE_IFE; cdat->dstr_552__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_552__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_552__CLASS_SOURCE_IFE. val) - 1); MELT_LOCATION ("warmelt-macro.melt:484:/ iniobj"); #line 484 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_553__CLASS_SOURCE_IFELSE*/ /*_.VALDATA___V628*/ meltfptr[627] = (melt_ptr_t) & cdat->dobj_553__CLASS_SOURCE_IFELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_553__CLASS_SOURCE_IFELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_553__CLASS_SOURCE_IFELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_553__CLASS_SOURCE_IFELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_hash = 570206778; cdat->dobj_553__CLASS_SOURCE_IFELSE.obj_len = 8; /*inistring dstr_554__CLASS_SOURCE_IFE*/ /*_.VALSTR___V629*/ meltfptr[628] = (melt_ptr_t) & cdat->dstr_554__CLASS_SOURCE_IFE; cdat->dstr_554__CLASS_SOURCE_IFE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_554__CLASS_SOURCE_IFE.val, "CLASS_SOURCE_IFELSE", sizeof (cdat->dstr_554__CLASS_SOURCE_IFE. val) - 1); /*inimult dtup_555__CLASS_SOURCE_IFELSE */ /*_.VALTUP___V630*/ meltfptr[629] = (melt_ptr_t) & cdat->dtup_555__CLASS_SOURCE_IFELSE; cdat->dtup_555__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_555__CLASS_SOURCE_IFELSE.nbval = 5; /*inimult dtup_556__CLASS_SOURCE_IFELSE */ /*_.VALTUP___V633*/ meltfptr[632] = (melt_ptr_t) & cdat->dtup_556__CLASS_SOURCE_IFELSE; cdat->dtup_556__CLASS_SOURCE_IFELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_556__CLASS_SOURCE_IFELSE.nbval = 5; /*iniobj dsym_557__SIF_ELSE*/ /*uniqueobj*/ if (! /*_.VALDATA___V634*/ meltfptr[633]) /*_.VALDATA___V634*/ meltfptr[633] = (melt_ptr_t) & cdat->dsym_557__SIF_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_557__SIF_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_557__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_557__SIF_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_557__SIF_ELSE.obj_hash = 876593992; cdat->dsym_557__SIF_ELSE.obj_len = 3; /*inistring dstr_558__SIF_ELSE*/ /*_.VALSTR___V635*/ meltfptr[634] = (melt_ptr_t) & cdat->dstr_558__SIF_ELSE; cdat->dstr_558__SIF_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_558__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_558__SIF_ELSE.val) - 1); /*^iniobj */ #line 484 /*iniobj dobj_559__SIF_ELSE*/ /*_.VALDATA___V631*/ meltfptr[630] = (melt_ptr_t) & cdat->dobj_559__SIF_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_559__SIF_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_559__SIF_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_559__SIF_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_559__SIF_ELSE.obj_num = 4; cdat->dobj_559__SIF_ELSE.obj_hash = 179931564; cdat->dobj_559__SIF_ELSE.obj_len = 4; /*inistring dstr_560__SIF_ELSE*/ /*_.VALSTR___V632*/ meltfptr[631] = (melt_ptr_t) & cdat->dstr_560__SIF_ELSE; cdat->dstr_560__SIF_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_560__SIF_ELSE.val, "SIF_ELSE", sizeof (cdat->dstr_560__SIF_ELSE.val) - 1); /*iniobj dsym_561__CLASS_SOURCE_OR*/ /*uniqueobj*/ if (! /*_.VALDATA___V636*/ meltfptr[635]) /*_.VALDATA___V636*/ meltfptr[635] = (melt_ptr_t) & cdat->dsym_561__CLASS_SOURCE_OR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_561__CLASS_SOURCE_OR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_561__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_561__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_561__CLASS_SOURCE_OR.obj_hash = 738334645; cdat->dsym_561__CLASS_SOURCE_OR.obj_len = 3; /*inistring dstr_562__CLASS_SOURCE_OR*/ /*_.VALSTR___V637*/ meltfptr[636] = (melt_ptr_t) & cdat->dstr_562__CLASS_SOURCE_OR; cdat->dstr_562__CLASS_SOURCE_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_562__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_562__CLASS_SOURCE_OR.val) - 1); MELT_LOCATION ("warmelt-macro.melt:495:/ iniobj"); #line 495 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_563__CLASS_SOURCE_OR*/ /*_.VALDATA___V638*/ meltfptr[637] = (melt_ptr_t) & cdat->dobj_563__CLASS_SOURCE_OR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_563__CLASS_SOURCE_OR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_563__CLASS_SOURCE_OR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_563__CLASS_SOURCE_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_563__CLASS_SOURCE_OR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_563__CLASS_SOURCE_OR.obj_hash = 756413108; cdat->dobj_563__CLASS_SOURCE_OR.obj_len = 8; /*inistring dstr_564__CLASS_SOURCE_OR*/ /*_.VALSTR___V639*/ meltfptr[638] = (melt_ptr_t) & cdat->dstr_564__CLASS_SOURCE_OR; cdat->dstr_564__CLASS_SOURCE_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_564__CLASS_SOURCE_OR.val, "CLASS_SOURCE_OR", sizeof (cdat->dstr_564__CLASS_SOURCE_OR.val) - 1); /*inimult dtup_565__CLASS_SOURCE_OR */ /*_.VALTUP___V640*/ meltfptr[639] = (melt_ptr_t) & cdat->dtup_565__CLASS_SOURCE_OR; cdat->dtup_565__CLASS_SOURCE_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_565__CLASS_SOURCE_OR.nbval = 4; /*inimult dtup_566__CLASS_SOURCE_OR */ /*_.VALTUP___V643*/ meltfptr[642] = (melt_ptr_t) & cdat->dtup_566__CLASS_SOURCE_OR; cdat->dtup_566__CLASS_SOURCE_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_566__CLASS_SOURCE_OR.nbval = 3; /*iniobj dsym_567__SOR_DISJ*/ /*uniqueobj*/ if (! /*_.VALDATA___V644*/ meltfptr[643]) /*_.VALDATA___V644*/ meltfptr[643] = (melt_ptr_t) & cdat->dsym_567__SOR_DISJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_567__SOR_DISJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_567__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_567__SOR_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_567__SOR_DISJ.obj_hash = 354040300; cdat->dsym_567__SOR_DISJ.obj_len = 3; /*inistring dstr_568__SOR_DISJ*/ /*_.VALSTR___V645*/ meltfptr[644] = (melt_ptr_t) & cdat->dstr_568__SOR_DISJ; cdat->dstr_568__SOR_DISJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_568__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_568__SOR_DISJ.val) - 1); /*^iniobj */ #line 495 /*iniobj dobj_569__SOR_DISJ*/ /*_.VALDATA___V641*/ meltfptr[640] = (melt_ptr_t) & cdat->dobj_569__SOR_DISJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_569__SOR_DISJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_569__SOR_DISJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_569__SOR_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_569__SOR_DISJ.obj_num = 2; cdat->dobj_569__SOR_DISJ.obj_hash = 1027033153; cdat->dobj_569__SOR_DISJ.obj_len = 4; /*inistring dstr_570__SOR_DISJ*/ /*_.VALSTR___V642*/ meltfptr[641] = (melt_ptr_t) & cdat->dstr_570__SOR_DISJ; cdat->dstr_570__SOR_DISJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_570__SOR_DISJ.val, "SOR_DISJ", sizeof (cdat->dstr_570__SOR_DISJ.val) - 1); /*iniobj dsym_571__CLASS_SOURCE_CPPIF*/ /*uniqueobj*/ if (! /*_.VALDATA___V646*/ meltfptr[645]) /*_.VALDATA___V646*/ meltfptr[645] = (melt_ptr_t) & cdat->dsym_571__CLASS_SOURCE_CPPIF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_571__CLASS_SOURCE_CPPIF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_571__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_571__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_571__CLASS_SOURCE_CPPIF.obj_hash = 179014183; cdat->dsym_571__CLASS_SOURCE_CPPIF.obj_len = 3; /*inistring dstr_572__CLASS_SOURCE_CPP*/ /*_.VALSTR___V647*/ meltfptr[646] = (melt_ptr_t) & cdat->dstr_572__CLASS_SOURCE_CPP; cdat->dstr_572__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_572__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_572__CLASS_SOURCE_CPP. val) - 1); MELT_LOCATION ("warmelt-macro.melt:507:/ iniobj"); #line 507 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_573__CLASS_SOURCE_CPPIF*/ /*_.VALDATA___V648*/ meltfptr[647] = (melt_ptr_t) & cdat->dobj_573__CLASS_SOURCE_CPPIF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_573__CLASS_SOURCE_CPPIF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_573__CLASS_SOURCE_CPPIF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_573__CLASS_SOURCE_CPPIF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_num = MELTOBMAG_OBJECT; cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_hash = 787124835; cdat->dobj_573__CLASS_SOURCE_CPPIF.obj_len = 8; /*inistring dstr_574__CLASS_SOURCE_CPP*/ /*_.VALSTR___V649*/ meltfptr[648] = (melt_ptr_t) & cdat->dstr_574__CLASS_SOURCE_CPP; cdat->dstr_574__CLASS_SOURCE_CPP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_574__CLASS_SOURCE_CPP.val, "CLASS_SOURCE_CPPIF", sizeof (cdat->dstr_574__CLASS_SOURCE_CPP. val) - 1); /*inimult dtup_575__CLASS_SOURCE_CPPIF */ /*_.VALTUP___V650*/ meltfptr[649] = (melt_ptr_t) & cdat->dtup_575__CLASS_SOURCE_CPPIF; cdat->dtup_575__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_575__CLASS_SOURCE_CPPIF.nbval = 4; /*inimult dtup_576__CLASS_SOURCE_CPPIF */ /*_.VALTUP___V657*/ meltfptr[656] = (melt_ptr_t) & cdat->dtup_576__CLASS_SOURCE_CPPIF; cdat->dtup_576__CLASS_SOURCE_CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_576__CLASS_SOURCE_CPPIF.nbval = 5; /*iniobj dsym_577__SIFP_COND*/ /*uniqueobj*/ if (! /*_.VALDATA___V658*/ meltfptr[657]) /*_.VALDATA___V658*/ meltfptr[657] = (melt_ptr_t) & cdat->dsym_577__SIFP_COND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_577__SIFP_COND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_577__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_577__SIFP_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_577__SIFP_COND.obj_hash = 843364013; cdat->dsym_577__SIFP_COND.obj_len = 3; /*inistring dstr_578__SIFP_COND*/ /*_.VALSTR___V659*/ meltfptr[658] = (melt_ptr_t) & cdat->dstr_578__SIFP_COND; cdat->dstr_578__SIFP_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_578__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_578__SIFP_COND.val) - 1); /*^iniobj */ #line 507 /*iniobj dobj_579__SIFP_COND*/ /*_.VALDATA___V651*/ meltfptr[650] = (melt_ptr_t) & cdat->dobj_579__SIFP_COND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_579__SIFP_COND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_579__SIFP_COND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_579__SIFP_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_579__SIFP_COND.obj_num = 2; cdat->dobj_579__SIFP_COND.obj_hash = 305632878; cdat->dobj_579__SIFP_COND.obj_len = 4; /*inistring dstr_580__SIFP_COND*/ /*_.VALSTR___V652*/ meltfptr[651] = (melt_ptr_t) & cdat->dstr_580__SIFP_COND; cdat->dstr_580__SIFP_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_580__SIFP_COND.val, "SIFP_COND", sizeof (cdat->dstr_580__SIFP_COND.val) - 1); /*iniobj dsym_581__SIFP_THEN*/ /*uniqueobj*/ if (! /*_.VALDATA___V660*/ meltfptr[659]) /*_.VALDATA___V660*/ meltfptr[659] = (melt_ptr_t) & cdat->dsym_581__SIFP_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_581__SIFP_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_581__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_581__SIFP_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_581__SIFP_THEN.obj_hash = 1068543930; cdat->dsym_581__SIFP_THEN.obj_len = 3; /*inistring dstr_582__SIFP_THEN*/ /*_.VALSTR___V661*/ meltfptr[660] = (melt_ptr_t) & cdat->dstr_582__SIFP_THEN; cdat->dstr_582__SIFP_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_582__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_582__SIFP_THEN.val) - 1); /*^iniobj */ #line 507 /*iniobj dobj_583__SIFP_THEN*/ /*_.VALDATA___V653*/ meltfptr[652] = (melt_ptr_t) & cdat->dobj_583__SIFP_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_583__SIFP_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_583__SIFP_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_583__SIFP_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_583__SIFP_THEN.obj_num = 3; cdat->dobj_583__SIFP_THEN.obj_hash = 167314288; cdat->dobj_583__SIFP_THEN.obj_len = 4; /*inistring dstr_584__SIFP_THEN*/ /*_.VALSTR___V654*/ meltfptr[653] = (melt_ptr_t) & cdat->dstr_584__SIFP_THEN; cdat->dstr_584__SIFP_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_584__SIFP_THEN.val, "SIFP_THEN", sizeof (cdat->dstr_584__SIFP_THEN.val) - 1); /*iniobj dsym_585__SIFP_ELSE*/ /*uniqueobj*/ if (! /*_.VALDATA___V662*/ meltfptr[661]) /*_.VALDATA___V662*/ meltfptr[661] = (melt_ptr_t) & cdat->dsym_585__SIFP_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_585__SIFP_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_585__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_585__SIFP_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_585__SIFP_ELSE.obj_hash = 914147024; cdat->dsym_585__SIFP_ELSE.obj_len = 3; /*inistring dstr_586__SIFP_ELSE*/ /*_.VALSTR___V663*/ meltfptr[662] = (melt_ptr_t) & cdat->dstr_586__SIFP_ELSE; cdat->dstr_586__SIFP_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_586__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_586__SIFP_ELSE.val) - 1); /*^iniobj */ #line 507 /*iniobj dobj_587__SIFP_ELSE*/ /*_.VALDATA___V655*/ meltfptr[654] = (melt_ptr_t) & cdat->dobj_587__SIFP_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_587__SIFP_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_587__SIFP_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_587__SIFP_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_587__SIFP_ELSE.obj_num = 4; cdat->dobj_587__SIFP_ELSE.obj_hash = 95547839; cdat->dobj_587__SIFP_ELSE.obj_len = 4; /*inistring dstr_588__SIFP_ELSE*/ /*_.VALSTR___V656*/ meltfptr[655] = (melt_ptr_t) & cdat->dstr_588__SIFP_ELSE; cdat->dstr_588__SIFP_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_588__SIFP_ELSE.val, "SIFP_ELSE", sizeof (cdat->dstr_588__SIFP_ELSE.val) - 1); /*iniobj dsym_589__CLASS_SOURCE_MATCH*/ /*uniqueobj*/ if (! /*_.VALDATA___V664*/ meltfptr[663]) /*_.VALDATA___V664*/ meltfptr[663] = (melt_ptr_t) & cdat->dsym_589__CLASS_SOURCE_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_589__CLASS_SOURCE_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_589__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_589__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_589__CLASS_SOURCE_MATCH.obj_hash = 977016819; cdat->dsym_589__CLASS_SOURCE_MATCH.obj_len = 3; /*inistring dstr_590__CLASS_SOURCE_MAT*/ /*_.VALSTR___V665*/ meltfptr[664] = (melt_ptr_t) & cdat->dstr_590__CLASS_SOURCE_MAT; cdat->dstr_590__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_590__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_590__CLASS_SOURCE_MAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:518:/ iniobj"); #line 518 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_591__CLASS_SOURCE_MATCH*/ /*_.VALDATA___V666*/ meltfptr[665] = (melt_ptr_t) & cdat->dobj_591__CLASS_SOURCE_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_591__CLASS_SOURCE_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_591__CLASS_SOURCE_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_591__CLASS_SOURCE_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_591__CLASS_SOURCE_MATCH.obj_num = MELTOBMAG_OBJECT; cdat->dobj_591__CLASS_SOURCE_MATCH.obj_hash = 930769119; cdat->dobj_591__CLASS_SOURCE_MATCH.obj_len = 8; /*inistring dstr_592__CLASS_SOURCE_MAT*/ /*_.VALSTR___V667*/ meltfptr[666] = (melt_ptr_t) & cdat->dstr_592__CLASS_SOURCE_MAT; cdat->dstr_592__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_592__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH", sizeof (cdat->dstr_592__CLASS_SOURCE_MAT. val) - 1); /*inimult dtup_593__CLASS_SOURCE_MATCH */ /*_.VALTUP___V668*/ meltfptr[667] = (melt_ptr_t) & cdat->dtup_593__CLASS_SOURCE_MATCH; cdat->dtup_593__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_593__CLASS_SOURCE_MATCH.nbval = 4; /*inimult dtup_594__CLASS_SOURCE_MATCH */ /*_.VALTUP___V673*/ meltfptr[672] = (melt_ptr_t) & cdat->dtup_594__CLASS_SOURCE_MATCH; cdat->dtup_594__CLASS_SOURCE_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_594__CLASS_SOURCE_MATCH.nbval = 4; /*iniobj dsym_595__SMAT_MATCHEDX*/ /*uniqueobj*/ if (! /*_.VALDATA___V674*/ meltfptr[673]) /*_.VALDATA___V674*/ meltfptr[673] = (melt_ptr_t) & cdat->dsym_595__SMAT_MATCHEDX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_595__SMAT_MATCHEDX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_595__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_595__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_595__SMAT_MATCHEDX.obj_hash = 56867082; cdat->dsym_595__SMAT_MATCHEDX.obj_len = 3; /*inistring dstr_596__SMAT_MATCHEDX*/ /*_.VALSTR___V675*/ meltfptr[674] = (melt_ptr_t) & cdat->dstr_596__SMAT_MATCHEDX; cdat->dstr_596__SMAT_MATCHEDX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_596__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_596__SMAT_MATCHEDX.val) - 1); /*^iniobj */ #line 518 /*iniobj dobj_597__SMAT_MATCHEDX*/ /*_.VALDATA___V669*/ meltfptr[668] = (melt_ptr_t) & cdat->dobj_597__SMAT_MATCHEDX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_597__SMAT_MATCHEDX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_597__SMAT_MATCHEDX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_597__SMAT_MATCHEDX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_597__SMAT_MATCHEDX.obj_num = 2; cdat->dobj_597__SMAT_MATCHEDX.obj_hash = 391793228; cdat->dobj_597__SMAT_MATCHEDX.obj_len = 4; /*inistring dstr_598__SMAT_MATCHEDX*/ /*_.VALSTR___V670*/ meltfptr[669] = (melt_ptr_t) & cdat->dstr_598__SMAT_MATCHEDX; cdat->dstr_598__SMAT_MATCHEDX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_598__SMAT_MATCHEDX.val, "SMAT_MATCHEDX", sizeof (cdat->dstr_598__SMAT_MATCHEDX.val) - 1); /*iniobj dsym_599__SMAT_CASES*/ /*uniqueobj*/ if (! /*_.VALDATA___V676*/ meltfptr[675]) /*_.VALDATA___V676*/ meltfptr[675] = (melt_ptr_t) & cdat->dsym_599__SMAT_CASES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_599__SMAT_CASES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_599__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_599__SMAT_CASES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_599__SMAT_CASES.obj_hash = 1021834057; cdat->dsym_599__SMAT_CASES.obj_len = 3; /*inistring dstr_600__SMAT_CASES*/ /*_.VALSTR___V677*/ meltfptr[676] = (melt_ptr_t) & cdat->dstr_600__SMAT_CASES; cdat->dstr_600__SMAT_CASES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_600__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_600__SMAT_CASES.val) - 1); /*^iniobj */ #line 518 /*iniobj dobj_601__SMAT_CASES*/ /*_.VALDATA___V671*/ meltfptr[670] = (melt_ptr_t) & cdat->dobj_601__SMAT_CASES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_601__SMAT_CASES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_601__SMAT_CASES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_601__SMAT_CASES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_601__SMAT_CASES.obj_num = 3; cdat->dobj_601__SMAT_CASES.obj_hash = 634896259; cdat->dobj_601__SMAT_CASES.obj_len = 4; /*inistring dstr_602__SMAT_CASES*/ /*_.VALSTR___V672*/ meltfptr[671] = (melt_ptr_t) & cdat->dstr_602__SMAT_CASES; cdat->dstr_602__SMAT_CASES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_602__SMAT_CASES.val, "SMAT_CASES", sizeof (cdat->dstr_602__SMAT_CASES.val) - 1); /*iniobj dsym_603__CLASS_SOURCE_MATCH_CASE*/ /*uniqueobj*/ if (! /*_.VALDATA___V678*/ meltfptr[677]) /*_.VALDATA___V678*/ meltfptr[677] = (melt_ptr_t) & cdat->dsym_603__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_603__CLASS_SOURCE_MATCH_CASE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_603__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_603__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_603__CLASS_SOURCE_MATCH_CASE.obj_hash = 625198266; cdat->dsym_603__CLASS_SOURCE_MATCH_CASE.obj_len = 3; /*inistring dstr_604__CLASS_SOURCE_MAT*/ /*_.VALSTR___V679*/ meltfptr[678] = (melt_ptr_t) & cdat->dstr_604__CLASS_SOURCE_MAT; cdat->dstr_604__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_604__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_604__CLASS_SOURCE_MAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:529:/ iniobj"); #line 529 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_605__CLASS_SOURCE_MATCH_CASE*/ /*_.VALDATA___V680*/ meltfptr[679] = (melt_ptr_t) & cdat->dobj_605__CLASS_SOURCE_MATCH_CASE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_605__CLASS_SOURCE_MATCH_CASE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_605__CLASS_SOURCE_MATCH_CASE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_hash = 727072914; cdat->dobj_605__CLASS_SOURCE_MATCH_CASE.obj_len = 8; /*inistring dstr_606__CLASS_SOURCE_MAT*/ /*_.VALSTR___V681*/ meltfptr[680] = (melt_ptr_t) & cdat->dstr_606__CLASS_SOURCE_MAT; cdat->dstr_606__CLASS_SOURCE_MAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_606__CLASS_SOURCE_MAT.val, "CLASS_SOURCE_MATCH_CASE", sizeof (cdat->dstr_606__CLASS_SOURCE_MAT. val) - 1); /*inimult dtup_607__CLASS_SOURCE_MATCH_CASE */ /*_.VALTUP___V682*/ meltfptr[681] = (melt_ptr_t) & cdat->dtup_607__CLASS_SOURCE_MATCH_CASE; cdat->dtup_607__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_607__CLASS_SOURCE_MATCH_CASE.nbval = 4; /*inimult dtup_608__CLASS_SOURCE_MATCH_CASE */ /*_.VALTUP___V687*/ meltfptr[686] = (melt_ptr_t) & cdat->dtup_608__CLASS_SOURCE_MATCH_CASE; cdat->dtup_608__CLASS_SOURCE_MATCH_CASE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_608__CLASS_SOURCE_MATCH_CASE.nbval = 4; /*iniobj dsym_609__SCAM_PATT*/ /*uniqueobj*/ if (! /*_.VALDATA___V688*/ meltfptr[687]) /*_.VALDATA___V688*/ meltfptr[687] = (melt_ptr_t) & cdat->dsym_609__SCAM_PATT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_609__SCAM_PATT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_609__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_609__SCAM_PATT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_609__SCAM_PATT.obj_hash = 413025747; cdat->dsym_609__SCAM_PATT.obj_len = 3; /*inistring dstr_610__SCAM_PATT*/ /*_.VALSTR___V689*/ meltfptr[688] = (melt_ptr_t) & cdat->dstr_610__SCAM_PATT; cdat->dstr_610__SCAM_PATT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_610__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_610__SCAM_PATT.val) - 1); /*^iniobj */ #line 529 /*iniobj dobj_611__SCAM_PATT*/ /*_.VALDATA___V683*/ meltfptr[682] = (melt_ptr_t) & cdat->dobj_611__SCAM_PATT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_611__SCAM_PATT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_611__SCAM_PATT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_611__SCAM_PATT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_611__SCAM_PATT.obj_num = 2; cdat->dobj_611__SCAM_PATT.obj_hash = 470864717; cdat->dobj_611__SCAM_PATT.obj_len = 4; /*inistring dstr_612__SCAM_PATT*/ /*_.VALSTR___V684*/ meltfptr[683] = (melt_ptr_t) & cdat->dstr_612__SCAM_PATT; cdat->dstr_612__SCAM_PATT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_612__SCAM_PATT.val, "SCAM_PATT", sizeof (cdat->dstr_612__SCAM_PATT.val) - 1); /*iniobj dsym_613__SCAM_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V690*/ meltfptr[689]) /*_.VALDATA___V690*/ meltfptr[689] = (melt_ptr_t) & cdat->dsym_613__SCAM_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_613__SCAM_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_613__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_613__SCAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_613__SCAM_BODY.obj_hash = 1012147204; cdat->dsym_613__SCAM_BODY.obj_len = 3; /*inistring dstr_614__SCAM_BODY*/ /*_.VALSTR___V691*/ meltfptr[690] = (melt_ptr_t) & cdat->dstr_614__SCAM_BODY; cdat->dstr_614__SCAM_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_614__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_614__SCAM_BODY.val) - 1); /*^iniobj */ #line 529 /*iniobj dobj_615__SCAM_BODY*/ /*_.VALDATA___V685*/ meltfptr[684] = (melt_ptr_t) & cdat->dobj_615__SCAM_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_615__SCAM_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_615__SCAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_615__SCAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_615__SCAM_BODY.obj_num = 3; cdat->dobj_615__SCAM_BODY.obj_hash = 34322599; cdat->dobj_615__SCAM_BODY.obj_len = 4; /*inistring dstr_616__SCAM_BODY*/ /*_.VALSTR___V686*/ meltfptr[685] = (melt_ptr_t) & cdat->dstr_616__SCAM_BODY; cdat->dstr_616__SCAM_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_616__SCAM_BODY.val, "SCAM_BODY", sizeof (cdat->dstr_616__SCAM_BODY.val) - 1); /*iniobj dsym_617__CLASS_SOURCE_LET_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V692*/ meltfptr[691]) /*_.VALDATA___V692*/ meltfptr[691] = (melt_ptr_t) & cdat->dsym_617__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_617__CLASS_SOURCE_LET_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_617__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_617__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_617__CLASS_SOURCE_LET_BINDING.obj_hash = 379014719; cdat->dsym_617__CLASS_SOURCE_LET_BINDING.obj_len = 3; /*inistring dstr_618__CLASS_SOURCE_LET*/ /*_.VALSTR___V693*/ meltfptr[692] = (melt_ptr_t) & cdat->dstr_618__CLASS_SOURCE_LET; cdat->dstr_618__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_618__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_618__CLASS_SOURCE_LET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:539:/ iniobj"); #line 539 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_619__CLASS_SOURCE_LET_BINDING*/ /*_.VALDATA___V694*/ meltfptr[693] = (melt_ptr_t) & cdat->dobj_619__CLASS_SOURCE_LET_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_619__CLASS_SOURCE_LET_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_619__CLASS_SOURCE_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_619__CLASS_SOURCE_LET_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_num = MELTOBMAG_OBJECT; cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_hash = 222486649; cdat->dobj_619__CLASS_SOURCE_LET_BINDING.obj_len = 8; /*inistring dstr_620__CLASS_SOURCE_LET*/ /*_.VALSTR___V695*/ meltfptr[694] = (melt_ptr_t) & cdat->dstr_620__CLASS_SOURCE_LET; cdat->dstr_620__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_620__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET_BINDING", sizeof (cdat->dstr_620__CLASS_SOURCE_LET. val) - 1); /*inimult dtup_621__CLASS_SOURCE_LET_BINDING */ /*_.VALTUP___V696*/ meltfptr[695] = (melt_ptr_t) & cdat->dtup_621__CLASS_SOURCE_LET_BINDING; cdat->dtup_621__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_621__CLASS_SOURCE_LET_BINDING.nbval = 4; /*inimult dtup_622__CLASS_SOURCE_LET_BINDING */ /*_.VALTUP___V703*/ meltfptr[702] = (melt_ptr_t) & cdat->dtup_622__CLASS_SOURCE_LET_BINDING; cdat->dtup_622__CLASS_SOURCE_LET_BINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_622__CLASS_SOURCE_LET_BINDING.nbval = 5; /*iniobj dsym_623__SLETB_TYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V704*/ meltfptr[703]) /*_.VALDATA___V704*/ meltfptr[703] = (melt_ptr_t) & cdat->dsym_623__SLETB_TYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_623__SLETB_TYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_623__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_623__SLETB_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_623__SLETB_TYPE.obj_hash = 825191502; cdat->dsym_623__SLETB_TYPE.obj_len = 3; /*inistring dstr_624__SLETB_TYPE*/ /*_.VALSTR___V705*/ meltfptr[704] = (melt_ptr_t) & cdat->dstr_624__SLETB_TYPE; cdat->dstr_624__SLETB_TYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_624__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_624__SLETB_TYPE.val) - 1); /*^iniobj */ #line 539 /*iniobj dobj_625__SLETB_TYPE*/ /*_.VALDATA___V697*/ meltfptr[696] = (melt_ptr_t) & cdat->dobj_625__SLETB_TYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_625__SLETB_TYPE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_625__SLETB_TYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_625__SLETB_TYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_625__SLETB_TYPE.obj_num = 2; cdat->dobj_625__SLETB_TYPE.obj_hash = 271338440; cdat->dobj_625__SLETB_TYPE.obj_len = 4; /*inistring dstr_626__SLETB_TYPE*/ /*_.VALSTR___V698*/ meltfptr[697] = (melt_ptr_t) & cdat->dstr_626__SLETB_TYPE; cdat->dstr_626__SLETB_TYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_626__SLETB_TYPE.val, "SLETB_TYPE", sizeof (cdat->dstr_626__SLETB_TYPE.val) - 1); /*iniobj dsym_627__SLETB_BINDER*/ /*uniqueobj*/ if (! /*_.VALDATA___V706*/ meltfptr[705]) /*_.VALDATA___V706*/ meltfptr[705] = (melt_ptr_t) & cdat->dsym_627__SLETB_BINDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_627__SLETB_BINDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_627__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_627__SLETB_BINDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_627__SLETB_BINDER.obj_hash = 270217853; cdat->dsym_627__SLETB_BINDER.obj_len = 3; /*inistring dstr_628__SLETB_BINDER*/ /*_.VALSTR___V707*/ meltfptr[706] = (melt_ptr_t) & cdat->dstr_628__SLETB_BINDER; cdat->dstr_628__SLETB_BINDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_628__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_628__SLETB_BINDER.val) - 1); /*^iniobj */ #line 539 /*iniobj dobj_629__SLETB_BINDER*/ /*_.VALDATA___V699*/ meltfptr[698] = (melt_ptr_t) & cdat->dobj_629__SLETB_BINDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_629__SLETB_BINDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_629__SLETB_BINDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_629__SLETB_BINDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_629__SLETB_BINDER.obj_num = 3; cdat->dobj_629__SLETB_BINDER.obj_hash = 717397063; cdat->dobj_629__SLETB_BINDER.obj_len = 4; /*inistring dstr_630__SLETB_BINDER*/ /*_.VALSTR___V700*/ meltfptr[699] = (melt_ptr_t) & cdat->dstr_630__SLETB_BINDER; cdat->dstr_630__SLETB_BINDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_630__SLETB_BINDER.val, "SLETB_BINDER", sizeof (cdat->dstr_630__SLETB_BINDER.val) - 1); /*iniobj dsym_631__SLETB_EXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V708*/ meltfptr[707]) /*_.VALDATA___V708*/ meltfptr[707] = (melt_ptr_t) & cdat->dsym_631__SLETB_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_631__SLETB_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_631__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_631__SLETB_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_631__SLETB_EXPR.obj_hash = 314235873; cdat->dsym_631__SLETB_EXPR.obj_len = 3; /*inistring dstr_632__SLETB_EXPR*/ /*_.VALSTR___V709*/ meltfptr[708] = (melt_ptr_t) & cdat->dstr_632__SLETB_EXPR; cdat->dstr_632__SLETB_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_632__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_632__SLETB_EXPR.val) - 1); /*^iniobj */ #line 539 /*iniobj dobj_633__SLETB_EXPR*/ /*_.VALDATA___V701*/ meltfptr[700] = (melt_ptr_t) & cdat->dobj_633__SLETB_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_633__SLETB_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_633__SLETB_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_633__SLETB_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_633__SLETB_EXPR.obj_num = 4; cdat->dobj_633__SLETB_EXPR.obj_hash = 912167057; cdat->dobj_633__SLETB_EXPR.obj_len = 4; /*inistring dstr_634__SLETB_EXPR*/ /*_.VALSTR___V702*/ meltfptr[701] = (melt_ptr_t) & cdat->dstr_634__SLETB_EXPR; cdat->dstr_634__SLETB_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_634__SLETB_EXPR.val, "SLETB_EXPR", sizeof (cdat->dstr_634__SLETB_EXPR.val) - 1); /*iniobj dsym_635__CLASS_SOURCE_LETREC_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V710*/ meltfptr[709]) /*_.VALDATA___V710*/ meltfptr[709] = (melt_ptr_t) & cdat->dsym_635__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_635__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_635__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_635__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_635__CLASS_SOURCE_LETREC_BINDING.obj_hash = 56122288; cdat->dsym_635__CLASS_SOURCE_LETREC_BINDING.obj_len = 3; /*inistring dstr_636__CLASS_SOURCE_LET*/ /*_.VALSTR___V711*/ meltfptr[710] = (melt_ptr_t) & cdat->dstr_636__CLASS_SOURCE_LET; cdat->dstr_636__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_636__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_636__CLASS_SOURCE_LET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:550:/ iniobj"); #line 550 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_637__CLASS_SOURCE_LETREC_BINDING*/ /*_.VALDATA___V712*/ meltfptr[711] = (melt_ptr_t) & cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_637__CLASS_SOURCE_LETREC_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_637__CLASS_SOURCE_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_num = MELTOBMAG_OBJECT; cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_hash = 247354383; cdat->dobj_637__CLASS_SOURCE_LETREC_BINDING.obj_len = 8; /*inistring dstr_638__CLASS_SOURCE_LET*/ /*_.VALSTR___V713*/ meltfptr[712] = (melt_ptr_t) & cdat->dstr_638__CLASS_SOURCE_LET; cdat->dstr_638__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_638__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC_BINDING", sizeof (cdat->dstr_638__CLASS_SOURCE_LET. val) - 1); /*inimult dtup_639__CLASS_SOURCE_LETREC_BINDING */ /*_.VALTUP___V714*/ meltfptr[713] = (melt_ptr_t) & cdat->dtup_639__CLASS_SOURCE_LETREC_BINDING; cdat->dtup_639__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_639__CLASS_SOURCE_LETREC_BINDING.nbval = 5; /*inimult dtup_640__CLASS_SOURCE_LETREC_BINDING */ /*_.VALTUP___V715*/ meltfptr[714] = (melt_ptr_t) & cdat->dtup_640__CLASS_SOURCE_LETREC_BINDING; cdat->dtup_640__CLASS_SOURCE_LETREC_BINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_640__CLASS_SOURCE_LETREC_BINDING.nbval = 5; /*iniobj dsym_641__CLASS_SOURCE_LET*/ /*uniqueobj*/ if (! /*_.VALDATA___V716*/ meltfptr[715]) /*_.VALDATA___V716*/ meltfptr[715] = (melt_ptr_t) & cdat->dsym_641__CLASS_SOURCE_LET; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_641__CLASS_SOURCE_LET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_641__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_641__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_641__CLASS_SOURCE_LET.obj_hash = 540916563; cdat->dsym_641__CLASS_SOURCE_LET.obj_len = 3; /*inistring dstr_642__CLASS_SOURCE_LET*/ /*_.VALSTR___V717*/ meltfptr[716] = (melt_ptr_t) & cdat->dstr_642__CLASS_SOURCE_LET; cdat->dstr_642__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_642__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_642__CLASS_SOURCE_LET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:556:/ iniobj"); #line 556 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_643__CLASS_SOURCE_LET*/ /*_.VALDATA___V718*/ meltfptr[717] = (melt_ptr_t) & cdat->dobj_643__CLASS_SOURCE_LET; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_643__CLASS_SOURCE_LET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_643__CLASS_SOURCE_LET", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_643__CLASS_SOURCE_LET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_643__CLASS_SOURCE_LET.obj_num = MELTOBMAG_OBJECT; cdat->dobj_643__CLASS_SOURCE_LET.obj_hash = 351346092; cdat->dobj_643__CLASS_SOURCE_LET.obj_len = 8; /*inistring dstr_644__CLASS_SOURCE_LET*/ /*_.VALSTR___V719*/ meltfptr[718] = (melt_ptr_t) & cdat->dstr_644__CLASS_SOURCE_LET; cdat->dstr_644__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_644__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LET", sizeof (cdat->dstr_644__CLASS_SOURCE_LET. val) - 1); /*inimult dtup_645__CLASS_SOURCE_LET */ /*_.VALTUP___V720*/ meltfptr[719] = (melt_ptr_t) & cdat->dtup_645__CLASS_SOURCE_LET; cdat->dtup_645__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_645__CLASS_SOURCE_LET.nbval = 4; /*inimult dtup_646__CLASS_SOURCE_LET */ /*_.VALTUP___V725*/ meltfptr[724] = (melt_ptr_t) & cdat->dtup_646__CLASS_SOURCE_LET; cdat->dtup_646__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_646__CLASS_SOURCE_LET.nbval = 4; /*iniobj dsym_647__SLET_BINDINGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V726*/ meltfptr[725]) /*_.VALDATA___V726*/ meltfptr[725] = (melt_ptr_t) & cdat->dsym_647__SLET_BINDINGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_647__SLET_BINDINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_647__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_647__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_647__SLET_BINDINGS.obj_hash = 942285125; cdat->dsym_647__SLET_BINDINGS.obj_len = 3; /*inistring dstr_648__SLET_BINDINGS*/ /*_.VALSTR___V727*/ meltfptr[726] = (melt_ptr_t) & cdat->dstr_648__SLET_BINDINGS; cdat->dstr_648__SLET_BINDINGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_648__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_648__SLET_BINDINGS.val) - 1); /*^iniobj */ #line 556 /*iniobj dobj_649__SLET_BINDINGS*/ /*_.VALDATA___V721*/ meltfptr[720] = (melt_ptr_t) & cdat->dobj_649__SLET_BINDINGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_649__SLET_BINDINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_649__SLET_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_649__SLET_BINDINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_649__SLET_BINDINGS.obj_num = 2; cdat->dobj_649__SLET_BINDINGS.obj_hash = 925239938; cdat->dobj_649__SLET_BINDINGS.obj_len = 4; /*inistring dstr_650__SLET_BINDINGS*/ /*_.VALSTR___V722*/ meltfptr[721] = (melt_ptr_t) & cdat->dstr_650__SLET_BINDINGS; cdat->dstr_650__SLET_BINDINGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_650__SLET_BINDINGS.val, "SLET_BINDINGS", sizeof (cdat->dstr_650__SLET_BINDINGS.val) - 1); /*iniobj dsym_651__SLET_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V728*/ meltfptr[727]) /*_.VALDATA___V728*/ meltfptr[727] = (melt_ptr_t) & cdat->dsym_651__SLET_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_651__SLET_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_651__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_651__SLET_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_651__SLET_BODY.obj_hash = 405353277; cdat->dsym_651__SLET_BODY.obj_len = 3; /*inistring dstr_652__SLET_BODY*/ /*_.VALSTR___V729*/ meltfptr[728] = (melt_ptr_t) & cdat->dstr_652__SLET_BODY; cdat->dstr_652__SLET_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_652__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_652__SLET_BODY.val) - 1); /*^iniobj */ #line 556 /*iniobj dobj_653__SLET_BODY*/ /*_.VALDATA___V723*/ meltfptr[722] = (melt_ptr_t) & cdat->dobj_653__SLET_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_653__SLET_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_653__SLET_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_653__SLET_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_653__SLET_BODY.obj_num = 3; cdat->dobj_653__SLET_BODY.obj_hash = 23231316; cdat->dobj_653__SLET_BODY.obj_len = 4; /*inistring dstr_654__SLET_BODY*/ /*_.VALSTR___V724*/ meltfptr[723] = (melt_ptr_t) & cdat->dstr_654__SLET_BODY; cdat->dstr_654__SLET_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_654__SLET_BODY.val, "SLET_BODY", sizeof (cdat->dstr_654__SLET_BODY.val) - 1); /*iniobj dsym_655__CLASS_SOURCE_LETREC*/ /*uniqueobj*/ if (! /*_.VALDATA___V730*/ meltfptr[729]) /*_.VALDATA___V730*/ meltfptr[729] = (melt_ptr_t) & cdat->dsym_655__CLASS_SOURCE_LETREC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_655__CLASS_SOURCE_LETREC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_655__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_655__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_655__CLASS_SOURCE_LETREC.obj_hash = 65197950; cdat->dsym_655__CLASS_SOURCE_LETREC.obj_len = 3; /*inistring dstr_656__CLASS_SOURCE_LET*/ /*_.VALSTR___V731*/ meltfptr[730] = (melt_ptr_t) & cdat->dstr_656__CLASS_SOURCE_LET; cdat->dstr_656__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_656__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_656__CLASS_SOURCE_LET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:566:/ iniobj"); #line 566 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_657__CLASS_SOURCE_LETREC*/ /*_.VALDATA___V732*/ meltfptr[731] = (melt_ptr_t) & cdat->dobj_657__CLASS_SOURCE_LETREC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_657__CLASS_SOURCE_LETREC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_657__CLASS_SOURCE_LETREC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_657__CLASS_SOURCE_LETREC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_657__CLASS_SOURCE_LETREC.obj_num = MELTOBMAG_OBJECT; cdat->dobj_657__CLASS_SOURCE_LETREC.obj_hash = 817149262; cdat->dobj_657__CLASS_SOURCE_LETREC.obj_len = 8; /*inistring dstr_658__CLASS_SOURCE_LET*/ /*_.VALSTR___V733*/ meltfptr[732] = (melt_ptr_t) & cdat->dstr_658__CLASS_SOURCE_LET; cdat->dstr_658__CLASS_SOURCE_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_658__CLASS_SOURCE_LET.val, "CLASS_SOURCE_LETREC", sizeof (cdat->dstr_658__CLASS_SOURCE_LET. val) - 1); /*inimult dtup_659__CLASS_SOURCE_LETREC */ /*_.VALTUP___V734*/ meltfptr[733] = (melt_ptr_t) & cdat->dtup_659__CLASS_SOURCE_LETREC; cdat->dtup_659__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_659__CLASS_SOURCE_LETREC.nbval = 5; /*inimult dtup_660__CLASS_SOURCE_LETREC */ /*_.VALTUP___V735*/ meltfptr[734] = (melt_ptr_t) & cdat->dtup_660__CLASS_SOURCE_LETREC; cdat->dtup_660__CLASS_SOURCE_LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_660__CLASS_SOURCE_LETREC.nbval = 4; /*iniobj dsym_661__CLASS_SOURCE_LAMBDA*/ /*uniqueobj*/ if (! /*_.VALDATA___V736*/ meltfptr[735]) /*_.VALDATA___V736*/ meltfptr[735] = (melt_ptr_t) & cdat->dsym_661__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_661__CLASS_SOURCE_LAMBDA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_661__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_661__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_661__CLASS_SOURCE_LAMBDA.obj_hash = 825809316; cdat->dsym_661__CLASS_SOURCE_LAMBDA.obj_len = 3; /*inistring dstr_662__CLASS_SOURCE_LAM*/ /*_.VALSTR___V737*/ meltfptr[736] = (melt_ptr_t) & cdat->dstr_662__CLASS_SOURCE_LAM; cdat->dstr_662__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_662__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_662__CLASS_SOURCE_LAM. val) - 1); MELT_LOCATION ("warmelt-macro.melt:574:/ iniobj"); #line 574 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_663__CLASS_SOURCE_LAMBDA*/ /*_.VALDATA___V738*/ meltfptr[737] = (melt_ptr_t) & cdat->dobj_663__CLASS_SOURCE_LAMBDA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_663__CLASS_SOURCE_LAMBDA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_663__CLASS_SOURCE_LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_663__CLASS_SOURCE_LAMBDA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_num = MELTOBMAG_OBJECT; cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_hash = 740453818; cdat->dobj_663__CLASS_SOURCE_LAMBDA.obj_len = 8; /*inistring dstr_664__CLASS_SOURCE_LAM*/ /*_.VALSTR___V739*/ meltfptr[738] = (melt_ptr_t) & cdat->dstr_664__CLASS_SOURCE_LAM; cdat->dstr_664__CLASS_SOURCE_LAM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_664__CLASS_SOURCE_LAM.val, "CLASS_SOURCE_LAMBDA", sizeof (cdat->dstr_664__CLASS_SOURCE_LAM. val) - 1); /*inimult dtup_665__CLASS_SOURCE_LAMBDA */ /*_.VALTUP___V740*/ meltfptr[739] = (melt_ptr_t) & cdat->dtup_665__CLASS_SOURCE_LAMBDA; cdat->dtup_665__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_665__CLASS_SOURCE_LAMBDA.nbval = 4; /*inimult dtup_666__CLASS_SOURCE_LAMBDA */ /*_.VALTUP___V745*/ meltfptr[744] = (melt_ptr_t) & cdat->dtup_666__CLASS_SOURCE_LAMBDA; cdat->dtup_666__CLASS_SOURCE_LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_666__CLASS_SOURCE_LAMBDA.nbval = 4; /*iniobj dsym_667__SLAM_ARGBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V746*/ meltfptr[745]) /*_.VALDATA___V746*/ meltfptr[745] = (melt_ptr_t) & cdat->dsym_667__SLAM_ARGBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_667__SLAM_ARGBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_667__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_667__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_667__SLAM_ARGBIND.obj_hash = 370871900; cdat->dsym_667__SLAM_ARGBIND.obj_len = 3; /*inistring dstr_668__SLAM_ARGBIND*/ /*_.VALSTR___V747*/ meltfptr[746] = (melt_ptr_t) & cdat->dstr_668__SLAM_ARGBIND; cdat->dstr_668__SLAM_ARGBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_668__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_668__SLAM_ARGBIND.val) - 1); /*^iniobj */ #line 574 /*iniobj dobj_669__SLAM_ARGBIND*/ /*_.VALDATA___V741*/ meltfptr[740] = (melt_ptr_t) & cdat->dobj_669__SLAM_ARGBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_669__SLAM_ARGBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_669__SLAM_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_669__SLAM_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_669__SLAM_ARGBIND.obj_num = 2; cdat->dobj_669__SLAM_ARGBIND.obj_hash = 76105179; cdat->dobj_669__SLAM_ARGBIND.obj_len = 4; /*inistring dstr_670__SLAM_ARGBIND*/ /*_.VALSTR___V742*/ meltfptr[741] = (melt_ptr_t) & cdat->dstr_670__SLAM_ARGBIND; cdat->dstr_670__SLAM_ARGBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_670__SLAM_ARGBIND.val, "SLAM_ARGBIND", sizeof (cdat->dstr_670__SLAM_ARGBIND.val) - 1); /*iniobj dsym_671__SLAM_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V748*/ meltfptr[747]) /*_.VALDATA___V748*/ meltfptr[747] = (melt_ptr_t) & cdat->dsym_671__SLAM_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_671__SLAM_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_671__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_671__SLAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_671__SLAM_BODY.obj_hash = 405250012; cdat->dsym_671__SLAM_BODY.obj_len = 3; /*inistring dstr_672__SLAM_BODY*/ /*_.VALSTR___V749*/ meltfptr[748] = (melt_ptr_t) & cdat->dstr_672__SLAM_BODY; cdat->dstr_672__SLAM_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_672__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_672__SLAM_BODY.val) - 1); /*^iniobj */ #line 574 /*iniobj dobj_673__SLAM_BODY*/ /*_.VALDATA___V743*/ meltfptr[742] = (melt_ptr_t) & cdat->dobj_673__SLAM_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_673__SLAM_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_673__SLAM_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_673__SLAM_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_673__SLAM_BODY.obj_num = 3; cdat->dobj_673__SLAM_BODY.obj_hash = 76586278; cdat->dobj_673__SLAM_BODY.obj_len = 4; /*inistring dstr_674__SLAM_BODY*/ /*_.VALSTR___V744*/ meltfptr[743] = (melt_ptr_t) & cdat->dstr_674__SLAM_BODY; cdat->dstr_674__SLAM_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_674__SLAM_BODY.val, "SLAM_BODY", sizeof (cdat->dstr_674__SLAM_BODY.val) - 1); /*iniobj dsym_675__CLASS_SOURCE_IFVARIADIC*/ /*uniqueobj*/ if (! /*_.VALDATA___V750*/ meltfptr[749]) /*_.VALDATA___V750*/ meltfptr[749] = (melt_ptr_t) & cdat->dsym_675__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_675__CLASS_SOURCE_IFVARIADIC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_675__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_675__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_675__CLASS_SOURCE_IFVARIADIC.obj_hash = 590232230; cdat->dsym_675__CLASS_SOURCE_IFVARIADIC.obj_len = 3; /*inistring dstr_676__CLASS_SOURCE_IFV*/ /*_.VALSTR___V751*/ meltfptr[750] = (melt_ptr_t) & cdat->dstr_676__CLASS_SOURCE_IFV; cdat->dstr_676__CLASS_SOURCE_IFV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_676__CLASS_SOURCE_IFV.val, "CLASS_SOURCE_IFVARIADIC", sizeof (cdat->dstr_676__CLASS_SOURCE_IFV. val) - 1); MELT_LOCATION ("warmelt-macro.melt:584:/ iniobj"); #line 584 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_677__CLASS_SOURCE_IFVARIADIC*/ /*_.VALDATA___V752*/ meltfptr[751] = (melt_ptr_t) & cdat->dobj_677__CLASS_SOURCE_IFVARIADIC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_677__CLASS_SOURCE_IFVARIADIC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_677__CLASS_SOURCE_IFVARIADIC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_num = MELTOBMAG_OBJECT; cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_hash = 129323304; cdat->dobj_677__CLASS_SOURCE_IFVARIADIC.obj_len = 8; /*inistring dstr_678__CLASS_SOURCE_IFV*/ /*_.VALSTR___V753*/ meltfptr[752] = (melt_ptr_t) & cdat->dstr_678__CLASS_SOURCE_IFV; cdat->dstr_678__CLASS_SOURCE_IFV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_678__CLASS_SOURCE_IFV.val, "CLASS_SOURCE_IFVARIADIC", sizeof (cdat->dstr_678__CLASS_SOURCE_IFV. val) - 1); /*inimult dtup_679__CLASS_SOURCE_IFVARIADIC */ /*_.VALTUP___V754*/ meltfptr[753] = (melt_ptr_t) & cdat->dtup_679__CLASS_SOURCE_IFVARIADIC; cdat->dtup_679__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_679__CLASS_SOURCE_IFVARIADIC.nbval = 4; /*inimult dtup_680__CLASS_SOURCE_IFVARIADIC */ /*_.VALTUP___V761*/ meltfptr[760] = (melt_ptr_t) & cdat->dtup_680__CLASS_SOURCE_IFVARIADIC; cdat->dtup_680__CLASS_SOURCE_IFVARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_680__CLASS_SOURCE_IFVARIADIC.nbval = 5; /*iniobj dsym_681__SIFVARIADIC_ARGBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V762*/ meltfptr[761]) /*_.VALDATA___V762*/ meltfptr[761] = (melt_ptr_t) & cdat->dsym_681__SIFVARIADIC_ARGBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_681__SIFVARIADIC_ARGBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_681__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_681__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_681__SIFVARIADIC_ARGBIND.obj_hash = 888296044; cdat->dsym_681__SIFVARIADIC_ARGBIND.obj_len = 3; /*inistring dstr_682__SIFVARIADIC_ARGB*/ /*_.VALSTR___V763*/ meltfptr[762] = (melt_ptr_t) & cdat->dstr_682__SIFVARIADIC_ARGB; cdat->dstr_682__SIFVARIADIC_ARGB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_682__SIFVARIADIC_ARGB.val, "SIFVARIADIC_ARGBIND", sizeof (cdat->dstr_682__SIFVARIADIC_ARGB. val) - 1); /*^iniobj */ #line 584 /*iniobj dobj_683__SIFVARIADIC_ARGBIND*/ /*_.VALDATA___V755*/ meltfptr[754] = (melt_ptr_t) & cdat->dobj_683__SIFVARIADIC_ARGBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_683__SIFVARIADIC_ARGBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_683__SIFVARIADIC_ARGBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_683__SIFVARIADIC_ARGBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_num = 2; cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_hash = 883612870; cdat->dobj_683__SIFVARIADIC_ARGBIND.obj_len = 4; /*inistring dstr_684__SIFVARIADIC_ARGB*/ /*_.VALSTR___V756*/ meltfptr[755] = (melt_ptr_t) & cdat->dstr_684__SIFVARIADIC_ARGB; cdat->dstr_684__SIFVARIADIC_ARGB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_684__SIFVARIADIC_ARGB.val, "SIFVARIADIC_ARGBIND", sizeof (cdat->dstr_684__SIFVARIADIC_ARGB. val) - 1); /*iniobj dsym_685__SIFVARIADIC_THEN*/ /*uniqueobj*/ if (! /*_.VALDATA___V764*/ meltfptr[763]) /*_.VALDATA___V764*/ meltfptr[763] = (melt_ptr_t) & cdat->dsym_685__SIFVARIADIC_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_685__SIFVARIADIC_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_685__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_685__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_685__SIFVARIADIC_THEN.obj_hash = 158282506; cdat->dsym_685__SIFVARIADIC_THEN.obj_len = 3; /*inistring dstr_686__SIFVARIADIC_THEN*/ /*_.VALSTR___V765*/ meltfptr[764] = (melt_ptr_t) & cdat->dstr_686__SIFVARIADIC_THEN; cdat->dstr_686__SIFVARIADIC_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_686__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (cdat->dstr_686__SIFVARIADIC_THEN. val) - 1); /*^iniobj */ #line 584 /*iniobj dobj_687__SIFVARIADIC_THEN*/ /*_.VALDATA___V757*/ meltfptr[756] = (melt_ptr_t) & cdat->dobj_687__SIFVARIADIC_THEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_687__SIFVARIADIC_THEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_687__SIFVARIADIC_THEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_687__SIFVARIADIC_THEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_687__SIFVARIADIC_THEN.obj_num = 3; cdat->dobj_687__SIFVARIADIC_THEN.obj_hash = 946019496; cdat->dobj_687__SIFVARIADIC_THEN.obj_len = 4; /*inistring dstr_688__SIFVARIADIC_THEN*/ /*_.VALSTR___V758*/ meltfptr[757] = (melt_ptr_t) & cdat->dstr_688__SIFVARIADIC_THEN; cdat->dstr_688__SIFVARIADIC_THEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_688__SIFVARIADIC_THEN.val, "SIFVARIADIC_THEN", sizeof (cdat->dstr_688__SIFVARIADIC_THEN. val) - 1); /*iniobj dsym_689__SIFVARIADIC_ELSE*/ /*uniqueobj*/ if (! /*_.VALDATA___V766*/ meltfptr[765]) /*_.VALDATA___V766*/ meltfptr[765] = (melt_ptr_t) & cdat->dsym_689__SIFVARIADIC_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_689__SIFVARIADIC_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_689__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_689__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_689__SIFVARIADIC_ELSE.obj_hash = 865398703; cdat->dsym_689__SIFVARIADIC_ELSE.obj_len = 3; /*inistring dstr_690__SIFVARIADIC_ELSE*/ /*_.VALSTR___V767*/ meltfptr[766] = (melt_ptr_t) & cdat->dstr_690__SIFVARIADIC_ELSE; cdat->dstr_690__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_690__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (cdat->dstr_690__SIFVARIADIC_ELSE. val) - 1); /*^iniobj */ #line 584 /*iniobj dobj_691__SIFVARIADIC_ELSE*/ /*_.VALDATA___V759*/ meltfptr[758] = (melt_ptr_t) & cdat->dobj_691__SIFVARIADIC_ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_691__SIFVARIADIC_ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_691__SIFVARIADIC_ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_691__SIFVARIADIC_ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_691__SIFVARIADIC_ELSE.obj_num = 4; cdat->dobj_691__SIFVARIADIC_ELSE.obj_hash = 750252574; cdat->dobj_691__SIFVARIADIC_ELSE.obj_len = 4; /*inistring dstr_692__SIFVARIADIC_ELSE*/ /*_.VALSTR___V760*/ meltfptr[759] = (melt_ptr_t) & cdat->dstr_692__SIFVARIADIC_ELSE; cdat->dstr_692__SIFVARIADIC_ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_692__SIFVARIADIC_ELSE.val, "SIFVARIADIC_ELSE", sizeof (cdat->dstr_692__SIFVARIADIC_ELSE. val) - 1); /*iniobj dsym_693__CLASS_SOURCE_MULTICALL*/ /*uniqueobj*/ if (! /*_.VALDATA___V768*/ meltfptr[767]) /*_.VALDATA___V768*/ meltfptr[767] = (melt_ptr_t) & cdat->dsym_693__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_693__CLASS_SOURCE_MULTICALL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_693__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_693__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_693__CLASS_SOURCE_MULTICALL.obj_hash = 367933626; cdat->dsym_693__CLASS_SOURCE_MULTICALL.obj_len = 3; /*inistring dstr_694__CLASS_SOURCE_MUL*/ /*_.VALSTR___V769*/ meltfptr[768] = (melt_ptr_t) & cdat->dstr_694__CLASS_SOURCE_MUL; cdat->dstr_694__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_694__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_694__CLASS_SOURCE_MUL. val) - 1); MELT_LOCATION ("warmelt-macro.melt:596:/ iniobj"); #line 596 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_695__CLASS_SOURCE_MULTICALL*/ /*_.VALDATA___V770*/ meltfptr[769] = (melt_ptr_t) & cdat->dobj_695__CLASS_SOURCE_MULTICALL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_695__CLASS_SOURCE_MULTICALL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_695__CLASS_SOURCE_MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_695__CLASS_SOURCE_MULTICALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_num = MELTOBMAG_OBJECT; cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_hash = 67452529; cdat->dobj_695__CLASS_SOURCE_MULTICALL.obj_len = 8; /*inistring dstr_696__CLASS_SOURCE_MUL*/ /*_.VALSTR___V771*/ meltfptr[770] = (melt_ptr_t) & cdat->dstr_696__CLASS_SOURCE_MUL; cdat->dstr_696__CLASS_SOURCE_MUL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_696__CLASS_SOURCE_MUL.val, "CLASS_SOURCE_MULTICALL", sizeof (cdat->dstr_696__CLASS_SOURCE_MUL. val) - 1); /*inimult dtup_697__CLASS_SOURCE_MULTICALL */ /*_.VALTUP___V772*/ meltfptr[771] = (melt_ptr_t) & cdat->dtup_697__CLASS_SOURCE_MULTICALL; cdat->dtup_697__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_697__CLASS_SOURCE_MULTICALL.nbval = 4; /*inimult dtup_698__CLASS_SOURCE_MULTICALL */ /*_.VALTUP___V779*/ meltfptr[778] = (melt_ptr_t) & cdat->dtup_698__CLASS_SOURCE_MULTICALL; cdat->dtup_698__CLASS_SOURCE_MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_698__CLASS_SOURCE_MULTICALL.nbval = 5; /*iniobj dsym_699__SMULC_RESBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V780*/ meltfptr[779]) /*_.VALDATA___V780*/ meltfptr[779] = (melt_ptr_t) & cdat->dsym_699__SMULC_RESBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_699__SMULC_RESBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_699__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_699__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_699__SMULC_RESBIND.obj_hash = 135599005; cdat->dsym_699__SMULC_RESBIND.obj_len = 3; /*inistring dstr_700__SMULC_RESBIND*/ /*_.VALSTR___V781*/ meltfptr[780] = (melt_ptr_t) & cdat->dstr_700__SMULC_RESBIND; cdat->dstr_700__SMULC_RESBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_700__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_700__SMULC_RESBIND.val) - 1); /*^iniobj */ #line 596 /*iniobj dobj_701__SMULC_RESBIND*/ /*_.VALDATA___V773*/ meltfptr[772] = (melt_ptr_t) & cdat->dobj_701__SMULC_RESBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_701__SMULC_RESBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_701__SMULC_RESBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_701__SMULC_RESBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_701__SMULC_RESBIND.obj_num = 2; cdat->dobj_701__SMULC_RESBIND.obj_hash = 557962260; cdat->dobj_701__SMULC_RESBIND.obj_len = 4; /*inistring dstr_702__SMULC_RESBIND*/ /*_.VALSTR___V774*/ meltfptr[773] = (melt_ptr_t) & cdat->dstr_702__SMULC_RESBIND; cdat->dstr_702__SMULC_RESBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_702__SMULC_RESBIND.val, "SMULC_RESBIND", sizeof (cdat->dstr_702__SMULC_RESBIND.val) - 1); /*iniobj dsym_703__SMULC_CALL*/ /*uniqueobj*/ if (! /*_.VALDATA___V782*/ meltfptr[781]) /*_.VALDATA___V782*/ meltfptr[781] = (melt_ptr_t) & cdat->dsym_703__SMULC_CALL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_703__SMULC_CALL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_703__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_703__SMULC_CALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_703__SMULC_CALL.obj_hash = 918745495; cdat->dsym_703__SMULC_CALL.obj_len = 3; /*inistring dstr_704__SMULC_CALL*/ /*_.VALSTR___V783*/ meltfptr[782] = (melt_ptr_t) & cdat->dstr_704__SMULC_CALL; cdat->dstr_704__SMULC_CALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_704__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_704__SMULC_CALL.val) - 1); /*^iniobj */ #line 596 /*iniobj dobj_705__SMULC_CALL*/ /*_.VALDATA___V775*/ meltfptr[774] = (melt_ptr_t) & cdat->dobj_705__SMULC_CALL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_705__SMULC_CALL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_705__SMULC_CALL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_705__SMULC_CALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_705__SMULC_CALL.obj_num = 3; cdat->dobj_705__SMULC_CALL.obj_hash = 278314086; cdat->dobj_705__SMULC_CALL.obj_len = 4; /*inistring dstr_706__SMULC_CALL*/ /*_.VALSTR___V776*/ meltfptr[775] = (melt_ptr_t) & cdat->dstr_706__SMULC_CALL; cdat->dstr_706__SMULC_CALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_706__SMULC_CALL.val, "SMULC_CALL", sizeof (cdat->dstr_706__SMULC_CALL.val) - 1); /*iniobj dsym_707__SMULC_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V784*/ meltfptr[783]) /*_.VALDATA___V784*/ meltfptr[783] = (melt_ptr_t) & cdat->dsym_707__SMULC_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_707__SMULC_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_707__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_707__SMULC_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_707__SMULC_BODY.obj_hash = 828944150; cdat->dsym_707__SMULC_BODY.obj_len = 3; /*inistring dstr_708__SMULC_BODY*/ /*_.VALSTR___V785*/ meltfptr[784] = (melt_ptr_t) & cdat->dstr_708__SMULC_BODY; cdat->dstr_708__SMULC_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_708__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_708__SMULC_BODY.val) - 1); /*^iniobj */ #line 596 /*iniobj dobj_709__SMULC_BODY*/ /*_.VALDATA___V777*/ meltfptr[776] = (melt_ptr_t) & cdat->dobj_709__SMULC_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_709__SMULC_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_709__SMULC_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_709__SMULC_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_709__SMULC_BODY.obj_num = 4; cdat->dobj_709__SMULC_BODY.obj_hash = 754407166; cdat->dobj_709__SMULC_BODY.obj_len = 4; /*inistring dstr_710__SMULC_BODY*/ /*_.VALSTR___V778*/ meltfptr[777] = (melt_ptr_t) & cdat->dstr_710__SMULC_BODY; cdat->dstr_710__SMULC_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_710__SMULC_BODY.val, "SMULC_BODY", sizeof (cdat->dstr_710__SMULC_BODY.val) - 1); /*iniobj dsym_711__CLASS_SOURCE_LABELLED*/ /*uniqueobj*/ if (! /*_.VALDATA___V786*/ meltfptr[785]) /*_.VALDATA___V786*/ meltfptr[785] = (melt_ptr_t) & cdat->dsym_711__CLASS_SOURCE_LABELLED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_711__CLASS_SOURCE_LABELLED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_711__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_711__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_711__CLASS_SOURCE_LABELLED.obj_hash = 695948554; cdat->dsym_711__CLASS_SOURCE_LABELLED.obj_len = 3; /*inistring dstr_712__CLASS_SOURCE_LAB*/ /*_.VALSTR___V787*/ meltfptr[786] = (melt_ptr_t) & cdat->dstr_712__CLASS_SOURCE_LAB; cdat->dstr_712__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_712__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_712__CLASS_SOURCE_LAB. val) - 1); MELT_LOCATION ("warmelt-macro.melt:608:/ iniobj"); #line 608 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_713__CLASS_SOURCE_LABELLED*/ /*_.VALDATA___V788*/ meltfptr[787] = (melt_ptr_t) & cdat->dobj_713__CLASS_SOURCE_LABELLED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_713__CLASS_SOURCE_LABELLED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_713__CLASS_SOURCE_LABELLED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_713__CLASS_SOURCE_LABELLED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_num = MELTOBMAG_OBJECT; cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_hash = 805672081; cdat->dobj_713__CLASS_SOURCE_LABELLED.obj_len = 8; /*inistring dstr_714__CLASS_SOURCE_LAB*/ /*_.VALSTR___V789*/ meltfptr[788] = (melt_ptr_t) & cdat->dstr_714__CLASS_SOURCE_LAB; cdat->dstr_714__CLASS_SOURCE_LAB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_714__CLASS_SOURCE_LAB.val, "CLASS_SOURCE_LABELLED", sizeof (cdat->dstr_714__CLASS_SOURCE_LAB. val) - 1); /*inimult dtup_715__CLASS_SOURCE_LABELLED */ /*_.VALTUP___V790*/ meltfptr[789] = (melt_ptr_t) & cdat->dtup_715__CLASS_SOURCE_LABELLED; cdat->dtup_715__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_715__CLASS_SOURCE_LABELLED.nbval = 4; /*inimult dtup_716__CLASS_SOURCE_LABELLED */ /*_.VALTUP___V793*/ meltfptr[792] = (melt_ptr_t) & cdat->dtup_716__CLASS_SOURCE_LABELLED; cdat->dtup_716__CLASS_SOURCE_LABELLED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_716__CLASS_SOURCE_LABELLED.nbval = 3; /*iniobj dsym_717__SLABEL_BIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V794*/ meltfptr[793]) /*_.VALDATA___V794*/ meltfptr[793] = (melt_ptr_t) & cdat->dsym_717__SLABEL_BIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_717__SLABEL_BIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_717__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_717__SLABEL_BIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_717__SLABEL_BIND.obj_hash = 418843843; cdat->dsym_717__SLABEL_BIND.obj_len = 3; /*inistring dstr_718__SLABEL_BIND*/ /*_.VALSTR___V795*/ meltfptr[794] = (melt_ptr_t) & cdat->dstr_718__SLABEL_BIND; cdat->dstr_718__SLABEL_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_718__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_718__SLABEL_BIND.val) - 1); /*^iniobj */ #line 608 /*iniobj dobj_719__SLABEL_BIND*/ /*_.VALDATA___V791*/ meltfptr[790] = (melt_ptr_t) & cdat->dobj_719__SLABEL_BIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_719__SLABEL_BIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_719__SLABEL_BIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_719__SLABEL_BIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_719__SLABEL_BIND.obj_num = 2; cdat->dobj_719__SLABEL_BIND.obj_hash = 850075141; cdat->dobj_719__SLABEL_BIND.obj_len = 4; /*inistring dstr_720__SLABEL_BIND*/ /*_.VALSTR___V792*/ meltfptr[791] = (melt_ptr_t) & cdat->dstr_720__SLABEL_BIND; cdat->dstr_720__SLABEL_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_720__SLABEL_BIND.val, "SLABEL_BIND", sizeof (cdat->dstr_720__SLABEL_BIND.val) - 1); /*iniobj dsym_721__CLASS_SOURCE_FOREVER*/ /*uniqueobj*/ if (! /*_.VALDATA___V796*/ meltfptr[795]) /*_.VALDATA___V796*/ meltfptr[795] = (melt_ptr_t) & cdat->dsym_721__CLASS_SOURCE_FOREVER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_721__CLASS_SOURCE_FOREVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_721__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_721__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_721__CLASS_SOURCE_FOREVER.obj_hash = 989441728; cdat->dsym_721__CLASS_SOURCE_FOREVER.obj_len = 3; /*inistring dstr_722__CLASS_SOURCE_FOR*/ /*_.VALSTR___V797*/ meltfptr[796] = (melt_ptr_t) & cdat->dstr_722__CLASS_SOURCE_FOR; cdat->dstr_722__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_722__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_722__CLASS_SOURCE_FOR. val) - 1); MELT_LOCATION ("warmelt-macro.melt:617:/ iniobj"); #line 617 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_723__CLASS_SOURCE_FOREVER*/ /*_.VALDATA___V798*/ meltfptr[797] = (melt_ptr_t) & cdat->dobj_723__CLASS_SOURCE_FOREVER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_723__CLASS_SOURCE_FOREVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_723__CLASS_SOURCE_FOREVER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_723__CLASS_SOURCE_FOREVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_hash = 1053546639; cdat->dobj_723__CLASS_SOURCE_FOREVER.obj_len = 8; /*inistring dstr_724__CLASS_SOURCE_FOR*/ /*_.VALSTR___V799*/ meltfptr[798] = (melt_ptr_t) & cdat->dstr_724__CLASS_SOURCE_FOR; cdat->dstr_724__CLASS_SOURCE_FOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_724__CLASS_SOURCE_FOR.val, "CLASS_SOURCE_FOREVER", sizeof (cdat->dstr_724__CLASS_SOURCE_FOR. val) - 1); /*inimult dtup_725__CLASS_SOURCE_FOREVER */ /*_.VALTUP___V800*/ meltfptr[799] = (melt_ptr_t) & cdat->dtup_725__CLASS_SOURCE_FOREVER; cdat->dtup_725__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_725__CLASS_SOURCE_FOREVER.nbval = 5; /*inimult dtup_726__CLASS_SOURCE_FOREVER */ /*_.VALTUP___V803*/ meltfptr[802] = (melt_ptr_t) & cdat->dtup_726__CLASS_SOURCE_FOREVER; cdat->dtup_726__CLASS_SOURCE_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_726__CLASS_SOURCE_FOREVER.nbval = 4; /*iniobj dsym_727__SFRV_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V804*/ meltfptr[803]) /*_.VALDATA___V804*/ meltfptr[803] = (melt_ptr_t) & cdat->dsym_727__SFRV_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_727__SFRV_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_727__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_727__SFRV_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_727__SFRV_BODY.obj_hash = 321317727; cdat->dsym_727__SFRV_BODY.obj_len = 3; /*inistring dstr_728__SFRV_BODY*/ /*_.VALSTR___V805*/ meltfptr[804] = (melt_ptr_t) & cdat->dstr_728__SFRV_BODY; cdat->dstr_728__SFRV_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_728__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_728__SFRV_BODY.val) - 1); /*^iniobj */ #line 617 /*iniobj dobj_729__SFRV_BODY*/ /*_.VALDATA___V801*/ meltfptr[800] = (melt_ptr_t) & cdat->dobj_729__SFRV_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_729__SFRV_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_729__SFRV_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_729__SFRV_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_729__SFRV_BODY.obj_num = 3; cdat->dobj_729__SFRV_BODY.obj_hash = 103524164; cdat->dobj_729__SFRV_BODY.obj_len = 4; /*inistring dstr_730__SFRV_BODY*/ /*_.VALSTR___V802*/ meltfptr[801] = (melt_ptr_t) & cdat->dstr_730__SFRV_BODY; cdat->dstr_730__SFRV_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_730__SFRV_BODY.val, "SFRV_BODY", sizeof (cdat->dstr_730__SFRV_BODY.val) - 1); /*iniobj dsym_731__CLASS_SOURCE_AGAIN*/ /*uniqueobj*/ if (! /*_.VALDATA___V806*/ meltfptr[805]) /*_.VALDATA___V806*/ meltfptr[805] = (melt_ptr_t) & cdat->dsym_731__CLASS_SOURCE_AGAIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_731__CLASS_SOURCE_AGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_731__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_731__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_731__CLASS_SOURCE_AGAIN.obj_hash = 533538030; cdat->dsym_731__CLASS_SOURCE_AGAIN.obj_len = 3; /*inistring dstr_732__CLASS_SOURCE_AGA*/ /*_.VALSTR___V807*/ meltfptr[806] = (melt_ptr_t) & cdat->dstr_732__CLASS_SOURCE_AGA; cdat->dstr_732__CLASS_SOURCE_AGA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_732__CLASS_SOURCE_AGA.val, "CLASS_SOURCE_AGAIN", sizeof (cdat->dstr_732__CLASS_SOURCE_AGA. val) - 1); MELT_LOCATION ("warmelt-macro.melt:625:/ iniobj"); #line 625 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_733__CLASS_SOURCE_AGAIN*/ /*_.VALDATA___V808*/ meltfptr[807] = (melt_ptr_t) & cdat->dobj_733__CLASS_SOURCE_AGAIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_733__CLASS_SOURCE_AGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_733__CLASS_SOURCE_AGAIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_733__CLASS_SOURCE_AGAIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_hash = 925136282; cdat->dobj_733__CLASS_SOURCE_AGAIN.obj_len = 8; /*inistring dstr_734__CLASS_SOURCE_AGA*/ /*_.VALSTR___V809*/ meltfptr[808] = (melt_ptr_t) & cdat->dstr_734__CLASS_SOURCE_AGA; cdat->dstr_734__CLASS_SOURCE_AGA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_734__CLASS_SOURCE_AGA.val, "CLASS_SOURCE_AGAIN", sizeof (cdat->dstr_734__CLASS_SOURCE_AGA. val) - 1); /*inimult dtup_735__CLASS_SOURCE_AGAIN */ /*_.VALTUP___V810*/ meltfptr[809] = (melt_ptr_t) & cdat->dtup_735__CLASS_SOURCE_AGAIN; cdat->dtup_735__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_735__CLASS_SOURCE_AGAIN.nbval = 5; /*inimult dtup_736__CLASS_SOURCE_AGAIN */ /*_.VALTUP___V811*/ meltfptr[810] = (melt_ptr_t) & cdat->dtup_736__CLASS_SOURCE_AGAIN; cdat->dtup_736__CLASS_SOURCE_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_736__CLASS_SOURCE_AGAIN.nbval = 3; /*iniobj dsym_737__CLASS_SOURCE_EXIT*/ /*uniqueobj*/ if (! /*_.VALDATA___V812*/ meltfptr[811]) /*_.VALDATA___V812*/ meltfptr[811] = (melt_ptr_t) & cdat->dsym_737__CLASS_SOURCE_EXIT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_737__CLASS_SOURCE_EXIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_737__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_737__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_737__CLASS_SOURCE_EXIT.obj_hash = 6060516; cdat->dsym_737__CLASS_SOURCE_EXIT.obj_len = 3; /*inistring dstr_738__CLASS_SOURCE_EXI*/ /*_.VALSTR___V813*/ meltfptr[812] = (melt_ptr_t) & cdat->dstr_738__CLASS_SOURCE_EXI; cdat->dstr_738__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_738__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_738__CLASS_SOURCE_EXI. val) - 1); MELT_LOCATION ("warmelt-macro.melt:632:/ iniobj"); #line 632 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_739__CLASS_SOURCE_EXIT*/ /*_.VALDATA___V814*/ meltfptr[813] = (melt_ptr_t) & cdat->dobj_739__CLASS_SOURCE_EXIT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_739__CLASS_SOURCE_EXIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_739__CLASS_SOURCE_EXIT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_739__CLASS_SOURCE_EXIT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_739__CLASS_SOURCE_EXIT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_739__CLASS_SOURCE_EXIT.obj_hash = 389147813; cdat->dobj_739__CLASS_SOURCE_EXIT.obj_len = 8; /*inistring dstr_740__CLASS_SOURCE_EXI*/ /*_.VALSTR___V815*/ meltfptr[814] = (melt_ptr_t) & cdat->dstr_740__CLASS_SOURCE_EXI; cdat->dstr_740__CLASS_SOURCE_EXI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_740__CLASS_SOURCE_EXI.val, "CLASS_SOURCE_EXIT", sizeof (cdat->dstr_740__CLASS_SOURCE_EXI. val) - 1); /*inimult dtup_741__CLASS_SOURCE_EXIT */ /*_.VALTUP___V816*/ meltfptr[815] = (melt_ptr_t) & cdat->dtup_741__CLASS_SOURCE_EXIT; cdat->dtup_741__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_741__CLASS_SOURCE_EXIT.nbval = 5; /*inimult dtup_742__CLASS_SOURCE_EXIT */ /*_.VALTUP___V819*/ meltfptr[818] = (melt_ptr_t) & cdat->dtup_742__CLASS_SOURCE_EXIT; cdat->dtup_742__CLASS_SOURCE_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_742__CLASS_SOURCE_EXIT.nbval = 4; /*iniobj dsym_743__SEXI_BODY*/ /*uniqueobj*/ if (! /*_.VALDATA___V820*/ meltfptr[819]) /*_.VALDATA___V820*/ meltfptr[819] = (melt_ptr_t) & cdat->dsym_743__SEXI_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_743__SEXI_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_743__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_743__SEXI_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_743__SEXI_BODY.obj_hash = 795764559; cdat->dsym_743__SEXI_BODY.obj_len = 3; /*inistring dstr_744__SEXI_BODY*/ /*_.VALSTR___V821*/ meltfptr[820] = (melt_ptr_t) & cdat->dstr_744__SEXI_BODY; cdat->dstr_744__SEXI_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_744__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_744__SEXI_BODY.val) - 1); /*^iniobj */ #line 632 /*iniobj dobj_745__SEXI_BODY*/ /*_.VALDATA___V817*/ meltfptr[816] = (melt_ptr_t) & cdat->dobj_745__SEXI_BODY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_745__SEXI_BODY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_745__SEXI_BODY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_745__SEXI_BODY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_745__SEXI_BODY.obj_num = 3; cdat->dobj_745__SEXI_BODY.obj_hash = 60447189; cdat->dobj_745__SEXI_BODY.obj_len = 4; /*inistring dstr_746__SEXI_BODY*/ /*_.VALSTR___V818*/ meltfptr[817] = (melt_ptr_t) & cdat->dstr_746__SEXI_BODY; cdat->dstr_746__SEXI_BODY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_746__SEXI_BODY.val, "SEXI_BODY", sizeof (cdat->dstr_746__SEXI_BODY.val) - 1); /*iniobj dsym_747__CLASS_SOURCE_COMPILEWARNING*/ /*uniqueobj*/ if (! /*_.VALDATA___V822*/ meltfptr[821]) /*_.VALDATA___V822*/ meltfptr[821] = (melt_ptr_t) & cdat->dsym_747__CLASS_SOURCE_COMPILEWARNING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_747__CLASS_SOURCE_COMPILEWARNING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_747__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_747__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_747__CLASS_SOURCE_COMPILEWARNING.obj_hash = 32120446; cdat->dsym_747__CLASS_SOURCE_COMPILEWARNING.obj_len = 3; /*inistring dstr_748__CLASS_SOURCE_COM*/ /*_.VALSTR___V823*/ meltfptr[822] = (melt_ptr_t) & cdat->dstr_748__CLASS_SOURCE_COM; cdat->dstr_748__CLASS_SOURCE_COM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_748__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_748__CLASS_SOURCE_COM. val) - 1); MELT_LOCATION ("warmelt-macro.melt:641:/ iniobj"); #line 641 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_749__CLASS_SOURCE_COMPILEWARNING*/ /*_.VALDATA___V824*/ meltfptr[823] = (melt_ptr_t) & cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_749__CLASS_SOURCE_COMPILEWARNING", 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_749__CLASS_SOURCE_COMPILEWARNING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_num = MELTOBMAG_OBJECT; cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_hash = 653024069; cdat->dobj_749__CLASS_SOURCE_COMPILEWARNING.obj_len = 8; /*inistring dstr_750__CLASS_SOURCE_COM*/ /*_.VALSTR___V825*/ meltfptr[824] = (melt_ptr_t) & cdat->dstr_750__CLASS_SOURCE_COM; cdat->dstr_750__CLASS_SOURCE_COM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_750__CLASS_SOURCE_COM.val, "CLASS_SOURCE_COMPILEWARNING", sizeof (cdat->dstr_750__CLASS_SOURCE_COM. val) - 1); /*inimult dtup_751__CLASS_SOURCE_COMPILEWARNING */ /*_.VALTUP___V826*/ meltfptr[825] = (melt_ptr_t) & cdat->dtup_751__CLASS_SOURCE_COMPILEWARNING; cdat->dtup_751__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_751__CLASS_SOURCE_COMPILEWARNING.nbval = 4; /*inimult dtup_752__CLASS_SOURCE_COMPILEWARNING */ /*_.VALTUP___V831*/ meltfptr[830] = (melt_ptr_t) & cdat->dtup_752__CLASS_SOURCE_COMPILEWARNING; cdat->dtup_752__CLASS_SOURCE_COMPILEWARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_752__CLASS_SOURCE_COMPILEWARNING.nbval = 4; /*iniobj dsym_753__SCWARN_MSG*/ /*uniqueobj*/ if (! /*_.VALDATA___V832*/ meltfptr[831]) /*_.VALDATA___V832*/ meltfptr[831] = (melt_ptr_t) & cdat->dsym_753__SCWARN_MSG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_753__SCWARN_MSG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_753__SCWARN_MSG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_753__SCWARN_MSG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_753__SCWARN_MSG.obj_hash = 98598467; cdat->dsym_753__SCWARN_MSG.obj_len = 3; /*inistring dstr_754__SCWARN_MSG*/ /*_.VALSTR___V833*/ meltfptr[832] = (melt_ptr_t) & cdat->dstr_754__SCWARN_MSG; cdat->dstr_754__SCWARN_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_754__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_754__SCWARN_MSG.val) - 1); /*^iniobj */ #line 641 /*iniobj dobj_755__SCWARN_MSG*/ /*_.VALDATA___V827*/ meltfptr[826] = (melt_ptr_t) & cdat->dobj_755__SCWARN_MSG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_755__SCWARN_MSG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_755__SCWARN_MSG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_755__SCWARN_MSG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_755__SCWARN_MSG.obj_num = 2; cdat->dobj_755__SCWARN_MSG.obj_hash = 434889911; cdat->dobj_755__SCWARN_MSG.obj_len = 4; /*inistring dstr_756__SCWARN_MSG*/ /*_.VALSTR___V828*/ meltfptr[827] = (melt_ptr_t) & cdat->dstr_756__SCWARN_MSG; cdat->dstr_756__SCWARN_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_756__SCWARN_MSG.val, "SCWARN_MSG", sizeof (cdat->dstr_756__SCWARN_MSG.val) - 1); /*iniobj dsym_757__SCWARN_EXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V834*/ meltfptr[833]) /*_.VALDATA___V834*/ meltfptr[833] = (melt_ptr_t) & cdat->dsym_757__SCWARN_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_757__SCWARN_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_757__SCWARN_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_757__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_757__SCWARN_EXPR.obj_hash = 375567380; cdat->dsym_757__SCWARN_EXPR.obj_len = 3; /*inistring dstr_758__SCWARN_EXPR*/ /*_.VALSTR___V835*/ meltfptr[834] = (melt_ptr_t) & cdat->dstr_758__SCWARN_EXPR; cdat->dstr_758__SCWARN_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_758__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_758__SCWARN_EXPR.val) - 1); /*^iniobj */ #line 641 /*iniobj dobj_759__SCWARN_EXPR*/ /*_.VALDATA___V829*/ meltfptr[828] = (melt_ptr_t) & cdat->dobj_759__SCWARN_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_759__SCWARN_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_759__SCWARN_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_759__SCWARN_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_759__SCWARN_EXPR.obj_num = 3; cdat->dobj_759__SCWARN_EXPR.obj_hash = 245797350; cdat->dobj_759__SCWARN_EXPR.obj_len = 4; /*inistring dstr_760__SCWARN_EXPR*/ /*_.VALSTR___V830*/ meltfptr[829] = (melt_ptr_t) & cdat->dstr_760__SCWARN_EXPR; cdat->dstr_760__SCWARN_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_760__SCWARN_EXPR.val, "SCWARN_EXPR", sizeof (cdat->dstr_760__SCWARN_EXPR.val) - 1); /*iniobj dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V836*/ meltfptr[835]) /*_.VALDATA___V836*/ meltfptr[835] = (melt_ptr_t) & cdat-> dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 483365704; cdat->dsym_761__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_762__CLASS_SOURCE_CUR*/ /*_.VALSTR___V837*/ meltfptr[836] = (melt_ptr_t) & cdat->dstr_762__CLASS_SOURCE_CUR; cdat->dstr_762__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_762__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_762__CLASS_SOURCE_CUR. val) - 1); MELT_LOCATION ("warmelt-macro.melt:648:/ iniobj"); #line 648 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALDATA___V838*/ meltfptr[837] = (melt_ptr_t) & cdat-> dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", 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_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 673551283; cdat->dobj_763__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 8; /*inistring dstr_764__CLASS_SOURCE_CUR*/ /*_.VALSTR___V839*/ meltfptr[838] = (melt_ptr_t) & cdat->dstr_764__CLASS_SOURCE_CUR; cdat->dstr_764__CLASS_SOURCE_CUR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_764__CLASS_SOURCE_CUR.val, "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_764__CLASS_SOURCE_CUR. val) - 1); /*inimult dtup_765__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALTUP___V840*/ meltfptr[839] = (melt_ptr_t) & cdat-> dtup_765__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_765__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_765__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; /*inimult dtup_766__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALTUP___V843*/ meltfptr[842] = (melt_ptr_t) & cdat-> dtup_766__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_766__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_766__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; /*iniobj dsym_767__CMEC_COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V844*/ meltfptr[843]) /*_.VALDATA___V844*/ meltfptr[843] = (melt_ptr_t) & cdat->dsym_767__CMEC_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_767__CMEC_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_767__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_767__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_767__CMEC_COMMENT.obj_hash = 809800780; cdat->dsym_767__CMEC_COMMENT.obj_len = 3; /*inistring dstr_768__CMEC_COMMENT*/ /*_.VALSTR___V845*/ meltfptr[844] = (melt_ptr_t) & cdat->dstr_768__CMEC_COMMENT; cdat->dstr_768__CMEC_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_768__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_768__CMEC_COMMENT.val) - 1); /*^iniobj */ #line 648 /*iniobj dobj_769__CMEC_COMMENT*/ /*_.VALDATA___V841*/ meltfptr[840] = (melt_ptr_t) & cdat->dobj_769__CMEC_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_769__CMEC_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_769__CMEC_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_769__CMEC_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_769__CMEC_COMMENT.obj_num = 2; cdat->dobj_769__CMEC_COMMENT.obj_hash = 754982968; cdat->dobj_769__CMEC_COMMENT.obj_len = 4; /*inistring dstr_770__CMEC_COMMENT*/ /*_.VALSTR___V842*/ meltfptr[841] = (melt_ptr_t) & cdat->dstr_770__CMEC_COMMENT; cdat->dstr_770__CMEC_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_770__CMEC_COMMENT.val, "CMEC_COMMENT", sizeof (cdat->dstr_770__CMEC_COMMENT.val) - 1); /*iniobj dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V846*/ meltfptr[845]) /*_.VALDATA___V846*/ meltfptr[845] = (melt_ptr_t) & cdat->dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 201468317; cdat->dsym_771__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 3; /*inistring dstr_772__CLASS_SOURCE_PAR*/ /*_.VALSTR___V847*/ meltfptr[846] = (melt_ptr_t) & cdat->dstr_772__CLASS_SOURCE_PAR; cdat->dstr_772__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_772__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_772__CLASS_SOURCE_PAR. val) - 1); MELT_LOCATION ("warmelt-macro.melt:656:/ iniobj"); #line 656 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ /*_.VALDATA___V848*/ meltfptr[847] = (melt_ptr_t) & cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_hash = 1044282313; cdat->dobj_773__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.obj_len = 8; /*inistring dstr_774__CLASS_SOURCE_PAR*/ /*_.VALSTR___V849*/ meltfptr[848] = (melt_ptr_t) & cdat->dstr_774__CLASS_SOURCE_PAR; cdat->dstr_774__CLASS_SOURCE_PAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_774__CLASS_SOURCE_PAR.val, "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_774__CLASS_SOURCE_PAR. val) - 1); /*inimult dtup_775__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ /*_.VALTUP___V850*/ meltfptr[849] = (melt_ptr_t) & cdat->dtup_775__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; cdat->dtup_775__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_775__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 4; /*inimult dtup_776__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ /*_.VALTUP___V851*/ meltfptr[850] = (melt_ptr_t) & cdat->dtup_776__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; cdat->dtup_776__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_776__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT.nbval = 2; /*iniobj dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V852*/ meltfptr[851]) /*_.VALDATA___V852*/ meltfptr[851] = (melt_ptr_t) & cdat-> dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_hash = 670629834; cdat->dsym_777__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_len = 3; /*inistring dstr_778__CLASS_SOURCE_UPD*/ /*_.VALSTR___V853*/ meltfptr[852] = (melt_ptr_t) & cdat->dstr_778__CLASS_SOURCE_UPD; cdat->dstr_778__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_778__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_778__CLASS_SOURCE_UPD. val) - 1); MELT_LOCATION ("warmelt-macro.melt:664:/ iniobj"); #line 664 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALDATA___V854*/ meltfptr[853] = (melt_ptr_t) & cdat-> dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_num = MELTOBMAG_OBJECT; cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_hash = 663309937; cdat->dobj_779__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. obj_len = 8; /*inistring dstr_780__CLASS_SOURCE_UPD*/ /*_.VALSTR___V855*/ meltfptr[854] = (melt_ptr_t) & cdat->dstr_780__CLASS_SOURCE_UPD; cdat->dstr_780__CLASS_SOURCE_UPD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_780__CLASS_SOURCE_UPD.val, "CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_780__CLASS_SOURCE_UPD. val) - 1); /*inimult dtup_781__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALTUP___V856*/ meltfptr[855] = (melt_ptr_t) & cdat-> dtup_781__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_781__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_781__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. nbval = 4; /*inimult dtup_782__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALTUP___V859*/ meltfptr[858] = (melt_ptr_t) & cdat-> dtup_782__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_782__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_782__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. nbval = 3; /*iniobj dsym_783__SUCME_COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V860*/ meltfptr[859]) /*_.VALDATA___V860*/ meltfptr[859] = (melt_ptr_t) & cdat->dsym_783__SUCME_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_783__SUCME_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_783__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_783__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_783__SUCME_COMMENT.obj_hash = 214159674; cdat->dsym_783__SUCME_COMMENT.obj_len = 3; /*inistring dstr_784__SUCME_COMMENT*/ /*_.VALSTR___V861*/ meltfptr[860] = (melt_ptr_t) & cdat->dstr_784__SUCME_COMMENT; cdat->dstr_784__SUCME_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_784__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_784__SUCME_COMMENT.val) - 1); /*^iniobj */ #line 664 /*iniobj dobj_785__SUCME_COMMENT*/ /*_.VALDATA___V857*/ meltfptr[856] = (melt_ptr_t) & cdat->dobj_785__SUCME_COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_785__SUCME_COMMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_785__SUCME_COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_785__SUCME_COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_785__SUCME_COMMENT.obj_num = 2; cdat->dobj_785__SUCME_COMMENT.obj_hash = 273196065; cdat->dobj_785__SUCME_COMMENT.obj_len = 4; /*inistring dstr_786__SUCME_COMMENT*/ /*_.VALSTR___V858*/ meltfptr[857] = (melt_ptr_t) & cdat->dstr_786__SUCME_COMMENT; cdat->dstr_786__SUCME_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_786__SUCME_COMMENT.val, "SUCME_COMMENT", sizeof (cdat->dstr_786__SUCME_COMMENT.val) - 1); /*iniobj dsym_787__CLASS_SOURCE_FETCH_PREDEFINED*/ /*uniqueobj*/ if (! /*_.VALDATA___V862*/ meltfptr[861]) /*_.VALDATA___V862*/ meltfptr[861] = (melt_ptr_t) & cdat->dsym_787__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_787__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_787__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_787__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_787__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 327938903; cdat->dsym_787__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 3; /*inistring dstr_788__CLASS_SOURCE_FET*/ /*_.VALSTR___V863*/ meltfptr[862] = (melt_ptr_t) & cdat->dstr_788__CLASS_SOURCE_FET; cdat->dstr_788__CLASS_SOURCE_FET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_788__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_788__CLASS_SOURCE_FET. val) - 1); MELT_LOCATION ("warmelt-macro.melt:673:/ iniobj"); #line 673 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_789__CLASS_SOURCE_FETCH_PREDEFINED*/ /*_.VALDATA___V864*/ meltfptr[863] = (melt_ptr_t) & cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_789__CLASS_SOURCE_FETCH_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_789__CLASS_SOURCE_FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_num = MELTOBMAG_OBJECT; cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_hash = 864990501; cdat->dobj_789__CLASS_SOURCE_FETCH_PREDEFINED.obj_len = 8; /*inistring dstr_790__CLASS_SOURCE_FET*/ /*_.VALSTR___V865*/ meltfptr[864] = (melt_ptr_t) & cdat->dstr_790__CLASS_SOURCE_FET; cdat->dstr_790__CLASS_SOURCE_FET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_790__CLASS_SOURCE_FET.val, "CLASS_SOURCE_FETCH_PREDEFINED", sizeof (cdat->dstr_790__CLASS_SOURCE_FET. val) - 1); /*inimult dtup_791__CLASS_SOURCE_FETCH_PREDEFINED */ /*_.VALTUP___V866*/ meltfptr[865] = (melt_ptr_t) & cdat->dtup_791__CLASS_SOURCE_FETCH_PREDEFINED; cdat->dtup_791__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_791__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 4; /*inimult dtup_792__CLASS_SOURCE_FETCH_PREDEFINED */ /*_.VALTUP___V869*/ meltfptr[868] = (melt_ptr_t) & cdat->dtup_792__CLASS_SOURCE_FETCH_PREDEFINED; cdat->dtup_792__CLASS_SOURCE_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_792__CLASS_SOURCE_FETCH_PREDEFINED.nbval = 3; /*iniobj dsym_793__SFEPD_PREDEF*/ /*uniqueobj*/ if (! /*_.VALDATA___V870*/ meltfptr[869]) /*_.VALDATA___V870*/ meltfptr[869] = (melt_ptr_t) & cdat->dsym_793__SFEPD_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_793__SFEPD_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_793__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_793__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_793__SFEPD_PREDEF.obj_hash = 1070703811; cdat->dsym_793__SFEPD_PREDEF.obj_len = 3; /*inistring dstr_794__SFEPD_PREDEF*/ /*_.VALSTR___V871*/ meltfptr[870] = (melt_ptr_t) & cdat->dstr_794__SFEPD_PREDEF; cdat->dstr_794__SFEPD_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_794__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_794__SFEPD_PREDEF.val) - 1); /*^iniobj */ #line 673 /*iniobj dobj_795__SFEPD_PREDEF*/ /*_.VALDATA___V867*/ meltfptr[866] = (melt_ptr_t) & cdat->dobj_795__SFEPD_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_795__SFEPD_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_795__SFEPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_795__SFEPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_795__SFEPD_PREDEF.obj_num = 2; cdat->dobj_795__SFEPD_PREDEF.obj_hash = 642025987; cdat->dobj_795__SFEPD_PREDEF.obj_len = 4; /*inistring dstr_796__SFEPD_PREDEF*/ /*_.VALSTR___V868*/ meltfptr[867] = (melt_ptr_t) & cdat->dstr_796__SFEPD_PREDEF; cdat->dstr_796__SFEPD_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_796__SFEPD_PREDEF.val, "SFEPD_PREDEF", sizeof (cdat->dstr_796__SFEPD_PREDEF.val) - 1); /*iniobj dsym_797__CLASS_SOURCE_STORE_PREDEFINED*/ /*uniqueobj*/ if (! /*_.VALDATA___V872*/ meltfptr[871]) /*_.VALDATA___V872*/ meltfptr[871] = (melt_ptr_t) & cdat->dsym_797__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_797__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_797__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_797__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_797__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 756622417; cdat->dsym_797__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 3; /*inistring dstr_798__CLASS_SOURCE_STO*/ /*_.VALSTR___V873*/ meltfptr[872] = (melt_ptr_t) & cdat->dstr_798__CLASS_SOURCE_STO; cdat->dstr_798__CLASS_SOURCE_STO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_798__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_798__CLASS_SOURCE_STO. val) - 1); MELT_LOCATION ("warmelt-macro.melt:679:/ iniobj"); #line 679 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_799__CLASS_SOURCE_STORE_PREDEFINED*/ /*_.VALDATA___V874*/ meltfptr[873] = (melt_ptr_t) & cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_799__CLASS_SOURCE_STORE_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_799__CLASS_SOURCE_STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_num = MELTOBMAG_OBJECT; cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_hash = 335013257; cdat->dobj_799__CLASS_SOURCE_STORE_PREDEFINED.obj_len = 8; /*inistring dstr_800__CLASS_SOURCE_STO*/ /*_.VALSTR___V875*/ meltfptr[874] = (melt_ptr_t) & cdat->dstr_800__CLASS_SOURCE_STO; cdat->dstr_800__CLASS_SOURCE_STO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_800__CLASS_SOURCE_STO.val, "CLASS_SOURCE_STORE_PREDEFINED", sizeof (cdat->dstr_800__CLASS_SOURCE_STO. val) - 1); /*inimult dtup_801__CLASS_SOURCE_STORE_PREDEFINED */ /*_.VALTUP___V876*/ meltfptr[875] = (melt_ptr_t) & cdat->dtup_801__CLASS_SOURCE_STORE_PREDEFINED; cdat->dtup_801__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_801__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*inimult dtup_802__CLASS_SOURCE_STORE_PREDEFINED */ /*_.VALTUP___V881*/ meltfptr[880] = (melt_ptr_t) & cdat->dtup_802__CLASS_SOURCE_STORE_PREDEFINED; cdat->dtup_802__CLASS_SOURCE_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_802__CLASS_SOURCE_STORE_PREDEFINED.nbval = 4; /*iniobj dsym_803__SSTPD_PREDEF*/ /*uniqueobj*/ if (! /*_.VALDATA___V882*/ meltfptr[881]) /*_.VALDATA___V882*/ meltfptr[881] = (melt_ptr_t) & cdat->dsym_803__SSTPD_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_803__SSTPD_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_803__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_803__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_803__SSTPD_PREDEF.obj_hash = 43999277; cdat->dsym_803__SSTPD_PREDEF.obj_len = 3; /*inistring dstr_804__SSTPD_PREDEF*/ /*_.VALSTR___V883*/ meltfptr[882] = (melt_ptr_t) & cdat->dstr_804__SSTPD_PREDEF; cdat->dstr_804__SSTPD_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_804__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_804__SSTPD_PREDEF.val) - 1); /*^iniobj */ #line 679 /*iniobj dobj_805__SSTPD_PREDEF*/ /*_.VALDATA___V877*/ meltfptr[876] = (melt_ptr_t) & cdat->dobj_805__SSTPD_PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_805__SSTPD_PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_805__SSTPD_PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_805__SSTPD_PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_805__SSTPD_PREDEF.obj_num = 2; cdat->dobj_805__SSTPD_PREDEF.obj_hash = 397635936; cdat->dobj_805__SSTPD_PREDEF.obj_len = 4; /*inistring dstr_806__SSTPD_PREDEF*/ /*_.VALSTR___V878*/ meltfptr[877] = (melt_ptr_t) & cdat->dstr_806__SSTPD_PREDEF; cdat->dstr_806__SSTPD_PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_806__SSTPD_PREDEF.val, "SSTPD_PREDEF", sizeof (cdat->dstr_806__SSTPD_PREDEF.val) - 1); /*iniobj dsym_807__SSTPD_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V884*/ meltfptr[883]) /*_.VALDATA___V884*/ meltfptr[883] = (melt_ptr_t) & cdat->dsym_807__SSTPD_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_807__SSTPD_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_807__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_807__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_807__SSTPD_VALUE.obj_hash = 43381534; cdat->dsym_807__SSTPD_VALUE.obj_len = 3; /*inistring dstr_808__SSTPD_VALUE*/ /*_.VALSTR___V885*/ meltfptr[884] = (melt_ptr_t) & cdat->dstr_808__SSTPD_VALUE; cdat->dstr_808__SSTPD_VALUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_808__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_808__SSTPD_VALUE.val) - 1); /*^iniobj */ #line 679 /*iniobj dobj_809__SSTPD_VALUE*/ /*_.VALDATA___V879*/ meltfptr[878] = (melt_ptr_t) & cdat->dobj_809__SSTPD_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_809__SSTPD_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_809__SSTPD_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_809__SSTPD_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_809__SSTPD_VALUE.obj_num = 3; cdat->dobj_809__SSTPD_VALUE.obj_hash = 517160963; cdat->dobj_809__SSTPD_VALUE.obj_len = 4; /*inistring dstr_810__SSTPD_VALUE*/ /*_.VALSTR___V880*/ meltfptr[879] = (melt_ptr_t) & cdat->dstr_810__SSTPD_VALUE; cdat->dstr_810__SSTPD_VALUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_810__SSTPD_VALUE.val, "SSTPD_VALUE", sizeof (cdat->dstr_810__SSTPD_VALUE.val) - 1); /*iniobj dsym_811__CLASS_SOURCE_CODECHUNK*/ /*uniqueobj*/ if (! /*_.VALDATA___V886*/ meltfptr[885]) /*_.VALDATA___V886*/ meltfptr[885] = (melt_ptr_t) & cdat->dsym_811__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_811__CLASS_SOURCE_CODECHUNK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_811__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_811__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_811__CLASS_SOURCE_CODECHUNK.obj_hash = 935873793; cdat->dsym_811__CLASS_SOURCE_CODECHUNK.obj_len = 3; /*inistring dstr_812__CLASS_SOURCE_COD*/ /*_.VALSTR___V887*/ meltfptr[886] = (melt_ptr_t) & cdat->dstr_812__CLASS_SOURCE_COD; cdat->dstr_812__CLASS_SOURCE_COD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_812__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_812__CLASS_SOURCE_COD. val) - 1); MELT_LOCATION ("warmelt-macro.melt:687:/ iniobj"); #line 687 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_813__CLASS_SOURCE_CODECHUNK*/ /*_.VALDATA___V888*/ meltfptr[887] = (melt_ptr_t) & cdat->dobj_813__CLASS_SOURCE_CODECHUNK; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_813__CLASS_SOURCE_CODECHUNK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_813__CLASS_SOURCE_CODECHUNK", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_813__CLASS_SOURCE_CODECHUNK.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_num = MELTOBMAG_OBJECT; cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_hash = 419700940; cdat->dobj_813__CLASS_SOURCE_CODECHUNK.obj_len = 8; /*inistring dstr_814__CLASS_SOURCE_COD*/ /*_.VALSTR___V889*/ meltfptr[888] = (melt_ptr_t) & cdat->dstr_814__CLASS_SOURCE_COD; cdat->dstr_814__CLASS_SOURCE_COD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_814__CLASS_SOURCE_COD.val, "CLASS_SOURCE_CODECHUNK", sizeof (cdat->dstr_814__CLASS_SOURCE_COD. val) - 1); /*inimult dtup_815__CLASS_SOURCE_CODECHUNK */ /*_.VALTUP___V890*/ meltfptr[889] = (melt_ptr_t) & cdat->dtup_815__CLASS_SOURCE_CODECHUNK; cdat->dtup_815__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_815__CLASS_SOURCE_CODECHUNK.nbval = 4; /*inimult dtup_816__CLASS_SOURCE_CODECHUNK */ /*_.VALTUP___V895*/ meltfptr[894] = (melt_ptr_t) & cdat->dtup_816__CLASS_SOURCE_CODECHUNK; cdat->dtup_816__CLASS_SOURCE_CODECHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_816__CLASS_SOURCE_CODECHUNK.nbval = 4; /*iniobj dsym_817__SCH_GENSYM*/ /*uniqueobj*/ if (! /*_.VALDATA___V896*/ meltfptr[895]) /*_.VALDATA___V896*/ meltfptr[895] = (melt_ptr_t) & cdat->dsym_817__SCH_GENSYM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_817__SCH_GENSYM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_817__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_817__SCH_GENSYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_817__SCH_GENSYM.obj_hash = 975191019; cdat->dsym_817__SCH_GENSYM.obj_len = 3; /*inistring dstr_818__SCH_GENSYM*/ /*_.VALSTR___V897*/ meltfptr[896] = (melt_ptr_t) & cdat->dstr_818__SCH_GENSYM; cdat->dstr_818__SCH_GENSYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_818__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_818__SCH_GENSYM.val) - 1); /*^iniobj */ #line 687 /*iniobj dobj_819__SCH_GENSYM*/ /*_.VALDATA___V891*/ meltfptr[890] = (melt_ptr_t) & cdat->dobj_819__SCH_GENSYM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_819__SCH_GENSYM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_819__SCH_GENSYM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_819__SCH_GENSYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_819__SCH_GENSYM.obj_num = 2; cdat->dobj_819__SCH_GENSYM.obj_hash = 929018972; cdat->dobj_819__SCH_GENSYM.obj_len = 4; /*inistring dstr_820__SCH_GENSYM*/ /*_.VALSTR___V892*/ meltfptr[891] = (melt_ptr_t) & cdat->dstr_820__SCH_GENSYM; cdat->dstr_820__SCH_GENSYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_820__SCH_GENSYM.val, "SCH_GENSYM", sizeof (cdat->dstr_820__SCH_GENSYM.val) - 1); /*iniobj dsym_821__SCH_CHUNKS*/ /*uniqueobj*/ if (! /*_.VALDATA___V898*/ meltfptr[897]) /*_.VALDATA___V898*/ meltfptr[897] = (melt_ptr_t) & cdat->dsym_821__SCH_CHUNKS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_821__SCH_CHUNKS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_821__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_821__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_821__SCH_CHUNKS.obj_hash = 1040785972; cdat->dsym_821__SCH_CHUNKS.obj_len = 3; /*inistring dstr_822__SCH_CHUNKS*/ /*_.VALSTR___V899*/ meltfptr[898] = (melt_ptr_t) & cdat->dstr_822__SCH_CHUNKS; cdat->dstr_822__SCH_CHUNKS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_822__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_822__SCH_CHUNKS.val) - 1); /*^iniobj */ #line 687 /*iniobj dobj_823__SCH_CHUNKS*/ /*_.VALDATA___V893*/ meltfptr[892] = (melt_ptr_t) & cdat->dobj_823__SCH_CHUNKS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_823__SCH_CHUNKS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_823__SCH_CHUNKS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_823__SCH_CHUNKS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_823__SCH_CHUNKS.obj_num = 3; cdat->dobj_823__SCH_CHUNKS.obj_hash = 152182004; cdat->dobj_823__SCH_CHUNKS.obj_len = 4; /*inistring dstr_824__SCH_CHUNKS*/ /*_.VALSTR___V894*/ meltfptr[893] = (melt_ptr_t) & cdat->dstr_824__SCH_CHUNKS; cdat->dstr_824__SCH_CHUNKS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_824__SCH_CHUNKS.val, "SCH_CHUNKS", sizeof (cdat->dstr_824__SCH_CHUNKS.val) - 1); /*iniobj dsym_825__CLASS_SOURCE_PATTERN*/ /*uniqueobj*/ if (! /*_.VALDATA___V900*/ meltfptr[899]) /*_.VALDATA___V900*/ meltfptr[899] = (melt_ptr_t) & cdat->dsym_825__CLASS_SOURCE_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_825__CLASS_SOURCE_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_825__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_825__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_825__CLASS_SOURCE_PATTERN.obj_hash = 661483135; cdat->dsym_825__CLASS_SOURCE_PATTERN.obj_len = 3; /*inistring dstr_826__CLASS_SOURCE_PAT*/ /*_.VALSTR___V901*/ meltfptr[900] = (melt_ptr_t) & cdat->dstr_826__CLASS_SOURCE_PAT; cdat->dstr_826__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_826__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_826__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:695:/ iniobj"); #line 695 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_827__CLASS_SOURCE_PATTERN*/ /*_.VALDATA___V902*/ meltfptr[901] = (melt_ptr_t) & cdat->dobj_827__CLASS_SOURCE_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_827__CLASS_SOURCE_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_827__CLASS_SOURCE_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_827__CLASS_SOURCE_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_hash = 314421588; cdat->dobj_827__CLASS_SOURCE_PATTERN.obj_len = 8; /*inistring dstr_828__CLASS_SOURCE_PAT*/ /*_.VALSTR___V903*/ meltfptr[902] = (melt_ptr_t) & cdat->dstr_828__CLASS_SOURCE_PAT; cdat->dstr_828__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_828__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN", sizeof (cdat->dstr_828__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_829__CLASS_SOURCE_PATTERN */ /*_.VALTUP___V904*/ meltfptr[903] = (melt_ptr_t) & cdat->dtup_829__CLASS_SOURCE_PATTERN; cdat->dtup_829__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_829__CLASS_SOURCE_PATTERN.nbval = 4; /*inimult dtup_830__CLASS_SOURCE_PATTERN */ /*_.VALTUP___V907*/ meltfptr[906] = (melt_ptr_t) & cdat->dtup_830__CLASS_SOURCE_PATTERN; cdat->dtup_830__CLASS_SOURCE_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_830__CLASS_SOURCE_PATTERN.nbval = 3; /*iniobj dsym_831__PAT_WEIGHT*/ /*uniqueobj*/ if (! /*_.VALDATA___V908*/ meltfptr[907]) /*_.VALDATA___V908*/ meltfptr[907] = (melt_ptr_t) & cdat->dsym_831__PAT_WEIGHT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_831__PAT_WEIGHT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_831__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_831__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_831__PAT_WEIGHT.obj_hash = 779594405; cdat->dsym_831__PAT_WEIGHT.obj_len = 3; /*inistring dstr_832__PAT_WEIGHT*/ /*_.VALSTR___V909*/ meltfptr[908] = (melt_ptr_t) & cdat->dstr_832__PAT_WEIGHT; cdat->dstr_832__PAT_WEIGHT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_832__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_832__PAT_WEIGHT.val) - 1); /*^iniobj */ #line 695 /*iniobj dobj_833__PAT_WEIGHT*/ /*_.VALDATA___V905*/ meltfptr[904] = (melt_ptr_t) & cdat->dobj_833__PAT_WEIGHT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_833__PAT_WEIGHT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_833__PAT_WEIGHT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_833__PAT_WEIGHT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_833__PAT_WEIGHT.obj_num = 2; cdat->dobj_833__PAT_WEIGHT.obj_hash = 693971034; cdat->dobj_833__PAT_WEIGHT.obj_len = 4; /*inistring dstr_834__PAT_WEIGHT*/ /*_.VALSTR___V906*/ meltfptr[905] = (melt_ptr_t) & cdat->dstr_834__PAT_WEIGHT; cdat->dstr_834__PAT_WEIGHT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_834__PAT_WEIGHT.val, "PAT_WEIGHT", sizeof (cdat->dstr_834__PAT_WEIGHT.val) - 1); /*iniobj dsym_835__CLASS_SOURCE_PATTERN_OR*/ /*uniqueobj*/ if (! /*_.VALDATA___V910*/ meltfptr[909]) /*_.VALDATA___V910*/ meltfptr[909] = (melt_ptr_t) & cdat->dsym_835__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_835__CLASS_SOURCE_PATTERN_OR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_835__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_835__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_835__CLASS_SOURCE_PATTERN_OR.obj_hash = 982854125; cdat->dsym_835__CLASS_SOURCE_PATTERN_OR.obj_len = 3; /*inistring dstr_836__CLASS_SOURCE_PAT*/ /*_.VALSTR___V911*/ meltfptr[910] = (melt_ptr_t) & cdat->dstr_836__CLASS_SOURCE_PAT; cdat->dstr_836__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_836__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_836__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:704:/ iniobj"); #line 704 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_837__CLASS_SOURCE_PATTERN_OR*/ /*_.VALDATA___V912*/ meltfptr[911] = (melt_ptr_t) & cdat->dobj_837__CLASS_SOURCE_PATTERN_OR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_837__CLASS_SOURCE_PATTERN_OR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_837__CLASS_SOURCE_PATTERN_OR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_num = MELTOBMAG_OBJECT; cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_hash = 10518410; cdat->dobj_837__CLASS_SOURCE_PATTERN_OR.obj_len = 8; /*inistring dstr_838__CLASS_SOURCE_PAT*/ /*_.VALSTR___V913*/ meltfptr[912] = (melt_ptr_t) & cdat->dstr_838__CLASS_SOURCE_PAT; cdat->dstr_838__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_838__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OR", sizeof (cdat->dstr_838__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_839__CLASS_SOURCE_PATTERN_OR */ /*_.VALTUP___V914*/ meltfptr[913] = (melt_ptr_t) & cdat->dtup_839__CLASS_SOURCE_PATTERN_OR; cdat->dtup_839__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_839__CLASS_SOURCE_PATTERN_OR.nbval = 5; /*inimult dtup_840__CLASS_SOURCE_PATTERN_OR */ /*_.VALTUP___V917*/ meltfptr[916] = (melt_ptr_t) & cdat->dtup_840__CLASS_SOURCE_PATTERN_OR; cdat->dtup_840__CLASS_SOURCE_PATTERN_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_840__CLASS_SOURCE_PATTERN_OR.nbval = 4; /*iniobj dsym_841__ORPAT_DISJ*/ /*uniqueobj*/ if (! /*_.VALDATA___V918*/ meltfptr[917]) /*_.VALDATA___V918*/ meltfptr[917] = (melt_ptr_t) & cdat->dsym_841__ORPAT_DISJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_841__ORPAT_DISJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_841__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_841__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_841__ORPAT_DISJ.obj_hash = 216093398; cdat->dsym_841__ORPAT_DISJ.obj_len = 3; /*inistring dstr_842__ORPAT_DISJ*/ /*_.VALSTR___V919*/ meltfptr[918] = (melt_ptr_t) & cdat->dstr_842__ORPAT_DISJ; cdat->dstr_842__ORPAT_DISJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_842__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_842__ORPAT_DISJ.val) - 1); /*^iniobj */ #line 704 /*iniobj dobj_843__ORPAT_DISJ*/ /*_.VALDATA___V915*/ meltfptr[914] = (melt_ptr_t) & cdat->dobj_843__ORPAT_DISJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_843__ORPAT_DISJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_843__ORPAT_DISJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_843__ORPAT_DISJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_843__ORPAT_DISJ.obj_num = 3; cdat->dobj_843__ORPAT_DISJ.obj_hash = 644792658; cdat->dobj_843__ORPAT_DISJ.obj_len = 4; /*inistring dstr_844__ORPAT_DISJ*/ /*_.VALSTR___V916*/ meltfptr[915] = (melt_ptr_t) & cdat->dstr_844__ORPAT_DISJ; cdat->dstr_844__ORPAT_DISJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_844__ORPAT_DISJ.val, "ORPAT_DISJ", sizeof (cdat->dstr_844__ORPAT_DISJ.val) - 1); /*iniobj dsym_845__CLASS_SOURCE_PATTERN_AND*/ /*uniqueobj*/ if (! /*_.VALDATA___V920*/ meltfptr[919]) /*_.VALDATA___V920*/ meltfptr[919] = (melt_ptr_t) & cdat->dsym_845__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_845__CLASS_SOURCE_PATTERN_AND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_845__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_845__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_845__CLASS_SOURCE_PATTERN_AND.obj_hash = 584373249; cdat->dsym_845__CLASS_SOURCE_PATTERN_AND.obj_len = 3; /*inistring dstr_846__CLASS_SOURCE_PAT*/ /*_.VALSTR___V921*/ meltfptr[920] = (melt_ptr_t) & cdat->dstr_846__CLASS_SOURCE_PAT; cdat->dstr_846__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_846__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_846__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:713:/ iniobj"); #line 713 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_847__CLASS_SOURCE_PATTERN_AND*/ /*_.VALDATA___V922*/ meltfptr[921] = (melt_ptr_t) & cdat->dobj_847__CLASS_SOURCE_PATTERN_AND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_847__CLASS_SOURCE_PATTERN_AND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_847__CLASS_SOURCE_PATTERN_AND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_num = MELTOBMAG_OBJECT; cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_hash = 965529183; cdat->dobj_847__CLASS_SOURCE_PATTERN_AND.obj_len = 8; /*inistring dstr_848__CLASS_SOURCE_PAT*/ /*_.VALSTR___V923*/ meltfptr[922] = (melt_ptr_t) & cdat->dstr_848__CLASS_SOURCE_PAT; cdat->dstr_848__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_848__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_AND", sizeof (cdat->dstr_848__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_849__CLASS_SOURCE_PATTERN_AND */ /*_.VALTUP___V924*/ meltfptr[923] = (melt_ptr_t) & cdat->dtup_849__CLASS_SOURCE_PATTERN_AND; cdat->dtup_849__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_849__CLASS_SOURCE_PATTERN_AND.nbval = 5; /*inimult dtup_850__CLASS_SOURCE_PATTERN_AND */ /*_.VALTUP___V927*/ meltfptr[926] = (melt_ptr_t) & cdat->dtup_850__CLASS_SOURCE_PATTERN_AND; cdat->dtup_850__CLASS_SOURCE_PATTERN_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_850__CLASS_SOURCE_PATTERN_AND.nbval = 4; /*iniobj dsym_851__ANDPAT_CONJ*/ /*uniqueobj*/ if (! /*_.VALDATA___V928*/ meltfptr[927]) /*_.VALDATA___V928*/ meltfptr[927] = (melt_ptr_t) & cdat->dsym_851__ANDPAT_CONJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_851__ANDPAT_CONJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_851__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_851__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_851__ANDPAT_CONJ.obj_hash = 118332178; cdat->dsym_851__ANDPAT_CONJ.obj_len = 3; /*inistring dstr_852__ANDPAT_CONJ*/ /*_.VALSTR___V929*/ meltfptr[928] = (melt_ptr_t) & cdat->dstr_852__ANDPAT_CONJ; cdat->dstr_852__ANDPAT_CONJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_852__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_852__ANDPAT_CONJ.val) - 1); /*^iniobj */ #line 713 /*iniobj dobj_853__ANDPAT_CONJ*/ /*_.VALDATA___V925*/ meltfptr[924] = (melt_ptr_t) & cdat->dobj_853__ANDPAT_CONJ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_853__ANDPAT_CONJ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_853__ANDPAT_CONJ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_853__ANDPAT_CONJ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_853__ANDPAT_CONJ.obj_num = 3; cdat->dobj_853__ANDPAT_CONJ.obj_hash = 242067029; cdat->dobj_853__ANDPAT_CONJ.obj_len = 4; /*inistring dstr_854__ANDPAT_CONJ*/ /*_.VALSTR___V926*/ meltfptr[925] = (melt_ptr_t) & cdat->dstr_854__ANDPAT_CONJ; cdat->dstr_854__ANDPAT_CONJ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_854__ANDPAT_CONJ.val, "ANDPAT_CONJ", sizeof (cdat->dstr_854__ANDPAT_CONJ.val) - 1); /*iniobj dsym_855__CLASS_SOURCE_PATTERN_WHEN*/ /*uniqueobj*/ if (! /*_.VALDATA___V930*/ meltfptr[929]) /*_.VALDATA___V930*/ meltfptr[929] = (melt_ptr_t) & cdat->dsym_855__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_855__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_855__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_855__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_855__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 708177706; cdat->dsym_855__CLASS_SOURCE_PATTERN_WHEN.obj_len = 3; /*inistring dstr_856__CLASS_SOURCE_PAT*/ /*_.VALSTR___V931*/ meltfptr[930] = (melt_ptr_t) & cdat->dstr_856__CLASS_SOURCE_PAT; cdat->dstr_856__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_856__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_856__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:722:/ iniobj"); #line 722 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_857__CLASS_SOURCE_PATTERN_WHEN*/ /*_.VALDATA___V932*/ meltfptr[931] = (melt_ptr_t) & cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_857__CLASS_SOURCE_PATTERN_WHEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_857__CLASS_SOURCE_PATTERN_WHEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_hash = 681124312; cdat->dobj_857__CLASS_SOURCE_PATTERN_WHEN.obj_len = 8; /*inistring dstr_858__CLASS_SOURCE_PAT*/ /*_.VALSTR___V933*/ meltfptr[932] = (melt_ptr_t) & cdat->dstr_858__CLASS_SOURCE_PAT; cdat->dstr_858__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_858__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_WHEN", sizeof (cdat->dstr_858__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_859__CLASS_SOURCE_PATTERN_WHEN */ /*_.VALTUP___V934*/ meltfptr[933] = (melt_ptr_t) & cdat->dtup_859__CLASS_SOURCE_PATTERN_WHEN; cdat->dtup_859__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_859__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*inimult dtup_860__CLASS_SOURCE_PATTERN_WHEN */ /*_.VALTUP___V939*/ meltfptr[938] = (melt_ptr_t) & cdat->dtup_860__CLASS_SOURCE_PATTERN_WHEN; cdat->dtup_860__CLASS_SOURCE_PATTERN_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_860__CLASS_SOURCE_PATTERN_WHEN.nbval = 5; /*iniobj dsym_861__WHENPAT_SUBPAT*/ /*uniqueobj*/ if (! /*_.VALDATA___V940*/ meltfptr[939]) /*_.VALDATA___V940*/ meltfptr[939] = (melt_ptr_t) & cdat->dsym_861__WHENPAT_SUBPAT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_861__WHENPAT_SUBPAT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_861__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_861__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_861__WHENPAT_SUBPAT.obj_hash = 629932822; cdat->dsym_861__WHENPAT_SUBPAT.obj_len = 3; /*inistring dstr_862__WHENPAT_SUBPAT*/ /*_.VALSTR___V941*/ meltfptr[940] = (melt_ptr_t) & cdat->dstr_862__WHENPAT_SUBPAT; cdat->dstr_862__WHENPAT_SUBPAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_862__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_862__WHENPAT_SUBPAT.val) - 1); /*^iniobj */ #line 722 /*iniobj dobj_863__WHENPAT_SUBPAT*/ /*_.VALDATA___V935*/ meltfptr[934] = (melt_ptr_t) & cdat->dobj_863__WHENPAT_SUBPAT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_863__WHENPAT_SUBPAT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_863__WHENPAT_SUBPAT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_863__WHENPAT_SUBPAT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_863__WHENPAT_SUBPAT.obj_num = 3; cdat->dobj_863__WHENPAT_SUBPAT.obj_hash = 52314199; cdat->dobj_863__WHENPAT_SUBPAT.obj_len = 4; /*inistring dstr_864__WHENPAT_SUBPAT*/ /*_.VALSTR___V936*/ meltfptr[935] = (melt_ptr_t) & cdat->dstr_864__WHENPAT_SUBPAT; cdat->dstr_864__WHENPAT_SUBPAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_864__WHENPAT_SUBPAT.val, "WHENPAT_SUBPAT", sizeof (cdat->dstr_864__WHENPAT_SUBPAT.val) - 1); /*iniobj dsym_865__WHENPAT_COND*/ /*uniqueobj*/ if (! /*_.VALDATA___V942*/ meltfptr[941]) /*_.VALDATA___V942*/ meltfptr[941] = (melt_ptr_t) & cdat->dsym_865__WHENPAT_COND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_865__WHENPAT_COND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_865__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_865__WHENPAT_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_865__WHENPAT_COND.obj_hash = 265933811; cdat->dsym_865__WHENPAT_COND.obj_len = 3; /*inistring dstr_866__WHENPAT_COND*/ /*_.VALSTR___V943*/ meltfptr[942] = (melt_ptr_t) & cdat->dstr_866__WHENPAT_COND; cdat->dstr_866__WHENPAT_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_866__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_866__WHENPAT_COND.val) - 1); /*^iniobj */ #line 722 /*iniobj dobj_867__WHENPAT_COND*/ /*_.VALDATA___V937*/ meltfptr[936] = (melt_ptr_t) & cdat->dobj_867__WHENPAT_COND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_867__WHENPAT_COND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_867__WHENPAT_COND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_867__WHENPAT_COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_867__WHENPAT_COND.obj_num = 4; cdat->dobj_867__WHENPAT_COND.obj_hash = 622667971; cdat->dobj_867__WHENPAT_COND.obj_len = 4; /*inistring dstr_868__WHENPAT_COND*/ /*_.VALSTR___V938*/ meltfptr[937] = (melt_ptr_t) & cdat->dstr_868__WHENPAT_COND; cdat->dstr_868__WHENPAT_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_868__WHENPAT_COND.val, "WHENPAT_COND", sizeof (cdat->dstr_868__WHENPAT_COND.val) - 1); /*iniobj dsym_869__CLASS_SOURCE_PATTERN_VARIABLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V944*/ meltfptr[943]) /*_.VALDATA___V944*/ meltfptr[943] = (melt_ptr_t) & cdat->dsym_869__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_869__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_869__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_869__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_869__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 852795053; cdat->dsym_869__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 3; /*inistring dstr_870__CLASS_SOURCE_PAT*/ /*_.VALSTR___V945*/ meltfptr[944] = (melt_ptr_t) & cdat->dstr_870__CLASS_SOURCE_PAT; cdat->dstr_870__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_870__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_870__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:734:/ iniobj"); #line 734 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_871__CLASS_SOURCE_PATTERN_VARIABLE*/ /*_.VALDATA___V946*/ meltfptr[945] = (melt_ptr_t) & cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_871__CLASS_SOURCE_PATTERN_VARIABLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_871__CLASS_SOURCE_PATTERN_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_hash = 592402726; cdat->dobj_871__CLASS_SOURCE_PATTERN_VARIABLE.obj_len = 8; /*inistring dstr_872__CLASS_SOURCE_PAT*/ /*_.VALSTR___V947*/ meltfptr[946] = (melt_ptr_t) & cdat->dstr_872__CLASS_SOURCE_PAT; cdat->dstr_872__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_872__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_VARIABLE", sizeof (cdat->dstr_872__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_873__CLASS_SOURCE_PATTERN_VARIABLE */ /*_.VALTUP___V948*/ meltfptr[947] = (melt_ptr_t) & cdat->dtup_873__CLASS_SOURCE_PATTERN_VARIABLE; cdat->dtup_873__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_873__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*inimult dtup_874__CLASS_SOURCE_PATTERN_VARIABLE */ /*_.VALTUP___V953*/ meltfptr[952] = (melt_ptr_t) & cdat->dtup_874__CLASS_SOURCE_PATTERN_VARIABLE; cdat->dtup_874__CLASS_SOURCE_PATTERN_VARIABLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_874__CLASS_SOURCE_PATTERN_VARIABLE.nbval = 5; /*iniobj dsym_875__SPATVAR_SYMB*/ /*uniqueobj*/ if (! /*_.VALDATA___V954*/ meltfptr[953]) /*_.VALDATA___V954*/ meltfptr[953] = (melt_ptr_t) & cdat->dsym_875__SPATVAR_SYMB; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_875__SPATVAR_SYMB", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_875__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_875__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_875__SPATVAR_SYMB.obj_hash = 155043373; cdat->dsym_875__SPATVAR_SYMB.obj_len = 3; /*inistring dstr_876__SPATVAR_SYMB*/ /*_.VALSTR___V955*/ meltfptr[954] = (melt_ptr_t) & cdat->dstr_876__SPATVAR_SYMB; cdat->dstr_876__SPATVAR_SYMB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_876__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_876__SPATVAR_SYMB.val) - 1); /*^iniobj */ #line 734 /*iniobj dobj_877__SPATVAR_SYMB*/ /*_.VALDATA___V949*/ meltfptr[948] = (melt_ptr_t) & cdat->dobj_877__SPATVAR_SYMB; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_877__SPATVAR_SYMB", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_877__SPATVAR_SYMB", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_877__SPATVAR_SYMB.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_877__SPATVAR_SYMB.obj_num = 3; cdat->dobj_877__SPATVAR_SYMB.obj_hash = 804415170; cdat->dobj_877__SPATVAR_SYMB.obj_len = 4; /*inistring dstr_878__SPATVAR_SYMB*/ /*_.VALSTR___V950*/ meltfptr[949] = (melt_ptr_t) & cdat->dstr_878__SPATVAR_SYMB; cdat->dstr_878__SPATVAR_SYMB.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_878__SPATVAR_SYMB.val, "SPATVAR_SYMB", sizeof (cdat->dstr_878__SPATVAR_SYMB.val) - 1); /*iniobj dsym_879__SPATVAR_NBOCC*/ /*uniqueobj*/ if (! /*_.VALDATA___V956*/ meltfptr[955]) /*_.VALDATA___V956*/ meltfptr[955] = (melt_ptr_t) & cdat->dsym_879__SPATVAR_NBOCC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_879__SPATVAR_NBOCC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_879__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_879__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_879__SPATVAR_NBOCC.obj_hash = 209601000; cdat->dsym_879__SPATVAR_NBOCC.obj_len = 3; /*inistring dstr_880__SPATVAR_NBOCC*/ /*_.VALSTR___V957*/ meltfptr[956] = (melt_ptr_t) & cdat->dstr_880__SPATVAR_NBOCC; cdat->dstr_880__SPATVAR_NBOCC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_880__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_880__SPATVAR_NBOCC.val) - 1); /*^iniobj */ #line 734 /*iniobj dobj_881__SPATVAR_NBOCC*/ /*_.VALDATA___V951*/ meltfptr[950] = (melt_ptr_t) & cdat->dobj_881__SPATVAR_NBOCC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_881__SPATVAR_NBOCC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_881__SPATVAR_NBOCC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_881__SPATVAR_NBOCC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_881__SPATVAR_NBOCC.obj_num = 4; cdat->dobj_881__SPATVAR_NBOCC.obj_hash = 379252179; cdat->dobj_881__SPATVAR_NBOCC.obj_len = 4; /*inistring dstr_882__SPATVAR_NBOCC*/ /*_.VALSTR___V952*/ meltfptr[951] = (melt_ptr_t) & cdat->dstr_882__SPATVAR_NBOCC; cdat->dstr_882__SPATVAR_NBOCC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_882__SPATVAR_NBOCC.val, "SPATVAR_NBOCC", sizeof (cdat->dstr_882__SPATVAR_NBOCC.val) - 1); /*iniobj dsym_883__SPAT_VAR*/ /*uniqueobj*/ if (! /*_.VALDATA___V958*/ meltfptr[957]) /*_.VALDATA___V958*/ meltfptr[957] = (melt_ptr_t) & cdat->dsym_883__SPAT_VAR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_883__SPAT_VAR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_883__SPAT_VAR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_883__SPAT_VAR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_883__SPAT_VAR.obj_hash = 911310249; cdat->dsym_883__SPAT_VAR.obj_len = 3; /*inistring dstr_884__SPAT_VAR*/ /*_.VALSTR___V959*/ meltfptr[958] = (melt_ptr_t) & cdat->dstr_884__SPAT_VAR; cdat->dstr_884__SPAT_VAR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_884__SPAT_VAR.val, "SPAT_VAR", sizeof (cdat->dstr_884__SPAT_VAR.val) - 1); /*iniobj dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V960*/ meltfptr[959]) /*_.VALDATA___V960*/ meltfptr[959] = (melt_ptr_t) & cdat->dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 407364272; cdat->dsym_885__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 3; /*inistring dstr_886__CLASS_SOURCE_PAT*/ /*_.VALSTR___V961*/ meltfptr[960] = (melt_ptr_t) & cdat->dstr_886__CLASS_SOURCE_PAT; cdat->dstr_886__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_886__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_886__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:745:/ iniobj"); #line 745 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE*/ /*_.VALDATA___V962*/ meltfptr[961] = (melt_ptr_t) & cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_hash = 166911258; cdat->dobj_887__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.obj_len = 8; /*inistring dstr_888__CLASS_SOURCE_PAT*/ /*_.VALSTR___V963*/ meltfptr[962] = (melt_ptr_t) & cdat->dstr_888__CLASS_SOURCE_PAT; cdat->dstr_888__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_888__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_JOKER_VARIABLE", sizeof (cdat->dstr_888__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_889__CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ /*_.VALTUP___V964*/ meltfptr[963] = (melt_ptr_t) & cdat->dtup_889__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; cdat->dtup_889__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_889__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 6; /*inimult dtup_890__CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ /*_.VALTUP___V965*/ meltfptr[964] = (melt_ptr_t) & cdat->dtup_890__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; cdat->dtup_890__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_890__CLASS_SOURCE_PATTERN_JOKER_VARIABLE.nbval = 5; /*iniobj dsym_891__CLASS_SOURCE_PATTERN_CONSTANT*/ /*uniqueobj*/ if (! /*_.VALDATA___V966*/ meltfptr[965]) /*_.VALDATA___V966*/ meltfptr[965] = (melt_ptr_t) & cdat->dsym_891__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_891__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_891__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_891__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_891__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 527380821; cdat->dsym_891__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 3; /*inistring dstr_892__CLASS_SOURCE_PAT*/ /*_.VALSTR___V967*/ meltfptr[966] = (melt_ptr_t) & cdat->dstr_892__CLASS_SOURCE_PAT; cdat->dstr_892__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_892__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_892__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:752:/ iniobj"); #line 752 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_893__CLASS_SOURCE_PATTERN_CONSTANT*/ /*_.VALDATA___V968*/ meltfptr[967] = (melt_ptr_t) & cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_893__CLASS_SOURCE_PATTERN_CONSTANT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_893__CLASS_SOURCE_PATTERN_CONSTANT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_hash = 666514012; cdat->dobj_893__CLASS_SOURCE_PATTERN_CONSTANT.obj_len = 8; /*inistring dstr_894__CLASS_SOURCE_PAT*/ /*_.VALSTR___V969*/ meltfptr[968] = (melt_ptr_t) & cdat->dstr_894__CLASS_SOURCE_PAT; cdat->dstr_894__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_894__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTANT", sizeof (cdat->dstr_894__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_895__CLASS_SOURCE_PATTERN_CONSTANT */ /*_.VALTUP___V970*/ meltfptr[969] = (melt_ptr_t) & cdat->dtup_895__CLASS_SOURCE_PATTERN_CONSTANT; cdat->dtup_895__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_895__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 5; /*inimult dtup_896__CLASS_SOURCE_PATTERN_CONSTANT */ /*_.VALTUP___V973*/ meltfptr[972] = (melt_ptr_t) & cdat->dtup_896__CLASS_SOURCE_PATTERN_CONSTANT; cdat->dtup_896__CLASS_SOURCE_PATTERN_CONSTANT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_896__CLASS_SOURCE_PATTERN_CONSTANT.nbval = 4; /*iniobj dsym_897__SPAT_CONSTX*/ /*uniqueobj*/ if (! /*_.VALDATA___V974*/ meltfptr[973]) /*_.VALDATA___V974*/ meltfptr[973] = (melt_ptr_t) & cdat->dsym_897__SPAT_CONSTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_897__SPAT_CONSTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_897__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_897__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_897__SPAT_CONSTX.obj_hash = 943580435; cdat->dsym_897__SPAT_CONSTX.obj_len = 3; /*inistring dstr_898__SPAT_CONSTX*/ /*_.VALSTR___V975*/ meltfptr[974] = (melt_ptr_t) & cdat->dstr_898__SPAT_CONSTX; cdat->dstr_898__SPAT_CONSTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_898__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_898__SPAT_CONSTX.val) - 1); /*^iniobj */ #line 752 /*iniobj dobj_899__SPAT_CONSTX*/ /*_.VALDATA___V971*/ meltfptr[970] = (melt_ptr_t) & cdat->dobj_899__SPAT_CONSTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_899__SPAT_CONSTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_899__SPAT_CONSTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_899__SPAT_CONSTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_899__SPAT_CONSTX.obj_num = 3; cdat->dobj_899__SPAT_CONSTX.obj_hash = 16000408; cdat->dobj_899__SPAT_CONSTX.obj_len = 4; /*inistring dstr_900__SPAT_CONSTX*/ /*_.VALSTR___V972*/ meltfptr[971] = (melt_ptr_t) & cdat->dstr_900__SPAT_CONSTX; cdat->dstr_900__SPAT_CONSTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_900__SPAT_CONSTX.val, "SPAT_CONSTX", sizeof (cdat->dstr_900__SPAT_CONSTX.val) - 1); /*iniobj dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*uniqueobj*/ if (! /*_.VALDATA___V976*/ meltfptr[975]) /*_.VALDATA___V976*/ meltfptr[975] = (melt_ptr_t) & cdat->dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 432286397; cdat->dsym_901__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 3; /*inistring dstr_902__CLASS_SOURCE_PAT*/ /*_.VALSTR___V977*/ meltfptr[976] = (melt_ptr_t) & cdat->dstr_902__CLASS_SOURCE_PAT; cdat->dstr_902__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_902__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_902__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:761:/ iniobj"); #line 761 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT*/ /*_.VALDATA___V978*/ meltfptr[977] = (melt_ptr_t) & cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_hash = 818374395; cdat->dobj_903__CLASS_SOURCE_PATTERN_CONSTRUCT.obj_len = 8; /*inistring dstr_904__CLASS_SOURCE_PAT*/ /*_.VALSTR___V979*/ meltfptr[978] = (melt_ptr_t) & cdat->dstr_904__CLASS_SOURCE_PAT; cdat->dstr_904__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_904__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_CONSTRUCT", sizeof (cdat->dstr_904__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_905__CLASS_SOURCE_PATTERN_CONSTRUCT */ /*_.VALTUP___V980*/ meltfptr[979] = (melt_ptr_t) & cdat->dtup_905__CLASS_SOURCE_PATTERN_CONSTRUCT; cdat->dtup_905__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_905__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 5; /*inimult dtup_906__CLASS_SOURCE_PATTERN_CONSTRUCT */ /*_.VALTUP___V983*/ meltfptr[982] = (melt_ptr_t) & cdat->dtup_906__CLASS_SOURCE_PATTERN_CONSTRUCT; cdat->dtup_906__CLASS_SOURCE_PATTERN_CONSTRUCT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_906__CLASS_SOURCE_PATTERN_CONSTRUCT.nbval = 4; /*iniobj dsym_907__CTPAT_SUBPA*/ /*uniqueobj*/ if (! /*_.VALDATA___V984*/ meltfptr[983]) /*_.VALDATA___V984*/ meltfptr[983] = (melt_ptr_t) & cdat->dsym_907__CTPAT_SUBPA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_907__CTPAT_SUBPA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_907__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_907__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_907__CTPAT_SUBPA.obj_hash = 81625075; cdat->dsym_907__CTPAT_SUBPA.obj_len = 3; /*inistring dstr_908__CTPAT_SUBPA*/ /*_.VALSTR___V985*/ meltfptr[984] = (melt_ptr_t) & cdat->dstr_908__CTPAT_SUBPA; cdat->dstr_908__CTPAT_SUBPA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_908__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_908__CTPAT_SUBPA.val) - 1); /*^iniobj */ #line 761 /*iniobj dobj_909__CTPAT_SUBPA*/ /*_.VALDATA___V981*/ meltfptr[980] = (melt_ptr_t) & cdat->dobj_909__CTPAT_SUBPA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_909__CTPAT_SUBPA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_909__CTPAT_SUBPA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_909__CTPAT_SUBPA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_909__CTPAT_SUBPA.obj_num = 3; cdat->dobj_909__CTPAT_SUBPA.obj_hash = 232103389; cdat->dobj_909__CTPAT_SUBPA.obj_len = 4; /*inistring dstr_910__CTPAT_SUBPA*/ /*_.VALSTR___V982*/ meltfptr[981] = (melt_ptr_t) & cdat->dstr_910__CTPAT_SUBPA; cdat->dstr_910__CTPAT_SUBPA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_910__CTPAT_SUBPA.val, "CTPAT_SUBPA", sizeof (cdat->dstr_910__CTPAT_SUBPA.val) - 1); /*iniobj dsym_911__CLASS_SOURCE_PATTERN_TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V986*/ meltfptr[985]) /*_.VALDATA___V986*/ meltfptr[985] = (melt_ptr_t) & cdat->dsym_911__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_911__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_911__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_911__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_911__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 475727285; cdat->dsym_911__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 3; /*inistring dstr_912__CLASS_SOURCE_PAT*/ /*_.VALSTR___V987*/ meltfptr[986] = (melt_ptr_t) & cdat->dstr_912__CLASS_SOURCE_PAT; cdat->dstr_912__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_912__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_912__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:770:/ iniobj"); #line 770 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_913__CLASS_SOURCE_PATTERN_TUPLE*/ /*_.VALDATA___V988*/ meltfptr[987] = (melt_ptr_t) & cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_913__CLASS_SOURCE_PATTERN_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_913__CLASS_SOURCE_PATTERN_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_hash = 370117743; cdat->dobj_913__CLASS_SOURCE_PATTERN_TUPLE.obj_len = 8; /*inistring dstr_914__CLASS_SOURCE_PAT*/ /*_.VALSTR___V989*/ meltfptr[988] = (melt_ptr_t) & cdat->dstr_914__CLASS_SOURCE_PAT; cdat->dstr_914__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_914__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_TUPLE", sizeof (cdat->dstr_914__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_915__CLASS_SOURCE_PATTERN_TUPLE */ /*_.VALTUP___V990*/ meltfptr[989] = (melt_ptr_t) & cdat->dtup_915__CLASS_SOURCE_PATTERN_TUPLE; cdat->dtup_915__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_915__CLASS_SOURCE_PATTERN_TUPLE.nbval = 6; /*inimult dtup_916__CLASS_SOURCE_PATTERN_TUPLE */ /*_.VALTUP___V991*/ meltfptr[990] = (melt_ptr_t) & cdat->dtup_916__CLASS_SOURCE_PATTERN_TUPLE; cdat->dtup_916__CLASS_SOURCE_PATTERN_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_916__CLASS_SOURCE_PATTERN_TUPLE.nbval = 4; /*iniobj dsym_917__CLASS_SOURCE_PATTERN_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V992*/ meltfptr[991]) /*_.VALDATA___V992*/ meltfptr[991] = (melt_ptr_t) & cdat->dsym_917__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_917__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_917__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_917__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_917__CLASS_SOURCE_PATTERN_LIST.obj_hash = 725656977; cdat->dsym_917__CLASS_SOURCE_PATTERN_LIST.obj_len = 3; /*inistring dstr_918__CLASS_SOURCE_PAT*/ /*_.VALSTR___V993*/ meltfptr[992] = (melt_ptr_t) & cdat->dstr_918__CLASS_SOURCE_PAT; cdat->dstr_918__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_918__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_918__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:777:/ iniobj"); #line 777 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_919__CLASS_SOURCE_PATTERN_LIST*/ /*_.VALDATA___V994*/ meltfptr[993] = (melt_ptr_t) & cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_919__CLASS_SOURCE_PATTERN_LIST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_919__CLASS_SOURCE_PATTERN_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_num = MELTOBMAG_OBJECT; cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_hash = 364467906; cdat->dobj_919__CLASS_SOURCE_PATTERN_LIST.obj_len = 8; /*inistring dstr_920__CLASS_SOURCE_PAT*/ /*_.VALSTR___V995*/ meltfptr[994] = (melt_ptr_t) & cdat->dstr_920__CLASS_SOURCE_PAT; cdat->dstr_920__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_920__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_LIST", sizeof (cdat->dstr_920__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_921__CLASS_SOURCE_PATTERN_LIST */ /*_.VALTUP___V996*/ meltfptr[995] = (melt_ptr_t) & cdat->dtup_921__CLASS_SOURCE_PATTERN_LIST; cdat->dtup_921__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_921__CLASS_SOURCE_PATTERN_LIST.nbval = 6; /*inimult dtup_922__CLASS_SOURCE_PATTERN_LIST */ /*_.VALTUP___V997*/ meltfptr[996] = (melt_ptr_t) & cdat->dtup_922__CLASS_SOURCE_PATTERN_LIST; cdat->dtup_922__CLASS_SOURCE_PATTERN_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_922__CLASS_SOURCE_PATTERN_LIST.nbval = 4; /*iniobj dsym_923__CLASS_SOURCE_PATTERN_OBJECT*/ /*uniqueobj*/ if (! /*_.VALDATA___V998*/ meltfptr[997]) /*_.VALDATA___V998*/ meltfptr[997] = (melt_ptr_t) & cdat->dsym_923__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_923__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_923__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_923__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_923__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 360759812; cdat->dsym_923__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 3; /*inistring dstr_924__CLASS_SOURCE_PAT*/ /*_.VALSTR___V999*/ meltfptr[998] = (melt_ptr_t) & cdat->dstr_924__CLASS_SOURCE_PAT; cdat->dstr_924__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_924__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_924__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:785:/ iniobj"); #line 785 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_925__CLASS_SOURCE_PATTERN_OBJECT*/ /*_.VALDATA___V1000*/ meltfptr[999] = (melt_ptr_t) & cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_925__CLASS_SOURCE_PATTERN_OBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_925__CLASS_SOURCE_PATTERN_OBJECT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_hash = 9951251; cdat->dobj_925__CLASS_SOURCE_PATTERN_OBJECT.obj_len = 8; /*inistring dstr_926__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1001*/ meltfptr[1000] = (melt_ptr_t) & cdat->dstr_926__CLASS_SOURCE_PAT; cdat->dstr_926__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_926__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_OBJECT", sizeof (cdat->dstr_926__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_927__CLASS_SOURCE_PATTERN_OBJECT */ /*_.VALTUP___V1002*/ meltfptr[1001] = (melt_ptr_t) & cdat->dtup_927__CLASS_SOURCE_PATTERN_OBJECT; cdat->dtup_927__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_927__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*inimult dtup_928__CLASS_SOURCE_PATTERN_OBJECT */ /*_.VALTUP___V1007*/ meltfptr[1006] = (melt_ptr_t) & cdat->dtup_928__CLASS_SOURCE_PATTERN_OBJECT; cdat->dtup_928__CLASS_SOURCE_PATTERN_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_928__CLASS_SOURCE_PATTERN_OBJECT.nbval = 5; /*iniobj dsym_929__SPAT_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1008*/ meltfptr[1007]) /*_.VALDATA___V1008*/ meltfptr[1007] = (melt_ptr_t) & cdat->dsym_929__SPAT_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_929__SPAT_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_929__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_929__SPAT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_929__SPAT_CLASS.obj_hash = 940142683; cdat->dsym_929__SPAT_CLASS.obj_len = 3; /*inistring dstr_930__SPAT_CLASS*/ /*_.VALSTR___V1009*/ meltfptr[1008] = (melt_ptr_t) & cdat->dstr_930__SPAT_CLASS; cdat->dstr_930__SPAT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_930__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_930__SPAT_CLASS.val) - 1); /*^iniobj */ #line 785 /*iniobj dobj_931__SPAT_CLASS*/ /*_.VALDATA___V1003*/ meltfptr[1002] = (melt_ptr_t) & cdat->dobj_931__SPAT_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_931__SPAT_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_931__SPAT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_931__SPAT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_931__SPAT_CLASS.obj_num = 3; cdat->dobj_931__SPAT_CLASS.obj_hash = 753501021; cdat->dobj_931__SPAT_CLASS.obj_len = 4; /*inistring dstr_932__SPAT_CLASS*/ /*_.VALSTR___V1004*/ meltfptr[1003] = (melt_ptr_t) & cdat->dstr_932__SPAT_CLASS; cdat->dstr_932__SPAT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_932__SPAT_CLASS.val, "SPAT_CLASS", sizeof (cdat->dstr_932__SPAT_CLASS.val) - 1); /*iniobj dsym_933__SPAT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1010*/ meltfptr[1009]) /*_.VALDATA___V1010*/ meltfptr[1009] = (melt_ptr_t) & cdat->dsym_933__SPAT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_933__SPAT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_933__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_933__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_933__SPAT_FIELDS.obj_hash = 875114227; cdat->dsym_933__SPAT_FIELDS.obj_len = 3; /*inistring dstr_934__SPAT_FIELDS*/ /*_.VALSTR___V1011*/ meltfptr[1010] = (melt_ptr_t) & cdat->dstr_934__SPAT_FIELDS; cdat->dstr_934__SPAT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_934__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_934__SPAT_FIELDS.val) - 1); /*^iniobj */ #line 785 /*iniobj dobj_935__SPAT_FIELDS*/ /*_.VALDATA___V1005*/ meltfptr[1004] = (melt_ptr_t) & cdat->dobj_935__SPAT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_935__SPAT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_935__SPAT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_935__SPAT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_935__SPAT_FIELDS.obj_num = 4; cdat->dobj_935__SPAT_FIELDS.obj_hash = 616428590; cdat->dobj_935__SPAT_FIELDS.obj_len = 4; /*inistring dstr_936__SPAT_FIELDS*/ /*_.VALSTR___V1006*/ meltfptr[1005] = (melt_ptr_t) & cdat->dstr_936__SPAT_FIELDS; cdat->dstr_936__SPAT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_936__SPAT_FIELDS.val, "SPAT_FIELDS", sizeof (cdat->dstr_936__SPAT_FIELDS.val) - 1); /*iniobj dsym_937__CLASS_SOURCE_PATTERN_INSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1012*/ meltfptr[1011]) /*_.VALDATA___V1012*/ meltfptr[1011] = (melt_ptr_t) & cdat->dsym_937__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_937__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_937__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_937__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_937__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 835618963; cdat->dsym_937__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 3; /*inistring dstr_938__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1013*/ meltfptr[1012] = (melt_ptr_t) & cdat->dstr_938__CLASS_SOURCE_PAT; cdat->dstr_938__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_938__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_938__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:797:/ iniobj"); #line 797 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_939__CLASS_SOURCE_PATTERN_INSTANCE*/ /*_.VALDATA___V1014*/ meltfptr[1013] = (melt_ptr_t) & cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_939__CLASS_SOURCE_PATTERN_INSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_939__CLASS_SOURCE_PATTERN_INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_hash = 993818966; cdat->dobj_939__CLASS_SOURCE_PATTERN_INSTANCE.obj_len = 8; /*inistring dstr_940__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1015*/ meltfptr[1014] = (melt_ptr_t) & cdat->dstr_940__CLASS_SOURCE_PAT; cdat->dstr_940__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_940__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_INSTANCE", sizeof (cdat->dstr_940__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_941__CLASS_SOURCE_PATTERN_INSTANCE */ /*_.VALTUP___V1016*/ meltfptr[1015] = (melt_ptr_t) & cdat->dtup_941__CLASS_SOURCE_PATTERN_INSTANCE; cdat->dtup_941__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_941__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 6; /*inimult dtup_942__CLASS_SOURCE_PATTERN_INSTANCE */ /*_.VALTUP___V1017*/ meltfptr[1016] = (melt_ptr_t) & cdat->dtup_942__CLASS_SOURCE_PATTERN_INSTANCE; cdat->dtup_942__CLASS_SOURCE_PATTERN_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_942__CLASS_SOURCE_PATTERN_INSTANCE.nbval = 5; /*iniobj dsym_943__CLASS_SOURCE_FIELD_PATTERN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1018*/ meltfptr[1017]) /*_.VALDATA___V1018*/ meltfptr[1017] = (melt_ptr_t) & cdat->dsym_943__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_943__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_943__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_943__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_943__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 311715661; cdat->dsym_943__CLASS_SOURCE_FIELD_PATTERN.obj_len = 3; /*inistring dstr_944__CLASS_SOURCE_FIE*/ /*_.VALSTR___V1019*/ meltfptr[1018] = (melt_ptr_t) & cdat->dstr_944__CLASS_SOURCE_FIE; cdat->dstr_944__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_944__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_944__CLASS_SOURCE_FIE. val) - 1); MELT_LOCATION ("warmelt-macro.melt:805:/ iniobj"); #line 805 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_945__CLASS_SOURCE_FIELD_PATTERN*/ /*_.VALDATA___V1020*/ meltfptr[1019] = (melt_ptr_t) & cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_945__CLASS_SOURCE_FIELD_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_945__CLASS_SOURCE_FIELD_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_num = MELTOBMAG_OBJECT; cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_hash = 198701937; cdat->dobj_945__CLASS_SOURCE_FIELD_PATTERN.obj_len = 8; /*inistring dstr_946__CLASS_SOURCE_FIE*/ /*_.VALSTR___V1021*/ meltfptr[1020] = (melt_ptr_t) & cdat->dstr_946__CLASS_SOURCE_FIE; cdat->dstr_946__CLASS_SOURCE_FIE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_946__CLASS_SOURCE_FIE.val, "CLASS_SOURCE_FIELD_PATTERN", sizeof (cdat->dstr_946__CLASS_SOURCE_FIE. val) - 1); /*inimult dtup_947__CLASS_SOURCE_FIELD_PATTERN */ /*_.VALTUP___V1022*/ meltfptr[1021] = (melt_ptr_t) & cdat->dtup_947__CLASS_SOURCE_FIELD_PATTERN; cdat->dtup_947__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_947__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*inimult dtup_948__CLASS_SOURCE_FIELD_PATTERN */ /*_.VALTUP___V1027*/ meltfptr[1026] = (melt_ptr_t) & cdat->dtup_948__CLASS_SOURCE_FIELD_PATTERN; cdat->dtup_948__CLASS_SOURCE_FIELD_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_948__CLASS_SOURCE_FIELD_PATTERN.nbval = 4; /*iniobj dsym_949__SPAF_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1028*/ meltfptr[1027]) /*_.VALDATA___V1028*/ meltfptr[1027] = (melt_ptr_t) & cdat->dsym_949__SPAF_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_949__SPAF_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_949__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_949__SPAF_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_949__SPAF_FIELD.obj_hash = 149103823; cdat->dsym_949__SPAF_FIELD.obj_len = 3; /*inistring dstr_950__SPAF_FIELD*/ /*_.VALSTR___V1029*/ meltfptr[1028] = (melt_ptr_t) & cdat->dstr_950__SPAF_FIELD; cdat->dstr_950__SPAF_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_950__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_950__SPAF_FIELD.val) - 1); /*^iniobj */ #line 805 /*iniobj dobj_951__SPAF_FIELD*/ /*_.VALDATA___V1023*/ meltfptr[1022] = (melt_ptr_t) & cdat->dobj_951__SPAF_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_951__SPAF_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_951__SPAF_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_951__SPAF_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_951__SPAF_FIELD.obj_num = 2; cdat->dobj_951__SPAF_FIELD.obj_hash = 672250857; cdat->dobj_951__SPAF_FIELD.obj_len = 4; /*inistring dstr_952__SPAF_FIELD*/ /*_.VALSTR___V1024*/ meltfptr[1023] = (melt_ptr_t) & cdat->dstr_952__SPAF_FIELD; cdat->dstr_952__SPAF_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_952__SPAF_FIELD.val, "SPAF_FIELD", sizeof (cdat->dstr_952__SPAF_FIELD.val) - 1); /*iniobj dsym_953__SPAF_PATTERN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1030*/ meltfptr[1029]) /*_.VALDATA___V1030*/ meltfptr[1029] = (melt_ptr_t) & cdat->dsym_953__SPAF_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_953__SPAF_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_953__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_953__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_953__SPAF_PATTERN.obj_hash = 35901231; cdat->dsym_953__SPAF_PATTERN.obj_len = 3; /*inistring dstr_954__SPAF_PATTERN*/ /*_.VALSTR___V1031*/ meltfptr[1030] = (melt_ptr_t) & cdat->dstr_954__SPAF_PATTERN; cdat->dstr_954__SPAF_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_954__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_954__SPAF_PATTERN.val) - 1); /*^iniobj */ #line 805 /*iniobj dobj_955__SPAF_PATTERN*/ /*_.VALDATA___V1025*/ meltfptr[1024] = (melt_ptr_t) & cdat->dobj_955__SPAF_PATTERN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_955__SPAF_PATTERN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_955__SPAF_PATTERN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_955__SPAF_PATTERN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_955__SPAF_PATTERN.obj_num = 3; cdat->dobj_955__SPAF_PATTERN.obj_hash = 1058641920; cdat->dobj_955__SPAF_PATTERN.obj_len = 4; /*inistring dstr_956__SPAF_PATTERN*/ /*_.VALSTR___V1026*/ meltfptr[1025] = (melt_ptr_t) & cdat->dstr_956__SPAF_PATTERN; cdat->dstr_956__SPAF_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_956__SPAF_PATTERN.val, "SPAF_PATTERN", sizeof (cdat->dstr_956__SPAF_PATTERN.val) - 1); /*iniobj dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1032*/ meltfptr[1031]) /*_.VALDATA___V1032*/ meltfptr[1031] = (melt_ptr_t) & cdat->dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 479810309; cdat->dsym_957__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 3; /*inistring dstr_958__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1033*/ meltfptr[1032] = (melt_ptr_t) & cdat->dstr_958__CLASS_SOURCE_PAT; cdat->dstr_958__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_958__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_958__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:816:/ iniobj"); #line 816 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE*/ /*_.VALDATA___V1034*/ meltfptr[1033] = (melt_ptr_t) & cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_num = MELTOBMAG_OBJECT; cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_hash = 526593702; cdat->dobj_959__CLASS_SOURCE_PATTERN_COMPOSITE.obj_len = 8; /*inistring dstr_960__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1035*/ meltfptr[1034] = (melt_ptr_t) & cdat->dstr_960__CLASS_SOURCE_PAT; cdat->dstr_960__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_960__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_COMPOSITE", sizeof (cdat->dstr_960__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_961__CLASS_SOURCE_PATTERN_COMPOSITE */ /*_.VALTUP___V1036*/ meltfptr[1035] = (melt_ptr_t) & cdat->dtup_961__CLASS_SOURCE_PATTERN_COMPOSITE; cdat->dtup_961__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_961__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 6; /*inimult dtup_962__CLASS_SOURCE_PATTERN_COMPOSITE */ /*_.VALTUP___V1045*/ meltfptr[1044] = (melt_ptr_t) & cdat->dtup_962__CLASS_SOURCE_PATTERN_COMPOSITE; cdat->dtup_962__CLASS_SOURCE_PATTERN_COMPOSITE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_962__CLASS_SOURCE_PATTERN_COMPOSITE.nbval = 9; /*iniobj dsym_963__SPAC_OPERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1046*/ meltfptr[1045]) /*_.VALDATA___V1046*/ meltfptr[1045] = (melt_ptr_t) & cdat->dsym_963__SPAC_OPERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_963__SPAC_OPERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_963__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_963__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_963__SPAC_OPERATOR.obj_hash = 46865939; cdat->dsym_963__SPAC_OPERATOR.obj_len = 3; /*inistring dstr_964__SPAC_OPERATOR*/ /*_.VALSTR___V1047*/ meltfptr[1046] = (melt_ptr_t) & cdat->dstr_964__SPAC_OPERATOR; cdat->dstr_964__SPAC_OPERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_964__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_964__SPAC_OPERATOR.val) - 1); /*^iniobj */ #line 816 /*iniobj dobj_965__SPAC_OPERATOR*/ /*_.VALDATA___V1037*/ meltfptr[1036] = (melt_ptr_t) & cdat->dobj_965__SPAC_OPERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_965__SPAC_OPERATOR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_965__SPAC_OPERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_965__SPAC_OPERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_965__SPAC_OPERATOR.obj_num = 5; cdat->dobj_965__SPAC_OPERATOR.obj_hash = 943487077; cdat->dobj_965__SPAC_OPERATOR.obj_len = 4; /*inistring dstr_966__SPAC_OPERATOR*/ /*_.VALSTR___V1038*/ meltfptr[1037] = (melt_ptr_t) & cdat->dstr_966__SPAC_OPERATOR; cdat->dstr_966__SPAC_OPERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_966__SPAC_OPERATOR.val, "SPAC_OPERATOR", sizeof (cdat->dstr_966__SPAC_OPERATOR.val) - 1); /*iniobj dsym_967__SPAC_OPERBIND*/ /*uniqueobj*/ if (! /*_.VALDATA___V1048*/ meltfptr[1047]) /*_.VALDATA___V1048*/ meltfptr[1047] = (melt_ptr_t) & cdat->dsym_967__SPAC_OPERBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_967__SPAC_OPERBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_967__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_967__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_967__SPAC_OPERBIND.obj_hash = 465916132; cdat->dsym_967__SPAC_OPERBIND.obj_len = 3; /*inistring dstr_968__SPAC_OPERBIND*/ /*_.VALSTR___V1049*/ meltfptr[1048] = (melt_ptr_t) & cdat->dstr_968__SPAC_OPERBIND; cdat->dstr_968__SPAC_OPERBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_968__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_968__SPAC_OPERBIND.val) - 1); /*^iniobj */ #line 816 /*iniobj dobj_969__SPAC_OPERBIND*/ /*_.VALDATA___V1039*/ meltfptr[1038] = (melt_ptr_t) & cdat->dobj_969__SPAC_OPERBIND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_969__SPAC_OPERBIND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_969__SPAC_OPERBIND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_969__SPAC_OPERBIND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_969__SPAC_OPERBIND.obj_num = 6; cdat->dobj_969__SPAC_OPERBIND.obj_hash = 957640222; cdat->dobj_969__SPAC_OPERBIND.obj_len = 4; /*inistring dstr_970__SPAC_OPERBIND*/ /*_.VALSTR___V1040*/ meltfptr[1039] = (melt_ptr_t) & cdat->dstr_970__SPAC_OPERBIND; cdat->dstr_970__SPAC_OPERBIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_970__SPAC_OPERBIND.val, "SPAC_OPERBIND", sizeof (cdat->dstr_970__SPAC_OPERBIND.val) - 1); /*iniobj dsym_971__SPAC_INARGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1050*/ meltfptr[1049]) /*_.VALDATA___V1050*/ meltfptr[1049] = (melt_ptr_t) & cdat->dsym_971__SPAC_INARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_971__SPAC_INARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_971__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_971__SPAC_INARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_971__SPAC_INARGS.obj_hash = 641829338; cdat->dsym_971__SPAC_INARGS.obj_len = 3; /*inistring dstr_972__SPAC_INARGS*/ /*_.VALSTR___V1051*/ meltfptr[1050] = (melt_ptr_t) & cdat->dstr_972__SPAC_INARGS; cdat->dstr_972__SPAC_INARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_972__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_972__SPAC_INARGS.val) - 1); /*^iniobj */ #line 816 /*iniobj dobj_973__SPAC_INARGS*/ /*_.VALDATA___V1041*/ meltfptr[1040] = (melt_ptr_t) & cdat->dobj_973__SPAC_INARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_973__SPAC_INARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_973__SPAC_INARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_973__SPAC_INARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_973__SPAC_INARGS.obj_num = 7; cdat->dobj_973__SPAC_INARGS.obj_hash = 135172485; cdat->dobj_973__SPAC_INARGS.obj_len = 4; /*inistring dstr_974__SPAC_INARGS*/ /*_.VALSTR___V1042*/ meltfptr[1041] = (melt_ptr_t) & cdat->dstr_974__SPAC_INARGS; cdat->dstr_974__SPAC_INARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_974__SPAC_INARGS.val, "SPAC_INARGS", sizeof (cdat->dstr_974__SPAC_INARGS.val) - 1); /*iniobj dsym_975__SPAC_OUTARGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1052*/ meltfptr[1051]) /*_.VALDATA___V1052*/ meltfptr[1051] = (melt_ptr_t) & cdat->dsym_975__SPAC_OUTARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_975__SPAC_OUTARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_975__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_975__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_975__SPAC_OUTARGS.obj_hash = 486574494; cdat->dsym_975__SPAC_OUTARGS.obj_len = 3; /*inistring dstr_976__SPAC_OUTARGS*/ /*_.VALSTR___V1053*/ meltfptr[1052] = (melt_ptr_t) & cdat->dstr_976__SPAC_OUTARGS; cdat->dstr_976__SPAC_OUTARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_976__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_976__SPAC_OUTARGS.val) - 1); /*^iniobj */ #line 816 /*iniobj dobj_977__SPAC_OUTARGS*/ /*_.VALDATA___V1043*/ meltfptr[1042] = (melt_ptr_t) & cdat->dobj_977__SPAC_OUTARGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_977__SPAC_OUTARGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_977__SPAC_OUTARGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_977__SPAC_OUTARGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_977__SPAC_OUTARGS.obj_num = 8; cdat->dobj_977__SPAC_OUTARGS.obj_hash = 62391755; cdat->dobj_977__SPAC_OUTARGS.obj_len = 4; /*inistring dstr_978__SPAC_OUTARGS*/ /*_.VALSTR___V1044*/ meltfptr[1043] = (melt_ptr_t) & cdat->dstr_978__SPAC_OUTARGS; cdat->dstr_978__SPAC_OUTARGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_978__SPAC_OUTARGS.val, "SPAC_OUTARGS", sizeof (cdat->dstr_978__SPAC_OUTARGS.val) - 1); /*iniobj dsym_979__CLASS_SOURCE_PATTERN_MATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1054*/ meltfptr[1053]) /*_.VALDATA___V1054*/ meltfptr[1053] = (melt_ptr_t) & cdat->dsym_979__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_979__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_979__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_979__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_979__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 190682059; cdat->dsym_979__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 3; /*inistring dstr_980__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1055*/ meltfptr[1054] = (melt_ptr_t) & cdat->dstr_980__CLASS_SOURCE_PAT; cdat->dstr_980__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_980__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_980__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:833:/ iniobj"); #line 833 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_981__CLASS_SOURCE_PATTERN_MATCHER*/ /*_.VALDATA___V1056*/ meltfptr[1055] = (melt_ptr_t) & cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_981__CLASS_SOURCE_PATTERN_MATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_981__CLASS_SOURCE_PATTERN_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_num = MELTOBMAG_OBJECT; cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_hash = 503972089; cdat->dobj_981__CLASS_SOURCE_PATTERN_MATCHER.obj_len = 8; /*inistring dstr_982__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1057*/ meltfptr[1056] = (melt_ptr_t) & cdat->dstr_982__CLASS_SOURCE_PAT; cdat->dstr_982__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_982__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_MATCHER", sizeof (cdat->dstr_982__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_983__CLASS_SOURCE_PATTERN_MATCHER */ /*_.VALTUP___V1058*/ meltfptr[1057] = (melt_ptr_t) & cdat->dtup_983__CLASS_SOURCE_PATTERN_MATCHER; cdat->dtup_983__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_983__CLASS_SOURCE_PATTERN_MATCHER.nbval = 7; /*inimult dtup_984__CLASS_SOURCE_PATTERN_MATCHER */ /*_.VALTUP___V1059*/ meltfptr[1058] = (melt_ptr_t) & cdat->dtup_984__CLASS_SOURCE_PATTERN_MATCHER; cdat->dtup_984__CLASS_SOURCE_PATTERN_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_984__CLASS_SOURCE_PATTERN_MATCHER.nbval = 9; /*iniobj dsym_985__CLASS_SOURCE_PATTERN_C_MATCH*/ /*uniqueobj*/ if (! /*_.VALDATA___V1060*/ meltfptr[1059]) /*_.VALDATA___V1060*/ meltfptr[1059] = (melt_ptr_t) & cdat->dsym_985__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_985__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_985__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_985__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_985__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 1062480739; cdat->dsym_985__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 3; /*inistring dstr_986__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1061*/ meltfptr[1060] = (melt_ptr_t) & cdat->dstr_986__CLASS_SOURCE_PAT; cdat->dstr_986__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_986__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_986__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:839:/ iniobj"); #line 839 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_987__CLASS_SOURCE_PATTERN_C_MATCH*/ /*_.VALDATA___V1062*/ meltfptr[1061] = (melt_ptr_t) & cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_987__CLASS_SOURCE_PATTERN_C_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_987__CLASS_SOURCE_PATTERN_C_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_num = MELTOBMAG_OBJECT; cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_hash = 334242323; cdat->dobj_987__CLASS_SOURCE_PATTERN_C_MATCH.obj_len = 8; /*inistring dstr_988__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1063*/ meltfptr[1062] = (melt_ptr_t) & cdat->dstr_988__CLASS_SOURCE_PAT; cdat->dstr_988__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_988__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_C_MATCH", sizeof (cdat->dstr_988__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_989__CLASS_SOURCE_PATTERN_C_MATCH */ /*_.VALTUP___V1064*/ meltfptr[1063] = (melt_ptr_t) & cdat->dtup_989__CLASS_SOURCE_PATTERN_C_MATCH; cdat->dtup_989__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_989__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 8; /*inimult dtup_990__CLASS_SOURCE_PATTERN_C_MATCH */ /*_.VALTUP___V1065*/ meltfptr[1064] = (melt_ptr_t) & cdat->dtup_990__CLASS_SOURCE_PATTERN_C_MATCH; cdat->dtup_990__CLASS_SOURCE_PATTERN_C_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_990__CLASS_SOURCE_PATTERN_C_MATCH.nbval = 9; /*iniobj dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH*/ /*uniqueobj*/ if (! /*_.VALDATA___V1066*/ meltfptr[1065]) /*_.VALDATA___V1066*/ meltfptr[1065] = (melt_ptr_t) & cdat->dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 351628715; cdat->dsym_991__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 3; /*inistring dstr_992__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1067*/ meltfptr[1066] = (melt_ptr_t) & cdat->dstr_992__CLASS_SOURCE_PAT; cdat->dstr_992__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_992__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_992__CLASS_SOURCE_PAT. val) - 1); MELT_LOCATION ("warmelt-macro.melt:845:/ iniobj"); #line 845 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH*/ /*_.VALDATA___V1068*/ meltfptr[1067] = (melt_ptr_t) & cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_num = MELTOBMAG_OBJECT; cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_hash = 455702915; cdat->dobj_993__CLASS_SOURCE_PATTERN_FUN_MATCH.obj_len = 8; /*inistring dstr_994__CLASS_SOURCE_PAT*/ /*_.VALSTR___V1069*/ meltfptr[1068] = (melt_ptr_t) & cdat->dstr_994__CLASS_SOURCE_PAT; cdat->dstr_994__CLASS_SOURCE_PAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_994__CLASS_SOURCE_PAT.val, "CLASS_SOURCE_PATTERN_FUN_MATCH", sizeof (cdat->dstr_994__CLASS_SOURCE_PAT. val) - 1); /*inimult dtup_995__CLASS_SOURCE_PATTERN_FUN_MATCH */ /*_.VALTUP___V1070*/ meltfptr[1069] = (melt_ptr_t) & cdat->dtup_995__CLASS_SOURCE_PATTERN_FUN_MATCH; cdat->dtup_995__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_995__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 8; /*inimult dtup_996__CLASS_SOURCE_PATTERN_FUN_MATCH */ /*_.VALTUP___V1071*/ meltfptr[1070] = (melt_ptr_t) & cdat->dtup_996__CLASS_SOURCE_PATTERN_FUN_MATCH; cdat->dtup_996__CLASS_SOURCE_PATTERN_FUN_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_996__CLASS_SOURCE_PATTERN_FUN_MATCH.nbval = 9; /*inirout drout_997__EXPAND_RESTLIST_AS_LIST */ /*_.VALROUT___V1072*/ meltfptr[1071] = (melt_ptr_t) & cdat->drout_997__EXPAND_RESTLIST_AS_LIST; cdat->drout_997__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_997__EXPAND_RESTLIST_AS_LIST.routdescr, "EXPAND_RESTLIST_AS_LIST @warmelt-macro.melt:855", MELT_ROUTDESCR_LEN - 1); cdat->drout_997__EXPAND_RESTLIST_AS_LIST.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_997__EXPAND_RESTLIST_AS_LIST, meltrout_1_warmelt_macro_EXPAND_RESTLIST_AS_LIST); /*iniclos dclo_998__EXPAND_RESTLIST_AS_LIST */ /*_.VALCLO___V1073*/ meltfptr[1072] = (melt_ptr_t) & cdat->dclo_998__EXPAND_RESTLIST_AS_LIST; cdat->dclo_998__EXPAND_RESTLIST_AS_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_998__EXPAND_RESTLIST_AS_LIST.nbval = 0; /*iniobj dsym_999__CLASS_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1074*/ meltfptr[1073]) /*_.VALDATA___V1074*/ meltfptr[1073] = (melt_ptr_t) & cdat->dsym_999__CLASS_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_999__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_999__CLASS_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_999__CLASS_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_999__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_999__CLASS_ENVIRONMENT.obj_len = 3; /*inistring dstr_1000__CLASS_ENVIRONMEN*/ /*_.VALSTR___V1075*/ meltfptr[1074] = (melt_ptr_t) & cdat->dstr_1000__CLASS_ENVIRONMEN; cdat->dstr_1000__CLASS_ENVIRONMEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1000__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT", sizeof (cdat->dstr_1000__CLASS_ENVIRONMEN. val) - 1); /*inirout drout_1001__EXPAND_RESTLIST_AS_TUPLE */ /*_.VALROUT___V1076*/ meltfptr[1075] = (melt_ptr_t) & cdat->drout_1001__EXPAND_RESTLIST_AS_TUPLE; cdat->drout_1001__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1001__EXPAND_RESTLIST_AS_TUPLE.routdescr, "EXPAND_RESTLIST_AS_TUPLE @warmelt-macro.melt:899", MELT_ROUTDESCR_LEN - 1); cdat->drout_1001__EXPAND_RESTLIST_AS_TUPLE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1001__EXPAND_RESTLIST_AS_TUPLE, meltrout_2_warmelt_macro_EXPAND_RESTLIST_AS_TUPLE); /*iniclos dclo_1002__EXPAND_RESTLIST_AS_TUPLE */ /*_.VALCLO___V1077*/ meltfptr[1076] = (melt_ptr_t) & cdat->dclo_1002__EXPAND_RESTLIST_AS_TUPLE; cdat->dclo_1002__EXPAND_RESTLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1002__EXPAND_RESTLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_1003__LIST_TO_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1078*/ meltfptr[1077]) /*_.VALDATA___V1078*/ meltfptr[1077] = (melt_ptr_t) & cdat->dsym_1003__LIST_TO_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1003__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_1003__LIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1003__LIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1003__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_1003__LIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_1004__LIST_TO_MULTIPLE*/ /*_.VALSTR___V1079*/ meltfptr[1078] = (melt_ptr_t) & cdat->dstr_1004__LIST_TO_MULTIPLE; cdat->dstr_1004__LIST_TO_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1004__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE", sizeof (cdat->dstr_1004__LIST_TO_MULTIPLE. val) - 1); /*iniobj dsym_1005__DISCR_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1080*/ meltfptr[1079]) /*_.VALDATA___V1080*/ meltfptr[1079] = (melt_ptr_t) & cdat->dsym_1005__DISCR_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1005__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_1005__DISCR_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1005__DISCR_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1005__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_1005__DISCR_MULTIPLE.obj_len = 3; /*inistring dstr_1006__DISCR_MULTIPLE*/ /*_.VALSTR___V1081*/ meltfptr[1080] = (melt_ptr_t) & cdat->dstr_1006__DISCR_MULTIPLE; cdat->dstr_1006__DISCR_MULTIPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1006__DISCR_MULTIPLE.val, "DISCR_MULTIPLE", sizeof (cdat->dstr_1006__DISCR_MULTIPLE.val) - 1); /*inirout drout_1007__EXPAND_PAIRLIST_AS_LIST */ /*_.VALROUT___V1082*/ meltfptr[1081] = (melt_ptr_t) & cdat->drout_1007__EXPAND_PAIRLIST_AS_LIST; cdat->drout_1007__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1007__EXPAND_PAIRLIST_AS_LIST.routdescr, "EXPAND_PAIRLIST_AS_LIST @warmelt-macro.melt:911", MELT_ROUTDESCR_LEN - 1); cdat->drout_1007__EXPAND_PAIRLIST_AS_LIST.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1007__EXPAND_PAIRLIST_AS_LIST, meltrout_3_warmelt_macro_EXPAND_PAIRLIST_AS_LIST); /*iniclos dclo_1008__EXPAND_PAIRLIST_AS_LIST */ /*_.VALCLO___V1083*/ meltfptr[1082] = (melt_ptr_t) & cdat->dclo_1008__EXPAND_PAIRLIST_AS_LIST; cdat->dclo_1008__EXPAND_PAIRLIST_AS_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1008__EXPAND_PAIRLIST_AS_LIST.nbval = 0; /*inirout drout_1009__EXPAND_PAIRLIST_AS_TUPLE */ /*_.VALROUT___V1084*/ meltfptr[1083] = (melt_ptr_t) & cdat->drout_1009__EXPAND_PAIRLIST_AS_TUPLE; cdat->drout_1009__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1009__EXPAND_PAIRLIST_AS_TUPLE.routdescr, "EXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:950", MELT_ROUTDESCR_LEN - 1); cdat->drout_1009__EXPAND_PAIRLIST_AS_TUPLE.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1009__EXPAND_PAIRLIST_AS_TUPLE, meltrout_4_warmelt_macro_EXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1010__EXPAND_PAIRLIST_AS_TUPLE */ /*_.VALCLO___V1085*/ meltfptr[1084] = (melt_ptr_t) & cdat->dclo_1010__EXPAND_PAIRLIST_AS_TUPLE; cdat->dclo_1010__EXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1010__EXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*inirout drout_1011__REGISTER_GENERATOR_DEVICE */ /*_.VALROUT___V1086*/ meltfptr[1085] = (melt_ptr_t) & cdat->drout_1011__REGISTER_GENERATOR_DEVICE; cdat->drout_1011__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1011__REGISTER_GENERATOR_DEVICE.routdescr, "REGISTER_GENERATOR_DEVICE @warmelt-macro.melt:961", MELT_ROUTDESCR_LEN - 1); cdat->drout_1011__REGISTER_GENERATOR_DEVICE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1011__REGISTER_GENERATOR_DEVICE, meltrout_5_warmelt_macro_REGISTER_GENERATOR_DEVICE); /*iniclos dclo_1012__REGISTER_GENERATOR_DEVICE */ /*_.VALCLO___V1087*/ meltfptr[1086] = (melt_ptr_t) & cdat->dclo_1012__REGISTER_GENERATOR_DEVICE; cdat->dclo_1012__REGISTER_GENERATOR_DEVICE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1012__REGISTER_GENERATOR_DEVICE.nbval = 0; /*iniobj dsym_1013__MELT_DEBUG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1088*/ meltfptr[1087]) /*_.VALDATA___V1088*/ meltfptr[1087] = (melt_ptr_t) & cdat->dsym_1013__MELT_DEBUG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1013__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_1013__MELT_DEBUG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1013__MELT_DEBUG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1013__MELT_DEBUG_FUN.obj_hash = 972123377; cdat->dsym_1013__MELT_DEBUG_FUN.obj_len = 3; /*inistring dstr_1014__MELT_DEBUG_FUN*/ /*_.VALSTR___V1089*/ meltfptr[1088] = (melt_ptr_t) & cdat->dstr_1014__MELT_DEBUG_FUN; cdat->dstr_1014__MELT_DEBUG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1014__MELT_DEBUG_FUN.val, "MELT_DEBUG_FUN", sizeof (cdat->dstr_1014__MELT_DEBUG_FUN.val) - 1); /*iniobj dsym_1015__CLASS_MODULE_CONTEXT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1090*/ meltfptr[1089]) /*_.VALDATA___V1090*/ meltfptr[1089] = (melt_ptr_t) & cdat->dsym_1015__CLASS_MODULE_CONTEXT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1015__CLASS_MODULE_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1015__CLASS_MODULE_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1015__CLASS_MODULE_CONTEXT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1015__CLASS_MODULE_CONTEXT.obj_hash = 641718839; cdat->dsym_1015__CLASS_MODULE_CONTEXT.obj_len = 3; /*inistring dstr_1016__CLASS_MODULE_CON*/ /*_.VALSTR___V1091*/ meltfptr[1090] = (melt_ptr_t) & cdat->dstr_1016__CLASS_MODULE_CON; cdat->dstr_1016__CLASS_MODULE_CON.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1016__CLASS_MODULE_CON.val, "CLASS_MODULE_CONTEXT", sizeof (cdat->dstr_1016__CLASS_MODULE_CON. val) - 1); /*iniobj dsym_1017__CLASS_LOCATED*/ /*uniqueobj*/ if (! /*_.VALDATA___V1092*/ meltfptr[1091]) /*_.VALDATA___V1092*/ meltfptr[1091] = (melt_ptr_t) & cdat->dsym_1017__CLASS_LOCATED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1017__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_1017__CLASS_LOCATED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1017__CLASS_LOCATED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1017__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_1017__CLASS_LOCATED.obj_len = 3; /*inistring dstr_1018__CLASS_LOCATED*/ /*_.VALSTR___V1093*/ meltfptr[1092] = (melt_ptr_t) & cdat->dstr_1018__CLASS_LOCATED; cdat->dstr_1018__CLASS_LOCATED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1018__CLASS_LOCATED.val, "CLASS_LOCATED", sizeof (cdat->dstr_1018__CLASS_LOCATED.val) - 1); /*inirout drout_1019__EXPAND_APPLY */ /*_.VALROUT___V1094*/ meltfptr[1093] = (melt_ptr_t) & cdat->drout_1019__EXPAND_APPLY; cdat->drout_1019__EXPAND_APPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1019__EXPAND_APPLY.routdescr, "EXPAND_APPLY @warmelt-macro.melt:986", MELT_ROUTDESCR_LEN - 1); cdat->drout_1019__EXPAND_APPLY.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1019__EXPAND_APPLY, meltrout_6_warmelt_macro_EXPAND_APPLY); /*iniclos dclo_1020__EXPAND_APPLY */ /*_.VALCLO___V1095*/ meltfptr[1094] = (melt_ptr_t) & cdat->dclo_1020__EXPAND_APPLY; cdat->dclo_1020__EXPAND_APPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1020__EXPAND_APPLY.nbval = 0; /*iniobj dsym_1021__CLASS_SEXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1096*/ meltfptr[1095]) /*_.VALDATA___V1096*/ meltfptr[1095] = (melt_ptr_t) & cdat->dsym_1021__CLASS_SEXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1021__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_1021__CLASS_SEXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1021__CLASS_SEXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1021__CLASS_SEXPR.obj_hash = 53411612; cdat->dsym_1021__CLASS_SEXPR.obj_len = 3; /*inistring dstr_1022__CLASS_SEXPR*/ /*_.VALSTR___V1097*/ meltfptr[1096] = (melt_ptr_t) & cdat->dstr_1022__CLASS_SEXPR; cdat->dstr_1022__CLASS_SEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1022__CLASS_SEXPR.val, "CLASS_SEXPR", sizeof (cdat->dstr_1022__CLASS_SEXPR.val) - 1); /*inirout drout_1023__EXPAND_MSEND */ /*_.VALROUT___V1098*/ meltfptr[1097] = (melt_ptr_t) & cdat->drout_1023__EXPAND_MSEND; cdat->drout_1023__EXPAND_MSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1023__EXPAND_MSEND.routdescr, "EXPAND_MSEND @warmelt-macro.melt:1006", MELT_ROUTDESCR_LEN - 1); cdat->drout_1023__EXPAND_MSEND.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1023__EXPAND_MSEND, meltrout_7_warmelt_macro_EXPAND_MSEND); /*iniclos dclo_1024__EXPAND_MSEND */ /*_.VALCLO___V1103*/ meltfptr[1102] = (melt_ptr_t) & cdat->dclo_1024__EXPAND_MSEND; cdat->dclo_1024__EXPAND_MSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1024__EXPAND_MSEND.nbval = 0; /*iniobj dsym_1025__CLASS_SYMBOL*/ /*uniqueobj*/ if (! /*_.VALDATA___V1120*/ meltfptr[1119]) /*_.VALDATA___V1120*/ meltfptr[1119] = (melt_ptr_t) & cdat->dsym_1025__CLASS_SYMBOL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1025__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_1025__CLASS_SYMBOL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1025__CLASS_SYMBOL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1025__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_1025__CLASS_SYMBOL.obj_len = 3; /*inistring dstr_1026__CLASS_SYMBOL*/ /*_.VALSTR___V1121*/ meltfptr[1120] = (melt_ptr_t) & cdat->dstr_1026__CLASS_SYMBOL; cdat->dstr_1026__CLASS_SYMBOL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1026__CLASS_SYMBOL.val, "CLASS_SYMBOL", sizeof (cdat->dstr_1026__CLASS_SYMBOL.val) - 1); /*inirout drout_1027__EXPAND_FIELDEXPR */ /*_.VALROUT___V1118*/ meltfptr[1117] = (melt_ptr_t) & cdat->drout_1027__EXPAND_FIELDEXPR; cdat->drout_1027__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1027__EXPAND_FIELDEXPR.routdescr, "EXPAND_FIELDEXPR @warmelt-macro.melt:1038", MELT_ROUTDESCR_LEN - 1); cdat->drout_1027__EXPAND_FIELDEXPR.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1027__EXPAND_FIELDEXPR, meltrout_8_warmelt_macro_EXPAND_FIELDEXPR); /*iniclos dclo_1028__EXPAND_FIELDEXPR */ /*_.VALCLO___V1117*/ meltfptr[1116] = (melt_ptr_t) & cdat->dclo_1028__EXPAND_FIELDEXPR; cdat->dclo_1028__EXPAND_FIELDEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1028__EXPAND_FIELDEXPR.nbval = 0; /*iniobj dsym_1029__CLASS_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1122*/ meltfptr[1121]) /*_.VALDATA___V1122*/ meltfptr[1121] = (melt_ptr_t) & cdat->dsym_1029__CLASS_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1029__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_1029__CLASS_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1029__CLASS_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1029__CLASS_FIELD.obj_hash = 523073; cdat->dsym_1029__CLASS_FIELD.obj_len = 3; /*inistring dstr_1030__CLASS_FIELD*/ /*_.VALSTR___V1123*/ meltfptr[1122] = (melt_ptr_t) & cdat->dstr_1030__CLASS_FIELD; cdat->dstr_1030__CLASS_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1030__CLASS_FIELD.val, "CLASS_FIELD", sizeof (cdat->dstr_1030__CLASS_FIELD.val) - 1); /*iniobj dsym_1031__CLASS_KEYWORD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1124*/ meltfptr[1123]) /*_.VALDATA___V1124*/ meltfptr[1123] = (melt_ptr_t) & cdat->dsym_1031__CLASS_KEYWORD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1031__CLASS_KEYWORD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1031__CLASS_KEYWORD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1031__CLASS_KEYWORD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1031__CLASS_KEYWORD.obj_hash = 14992133; cdat->dsym_1031__CLASS_KEYWORD.obj_len = 3; /*inistring dstr_1032__CLASS_KEYWORD*/ /*_.VALSTR___V1125*/ meltfptr[1124] = (melt_ptr_t) & cdat->dstr_1032__CLASS_KEYWORD; cdat->dstr_1032__CLASS_KEYWORD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1032__CLASS_KEYWORD.val, "CLASS_KEYWORD", sizeof (cdat->dstr_1032__CLASS_KEYWORD.val) - 1); /*iniobj dsym_1033__CLASS_NAMED*/ /*uniqueobj*/ if (! /*_.VALDATA___V1126*/ meltfptr[1125]) /*_.VALDATA___V1126*/ meltfptr[1125] = (melt_ptr_t) & cdat->dsym_1033__CLASS_NAMED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1033__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_1033__CLASS_NAMED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1033__CLASS_NAMED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1033__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_1033__CLASS_NAMED.obj_len = 3; /*inistring dstr_1034__CLASS_NAMED*/ /*_.VALSTR___V1127*/ meltfptr[1126] = (melt_ptr_t) & cdat->dstr_1034__CLASS_NAMED; cdat->dstr_1034__CLASS_NAMED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1034__CLASS_NAMED.val, "CLASS_NAMED", sizeof (cdat->dstr_1034__CLASS_NAMED.val) - 1); /*inirout drout_1035__EXPAND_CITERATION */ /*_.VALROUT___V1107*/ meltfptr[1106] = (melt_ptr_t) & cdat->drout_1035__EXPAND_CITERATION; cdat->drout_1035__EXPAND_CITERATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1035__EXPAND_CITERATION.routdescr, "EXPAND_CITERATION @warmelt-macro.melt:1096", MELT_ROUTDESCR_LEN - 1); cdat->drout_1035__EXPAND_CITERATION.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1035__EXPAND_CITERATION, meltrout_9_warmelt_macro_EXPAND_CITERATION); /*iniclos dclo_1036__EXPAND_CITERATION */ /*_.VALCLO___V1106*/ meltfptr[1105] = (melt_ptr_t) & cdat->dclo_1036__EXPAND_CITERATION; cdat->dclo_1036__EXPAND_CITERATION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1036__EXPAND_CITERATION.nbval = 0; /*iniobj dsym_1037__CLASS_CITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1128*/ meltfptr[1127]) /*_.VALDATA___V1128*/ meltfptr[1127] = (melt_ptr_t) & cdat->dsym_1037__CLASS_CITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1037__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_1037__CLASS_CITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1037__CLASS_CITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1037__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_1037__CLASS_CITERATOR.obj_len = 3; /*inistring dstr_1038__CLASS_CITERATOR*/ /*_.VALSTR___V1129*/ meltfptr[1128] = (melt_ptr_t) & cdat->dstr_1038__CLASS_CITERATOR; cdat->dstr_1038__CLASS_CITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1038__CLASS_CITERATOR.val, "CLASS_CITERATOR", sizeof (cdat->dstr_1038__CLASS_CITERATOR. val) - 1); /*iniobj dsym_1039__FRESH_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V1130*/ meltfptr[1129]) /*_.VALDATA___V1130*/ meltfptr[1129] = (melt_ptr_t) & cdat->dsym_1039__FRESH_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1039__FRESH_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1039__FRESH_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1039__FRESH_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1039__FRESH_ENV.obj_hash = 1002363940; cdat->dsym_1039__FRESH_ENV.obj_len = 3; /*inistring dstr_1040__FRESH_ENV*/ /*_.VALSTR___V1131*/ meltfptr[1130] = (melt_ptr_t) & cdat->dstr_1040__FRESH_ENV; cdat->dstr_1040__FRESH_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1040__FRESH_ENV.val, "FRESH_ENV", sizeof (cdat->dstr_1040__FRESH_ENV.val) - 1); /*iniobj dsym_1041__MULTIPLE_EVERY*/ /*uniqueobj*/ if (! /*_.VALDATA___V1132*/ meltfptr[1131]) /*_.VALDATA___V1132*/ meltfptr[1131] = (melt_ptr_t) & cdat->dsym_1041__MULTIPLE_EVERY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1041__MULTIPLE_EVERY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1041__MULTIPLE_EVERY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1041__MULTIPLE_EVERY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1041__MULTIPLE_EVERY.obj_hash = 130098745; cdat->dsym_1041__MULTIPLE_EVERY.obj_len = 3; /*inistring dstr_1042__MULTIPLE_EVERY*/ /*_.VALSTR___V1133*/ meltfptr[1132] = (melt_ptr_t) & cdat->dstr_1042__MULTIPLE_EVERY; cdat->dstr_1042__MULTIPLE_EVERY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1042__MULTIPLE_EVERY.val, "MULTIPLE_EVERY", sizeof (cdat->dstr_1042__MULTIPLE_EVERY.val) - 1); /*inirout drout_1043__LAMBDA_ */ /*_.VALROUT___V1112*/ meltfptr[1111] = (melt_ptr_t) & cdat->drout_1043__LAMBDA_; cdat->drout_1043__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1043__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1141", MELT_ROUTDESCR_LEN - 1); cdat->drout_1043__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1043__LAMBDA_, meltrout_10_warmelt_macro_LAMBDA___1__); /*iniobj dsym_1044__PUT_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V1134*/ meltfptr[1133]) /*_.VALDATA___V1134*/ meltfptr[1133] = (melt_ptr_t) & cdat->dsym_1044__PUT_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1044__PUT_ENV", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1044__PUT_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1044__PUT_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1044__PUT_ENV.obj_hash = 440202203; cdat->dsym_1044__PUT_ENV.obj_len = 3; /*inistring dstr_1045__PUT_ENV*/ /*_.VALSTR___V1135*/ meltfptr[1134] = (melt_ptr_t) & cdat->dstr_1045__PUT_ENV; cdat->dstr_1045__PUT_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1045__PUT_ENV.val, "PUT_ENV", sizeof (cdat->dstr_1045__PUT_ENV.val) - 1); /*inirout drout_1046__EXPAND_CMATCHEXPR */ /*_.VALROUT___V1114*/ meltfptr[1113] = (melt_ptr_t) & cdat->drout_1046__EXPAND_CMATCHEXPR; cdat->drout_1046__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1046__EXPAND_CMATCHEXPR.routdescr, "EXPAND_CMATCHEXPR @warmelt-macro.melt:1159", MELT_ROUTDESCR_LEN - 1); cdat->drout_1046__EXPAND_CMATCHEXPR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1046__EXPAND_CMATCHEXPR, meltrout_11_warmelt_macro_EXPAND_CMATCHEXPR); /*iniclos dclo_1047__EXPAND_CMATCHEXPR */ /*_.VALCLO___V1113*/ meltfptr[1112] = (melt_ptr_t) & cdat->dclo_1047__EXPAND_CMATCHEXPR; cdat->dclo_1047__EXPAND_CMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1047__EXPAND_CMATCHEXPR.nbval = 0; /*iniobj dsym_1048__CLASS_CMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1136*/ meltfptr[1135]) /*_.VALDATA___V1136*/ meltfptr[1135] = (melt_ptr_t) & cdat->dsym_1048__CLASS_CMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1048__CLASS_CMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1048__CLASS_CMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1048__CLASS_CMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1048__CLASS_CMATCHER.obj_hash = 544975672; cdat->dsym_1048__CLASS_CMATCHER.obj_len = 3; /*inistring dstr_1049__CLASS_CMATCHER*/ /*_.VALSTR___V1137*/ meltfptr[1136] = (melt_ptr_t) & cdat->dstr_1049__CLASS_CMATCHER; cdat->dstr_1049__CLASS_CMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1049__CLASS_CMATCHER.val, "CLASS_CMATCHER", sizeof (cdat->dstr_1049__CLASS_CMATCHER.val) - 1); /*inirout drout_1050__EXPAND_FUNMATCHEXPR */ /*_.VALROUT___V1116*/ meltfptr[1115] = (melt_ptr_t) & cdat->drout_1050__EXPAND_FUNMATCHEXPR; cdat->drout_1050__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1050__EXPAND_FUNMATCHEXPR.routdescr, "EXPAND_FUNMATCHEXPR @warmelt-macro.melt:1202", MELT_ROUTDESCR_LEN - 1); cdat->drout_1050__EXPAND_FUNMATCHEXPR.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1050__EXPAND_FUNMATCHEXPR, meltrout_12_warmelt_macro_EXPAND_FUNMATCHEXPR); /*iniclos dclo_1051__EXPAND_FUNMATCHEXPR */ /*_.VALCLO___V1115*/ meltfptr[1114] = (melt_ptr_t) & cdat->dclo_1051__EXPAND_FUNMATCHEXPR; cdat->dclo_1051__EXPAND_FUNMATCHEXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1051__EXPAND_FUNMATCHEXPR.nbval = 0; /*iniobj dsym_1052__CLASS_FUNMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1138*/ meltfptr[1137]) /*_.VALDATA___V1138*/ meltfptr[1137] = (melt_ptr_t) & cdat->dsym_1052__CLASS_FUNMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1052__CLASS_FUNMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1052__CLASS_FUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1052__CLASS_FUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1052__CLASS_FUNMATCHER.obj_hash = 197743893; cdat->dsym_1052__CLASS_FUNMATCHER.obj_len = 3; /*inistring dstr_1053__CLASS_FUNMATCHER*/ /*_.VALSTR___V1139*/ meltfptr[1138] = (melt_ptr_t) & cdat->dstr_1053__CLASS_FUNMATCHER; cdat->dstr_1053__CLASS_FUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1053__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER", sizeof (cdat->dstr_1053__CLASS_FUNMATCHER. val) - 1); /*inirout drout_1054__EXPAND_KEYWORDFUN */ /*_.VALROUT___V1102*/ meltfptr[1101] = (melt_ptr_t) & cdat->drout_1054__EXPAND_KEYWORDFUN; cdat->drout_1054__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1054__EXPAND_KEYWORDFUN.routdescr, "EXPAND_KEYWORDFUN @warmelt-macro.melt:1234", MELT_ROUTDESCR_LEN - 1); cdat->drout_1054__EXPAND_KEYWORDFUN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1054__EXPAND_KEYWORDFUN, meltrout_13_warmelt_macro_EXPAND_KEYWORDFUN); /*iniclos dclo_1055__EXPAND_KEYWORDFUN */ /*_.VALCLO___V1101*/ meltfptr[1100] = (melt_ptr_t) & cdat->dclo_1055__EXPAND_KEYWORDFUN; cdat->dclo_1055__EXPAND_KEYWORDFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1055__EXPAND_KEYWORDFUN.nbval = 0; /*inirout drout_1056__MACROEXPAND_1 */ /*_.VALROUT___V1100*/ meltfptr[1099] = (melt_ptr_t) & cdat->drout_1056__MACROEXPAND_1; cdat->drout_1056__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1056__MACROEXPAND_1.routdescr, "MACROEXPAND_1 @warmelt-macro.melt:1252", MELT_ROUTDESCR_LEN - 1); cdat->drout_1056__MACROEXPAND_1.nbval = 34; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1056__MACROEXPAND_1, meltrout_14_warmelt_macro_MACROEXPAND_1); /*iniclos dclo_1057__MACROEXPAND_1 */ /*_.VALCLO___V1099*/ meltfptr[1098] = (melt_ptr_t) & cdat->dclo_1057__MACROEXPAND_1; cdat->dclo_1057__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1057__MACROEXPAND_1.nbval = 0; /*iniobj dsym_1058__FIND_ENV*/ /*uniqueobj*/ if (! /*_.VALDATA___V1140*/ meltfptr[1139]) /*_.VALDATA___V1140*/ meltfptr[1139] = (melt_ptr_t) & cdat->dsym_1058__FIND_ENV; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1058__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_1058__FIND_ENV", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1058__FIND_ENV.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1058__FIND_ENV.obj_hash = 233459738; cdat->dsym_1058__FIND_ENV.obj_len = 3; /*inistring dstr_1059__FIND_ENV*/ /*_.VALSTR___V1141*/ meltfptr[1140] = (melt_ptr_t) & cdat->dstr_1059__FIND_ENV; cdat->dstr_1059__FIND_ENV.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1059__FIND_ENV.val, "FIND_ENV", sizeof (cdat->dstr_1059__FIND_ENV.val) - 1); /*iniobj dsym_1060__CLASS_MACRO_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1142*/ meltfptr[1141]) /*_.VALDATA___V1142*/ meltfptr[1141] = (melt_ptr_t) & cdat->dsym_1060__CLASS_MACRO_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1060__CLASS_MACRO_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1060__CLASS_MACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1060__CLASS_MACRO_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1060__CLASS_MACRO_BINDING.obj_hash = 628198824; cdat->dsym_1060__CLASS_MACRO_BINDING.obj_len = 3; /*inistring dstr_1061__CLASS_MACRO_BIND*/ /*_.VALSTR___V1143*/ meltfptr[1142] = (melt_ptr_t) & cdat->dstr_1061__CLASS_MACRO_BIND; cdat->dstr_1061__CLASS_MACRO_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1061__CLASS_MACRO_BIND.val, "CLASS_MACRO_BINDING", sizeof (cdat->dstr_1061__CLASS_MACRO_BIND. val) - 1); /*iniobj dsym_1062__CLASS_SELECTOR_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1144*/ meltfptr[1143]) /*_.VALDATA___V1144*/ meltfptr[1143] = (melt_ptr_t) & cdat->dsym_1062__CLASS_SELECTOR_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1062__CLASS_SELECTOR_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1062__CLASS_SELECTOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1062__CLASS_SELECTOR_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1062__CLASS_SELECTOR_BINDING.obj_hash = 80713028; cdat->dsym_1062__CLASS_SELECTOR_BINDING.obj_len = 3; /*inistring dstr_1063__CLASS_SELECTOR_B*/ /*_.VALSTR___V1145*/ meltfptr[1144] = (melt_ptr_t) & cdat->dstr_1063__CLASS_SELECTOR_B; cdat->dstr_1063__CLASS_SELECTOR_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1063__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING", sizeof (cdat->dstr_1063__CLASS_SELECTOR_B. val) - 1); /*iniobj dsym_1064__CLASS_PRIMITIVE_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1146*/ meltfptr[1145]) /*_.VALDATA___V1146*/ meltfptr[1145] = (melt_ptr_t) & cdat->dsym_1064__CLASS_PRIMITIVE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1064__CLASS_PRIMITIVE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1064__CLASS_PRIMITIVE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1064__CLASS_PRIMITIVE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1064__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; cdat->dsym_1064__CLASS_PRIMITIVE_BINDING.obj_len = 3; /*inistring dstr_1065__CLASS_PRIMITIVE_*/ /*_.VALSTR___V1147*/ meltfptr[1146] = (melt_ptr_t) & cdat->dstr_1065__CLASS_PRIMITIVE_; cdat->dstr_1065__CLASS_PRIMITIVE_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1065__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING", sizeof (cdat->dstr_1065__CLASS_PRIMITIVE_. val) - 1); /*iniobj dsym_1066__CLASS_CITERATOR_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1148*/ meltfptr[1147]) /*_.VALDATA___V1148*/ meltfptr[1147] = (melt_ptr_t) & cdat->dsym_1066__CLASS_CITERATOR_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1066__CLASS_CITERATOR_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1066__CLASS_CITERATOR_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1066__CLASS_CITERATOR_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1066__CLASS_CITERATOR_BINDING.obj_hash = 241925087; cdat->dsym_1066__CLASS_CITERATOR_BINDING.obj_len = 3; /*inistring dstr_1067__CLASS_CITERATOR_*/ /*_.VALSTR___V1149*/ meltfptr[1148] = (melt_ptr_t) & cdat->dstr_1067__CLASS_CITERATOR_; cdat->dstr_1067__CLASS_CITERATOR_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1067__CLASS_CITERATOR_.val, "CLASS_CITERATOR_BINDING", sizeof (cdat->dstr_1067__CLASS_CITERATOR_. val) - 1); /*iniobj dsym_1068__CLASS_CMATCHER_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1150*/ meltfptr[1149]) /*_.VALDATA___V1150*/ meltfptr[1149] = (melt_ptr_t) & cdat->dsym_1068__CLASS_CMATCHER_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1068__CLASS_CMATCHER_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1068__CLASS_CMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1068__CLASS_CMATCHER_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1068__CLASS_CMATCHER_BINDING.obj_hash = 386982082; cdat->dsym_1068__CLASS_CMATCHER_BINDING.obj_len = 3; /*inistring dstr_1069__CLASS_CMATCHER_B*/ /*_.VALSTR___V1151*/ meltfptr[1150] = (melt_ptr_t) & cdat->dstr_1069__CLASS_CMATCHER_B; cdat->dstr_1069__CLASS_CMATCHER_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1069__CLASS_CMATCHER_B.val, "CLASS_CMATCHER_BINDING", sizeof (cdat->dstr_1069__CLASS_CMATCHER_B. val) - 1); /*iniobj dsym_1070__CLASS_FUNMATCHER_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1152*/ meltfptr[1151]) /*_.VALDATA___V1152*/ meltfptr[1151] = (melt_ptr_t) & cdat->dsym_1070__CLASS_FUNMATCHER_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1070__CLASS_FUNMATCHER_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1070__CLASS_FUNMATCHER_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1070__CLASS_FUNMATCHER_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1070__CLASS_FUNMATCHER_BINDING.obj_hash = 81554237; cdat->dsym_1070__CLASS_FUNMATCHER_BINDING.obj_len = 3; /*inistring dstr_1071__CLASS_FUNMATCHER*/ /*_.VALSTR___V1153*/ meltfptr[1152] = (melt_ptr_t) & cdat->dstr_1071__CLASS_FUNMATCHER; cdat->dstr_1071__CLASS_FUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1071__CLASS_FUNMATCHER.val, "CLASS_FUNMATCHER_BINDING", sizeof (cdat->dstr_1071__CLASS_FUNMATCHER. val) - 1); /*iniobj dsym_1072__CLASS_FIELD_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1154*/ meltfptr[1153]) /*_.VALDATA___V1154*/ meltfptr[1153] = (melt_ptr_t) & cdat->dsym_1072__CLASS_FIELD_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1072__CLASS_FIELD_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1072__CLASS_FIELD_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1072__CLASS_FIELD_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1072__CLASS_FIELD_BINDING.obj_hash = 412002748; cdat->dsym_1072__CLASS_FIELD_BINDING.obj_len = 3; /*inistring dstr_1073__CLASS_FIELD_BIND*/ /*_.VALSTR___V1155*/ meltfptr[1154] = (melt_ptr_t) & cdat->dstr_1073__CLASS_FIELD_BIND; cdat->dstr_1073__CLASS_FIELD_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1073__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING", sizeof (cdat->dstr_1073__CLASS_FIELD_BIND. val) - 1); /*iniobj dsym_1074__CLASS_FORMAL_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1156*/ meltfptr[1155]) /*_.VALDATA___V1156*/ meltfptr[1155] = (melt_ptr_t) & cdat->dsym_1074__CLASS_FORMAL_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1074__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_1074__CLASS_FORMAL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1074__CLASS_FORMAL_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1074__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_1074__CLASS_FORMAL_BINDING.obj_len = 3; /*inistring dstr_1075__CLASS_FORMAL_BIN*/ /*_.VALSTR___V1157*/ meltfptr[1156] = (melt_ptr_t) & cdat->dstr_1075__CLASS_FORMAL_BIN; cdat->dstr_1075__CLASS_FORMAL_BIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1075__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING", sizeof (cdat->dstr_1075__CLASS_FORMAL_BIN. val) - 1); /*iniobj dsym_1076__CLASS_LET_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1158*/ meltfptr[1157]) /*_.VALDATA___V1158*/ meltfptr[1157] = (melt_ptr_t) & cdat->dsym_1076__CLASS_LET_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1076__CLASS_LET_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1076__CLASS_LET_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1076__CLASS_LET_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1076__CLASS_LET_BINDING.obj_hash = 373730517; cdat->dsym_1076__CLASS_LET_BINDING.obj_len = 3; /*inistring dstr_1077__CLASS_LET_BINDIN*/ /*_.VALSTR___V1159*/ meltfptr[1158] = (melt_ptr_t) & cdat->dstr_1077__CLASS_LET_BINDIN; cdat->dstr_1077__CLASS_LET_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1077__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING", sizeof (cdat->dstr_1077__CLASS_LET_BINDIN. val) - 1); /*iniobj dsym_1078__CLASS_VALUE_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1160*/ meltfptr[1159]) /*_.VALDATA___V1160*/ meltfptr[1159] = (melt_ptr_t) & cdat->dsym_1078__CLASS_VALUE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1078__CLASS_VALUE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1078__CLASS_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1078__CLASS_VALUE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1078__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_1078__CLASS_VALUE_BINDING.obj_len = 3; /*inistring dstr_1079__CLASS_VALUE_BIND*/ /*_.VALSTR___V1161*/ meltfptr[1160] = (melt_ptr_t) & cdat->dstr_1079__CLASS_VALUE_BIND; cdat->dstr_1079__CLASS_VALUE_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1079__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING", sizeof (cdat->dstr_1079__CLASS_VALUE_BIND. val) - 1); /*iniobj dsym_1080__CLASS_PRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1162*/ meltfptr[1161]) /*_.VALDATA___V1162*/ meltfptr[1161] = (melt_ptr_t) & cdat->dsym_1080__CLASS_PRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1080__CLASS_PRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1080__CLASS_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1080__CLASS_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1080__CLASS_PRIMITIVE.obj_hash = 102527506; cdat->dsym_1080__CLASS_PRIMITIVE.obj_len = 3; /*inistring dstr_1081__CLASS_PRIMITIVE*/ /*_.VALSTR___V1163*/ meltfptr[1162] = (melt_ptr_t) & cdat->dstr_1081__CLASS_PRIMITIVE; cdat->dstr_1081__CLASS_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1081__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE", sizeof (cdat->dstr_1081__CLASS_PRIMITIVE. val) - 1); /*inirout drout_1082__LAMBDA_ */ /*_.VALROUT___V1119*/ meltfptr[1118] = (melt_ptr_t) & cdat->drout_1082__LAMBDA_; cdat->drout_1082__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1082__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1372", MELT_ROUTDESCR_LEN - 1); cdat->drout_1082__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1082__LAMBDA_, meltrout_15_warmelt_macro_LAMBDA___2__); /*inirout drout_1083__EXPAND_PRIMITIVE */ /*_.VALROUT___V1105*/ meltfptr[1104] = (melt_ptr_t) & cdat->drout_1083__EXPAND_PRIMITIVE; cdat->drout_1083__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1083__EXPAND_PRIMITIVE.routdescr, "EXPAND_PRIMITIVE @warmelt-macro.melt:1412", MELT_ROUTDESCR_LEN - 1); cdat->drout_1083__EXPAND_PRIMITIVE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1083__EXPAND_PRIMITIVE, meltrout_16_warmelt_macro_EXPAND_PRIMITIVE); /*iniclos dclo_1084__EXPAND_PRIMITIVE */ /*_.VALCLO___V1104*/ meltfptr[1103] = (melt_ptr_t) & cdat->dclo_1084__EXPAND_PRIMITIVE; cdat->dclo_1084__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1084__EXPAND_PRIMITIVE.nbval = 0; /*iniobj dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1164*/ meltfptr[1163]) /*_.VALDATA___V1164*/ meltfptr[1163] = (melt_ptr_t) & cdat->dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 532078431; cdat->dsym_1085__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 3; /*inistring dstr_1086__CLASS_PATTERN_EX*/ /*_.VALSTR___V1165*/ meltfptr[1164] = (melt_ptr_t) & cdat->dstr_1086__CLASS_PATTERN_EX; cdat->dstr_1086__CLASS_PATTERN_EX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1086__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_1086__CLASS_PATTERN_EX. val) - 1); /*iniobj dsym_1087__CLASS_ROOT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1166*/ meltfptr[1165]) /*_.VALDATA___V1166*/ meltfptr[1165] = (melt_ptr_t) & cdat->dsym_1087__CLASS_ROOT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1087__CLASS_ROOT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1087__CLASS_ROOT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1087__CLASS_ROOT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1087__CLASS_ROOT.obj_hash = 60568825; cdat->dsym_1087__CLASS_ROOT.obj_len = 3; /*inistring dstr_1088__CLASS_ROOT*/ /*_.VALSTR___V1167*/ meltfptr[1166] = (melt_ptr_t) & cdat->dstr_1088__CLASS_ROOT; cdat->dstr_1088__CLASS_ROOT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1088__CLASS_ROOT.val, "CLASS_ROOT", sizeof (cdat->dstr_1088__CLASS_ROOT.val) - 1); MELT_LOCATION ("warmelt-macro.melt:1430:/ iniobj"); #line 1430 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT*/ /*_.VALDATA___V1168*/ meltfptr[1167] = (melt_ptr_t) & cdat->dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_CLASS)))); cdat->dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT.obj_num = MELTOBMAG_OBJECT; cdat->dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT.obj_hash = 387248148; cdat->dobj_1089__CLASS_PATTERN_EXPANSION_CONTEXT.obj_len = 8; /*inistring dstr_1090__CLASS_PATTERN_EX*/ /*_.VALSTR___V1169*/ meltfptr[1168] = (melt_ptr_t) & cdat->dstr_1090__CLASS_PATTERN_EX; cdat->dstr_1090__CLASS_PATTERN_EX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1090__CLASS_PATTERN_EX.val, "CLASS_PATTERN_EXPANSION_CONTEXT", sizeof (cdat->dstr_1090__CLASS_PATTERN_EX. val) - 1); /*inimult dtup_1091__CLASS_PATTERN_EXPANSION_CONTEXT */ /*_.VALTUP___V1170*/ meltfptr[1169] = (melt_ptr_t) & cdat->dtup_1091__CLASS_PATTERN_EXPANSION_CONTEXT; cdat->dtup_1091__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLASS_SEQUENCE)))); cdat->dtup_1091__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 1; /*inimult dtup_1092__CLASS_PATTERN_EXPANSION_CONTEXT */ /*_.VALTUP___V1179*/ meltfptr[1178] = (melt_ptr_t) & cdat->dtup_1092__CLASS_PATTERN_EXPANSION_CONTEXT; cdat->dtup_1092__CLASS_PATTERN_EXPANSION_CONTEXT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_FIELD_SEQUENCE)))); cdat->dtup_1092__CLASS_PATTERN_EXPANSION_CONTEXT.nbval = 4; /*iniobj dsym_1093__PCTX_MEXPANDER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1180*/ meltfptr[1179]) /*_.VALDATA___V1180*/ meltfptr[1179] = (melt_ptr_t) & cdat->dsym_1093__PCTX_MEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1093__PCTX_MEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1093__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1093__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1093__PCTX_MEXPANDER.obj_hash = 715065668; cdat->dsym_1093__PCTX_MEXPANDER.obj_len = 3; /*inistring dstr_1094__PCTX_MEXPANDER*/ /*_.VALSTR___V1181*/ meltfptr[1180] = (melt_ptr_t) & cdat->dstr_1094__PCTX_MEXPANDER; cdat->dstr_1094__PCTX_MEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1094__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_1094__PCTX_MEXPANDER.val) - 1); /*^iniobj */ #line 1430 /*iniobj dobj_1095__PCTX_MEXPANDER*/ /*_.VALDATA___V1171*/ meltfptr[1170] = (melt_ptr_t) & cdat->dobj_1095__PCTX_MEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1095__PCTX_MEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1095__PCTX_MEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1095__PCTX_MEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_1095__PCTX_MEXPANDER.obj_num = 0; cdat->dobj_1095__PCTX_MEXPANDER.obj_hash = 563025791; cdat->dobj_1095__PCTX_MEXPANDER.obj_len = 4; /*inistring dstr_1096__PCTX_MEXPANDER*/ /*_.VALSTR___V1172*/ meltfptr[1171] = (melt_ptr_t) & cdat->dstr_1096__PCTX_MEXPANDER; cdat->dstr_1096__PCTX_MEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1096__PCTX_MEXPANDER.val, "PCTX_MEXPANDER", sizeof (cdat->dstr_1096__PCTX_MEXPANDER.val) - 1); /*iniobj dsym_1097__PCTX_PEXPANDER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1182*/ meltfptr[1181]) /*_.VALDATA___V1182*/ meltfptr[1181] = (melt_ptr_t) & cdat->dsym_1097__PCTX_PEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1097__PCTX_PEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1097__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1097__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1097__PCTX_PEXPANDER.obj_hash = 169945608; cdat->dsym_1097__PCTX_PEXPANDER.obj_len = 3; /*inistring dstr_1098__PCTX_PEXPANDER*/ /*_.VALSTR___V1183*/ meltfptr[1182] = (melt_ptr_t) & cdat->dstr_1098__PCTX_PEXPANDER; cdat->dstr_1098__PCTX_PEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1098__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_1098__PCTX_PEXPANDER.val) - 1); /*^iniobj */ #line 1430 /*iniobj dobj_1099__PCTX_PEXPANDER*/ /*_.VALDATA___V1173*/ meltfptr[1172] = (melt_ptr_t) & cdat->dobj_1099__PCTX_PEXPANDER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1099__PCTX_PEXPANDER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1099__PCTX_PEXPANDER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1099__PCTX_PEXPANDER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_1099__PCTX_PEXPANDER.obj_num = 1; cdat->dobj_1099__PCTX_PEXPANDER.obj_hash = 224628036; cdat->dobj_1099__PCTX_PEXPANDER.obj_len = 4; /*inistring dstr_1100__PCTX_PEXPANDER*/ /*_.VALSTR___V1174*/ meltfptr[1173] = (melt_ptr_t) & cdat->dstr_1100__PCTX_PEXPANDER; cdat->dstr_1100__PCTX_PEXPANDER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1100__PCTX_PEXPANDER.val, "PCTX_PEXPANDER", sizeof (cdat->dstr_1100__PCTX_PEXPANDER.val) - 1); /*iniobj dsym_1101__PCTX_VARMAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V1184*/ meltfptr[1183]) /*_.VALDATA___V1184*/ meltfptr[1183] = (melt_ptr_t) & cdat->dsym_1101__PCTX_VARMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1101__PCTX_VARMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1101__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1101__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1101__PCTX_VARMAP.obj_hash = 83805471; cdat->dsym_1101__PCTX_VARMAP.obj_len = 3; /*inistring dstr_1102__PCTX_VARMAP*/ /*_.VALSTR___V1185*/ meltfptr[1184] = (melt_ptr_t) & cdat->dstr_1102__PCTX_VARMAP; cdat->dstr_1102__PCTX_VARMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1102__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1102__PCTX_VARMAP.val) - 1); /*^iniobj */ #line 1430 /*iniobj dobj_1103__PCTX_VARMAP*/ /*_.VALDATA___V1175*/ meltfptr[1174] = (melt_ptr_t) & cdat->dobj_1103__PCTX_VARMAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1103__PCTX_VARMAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1103__PCTX_VARMAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1103__PCTX_VARMAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_1103__PCTX_VARMAP.obj_num = 2; cdat->dobj_1103__PCTX_VARMAP.obj_hash = 114589748; cdat->dobj_1103__PCTX_VARMAP.obj_len = 4; /*inistring dstr_1104__PCTX_VARMAP*/ /*_.VALSTR___V1176*/ meltfptr[1175] = (melt_ptr_t) & cdat->dstr_1104__PCTX_VARMAP; cdat->dstr_1104__PCTX_VARMAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1104__PCTX_VARMAP.val, "PCTX_VARMAP", sizeof (cdat->dstr_1104__PCTX_VARMAP.val) - 1); /*iniobj dsym_1105__PCTX_MODCTX*/ /*uniqueobj*/ if (! /*_.VALDATA___V1186*/ meltfptr[1185]) /*_.VALDATA___V1186*/ meltfptr[1185] = (melt_ptr_t) & cdat->dsym_1105__PCTX_MODCTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1105__PCTX_MODCTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1105__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1105__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1105__PCTX_MODCTX.obj_hash = 770769253; cdat->dsym_1105__PCTX_MODCTX.obj_len = 3; /*inistring dstr_1106__PCTX_MODCTX*/ /*_.VALSTR___V1187*/ meltfptr[1186] = (melt_ptr_t) & cdat->dstr_1106__PCTX_MODCTX; cdat->dstr_1106__PCTX_MODCTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1106__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (cdat->dstr_1106__PCTX_MODCTX.val) - 1); /*^iniobj */ #line 1430 /*iniobj dobj_1107__PCTX_MODCTX*/ /*_.VALDATA___V1177*/ meltfptr[1176] = (melt_ptr_t) & cdat->dobj_1107__PCTX_MODCTX; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1107__PCTX_MODCTX", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1107__PCTX_MODCTX", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1107__PCTX_MODCTX.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_FIELD)))); cdat->dobj_1107__PCTX_MODCTX.obj_num = 3; cdat->dobj_1107__PCTX_MODCTX.obj_hash = 1016220198; cdat->dobj_1107__PCTX_MODCTX.obj_len = 4; /*inistring dstr_1108__PCTX_MODCTX*/ /*_.VALSTR___V1178*/ meltfptr[1177] = (melt_ptr_t) & cdat->dstr_1108__PCTX_MODCTX; cdat->dstr_1108__PCTX_MODCTX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1108__PCTX_MODCTX.val, "PCTX_MODCTX", sizeof (cdat->dstr_1108__PCTX_MODCTX.val) - 1); /*inirout drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ /*_.VALROUT___V1188*/ meltfptr[1187] = (melt_ptr_t) & cdat->drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE; cdat->drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE.routdescr, "PATTERNEXPAND_PAIRLIST_AS_TUPLE @warmelt-macro.melt:1443", MELT_ROUTDESCR_LEN - 1); cdat->drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE, meltrout_17_warmelt_macro_PATTERNEXPAND_PAIRLIST_AS_TUPLE); /*iniclos dclo_1110__PATTERNEXPAND_PAIRLIST_AS_TUPLE */ /*_.VALCLO___V1209*/ meltfptr[1208] = (melt_ptr_t) & cdat->dclo_1110__PATTERNEXPAND_PAIRLIST_AS_TUPLE; cdat->dclo_1110__PATTERNEXPAND_PAIRLIST_AS_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1110__PATTERNEXPAND_PAIRLIST_AS_TUPLE.nbval = 0; /*iniobj dsym_1111__PAIRLIST_TO_MULTIPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1210*/ meltfptr[1209]) /*_.VALDATA___V1210*/ meltfptr[1209] = (melt_ptr_t) & cdat->dsym_1111__PAIRLIST_TO_MULTIPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1111__PAIRLIST_TO_MULTIPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1111__PAIRLIST_TO_MULTIPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1111__PAIRLIST_TO_MULTIPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1111__PAIRLIST_TO_MULTIPLE.obj_hash = 205669322; cdat->dsym_1111__PAIRLIST_TO_MULTIPLE.obj_len = 3; /*inistring dstr_1112__PAIRLIST_TO_MULT*/ /*_.VALSTR___V1211*/ meltfptr[1210] = (melt_ptr_t) & cdat->dstr_1112__PAIRLIST_TO_MULT; cdat->dstr_1112__PAIRLIST_TO_MULT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1112__PAIRLIST_TO_MULT.val, "PAIRLIST_TO_MULTIPLE", sizeof (cdat->dstr_1112__PAIRLIST_TO_MULT. val) - 1); /*inirout drout_1113__LAMBDA_ */ /*_.VALROUT___V1208*/ meltfptr[1207] = (melt_ptr_t) & cdat->drout_1113__LAMBDA_; cdat->drout_1113__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1113__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1447", MELT_ROUTDESCR_LEN - 1); cdat->drout_1113__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1113__LAMBDA_, meltrout_18_warmelt_macro_LAMBDA___3__); /*inirout drout_1114__PATMACEXPAND_FOR_MATCHER */ /*_.VALROUT___V1201*/ meltfptr[1200] = (melt_ptr_t) & cdat->drout_1114__PATMACEXPAND_FOR_MATCHER; cdat->drout_1114__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1114__PATMACEXPAND_FOR_MATCHER.routdescr, "PATMACEXPAND_FOR_MATCHER @warmelt-macro.melt:1457", MELT_ROUTDESCR_LEN - 1); cdat->drout_1114__PATMACEXPAND_FOR_MATCHER.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1114__PATMACEXPAND_FOR_MATCHER, meltrout_19_warmelt_macro_PATMACEXPAND_FOR_MATCHER); /*iniclos dclo_1115__PATMACEXPAND_FOR_MATCHER */ /*_.VALCLO___V1200*/ meltfptr[1199] = (melt_ptr_t) & cdat->dclo_1115__PATMACEXPAND_FOR_MATCHER; cdat->dclo_1115__PATMACEXPAND_FOR_MATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1115__PATMACEXPAND_FOR_MATCHER.nbval = 0; /*iniobj dsym_1116__CLASS_ANY_MATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1212*/ meltfptr[1211]) /*_.VALDATA___V1212*/ meltfptr[1211] = (melt_ptr_t) & cdat->dsym_1116__CLASS_ANY_MATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1116__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_1116__CLASS_ANY_MATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1116__CLASS_ANY_MATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1116__CLASS_ANY_MATCHER.obj_hash = 781265508; cdat->dsym_1116__CLASS_ANY_MATCHER.obj_len = 3; /*inistring dstr_1117__CLASS_ANY_MATCHE*/ /*_.VALSTR___V1213*/ meltfptr[1212] = (melt_ptr_t) & cdat->dstr_1117__CLASS_ANY_MATCHE; cdat->dstr_1117__CLASS_ANY_MATCHE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1117__CLASS_ANY_MATCHE.val, "CLASS_ANY_MATCHER", sizeof (cdat->dstr_1117__CLASS_ANY_MATCHE. val) - 1); /*iniobj dsym_1118__CLASS_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1214*/ meltfptr[1213]) /*_.VALDATA___V1214*/ meltfptr[1213] = (melt_ptr_t) & cdat->dsym_1118__CLASS_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1118__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_1118__CLASS_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1118__CLASS_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1118__CLASS_REFERENCE.obj_hash = 896623907; cdat->dsym_1118__CLASS_REFERENCE.obj_len = 3; /*inistring dstr_1119__CLASS_REFERENCE*/ /*_.VALSTR___V1215*/ meltfptr[1214] = (melt_ptr_t) & cdat->dstr_1119__CLASS_REFERENCE; cdat->dstr_1119__CLASS_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1119__CLASS_REFERENCE.val, "CLASS_REFERENCE", sizeof (cdat->dstr_1119__CLASS_REFERENCE. val) - 1); /*iniobj dsym_1120__MULTIPLE_MAP*/ /*uniqueobj*/ if (! /*_.VALDATA___V1216*/ meltfptr[1215]) /*_.VALDATA___V1216*/ meltfptr[1215] = (melt_ptr_t) & cdat->dsym_1120__MULTIPLE_MAP; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1120__MULTIPLE_MAP", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1120__MULTIPLE_MAP", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1120__MULTIPLE_MAP.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1120__MULTIPLE_MAP.obj_hash = 218301686; cdat->dsym_1120__MULTIPLE_MAP.obj_len = 3; /*inistring dstr_1121__MULTIPLE_MAP*/ /*_.VALSTR___V1217*/ meltfptr[1216] = (melt_ptr_t) & cdat->dstr_1121__MULTIPLE_MAP; cdat->dstr_1121__MULTIPLE_MAP.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1121__MULTIPLE_MAP.val, "MULTIPLE_MAP", sizeof (cdat->dstr_1121__MULTIPLE_MAP.val) - 1); /*inirout drout_1122__LAMBDA_ */ /*_.VALROUT___V1202*/ meltfptr[1201] = (melt_ptr_t) & cdat->drout_1122__LAMBDA_; cdat->drout_1122__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1122__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1470", MELT_ROUTDESCR_LEN - 1); cdat->drout_1122__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1122__LAMBDA_, meltrout_20_warmelt_macro_LAMBDA___4__); /*inirout drout_1123__LAMBDA_ */ /*_.VALROUT___V1203*/ meltfptr[1202] = (melt_ptr_t) & cdat->drout_1123__LAMBDA_; cdat->drout_1123__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1123__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1482", MELT_ROUTDESCR_LEN - 1); cdat->drout_1123__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1123__LAMBDA_, meltrout_21_warmelt_macro_LAMBDA___5__); /*inirout drout_1124__PATTERN_WEIGHT_TUPLE */ /*_.VALROUT___V1205*/ meltfptr[1204] = (melt_ptr_t) & cdat->drout_1124__PATTERN_WEIGHT_TUPLE; cdat->drout_1124__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1124__PATTERN_WEIGHT_TUPLE.routdescr, "PATTERN_WEIGHT_TUPLE @warmelt-macro.melt:1501", MELT_ROUTDESCR_LEN - 1); cdat->drout_1124__PATTERN_WEIGHT_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1124__PATTERN_WEIGHT_TUPLE, meltrout_22_warmelt_macro_PATTERN_WEIGHT_TUPLE); /*iniclos dclo_1125__PATTERN_WEIGHT_TUPLE */ /*_.VALCLO___V1204*/ meltfptr[1203] = (melt_ptr_t) & cdat->dclo_1125__PATTERN_WEIGHT_TUPLE; cdat->dclo_1125__PATTERN_WEIGHT_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1125__PATTERN_WEIGHT_TUPLE.nbval = 0; /*iniobj dsym_1126__DISCR_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1218*/ meltfptr[1217]) /*_.VALDATA___V1218*/ meltfptr[1217] = (melt_ptr_t) & cdat->dsym_1126__DISCR_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1126__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_1126__DISCR_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1126__DISCR_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1126__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_1126__DISCR_INTEGER.obj_len = 3; /*inistring dstr_1127__DISCR_INTEGER*/ /*_.VALSTR___V1219*/ meltfptr[1218] = (melt_ptr_t) & cdat->dstr_1127__DISCR_INTEGER; cdat->dstr_1127__DISCR_INTEGER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1127__DISCR_INTEGER.val, "DISCR_INTEGER", sizeof (cdat->dstr_1127__DISCR_INTEGER.val) - 1); /*inirout drout_1128__LAMBDA_ */ /*_.VALROUT___V1206*/ meltfptr[1205] = (melt_ptr_t) & cdat->drout_1128__LAMBDA_; cdat->drout_1128__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1128__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:1514", MELT_ROUTDESCR_LEN - 1); cdat->drout_1128__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1128__LAMBDA_, meltrout_23_warmelt_macro_LAMBDA___6__); /*iniobj dsym_1129__DISCR_CONSTANT_INTEGER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1220*/ meltfptr[1219]) /*_.VALDATA___V1220*/ meltfptr[1219] = (melt_ptr_t) & cdat->dsym_1129__DISCR_CONSTANT_INTEGER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1129__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_1129__DISCR_CONSTANT_INTEGER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1129__DISCR_CONSTANT_INTEGER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1129__DISCR_CONSTANT_INTEGER.obj_hash = 1007078494; cdat->dsym_1129__DISCR_CONSTANT_INTEGER.obj_len = 3; /*inistring dstr_1130__DISCR_CONSTANT_I*/ /*_.VALSTR___V1221*/ meltfptr[1220] = (melt_ptr_t) & cdat->dstr_1130__DISCR_CONSTANT_I; cdat->dstr_1130__DISCR_CONSTANT_I.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1130__DISCR_CONSTANT_I.val, "DISCR_CONSTANT_INTEGER", sizeof (cdat->dstr_1130__DISCR_CONSTANT_I. val) - 1); /*inirout drout_1131__PATTERNEXPAND_EXPR */ /*_.VALROUT___V1199*/ meltfptr[1198] = (melt_ptr_t) & cdat->drout_1131__PATTERNEXPAND_EXPR; cdat->drout_1131__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1131__PATTERNEXPAND_EXPR.routdescr, "PATTERNEXPAND_EXPR @warmelt-macro.melt:1535", MELT_ROUTDESCR_LEN - 1); cdat->drout_1131__PATTERNEXPAND_EXPR.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1131__PATTERNEXPAND_EXPR, meltrout_24_warmelt_macro_PATTERNEXPAND_EXPR); /*iniclos dclo_1132__PATTERNEXPAND_EXPR */ /*_.VALCLO___V1198*/ meltfptr[1197] = (melt_ptr_t) & cdat->dclo_1132__PATTERNEXPAND_EXPR; cdat->dclo_1132__PATTERNEXPAND_EXPR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1132__PATTERNEXPAND_EXPR.nbval = 0; /*iniobj dsym_1133__CLASS_PATMACRO_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1222*/ meltfptr[1221]) /*_.VALDATA___V1222*/ meltfptr[1221] = (melt_ptr_t) & cdat->dsym_1133__CLASS_PATMACRO_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1133__CLASS_PATMACRO_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1133__CLASS_PATMACRO_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1133__CLASS_PATMACRO_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1133__CLASS_PATMACRO_BINDING.obj_hash = 202308327; cdat->dsym_1133__CLASS_PATMACRO_BINDING.obj_len = 3; /*inistring dstr_1134__CLASS_PATMACRO_B*/ /*_.VALSTR___V1223*/ meltfptr[1222] = (melt_ptr_t) & cdat->dstr_1134__CLASS_PATMACRO_B; cdat->dstr_1134__CLASS_PATMACRO_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1134__CLASS_PATMACRO_B.val, "CLASS_PATMACRO_BINDING", sizeof (cdat->dstr_1134__CLASS_PATMACRO_B. val) - 1); /*inirout drout_1135__PATTERNEXPAND_1 */ /*_.VALROUT___V1190*/ meltfptr[1189] = (melt_ptr_t) & cdat->drout_1135__PATTERNEXPAND_1; cdat->drout_1135__PATTERNEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1135__PATTERNEXPAND_1.routdescr, "PATTERNEXPAND_1 @warmelt-macro.melt:1688", MELT_ROUTDESCR_LEN - 1); cdat->drout_1135__PATTERNEXPAND_1.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1135__PATTERNEXPAND_1, meltrout_25_warmelt_macro_PATTERNEXPAND_1); /*iniclos dclo_1136__PATTERNEXPAND_1 */ /*_.VALCLO___V1189*/ meltfptr[1188] = (melt_ptr_t) & cdat->dclo_1136__PATTERNEXPAND_1; cdat->dclo_1136__PATTERNEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1136__PATTERNEXPAND_1.nbval = 0; /*iniobj dsym_1137__QUESTION*/ /*uniqueobj*/ if (! /*_.VALDATA___V1191*/ meltfptr[1190]) /*_.VALDATA___V1191*/ meltfptr[1190] = (melt_ptr_t) & cdat->dsym_1137__QUESTION; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1137__QUESTION", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1137__QUESTION", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1137__QUESTION.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1137__QUESTION.obj_hash = 320539216; cdat->dsym_1137__QUESTION.obj_len = 3; /*inistring dstr_1138__QUESTION*/ /*_.VALSTR___V1192*/ meltfptr[1191] = (melt_ptr_t) & cdat->dstr_1138__QUESTION; cdat->dstr_1138__QUESTION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1138__QUESTION.val, "QUESTION", sizeof (cdat->dstr_1138__QUESTION.val) - 1); /*iniboxint dint_1139__ */ /*_.VALBXINT___V1193*/ meltfptr[1192] = (melt_ptr_t) & cdat->dint_1139__; cdat->dint_1139__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1139__.val = 1; /*iniobj dsym_1140__*/ /*uniqueobj*/ if (! /*_.VALDATA___V1194*/ meltfptr[1193]) /*_.VALDATA___V1194*/ meltfptr[1193] = (melt_ptr_t) & cdat->dsym_1140__; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1140__", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1140__", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1140__.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1140__.obj_hash = 331173307; cdat->dsym_1140__.obj_len = 3; /*inistring dstr_1141__*/ /*_.VALSTR___V1195*/ meltfptr[1194] = (melt_ptr_t) & cdat->dstr_1141__; cdat->dstr_1141__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1141__.val, "_", sizeof (cdat->dstr_1141__.val) - 1); /*iniboxint dint_1142__ */ /*_.VALBXINT___V1196*/ meltfptr[1195] = (melt_ptr_t) & cdat->dint_1142__; cdat->dint_1142__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1142__.val = 1; /*iniboxint dint_1143__ */ /*_.VALBXINT___V1197*/ meltfptr[1196] = (melt_ptr_t) & cdat->dint_1143__; cdat->dint_1143__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1143__.val = 1; /*iniboxint dint_1144__ */ /*_.VALBXINT___V1207*/ meltfptr[1206] = (melt_ptr_t) & cdat->dint_1144__; cdat->dint_1144__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1144__.val = 1; /*inirout drout_1145__MACROEXPAND_TOPLEVEL_LIST */ /*_.VALROUT___V1224*/ meltfptr[1223] = (melt_ptr_t) & cdat->drout_1145__MACROEXPAND_TOPLEVEL_LIST; cdat->drout_1145__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1145__MACROEXPAND_TOPLEVEL_LIST.routdescr, "MACROEXPAND_TOPLEVEL_LIST @warmelt-macro.melt:1779", MELT_ROUTDESCR_LEN - 1); cdat->drout_1145__MACROEXPAND_TOPLEVEL_LIST.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1145__MACROEXPAND_TOPLEVEL_LIST, meltrout_26_warmelt_macro_MACROEXPAND_TOPLEVEL_LIST); /*iniclos dclo_1146__MACROEXPAND_TOPLEVEL_LIST */ /*_.VALCLO___V1225*/ meltfptr[1224] = (melt_ptr_t) & cdat->dclo_1146__MACROEXPAND_TOPLEVEL_LIST; cdat->dclo_1146__MACROEXPAND_TOPLEVEL_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1146__MACROEXPAND_TOPLEVEL_LIST.nbval = 0; /*iniobj dsym_1147__DISCR_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1226*/ meltfptr[1225]) /*_.VALDATA___V1226*/ meltfptr[1225] = (melt_ptr_t) & cdat->dsym_1147__DISCR_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1147__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_1147__DISCR_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1147__DISCR_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1147__DISCR_LIST.obj_hash = 98407634; cdat->dsym_1147__DISCR_LIST.obj_len = 3; /*inistring dstr_1148__DISCR_LIST*/ /*_.VALSTR___V1227*/ meltfptr[1226] = (melt_ptr_t) & cdat->dstr_1148__DISCR_LIST; cdat->dstr_1148__DISCR_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1148__DISCR_LIST.val, "DISCR_LIST", sizeof (cdat->dstr_1148__DISCR_LIST.val) - 1); /*inirout drout_1149__LAMBDA_ARG_BINDINGS */ /*_.VALROUT___V1109*/ meltfptr[1108] = (melt_ptr_t) & cdat->drout_1149__LAMBDA_ARG_BINDINGS; cdat->drout_1149__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1149__LAMBDA_ARG_BINDINGS.routdescr, "LAMBDA_ARG_BINDINGS @warmelt-macro.melt:1852", MELT_ROUTDESCR_LEN - 1); cdat->drout_1149__LAMBDA_ARG_BINDINGS.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1149__LAMBDA_ARG_BINDINGS, meltrout_27_warmelt_macro_LAMBDA_ARG_BINDINGS); /*iniclos dclo_1150__LAMBDA_ARG_BINDINGS */ /*_.VALCLO___V1108*/ meltfptr[1107] = (melt_ptr_t) & cdat->dclo_1150__LAMBDA_ARG_BINDINGS; cdat->dclo_1150__LAMBDA_ARG_BINDINGS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1150__LAMBDA_ARG_BINDINGS.nbval = 0; /*iniobj dsym_1151__CTYPE_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1228*/ meltfptr[1227]) /*_.VALDATA___V1228*/ meltfptr[1227] = (melt_ptr_t) & cdat->dsym_1151__CTYPE_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1151__CTYPE_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1151__CTYPE_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1151__CTYPE_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1151__CTYPE_VALUE.obj_hash = 11062864; cdat->dsym_1151__CTYPE_VALUE.obj_len = 3; /*inistring dstr_1152__CTYPE_VALUE*/ /*_.VALSTR___V1229*/ meltfptr[1228] = (melt_ptr_t) & cdat->dstr_1152__CTYPE_VALUE; cdat->dstr_1152__CTYPE_VALUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1152__CTYPE_VALUE.val, "CTYPE_VALUE", sizeof (cdat->dstr_1152__CTYPE_VALUE.val) - 1); /*iniobj dsym_1153__DISCR_MAP_OBJECTS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1230*/ meltfptr[1229]) /*_.VALDATA___V1230*/ meltfptr[1229] = (melt_ptr_t) & cdat->dsym_1153__DISCR_MAP_OBJECTS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1153__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_1153__DISCR_MAP_OBJECTS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1153__DISCR_MAP_OBJECTS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1153__DISCR_MAP_OBJECTS.obj_hash = 217147088; cdat->dsym_1153__DISCR_MAP_OBJECTS.obj_len = 3; /*inistring dstr_1154__DISCR_MAP_OBJECT*/ /*_.VALSTR___V1231*/ meltfptr[1230] = (melt_ptr_t) & cdat->dstr_1154__DISCR_MAP_OBJECT; cdat->dstr_1154__DISCR_MAP_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1154__DISCR_MAP_OBJECT.val, "DISCR_MAP_OBJECTS", sizeof (cdat->dstr_1154__DISCR_MAP_OBJECT. val) - 1); /*iniobj dsym_1155__DISCR_FORMAL_SEQUENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1232*/ meltfptr[1231]) /*_.VALDATA___V1232*/ meltfptr[1231] = (melt_ptr_t) & cdat->dsym_1155__DISCR_FORMAL_SEQUENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1155__DISCR_FORMAL_SEQUENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1155__DISCR_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1155__DISCR_FORMAL_SEQUENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1155__DISCR_FORMAL_SEQUENCE.obj_hash = 7536407; cdat->dsym_1155__DISCR_FORMAL_SEQUENCE.obj_len = 3; /*inistring dstr_1156__DISCR_FORMAL_SEQ*/ /*_.VALSTR___V1233*/ meltfptr[1232] = (melt_ptr_t) & cdat->dstr_1156__DISCR_FORMAL_SEQ; cdat->dstr_1156__DISCR_FORMAL_SEQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1156__DISCR_FORMAL_SEQ.val, "DISCR_FORMAL_SEQUENCE", sizeof (cdat->dstr_1156__DISCR_FORMAL_SEQ. val) - 1); /*iniobj dsym_1157__REST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1110*/ meltfptr[1109]) /*_.VALDATA___V1110*/ meltfptr[1109] = (melt_ptr_t) & cdat->dsym_1157__REST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1157__REST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1157__REST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1157__REST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1157__REST.obj_hash = 965154634; cdat->dsym_1157__REST.obj_len = 3; /*inistring dstr_1158__REST*/ /*_.VALSTR___V1111*/ meltfptr[1110] = (melt_ptr_t) & cdat->dstr_1158__REST; cdat->dstr_1158__REST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1158__REST.val, "REST", sizeof (cdat->dstr_1158__REST.val) - 1); /*iniobj dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1234*/ meltfptr[1233]) /*_.VALDATA___V1234*/ meltfptr[1233] = (melt_ptr_t) & cdat->dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE.obj_hash = 554919860; cdat->dsym_1159__DISCR_VARIADIC_FORMAL_SEQUENCE.obj_len = 3; /*inistring dstr_1160__DISCR_VARIADIC_F*/ /*_.VALSTR___V1235*/ meltfptr[1234] = (melt_ptr_t) & cdat->dstr_1160__DISCR_VARIADIC_F; cdat->dstr_1160__DISCR_VARIADIC_F.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1160__DISCR_VARIADIC_F.val, "DISCR_VARIADIC_FORMAL_SEQUENCE", sizeof (cdat->dstr_1160__DISCR_VARIADIC_F. val) - 1); /*iniobj dsym_1161__CLASS_CTYPE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1236*/ meltfptr[1235]) /*_.VALDATA___V1236*/ meltfptr[1235] = (melt_ptr_t) & cdat->dsym_1161__CLASS_CTYPE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1161__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_1161__CLASS_CTYPE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1161__CLASS_CTYPE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1161__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_1161__CLASS_CTYPE.obj_len = 3; /*inistring dstr_1162__CLASS_CTYPE*/ /*_.VALSTR___V1237*/ meltfptr[1236] = (melt_ptr_t) & cdat->dstr_1162__CLASS_CTYPE; cdat->dstr_1162__CLASS_CTYPE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1162__CLASS_CTYPE.val, "CLASS_CTYPE", sizeof (cdat->dstr_1162__CLASS_CTYPE.val) - 1); /*iniobj dsym_1163__CLASS_ANY_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1238*/ meltfptr[1237]) /*_.VALDATA___V1238*/ meltfptr[1237] = (melt_ptr_t) & cdat->dsym_1163__CLASS_ANY_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1163__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_1163__CLASS_ANY_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1163__CLASS_ANY_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1163__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_1163__CLASS_ANY_BINDING.obj_len = 3; /*inistring dstr_1164__CLASS_ANY_BINDIN*/ /*_.VALSTR___V1239*/ meltfptr[1238] = (melt_ptr_t) & cdat->dstr_1164__CLASS_ANY_BINDIN; cdat->dstr_1164__CLASS_ANY_BINDIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1164__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING", sizeof (cdat->dstr_1164__CLASS_ANY_BINDIN. val) - 1); /*inirout drout_1165__INSTALL_INITIAL_MACRO */ /*_.VALROUT___V1240*/ meltfptr[1239] = (melt_ptr_t) & cdat->drout_1165__INSTALL_INITIAL_MACRO; cdat->drout_1165__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1165__INSTALL_INITIAL_MACRO.routdescr, "INSTALL_INITIAL_MACRO @warmelt-macro.melt:1956", MELT_ROUTDESCR_LEN - 1); cdat->drout_1165__INSTALL_INITIAL_MACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1165__INSTALL_INITIAL_MACRO, meltrout_28_warmelt_macro_INSTALL_INITIAL_MACRO); /*iniclos dclo_1166__INSTALL_INITIAL_MACRO */ /*_.VALCLO___V1241*/ meltfptr[1240] = (melt_ptr_t) & cdat->dclo_1166__INSTALL_INITIAL_MACRO; cdat->dclo_1166__INSTALL_INITIAL_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1166__INSTALL_INITIAL_MACRO.nbval = 0; /*iniobj dsym_1167__INITIAL_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1242*/ meltfptr[1241]) /*_.VALDATA___V1242*/ meltfptr[1241] = (melt_ptr_t) & cdat->dsym_1167__INITIAL_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1167__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_1167__INITIAL_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1167__INITIAL_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1167__INITIAL_ENVIRONMENT.obj_hash = 756729242; cdat->dsym_1167__INITIAL_ENVIRONMENT.obj_len = 3; /*inistring dstr_1168__INITIAL_ENVIRONM*/ /*_.VALSTR___V1243*/ meltfptr[1242] = (melt_ptr_t) & cdat->dstr_1168__INITIAL_ENVIRONM; cdat->dstr_1168__INITIAL_ENVIRONM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1168__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT", sizeof (cdat->dstr_1168__INITIAL_ENVIRONM. val) - 1); /*inirout drout_1169__INSTALL_INITIAL_PATMACRO */ /*_.VALROUT___V1244*/ meltfptr[1243] = (melt_ptr_t) & cdat->drout_1169__INSTALL_INITIAL_PATMACRO; cdat->drout_1169__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1169__INSTALL_INITIAL_PATMACRO.routdescr, "INSTALL_INITIAL_PATMACRO @warmelt-macro.melt:1969", MELT_ROUTDESCR_LEN - 1); cdat->drout_1169__INSTALL_INITIAL_PATMACRO.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1169__INSTALL_INITIAL_PATMACRO, meltrout_29_warmelt_macro_INSTALL_INITIAL_PATMACRO); /*iniclos dclo_1170__INSTALL_INITIAL_PATMACRO */ /*_.VALCLO___V1245*/ meltfptr[1244] = (melt_ptr_t) & cdat->dclo_1170__INSTALL_INITIAL_PATMACRO; cdat->dclo_1170__INSTALL_INITIAL_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1170__INSTALL_INITIAL_PATMACRO.nbval = 0; /*iniobj dsym_1171__WARN_SHADOW*/ /*uniqueobj*/ if (! /*_.VALDATA___V1246*/ meltfptr[1245]) /*_.VALDATA___V1246*/ meltfptr[1245] = (melt_ptr_t) & cdat->dsym_1171__WARN_SHADOW; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1171__WARN_SHADOW", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1171__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1171__WARN_SHADOW.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1171__WARN_SHADOW.obj_hash = 463836272; cdat->dsym_1171__WARN_SHADOW.obj_len = 3; /*inistring dstr_1172__WARN_SHADOW*/ /*_.VALSTR___V1247*/ meltfptr[1246] = (melt_ptr_t) & cdat->dstr_1172__WARN_SHADOW; cdat->dstr_1172__WARN_SHADOW.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1172__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1172__WARN_SHADOW.val) - 1); MELT_LOCATION ("warmelt-macro.melt:1987:/ iniobj"); #line 1987 "warmelt-macro.melt" /**::iniobj::**/ /*iniobj dobj_1173__WARN_SHADOW*/ /*_.VALDATA___V1248*/ meltfptr[1247] = (melt_ptr_t) & cdat->dobj_1173__WARN_SHADOW; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dobj_1173__WARN_SHADOW", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dobj_1173__WARN_SHADOW", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dobj_1173__WARN_SHADOW.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_PRIMITIVE)))); cdat->dobj_1173__WARN_SHADOW.obj_hash = 916090072; cdat->dobj_1173__WARN_SHADOW.obj_len = 5; /*inimult dtup_1174__WARN_SHADOW */ /*_.VALTUP___V1252*/ meltfptr[1251] = (melt_ptr_t) & cdat->dtup_1174__WARN_SHADOW; cdat->dtup_1174__WARN_SHADOW.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_1174__WARN_SHADOW.nbval = 1; /*inimult dtup_1175__WARN_SHADOW */ /*_.VALTUP___V1250*/ meltfptr[1249] = (melt_ptr_t) & cdat->dtup_1175__WARN_SHADOW; cdat->dtup_1175__WARN_SHADOW.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_MULTIPLE)))); cdat->dtup_1175__WARN_SHADOW.nbval = 0; /*inistring dstr_1176__warn_shadow*/ /*_.VALSTR___V1251*/ meltfptr[1250] = (melt_ptr_t) & cdat->dstr_1176__warn_shadow; cdat->dstr_1176__warn_shadow.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_VERBATIM_STRING)))); /*small inistring */ strncpy (cdat->dstr_1176__warn_shadow.val, "warn_shadow", sizeof (cdat->dstr_1176__warn_shadow.val) - 1); /*inistring dstr_1177__WARN_SHADOW*/ /*_.VALSTR___V1249*/ meltfptr[1248] = (melt_ptr_t) & cdat->dstr_1177__WARN_SHADOW; cdat->dstr_1177__WARN_SHADOW.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1177__WARN_SHADOW.val, "WARN_SHADOW", sizeof (cdat->dstr_1177__WARN_SHADOW.val) - 1); /*inirout drout_1178__WARN_IF_REDEFINED */ /*_.VALROUT___V1253*/ meltfptr[1252] = (melt_ptr_t) & cdat->drout_1178__WARN_IF_REDEFINED; cdat->drout_1178__WARN_IF_REDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1178__WARN_IF_REDEFINED.routdescr, "WARN_IF_REDEFINED @warmelt-macro.melt:1991", MELT_ROUTDESCR_LEN - 1); cdat->drout_1178__WARN_IF_REDEFINED.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1178__WARN_IF_REDEFINED, meltrout_30_warmelt_macro_WARN_IF_REDEFINED); /*iniclos dclo_1179__WARN_IF_REDEFINED */ /*_.VALCLO___V1254*/ meltfptr[1253] = (melt_ptr_t) & cdat->dclo_1179__WARN_IF_REDEFINED; cdat->dclo_1179__WARN_IF_REDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1179__WARN_IF_REDEFINED.nbval = 0; /*inirout drout_1180__FLATTEN_FOR_C_CODE_EXPANSION */ /*_.VALROUT___V1255*/ meltfptr[1254] = (melt_ptr_t) & cdat->drout_1180__FLATTEN_FOR_C_CODE_EXPANSION; cdat->drout_1180__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1180__FLATTEN_FOR_C_CODE_EXPANSION.routdescr, "FLATTEN_FOR_C_CODE_EXPANSION @warmelt-macro.melt:2004", MELT_ROUTDESCR_LEN - 1); cdat->drout_1180__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1180__FLATTEN_FOR_C_CODE_EXPANSION, meltrout_31_warmelt_macro_FLATTEN_FOR_C_CODE_EXPANSION); /*iniclos dclo_1181__FLATTEN_FOR_C_CODE_EXPANSION */ /*_.VALCLO___V1256*/ meltfptr[1255] = (melt_ptr_t) & cdat->dclo_1181__FLATTEN_FOR_C_CODE_EXPANSION; cdat->dclo_1181__FLATTEN_FOR_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1181__FLATTEN_FOR_C_CODE_EXPANSION.nbval = 0; /*iniobj dsym_1182__DISCR_VERBATIM_STRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1257*/ meltfptr[1256]) /*_.VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t) & cdat->dsym_1182__DISCR_VERBATIM_STRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1182__DISCR_VERBATIM_STRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1182__DISCR_VERBATIM_STRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1182__DISCR_VERBATIM_STRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1182__DISCR_VERBATIM_STRING.obj_hash = 258402049; cdat->dsym_1182__DISCR_VERBATIM_STRING.obj_len = 3; /*inistring dstr_1183__DISCR_VERBATIM_S*/ /*_.VALSTR___V1258*/ meltfptr[1257] = (melt_ptr_t) & cdat->dstr_1183__DISCR_VERBATIM_S; cdat->dstr_1183__DISCR_VERBATIM_S.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1183__DISCR_VERBATIM_S.val, "DISCR_VERBATIM_STRING", sizeof (cdat->dstr_1183__DISCR_VERBATIM_S. val) - 1); /*inirout drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION */ /*_.VALROUT___V1259*/ meltfptr[1258] = (melt_ptr_t) & cdat->drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION; cdat->drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION.routdescr, "PARSE_PAIRLIST_C_CODE_EXPANSION @warmelt-macro.melt:2050", MELT_ROUTDESCR_LEN - 1); cdat->drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION, meltrout_32_warmelt_macro_PARSE_PAIRLIST_C_CODE_EXPANSION); /*iniclos dclo_1185__PARSE_PAIRLIST_C_CODE_EXPANSION */ /*_.VALCLO___V1260*/ meltfptr[1259] = (melt_ptr_t) & cdat->dclo_1185__PARSE_PAIRLIST_C_CODE_EXPANSION; cdat->dclo_1185__PARSE_PAIRLIST_C_CODE_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1185__PARSE_PAIRLIST_C_CODE_EXPANSION.nbval = 0; /*inirout drout_1186__CHECK_C_EXPANSION */ /*_.VALROUT___V1261*/ meltfptr[1260] = (melt_ptr_t) & cdat->drout_1186__CHECK_C_EXPANSION; cdat->drout_1186__CHECK_C_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1186__CHECK_C_EXPANSION.routdescr, "CHECK_C_EXPANSION @warmelt-macro.melt:2071", MELT_ROUTDESCR_LEN - 1); cdat->drout_1186__CHECK_C_EXPANSION.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1186__CHECK_C_EXPANSION, meltrout_33_warmelt_macro_CHECK_C_EXPANSION); /*iniclos dclo_1187__CHECK_C_EXPANSION */ /*_.VALCLO___V1262*/ meltfptr[1261] = (melt_ptr_t) & cdat->dclo_1187__CHECK_C_EXPANSION; cdat->dclo_1187__CHECK_C_EXPANSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1187__CHECK_C_EXPANSION.nbval = 0; /*inirout drout_1188__MEXPAND_DEFPRIMITIVE */ /*_.VALROUT___V1263*/ meltfptr[1262] = (melt_ptr_t) & cdat->drout_1188__MEXPAND_DEFPRIMITIVE; cdat->drout_1188__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1188__MEXPAND_DEFPRIMITIVE.routdescr, "MEXPAND_DEFPRIMITIVE @warmelt-macro.melt:2106", MELT_ROUTDESCR_LEN - 1); cdat->drout_1188__MEXPAND_DEFPRIMITIVE.nbval = 22; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1188__MEXPAND_DEFPRIMITIVE, meltrout_34_warmelt_macro_MEXPAND_DEFPRIMITIVE); /*iniclos dclo_1189__MEXPAND_DEFPRIMITIVE */ /*_.VALCLO___V1266*/ meltfptr[1265] = (melt_ptr_t) & cdat->dclo_1189__MEXPAND_DEFPRIMITIVE; cdat->dclo_1189__MEXPAND_DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1189__MEXPAND_DEFPRIMITIVE.nbval = 0; /*iniobj dsym_1190__DOC*/ /*uniqueobj*/ if (! /*_.VALDATA___V1264*/ meltfptr[1263]) /*_.VALDATA___V1264*/ meltfptr[1263] = (melt_ptr_t) & cdat->dsym_1190__DOC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1190__DOC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1190__DOC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1190__DOC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1190__DOC.obj_hash = 518786062; cdat->dsym_1190__DOC.obj_len = 3; /*inistring dstr_1191__DOC*/ /*_.VALSTR___V1265*/ meltfptr[1264] = (melt_ptr_t) & cdat->dstr_1191__DOC; cdat->dstr_1191__DOC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1191__DOC.val, "DOC", sizeof (cdat->dstr_1191__DOC.val) - 1); /*iniobj dsym_1192__DEFPRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1267*/ meltfptr[1266]) /*_.VALDATA___V1267*/ meltfptr[1266] = (melt_ptr_t) & cdat->dsym_1192__DEFPRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1192__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_1192__DEFPRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1192__DEFPRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1192__DEFPRIMITIVE.obj_hash = 68752716; cdat->dsym_1192__DEFPRIMITIVE.obj_len = 3; /*inistring dstr_1193__DEFPRIMITIVE*/ /*_.VALSTR___V1268*/ meltfptr[1267] = (melt_ptr_t) & cdat->dstr_1193__DEFPRIMITIVE; cdat->dstr_1193__DEFPRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1193__DEFPRIMITIVE.val, "DEFPRIMITIVE", sizeof (cdat->dstr_1193__DEFPRIMITIVE.val) - 1); /*inirout drout_1194__MEXPAND_DEFCITERATOR */ /*_.VALROUT___V1269*/ meltfptr[1268] = (melt_ptr_t) & cdat->drout_1194__MEXPAND_DEFCITERATOR; cdat->drout_1194__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1194__MEXPAND_DEFCITERATOR.routdescr, "MEXPAND_DEFCITERATOR @warmelt-macro.melt:2229", MELT_ROUTDESCR_LEN - 1); cdat->drout_1194__MEXPAND_DEFCITERATOR.nbval = 19; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1194__MEXPAND_DEFCITERATOR, meltrout_35_warmelt_macro_MEXPAND_DEFCITERATOR); /*iniclos dclo_1195__MEXPAND_DEFCITERATOR */ /*_.VALCLO___V1270*/ meltfptr[1269] = (melt_ptr_t) & cdat->dclo_1195__MEXPAND_DEFCITERATOR; cdat->dclo_1195__MEXPAND_DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1195__MEXPAND_DEFCITERATOR.nbval = 0; /*iniobj dsym_1196__DEFCITERATOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1271*/ meltfptr[1270]) /*_.VALDATA___V1271*/ meltfptr[1270] = (melt_ptr_t) & cdat->dsym_1196__DEFCITERATOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1196__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_1196__DEFCITERATOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1196__DEFCITERATOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1196__DEFCITERATOR.obj_hash = 388838610; cdat->dsym_1196__DEFCITERATOR.obj_len = 3; /*inistring dstr_1197__DEFCITERATOR*/ /*_.VALSTR___V1272*/ meltfptr[1271] = (melt_ptr_t) & cdat->dstr_1197__DEFCITERATOR; cdat->dstr_1197__DEFCITERATOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1197__DEFCITERATOR.val, "DEFCITERATOR", sizeof (cdat->dstr_1197__DEFCITERATOR.val) - 1); /*inirout drout_1198__MEXPAND_DEFCMATCHER */ /*_.VALROUT___V1273*/ meltfptr[1272] = (melt_ptr_t) & cdat->drout_1198__MEXPAND_DEFCMATCHER; cdat->drout_1198__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1198__MEXPAND_DEFCMATCHER.routdescr, "MEXPAND_DEFCMATCHER @warmelt-macro.melt:2382", MELT_ROUTDESCR_LEN - 1); cdat->drout_1198__MEXPAND_DEFCMATCHER.nbval = 21; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1198__MEXPAND_DEFCMATCHER, meltrout_36_warmelt_macro_MEXPAND_DEFCMATCHER); /*iniclos dclo_1199__MEXPAND_DEFCMATCHER */ /*_.VALCLO___V1275*/ meltfptr[1274] = (melt_ptr_t) & cdat->dclo_1199__MEXPAND_DEFCMATCHER; cdat->dclo_1199__MEXPAND_DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1199__MEXPAND_DEFCMATCHER.nbval = 0; /*inirout drout_1200__LAMBDA_ */ /*_.VALROUT___V1274*/ meltfptr[1273] = (melt_ptr_t) & cdat->drout_1200__LAMBDA_; cdat->drout_1200__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1200__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2433", MELT_ROUTDESCR_LEN - 1); cdat->drout_1200__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1200__LAMBDA_, meltrout_37_warmelt_macro_LAMBDA___7__); /*iniobj dsym_1201__DEFCMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1276*/ meltfptr[1275]) /*_.VALDATA___V1276*/ meltfptr[1275] = (melt_ptr_t) & cdat->dsym_1201__DEFCMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1201__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_1201__DEFCMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1201__DEFCMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1201__DEFCMATCHER.obj_hash = 63669746; cdat->dsym_1201__DEFCMATCHER.obj_len = 3; /*inistring dstr_1202__DEFCMATCHER*/ /*_.VALSTR___V1277*/ meltfptr[1276] = (melt_ptr_t) & cdat->dstr_1202__DEFCMATCHER; cdat->dstr_1202__DEFCMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1202__DEFCMATCHER.val, "DEFCMATCHER", sizeof (cdat->dstr_1202__DEFCMATCHER.val) - 1); /*inirout drout_1203__MEXPAND_DEFUNMATCHER */ /*_.VALROUT___V1278*/ meltfptr[1277] = (melt_ptr_t) & cdat->drout_1203__MEXPAND_DEFUNMATCHER; cdat->drout_1203__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1203__MEXPAND_DEFUNMATCHER.routdescr, "MEXPAND_DEFUNMATCHER @warmelt-macro.melt:2578", MELT_ROUTDESCR_LEN - 1); cdat->drout_1203__MEXPAND_DEFUNMATCHER.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1203__MEXPAND_DEFUNMATCHER, meltrout_38_warmelt_macro_MEXPAND_DEFUNMATCHER); /*iniclos dclo_1204__MEXPAND_DEFUNMATCHER */ /*_.VALCLO___V1280*/ meltfptr[1279] = (melt_ptr_t) & cdat->dclo_1204__MEXPAND_DEFUNMATCHER; cdat->dclo_1204__MEXPAND_DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1204__MEXPAND_DEFUNMATCHER.nbval = 0; /*inirout drout_1205__LAMBDA_ */ /*_.VALROUT___V1279*/ meltfptr[1278] = (melt_ptr_t) & cdat->drout_1205__LAMBDA_; cdat->drout_1205__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1205__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2625", MELT_ROUTDESCR_LEN - 1); cdat->drout_1205__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1205__LAMBDA_, meltrout_39_warmelt_macro_LAMBDA___8__); /*iniobj dsym_1206__DEFUNMATCHER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1281*/ meltfptr[1280]) /*_.VALDATA___V1281*/ meltfptr[1280] = (melt_ptr_t) & cdat->dsym_1206__DEFUNMATCHER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1206__DEFUNMATCHER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1206__DEFUNMATCHER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1206__DEFUNMATCHER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1206__DEFUNMATCHER.obj_hash = 739727106; cdat->dsym_1206__DEFUNMATCHER.obj_len = 3; /*inistring dstr_1207__DEFUNMATCHER*/ /*_.VALSTR___V1282*/ meltfptr[1281] = (melt_ptr_t) & cdat->dstr_1207__DEFUNMATCHER; cdat->dstr_1207__DEFUNMATCHER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1207__DEFUNMATCHER.val, "DEFUNMATCHER", sizeof (cdat->dstr_1207__DEFUNMATCHER.val) - 1); /*inirout drout_1208__MEXPAND_DEFUN */ /*_.VALROUT___V1283*/ meltfptr[1282] = (melt_ptr_t) & cdat->drout_1208__MEXPAND_DEFUN; cdat->drout_1208__MEXPAND_DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1208__MEXPAND_DEFUN.routdescr, "MEXPAND_DEFUN @warmelt-macro.melt:2724", MELT_ROUTDESCR_LEN - 1); cdat->drout_1208__MEXPAND_DEFUN.nbval = 16; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1208__MEXPAND_DEFUN, meltrout_40_warmelt_macro_MEXPAND_DEFUN); /*iniclos dclo_1209__MEXPAND_DEFUN */ /*_.VALCLO___V1285*/ meltfptr[1284] = (melt_ptr_t) & cdat->dclo_1209__MEXPAND_DEFUN; cdat->dclo_1209__MEXPAND_DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1209__MEXPAND_DEFUN.nbval = 0; /*iniobj dsym_1210__CLASS_FUNCTION_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1286*/ meltfptr[1285]) /*_.VALDATA___V1286*/ meltfptr[1285] = (melt_ptr_t) & cdat->dsym_1210__CLASS_FUNCTION_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1210__CLASS_FUNCTION_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1210__CLASS_FUNCTION_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1210__CLASS_FUNCTION_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1210__CLASS_FUNCTION_BINDING.obj_hash = 942362333; cdat->dsym_1210__CLASS_FUNCTION_BINDING.obj_len = 3; /*inistring dstr_1211__CLASS_FUNCTION_B*/ /*_.VALSTR___V1287*/ meltfptr[1286] = (melt_ptr_t) & cdat->dstr_1211__CLASS_FUNCTION_B; cdat->dstr_1211__CLASS_FUNCTION_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1211__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING", sizeof (cdat->dstr_1211__CLASS_FUNCTION_B. val) - 1); /*inirout drout_1212__LAMBDA_ */ /*_.VALROUT___V1284*/ meltfptr[1283] = (melt_ptr_t) & cdat->drout_1212__LAMBDA_; cdat->drout_1212__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1212__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2763", MELT_ROUTDESCR_LEN - 1); cdat->drout_1212__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1212__LAMBDA_, meltrout_41_warmelt_macro_LAMBDA___9__); /*iniobj dsym_1213__DEFUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1288*/ meltfptr[1287]) /*_.VALDATA___V1288*/ meltfptr[1287] = (melt_ptr_t) & cdat->dsym_1213__DEFUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1213__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_1213__DEFUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1213__DEFUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1213__DEFUN.obj_hash = 98259022; cdat->dsym_1213__DEFUN.obj_len = 3; /*inistring dstr_1214__DEFUN*/ /*_.VALSTR___V1289*/ meltfptr[1288] = (melt_ptr_t) & cdat->dstr_1214__DEFUN; cdat->dstr_1214__DEFUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1214__DEFUN.val, "DEFUN", sizeof (cdat->dstr_1214__DEFUN.val) - 1); /*inirout drout_1215__MEXPAND_DEFINE */ /*_.VALROUT___V1290*/ meltfptr[1289] = (melt_ptr_t) & cdat->drout_1215__MEXPAND_DEFINE; cdat->drout_1215__MEXPAND_DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1215__MEXPAND_DEFINE.routdescr, "MEXPAND_DEFINE @warmelt-macro.melt:2809", MELT_ROUTDESCR_LEN - 1); cdat->drout_1215__MEXPAND_DEFINE.nbval = 22; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1215__MEXPAND_DEFINE, meltrout_42_warmelt_macro_MEXPAND_DEFINE); /*iniclos dclo_1216__MEXPAND_DEFINE */ /*_.VALCLO___V1294*/ meltfptr[1293] = (melt_ptr_t) & cdat->dclo_1216__MEXPAND_DEFINE; cdat->dclo_1216__MEXPAND_DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1216__MEXPAND_DEFINE.nbval = 0; /*iniobj dsym_1217__CLASS_DEFINED_VALUE_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1295*/ meltfptr[1294]) /*_.VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t) & cdat->dsym_1217__CLASS_DEFINED_VALUE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1217__CLASS_DEFINED_VALUE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1217__CLASS_DEFINED_VALUE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1217__CLASS_DEFINED_VALUE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1217__CLASS_DEFINED_VALUE_BINDING.obj_hash = 803081436; cdat->dsym_1217__CLASS_DEFINED_VALUE_BINDING.obj_len = 3; /*inistring dstr_1218__CLASS_DEFINED_VA*/ /*_.VALSTR___V1296*/ meltfptr[1295] = (melt_ptr_t) & cdat->dstr_1218__CLASS_DEFINED_VA; cdat->dstr_1218__CLASS_DEFINED_VA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1218__CLASS_DEFINED_VA.val, "CLASS_DEFINED_VALUE_BINDING", sizeof (cdat->dstr_1218__CLASS_DEFINED_VA. val) - 1); /*iniobj dsym_1219__TRUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1291*/ meltfptr[1290]) /*_.VALDATA___V1291*/ meltfptr[1290] = (melt_ptr_t) & cdat->dsym_1219__TRUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1219__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_1219__TRUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1219__TRUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1219__TRUE.obj_hash = 576485513; cdat->dsym_1219__TRUE.obj_len = 3; /*inistring dstr_1220__TRUE*/ /*_.VALSTR___V1292*/ meltfptr[1291] = (melt_ptr_t) & cdat->dstr_1220__TRUE; cdat->dstr_1220__TRUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1220__TRUE.val, "TRUE", sizeof (cdat->dstr_1220__TRUE.val) - 1); /*inirout drout_1221__LAMBDA_ */ /*_.VALROUT___V1293*/ meltfptr[1292] = (melt_ptr_t) & cdat->drout_1221__LAMBDA_; cdat->drout_1221__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1221__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:2904", MELT_ROUTDESCR_LEN - 1); cdat->drout_1221__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1221__LAMBDA_, meltrout_43_warmelt_macro_LAMBDA___10__); /*iniobj dsym_1222__DEFINE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1297*/ meltfptr[1296]) /*_.VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t) & cdat->dsym_1222__DEFINE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1222__DEFINE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1222__DEFINE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1222__DEFINE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1222__DEFINE.obj_hash = 264523154; cdat->dsym_1222__DEFINE.obj_len = 3; /*inistring dstr_1223__DEFINE*/ /*_.VALSTR___V1298*/ meltfptr[1297] = (melt_ptr_t) & cdat->dstr_1223__DEFINE; cdat->dstr_1223__DEFINE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1223__DEFINE.val, "DEFINE", sizeof (cdat->dstr_1223__DEFINE.val) - 1); /*inirout drout_1224__SCAN_DEFCLASS */ /*_.VALROUT___V1299*/ meltfptr[1298] = (melt_ptr_t) & cdat->drout_1224__SCAN_DEFCLASS; cdat->drout_1224__SCAN_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1224__SCAN_DEFCLASS.routdescr, "SCAN_DEFCLASS @warmelt-macro.melt:2930", MELT_ROUTDESCR_LEN - 1); cdat->drout_1224__SCAN_DEFCLASS.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1224__SCAN_DEFCLASS, meltrout_44_warmelt_macro_SCAN_DEFCLASS); /*iniclos dclo_1225__SCAN_DEFCLASS */ /*_.VALCLO___V1306*/ meltfptr[1305] = (melt_ptr_t) & cdat->dclo_1225__SCAN_DEFCLASS; cdat->dclo_1225__SCAN_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1225__SCAN_DEFCLASS.nbval = 0; /*iniobj dsym_1226__SUPER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1300*/ meltfptr[1299]) /*_.VALDATA___V1300*/ meltfptr[1299] = (melt_ptr_t) & cdat->dsym_1226__SUPER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1226__SUPER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1226__SUPER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1226__SUPER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1226__SUPER.obj_hash = 103938843; cdat->dsym_1226__SUPER.obj_len = 3; /*inistring dstr_1227__SUPER*/ /*_.VALSTR___V1301*/ meltfptr[1300] = (melt_ptr_t) & cdat->dstr_1227__SUPER; cdat->dstr_1227__SUPER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1227__SUPER.val, "SUPER", sizeof (cdat->dstr_1227__SUPER.val) - 1); /*iniobj dsym_1228__CLASS_CLASS_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1307*/ meltfptr[1306]) /*_.VALDATA___V1307*/ meltfptr[1306] = (melt_ptr_t) & cdat->dsym_1228__CLASS_CLASS_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1228__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_1228__CLASS_CLASS_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1228__CLASS_CLASS_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1228__CLASS_CLASS_BINDING.obj_hash = 848133131; cdat->dsym_1228__CLASS_CLASS_BINDING.obj_len = 3; /*inistring dstr_1229__CLASS_CLASS_BIND*/ /*_.VALSTR___V1308*/ meltfptr[1307] = (melt_ptr_t) & cdat->dstr_1229__CLASS_CLASS_BIND; cdat->dstr_1229__CLASS_CLASS_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1229__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING", sizeof (cdat->dstr_1229__CLASS_CLASS_BIND. val) - 1); /*iniobj dsym_1230__CLASS_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1309*/ meltfptr[1308]) /*_.VALDATA___V1309*/ meltfptr[1308] = (melt_ptr_t) & cdat->dsym_1230__CLASS_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1230__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_1230__CLASS_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1230__CLASS_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1230__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_1230__CLASS_CLASS.obj_len = 3; /*inistring dstr_1231__CLASS_CLASS*/ /*_.VALSTR___V1310*/ meltfptr[1309] = (melt_ptr_t) & cdat->dstr_1231__CLASS_CLASS; cdat->dstr_1231__CLASS_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1231__CLASS_CLASS.val, "CLASS_CLASS", sizeof (cdat->dstr_1231__CLASS_CLASS.val) - 1); /*iniobj dsym_1232__FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1302*/ meltfptr[1301]) /*_.VALDATA___V1302*/ meltfptr[1301] = (melt_ptr_t) & cdat->dsym_1232__FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1232__FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1232__FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1232__FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1232__FIELDS.obj_hash = 63787385; cdat->dsym_1232__FIELDS.obj_len = 3; /*inistring dstr_1233__FIELDS*/ /*_.VALSTR___V1303*/ meltfptr[1302] = (melt_ptr_t) & cdat->dstr_1233__FIELDS; cdat->dstr_1233__FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1233__FIELDS.val, "FIELDS", sizeof (cdat->dstr_1233__FIELDS.val) - 1); /*iniobj dsym_1234__PREDEF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1304*/ meltfptr[1303]) /*_.VALDATA___V1304*/ meltfptr[1303] = (melt_ptr_t) & cdat->dsym_1234__PREDEF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1234__PREDEF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1234__PREDEF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1234__PREDEF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1234__PREDEF.obj_hash = 55393491; cdat->dsym_1234__PREDEF.obj_len = 3; /*inistring dstr_1235__PREDEF*/ /*_.VALSTR___V1305*/ meltfptr[1304] = (melt_ptr_t) & cdat->dstr_1235__PREDEF; cdat->dstr_1235__PREDEF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1235__PREDEF.val, "PREDEF", sizeof (cdat->dstr_1235__PREDEF.val) - 1); /*inirout drout_1236__MEXPAND_DEFCLASS */ /*_.VALROUT___V1311*/ meltfptr[1310] = (melt_ptr_t) & cdat->drout_1236__MEXPAND_DEFCLASS; cdat->drout_1236__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1236__MEXPAND_DEFCLASS.routdescr, "MEXPAND_DEFCLASS @warmelt-macro.melt:3050", MELT_ROUTDESCR_LEN - 1); cdat->drout_1236__MEXPAND_DEFCLASS.nbval = 27; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1236__MEXPAND_DEFCLASS, meltrout_45_warmelt_macro_MEXPAND_DEFCLASS); /*iniclos dclo_1237__MEXPAND_DEFCLASS */ /*_.VALCLO___V1314*/ meltfptr[1313] = (melt_ptr_t) & cdat->dclo_1237__MEXPAND_DEFCLASS; cdat->dclo_1237__MEXPAND_DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1237__MEXPAND_DEFCLASS.nbval = 0; /*iniobj dsym_1238__DISCR_CLASS_SEQUENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1315*/ meltfptr[1314]) /*_.VALDATA___V1315*/ meltfptr[1314] = (melt_ptr_t) & cdat->dsym_1238__DISCR_CLASS_SEQUENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1238__DISCR_CLASS_SEQUENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1238__DISCR_CLASS_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1238__DISCR_CLASS_SEQUENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1238__DISCR_CLASS_SEQUENCE.obj_hash = 751197907; cdat->dsym_1238__DISCR_CLASS_SEQUENCE.obj_len = 3; /*inistring dstr_1239__DISCR_CLASS_SEQU*/ /*_.VALSTR___V1316*/ meltfptr[1315] = (melt_ptr_t) & cdat->dstr_1239__DISCR_CLASS_SEQU; cdat->dstr_1239__DISCR_CLASS_SEQU.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1239__DISCR_CLASS_SEQU.val, "DISCR_CLASS_SEQUENCE", sizeof (cdat->dstr_1239__DISCR_CLASS_SEQU. val) - 1); /*iniobj dsym_1240__DISCR_MAP_STRINGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1317*/ meltfptr[1316]) /*_.VALDATA___V1317*/ meltfptr[1316] = (melt_ptr_t) & cdat->dsym_1240__DISCR_MAP_STRINGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1240__DISCR_MAP_STRINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1240__DISCR_MAP_STRINGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1240__DISCR_MAP_STRINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1240__DISCR_MAP_STRINGS.obj_hash = 344609662; cdat->dsym_1240__DISCR_MAP_STRINGS.obj_len = 3; /*inistring dstr_1241__DISCR_MAP_STRING*/ /*_.VALSTR___V1318*/ meltfptr[1317] = (melt_ptr_t) & cdat->dstr_1241__DISCR_MAP_STRING; cdat->dstr_1241__DISCR_MAP_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1241__DISCR_MAP_STRING.val, "DISCR_MAP_STRINGS", sizeof (cdat->dstr_1241__DISCR_MAP_STRING. val) - 1); /*iniobj dsym_1242__DISCR_FIELD_SEQUENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1319*/ meltfptr[1318]) /*_.VALDATA___V1319*/ meltfptr[1318] = (melt_ptr_t) & cdat->dsym_1242__DISCR_FIELD_SEQUENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1242__DISCR_FIELD_SEQUENCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1242__DISCR_FIELD_SEQUENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1242__DISCR_FIELD_SEQUENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1242__DISCR_FIELD_SEQUENCE.obj_hash = 95370221; cdat->dsym_1242__DISCR_FIELD_SEQUENCE.obj_len = 3; /*inistring dstr_1243__DISCR_FIELD_SEQU*/ /*_.VALSTR___V1320*/ meltfptr[1319] = (melt_ptr_t) & cdat->dstr_1243__DISCR_FIELD_SEQU; cdat->dstr_1243__DISCR_FIELD_SEQU.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1243__DISCR_FIELD_SEQU.val, "DISCR_FIELD_SEQUENCE", sizeof (cdat->dstr_1243__DISCR_FIELD_SEQU. val) - 1); /*inirout drout_1244__LAMBDA_ */ /*_.VALROUT___V1312*/ meltfptr[1311] = (melt_ptr_t) & cdat->drout_1244__LAMBDA_; cdat->drout_1244__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1244__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3112", MELT_ROUTDESCR_LEN - 1); cdat->drout_1244__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1244__LAMBDA_, meltrout_46_warmelt_macro_LAMBDA___11__); /*inirout drout_1245__LAMBDA_ */ /*_.VALROUT___V1313*/ meltfptr[1312] = (melt_ptr_t) & cdat->drout_1245__LAMBDA_; cdat->drout_1245__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1245__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3121", MELT_ROUTDESCR_LEN - 1); cdat->drout_1245__LAMBDA_.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1245__LAMBDA_, meltrout_47_warmelt_macro_LAMBDA___12__); /*iniobj dsym_1246__DEFCLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1321*/ meltfptr[1320]) /*_.VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t) & cdat->dsym_1246__DEFCLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1246__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_1246__DEFCLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1246__DEFCLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1246__DEFCLASS.obj_hash = 67702184; cdat->dsym_1246__DEFCLASS.obj_len = 3; /*inistring dstr_1247__DEFCLASS*/ /*_.VALSTR___V1322*/ meltfptr[1321] = (melt_ptr_t) & cdat->dstr_1247__DEFCLASS; cdat->dstr_1247__DEFCLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1247__DEFCLASS.val, "DEFCLASS", sizeof (cdat->dstr_1247__DEFCLASS.val) - 1); /*inirout drout_1248__PARSE_FIELD_ASSIGNMENT */ /*_.VALROUT___V1323*/ meltfptr[1322] = (melt_ptr_t) & cdat->drout_1248__PARSE_FIELD_ASSIGNMENT; cdat->drout_1248__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1248__PARSE_FIELD_ASSIGNMENT.routdescr, "PARSE_FIELD_ASSIGNMENT @warmelt-macro.melt:3199", MELT_ROUTDESCR_LEN - 1); cdat->drout_1248__PARSE_FIELD_ASSIGNMENT.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1248__PARSE_FIELD_ASSIGNMENT, meltrout_48_warmelt_macro_PARSE_FIELD_ASSIGNMENT); /*iniclos dclo_1249__PARSE_FIELD_ASSIGNMENT */ /*_.VALCLO___V1325*/ meltfptr[1324] = (melt_ptr_t) & cdat->dclo_1249__PARSE_FIELD_ASSIGNMENT; cdat->dclo_1249__PARSE_FIELD_ASSIGNMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1249__PARSE_FIELD_ASSIGNMENT.nbval = 0; /*iniobj dsym_1250__MULTIPLE_ITERATE_TEST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1326*/ meltfptr[1325]) /*_.VALDATA___V1326*/ meltfptr[1325] = (melt_ptr_t) & cdat->dsym_1250__MULTIPLE_ITERATE_TEST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1250__MULTIPLE_ITERATE_TEST", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1250__MULTIPLE_ITERATE_TEST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1250__MULTIPLE_ITERATE_TEST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1250__MULTIPLE_ITERATE_TEST.obj_hash = 823464346; cdat->dsym_1250__MULTIPLE_ITERATE_TEST.obj_len = 3; /*inistring dstr_1251__MULTIPLE_ITERATE*/ /*_.VALSTR___V1327*/ meltfptr[1326] = (melt_ptr_t) & cdat->dstr_1251__MULTIPLE_ITERATE; cdat->dstr_1251__MULTIPLE_ITERATE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1251__MULTIPLE_ITERATE.val, "MULTIPLE_ITERATE_TEST", sizeof (cdat->dstr_1251__MULTIPLE_ITERATE. val) - 1); /*inirout drout_1252__LAMBDA_ */ /*_.VALROUT___V1324*/ meltfptr[1323] = (melt_ptr_t) & cdat->drout_1252__LAMBDA_; cdat->drout_1252__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1252__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3223", MELT_ROUTDESCR_LEN - 1); cdat->drout_1252__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1252__LAMBDA_, meltrout_49_warmelt_macro_LAMBDA___13__); /*inirout drout_1253__MEXPAND_DEFINSTANCE */ /*_.VALROUT___V1328*/ meltfptr[1327] = (melt_ptr_t) & cdat->drout_1253__MEXPAND_DEFINSTANCE; cdat->drout_1253__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1253__MEXPAND_DEFINSTANCE.routdescr, "MEXPAND_DEFINSTANCE @warmelt-macro.melt:3296", MELT_ROUTDESCR_LEN - 1); cdat->drout_1253__MEXPAND_DEFINSTANCE.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1253__MEXPAND_DEFINSTANCE, meltrout_50_warmelt_macro_MEXPAND_DEFINSTANCE); /*iniclos dclo_1254__MEXPAND_DEFINSTANCE */ /*_.VALCLO___V1331*/ meltfptr[1330] = (melt_ptr_t) & cdat->dclo_1254__MEXPAND_DEFINSTANCE; cdat->dclo_1254__MEXPAND_DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1254__MEXPAND_DEFINSTANCE.nbval = 0; /*iniobj dsym_1255__CLASS_INSTANCE_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1332*/ meltfptr[1331]) /*_.VALDATA___V1332*/ meltfptr[1331] = (melt_ptr_t) & cdat->dsym_1255__CLASS_INSTANCE_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1255__CLASS_INSTANCE_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1255__CLASS_INSTANCE_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1255__CLASS_INSTANCE_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1255__CLASS_INSTANCE_BINDING.obj_hash = 401143458; cdat->dsym_1255__CLASS_INSTANCE_BINDING.obj_len = 3; /*inistring dstr_1256__CLASS_INSTANCE_B*/ /*_.VALSTR___V1333*/ meltfptr[1332] = (melt_ptr_t) & cdat->dstr_1256__CLASS_INSTANCE_B; cdat->dstr_1256__CLASS_INSTANCE_B.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1256__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING", sizeof (cdat->dstr_1256__CLASS_INSTANCE_B. val) - 1); /*iniobj dsym_1257__OBJ_NUM*/ /*uniqueobj*/ if (! /*_.VALDATA___V1329*/ meltfptr[1328]) /*_.VALDATA___V1329*/ meltfptr[1328] = (melt_ptr_t) & cdat->dsym_1257__OBJ_NUM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1257__OBJ_NUM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1257__OBJ_NUM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1257__OBJ_NUM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1257__OBJ_NUM.obj_hash = 56861275; cdat->dsym_1257__OBJ_NUM.obj_len = 3; /*inistring dstr_1258__OBJ_NUM*/ /*_.VALSTR___V1330*/ meltfptr[1329] = (melt_ptr_t) & cdat->dstr_1258__OBJ_NUM; cdat->dstr_1258__OBJ_NUM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1258__OBJ_NUM.val, "OBJ_NUM", sizeof (cdat->dstr_1258__OBJ_NUM.val) - 1); /*iniobj dsym_1259__DEFINSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1334*/ meltfptr[1333]) /*_.VALDATA___V1334*/ meltfptr[1333] = (melt_ptr_t) & cdat->dsym_1259__DEFINSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1259__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_1259__DEFINSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1259__DEFINSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1259__DEFINSTANCE.obj_hash = 28184141; cdat->dsym_1259__DEFINSTANCE.obj_len = 3; /*inistring dstr_1260__DEFINSTANCE*/ /*_.VALSTR___V1335*/ meltfptr[1334] = (melt_ptr_t) & cdat->dstr_1260__DEFINSTANCE; cdat->dstr_1260__DEFINSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1260__DEFINSTANCE.val, "DEFINSTANCE", sizeof (cdat->dstr_1260__DEFINSTANCE.val) - 1); /*inirout drout_1261__MEXPAND_DEFSELECTOR */ /*_.VALROUT___V1336*/ meltfptr[1335] = (melt_ptr_t) & cdat->drout_1261__MEXPAND_DEFSELECTOR; cdat->drout_1261__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1261__MEXPAND_DEFSELECTOR.routdescr, "MEXPAND_DEFSELECTOR @warmelt-macro.melt:3410", MELT_ROUTDESCR_LEN - 1); cdat->drout_1261__MEXPAND_DEFSELECTOR.nbval = 28; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1261__MEXPAND_DEFSELECTOR, meltrout_51_warmelt_macro_MEXPAND_DEFSELECTOR); /*iniclos dclo_1262__MEXPAND_DEFSELECTOR */ /*_.VALCLO___V1339*/ meltfptr[1338] = (melt_ptr_t) & cdat->dclo_1262__MEXPAND_DEFSELECTOR; cdat->dclo_1262__MEXPAND_DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1262__MEXPAND_DEFSELECTOR.nbval = 0; /*iniobj dsym_1263__MELT_MODE_REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1340*/ meltfptr[1339]) /*_.VALDATA___V1340*/ meltfptr[1339] = (melt_ptr_t) & cdat->dsym_1263__MELT_MODE_REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1263__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_1263__MELT_MODE_REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1263__MELT_MODE_REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1263__MELT_MODE_REFERENCE.obj_hash = 1035850925; cdat->dsym_1263__MELT_MODE_REFERENCE.obj_len = 3; /*inistring dstr_1264__MELT_MODE_REFERE*/ /*_.VALSTR___V1341*/ meltfptr[1340] = (melt_ptr_t) & cdat->dstr_1264__MELT_MODE_REFERE; cdat->dstr_1264__MELT_MODE_REFERE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1264__MELT_MODE_REFERE.val, "MELT_MODE_REFERENCE", sizeof (cdat->dstr_1264__MELT_MODE_REFERE. val) - 1); /*iniobj dsym_1265__FORMALS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1337*/ meltfptr[1336]) /*_.VALDATA___V1337*/ meltfptr[1336] = (melt_ptr_t) & cdat->dsym_1265__FORMALS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1265__FORMALS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1265__FORMALS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1265__FORMALS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1265__FORMALS.obj_hash = 499105813; cdat->dsym_1265__FORMALS.obj_len = 3; /*inistring dstr_1266__FORMALS*/ /*_.VALSTR___V1338*/ meltfptr[1337] = (melt_ptr_t) & cdat->dstr_1266__FORMALS; cdat->dstr_1266__FORMALS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1266__FORMALS.val, "FORMALS", sizeof (cdat->dstr_1266__FORMALS.val) - 1); /*iniobj dsym_1267__DEFSELECTOR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1342*/ meltfptr[1341]) /*_.VALDATA___V1342*/ meltfptr[1341] = (melt_ptr_t) & cdat->dsym_1267__DEFSELECTOR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1267__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_1267__DEFSELECTOR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1267__DEFSELECTOR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1267__DEFSELECTOR.obj_hash = 34255542; cdat->dsym_1267__DEFSELECTOR.obj_len = 3; /*inistring dstr_1268__DEFSELECTOR*/ /*_.VALSTR___V1343*/ meltfptr[1342] = (melt_ptr_t) & cdat->dstr_1268__DEFSELECTOR; cdat->dstr_1268__DEFSELECTOR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1268__DEFSELECTOR.val, "DEFSELECTOR", sizeof (cdat->dstr_1268__DEFSELECTOR.val) - 1); /*inirout drout_1269__MEXPAND_INSTANCE */ /*_.VALROUT___V1344*/ meltfptr[1343] = (melt_ptr_t) & cdat->drout_1269__MEXPAND_INSTANCE; cdat->drout_1269__MEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1269__MEXPAND_INSTANCE.routdescr, "MEXPAND_INSTANCE @warmelt-macro.melt:3557", MELT_ROUTDESCR_LEN - 1); cdat->drout_1269__MEXPAND_INSTANCE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1269__MEXPAND_INSTANCE, meltrout_52_warmelt_macro_MEXPAND_INSTANCE); /*iniclos dclo_1270__MEXPAND_INSTANCE */ /*_.VALCLO___V1345*/ meltfptr[1344] = (melt_ptr_t) & cdat->dclo_1270__MEXPAND_INSTANCE; cdat->dclo_1270__MEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1270__MEXPAND_INSTANCE.nbval = 0; /*iniobj dsym_1271__INSTANCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1346*/ meltfptr[1345]) /*_.VALDATA___V1346*/ meltfptr[1345] = (melt_ptr_t) & cdat->dsym_1271__INSTANCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1271__INSTANCE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1271__INSTANCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1271__INSTANCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1271__INSTANCE.obj_hash = 837795892; cdat->dsym_1271__INSTANCE.obj_len = 3; /*inistring dstr_1272__INSTANCE*/ /*_.VALSTR___V1347*/ meltfptr[1346] = (melt_ptr_t) & cdat->dstr_1272__INSTANCE; cdat->dstr_1272__INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1272__INSTANCE.val, "INSTANCE", sizeof (cdat->dstr_1272__INSTANCE.val) - 1); /*inirout drout_1273__MEXPAND_LOAD */ /*_.VALROUT___V1348*/ meltfptr[1347] = (melt_ptr_t) & cdat->drout_1273__MEXPAND_LOAD; cdat->drout_1273__MEXPAND_LOAD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1273__MEXPAND_LOAD.routdescr, "MEXPAND_LOAD @warmelt-macro.melt:3625", MELT_ROUTDESCR_LEN - 1); cdat->drout_1273__MEXPAND_LOAD.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1273__MEXPAND_LOAD, meltrout_53_warmelt_macro_MEXPAND_LOAD); /*iniclos dclo_1274__MEXPAND_LOAD */ /*_.VALCLO___V1349*/ meltfptr[1348] = (melt_ptr_t) & cdat->dclo_1274__MEXPAND_LOAD; cdat->dclo_1274__MEXPAND_LOAD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1274__MEXPAND_LOAD.nbval = 0; /*iniobj dsym_1275__LOAD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1350*/ meltfptr[1349]) /*_.VALDATA___V1350*/ meltfptr[1349] = (melt_ptr_t) & cdat->dsym_1275__LOAD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1275__LOAD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1275__LOAD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1275__LOAD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1275__LOAD.obj_hash = 801185878; cdat->dsym_1275__LOAD.obj_len = 3; /*inistring dstr_1276__LOAD*/ /*_.VALSTR___V1351*/ meltfptr[1350] = (melt_ptr_t) & cdat->dstr_1276__LOAD; cdat->dstr_1276__LOAD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1276__LOAD.val, "LOAD", sizeof (cdat->dstr_1276__LOAD.val) - 1); /*inirout drout_1277__PARSE_FIELD_PATTERN */ /*_.VALROUT___V1352*/ meltfptr[1351] = (melt_ptr_t) & cdat->drout_1277__PARSE_FIELD_PATTERN; cdat->drout_1277__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1277__PARSE_FIELD_PATTERN.routdescr, "PARSE_FIELD_PATTERN @warmelt-macro.melt:3666", MELT_ROUTDESCR_LEN - 1); cdat->drout_1277__PARSE_FIELD_PATTERN.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1277__PARSE_FIELD_PATTERN, meltrout_54_warmelt_macro_PARSE_FIELD_PATTERN); /*iniclos dclo_1278__PARSE_FIELD_PATTERN */ /*_.VALCLO___V1354*/ meltfptr[1353] = (melt_ptr_t) & cdat->dclo_1278__PARSE_FIELD_PATTERN; cdat->dclo_1278__PARSE_FIELD_PATTERN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1278__PARSE_FIELD_PATTERN.nbval = 0; /*inirout drout_1279__LAMBDA_ */ /*_.VALROUT___V1353*/ meltfptr[1352] = (melt_ptr_t) & cdat->drout_1279__LAMBDA_; cdat->drout_1279__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1279__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3681", MELT_ROUTDESCR_LEN - 1); cdat->drout_1279__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1279__LAMBDA_, meltrout_55_warmelt_macro_LAMBDA___14__); /*inirout drout_1280__PATEXPAND_INSTANCE */ /*_.VALROUT___V1355*/ meltfptr[1354] = (melt_ptr_t) & cdat->drout_1280__PATEXPAND_INSTANCE; cdat->drout_1280__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1280__PATEXPAND_INSTANCE.routdescr, "PATEXPAND_INSTANCE @warmelt-macro.melt:3710", MELT_ROUTDESCR_LEN - 1); cdat->drout_1280__PATEXPAND_INSTANCE.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1280__PATEXPAND_INSTANCE, meltrout_56_warmelt_macro_PATEXPAND_INSTANCE); /*iniclos dclo_1281__PATEXPAND_INSTANCE */ /*_.VALCLO___V1357*/ meltfptr[1356] = (melt_ptr_t) & cdat->dclo_1281__PATEXPAND_INSTANCE; cdat->dclo_1281__PATEXPAND_INSTANCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1281__PATEXPAND_INSTANCE.nbval = 0; /*inirout drout_1282__LAMBDA_ */ /*_.VALROUT___V1356*/ meltfptr[1355] = (melt_ptr_t) & cdat->drout_1282__LAMBDA_; cdat->drout_1282__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1282__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3768", MELT_ROUTDESCR_LEN - 1); cdat->drout_1282__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1282__LAMBDA_, meltrout_57_warmelt_macro_LAMBDA___15__); /*inirout drout_1283__PATEXPAND_OBJECT */ /*_.VALROUT___V1358*/ meltfptr[1357] = (melt_ptr_t) & cdat->drout_1283__PATEXPAND_OBJECT; cdat->drout_1283__PATEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1283__PATEXPAND_OBJECT.routdescr, "PATEXPAND_OBJECT @warmelt-macro.melt:3805", MELT_ROUTDESCR_LEN - 1); cdat->drout_1283__PATEXPAND_OBJECT.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1283__PATEXPAND_OBJECT, meltrout_58_warmelt_macro_PATEXPAND_OBJECT); /*iniclos dclo_1284__PATEXPAND_OBJECT */ /*_.VALCLO___V1360*/ meltfptr[1359] = (melt_ptr_t) & cdat->dclo_1284__PATEXPAND_OBJECT; cdat->dclo_1284__PATEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1284__PATEXPAND_OBJECT.nbval = 0; /*inirout drout_1285__LAMBDA_ */ /*_.VALROUT___V1359*/ meltfptr[1358] = (melt_ptr_t) & cdat->drout_1285__LAMBDA_; cdat->drout_1285__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1285__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:3863", MELT_ROUTDESCR_LEN - 1); cdat->drout_1285__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1285__LAMBDA_, meltrout_59_warmelt_macro_LAMBDA___16__); /*inirout drout_1286__MEXPAND_OBJECT */ /*_.VALROUT___V1361*/ meltfptr[1360] = (melt_ptr_t) & cdat->drout_1286__MEXPAND_OBJECT; cdat->drout_1286__MEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1286__MEXPAND_OBJECT.routdescr, "MEXPAND_OBJECT @warmelt-macro.melt:3882", MELT_ROUTDESCR_LEN - 1); cdat->drout_1286__MEXPAND_OBJECT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1286__MEXPAND_OBJECT, meltrout_60_warmelt_macro_MEXPAND_OBJECT); /*iniclos dclo_1287__MEXPAND_OBJECT */ /*_.VALCLO___V1362*/ meltfptr[1361] = (melt_ptr_t) & cdat->dclo_1287__MEXPAND_OBJECT; cdat->dclo_1287__MEXPAND_OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1287__MEXPAND_OBJECT.nbval = 0; /*iniobj dsym_1288__OBJECT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1363*/ meltfptr[1362]) /*_.VALDATA___V1363*/ meltfptr[1362] = (melt_ptr_t) & cdat->dsym_1288__OBJECT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1288__OBJECT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1288__OBJECT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1288__OBJECT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1288__OBJECT.obj_hash = 680382828; cdat->dsym_1288__OBJECT.obj_len = 3; /*inistring dstr_1289__OBJECT*/ /*_.VALSTR___V1364*/ meltfptr[1363] = (melt_ptr_t) & cdat->dstr_1289__OBJECT; cdat->dstr_1289__OBJECT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1289__OBJECT.val, "OBJECT", sizeof (cdat->dstr_1289__OBJECT.val) - 1); /*inirout drout_1290__MEXPAND_CODE_CHUNK */ /*_.VALROUT___V1365*/ meltfptr[1364] = (melt_ptr_t) & cdat->drout_1290__MEXPAND_CODE_CHUNK; cdat->drout_1290__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1290__MEXPAND_CODE_CHUNK.routdescr, "MEXPAND_CODE_CHUNK @warmelt-macro.melt:3905", MELT_ROUTDESCR_LEN - 1); cdat->drout_1290__MEXPAND_CODE_CHUNK.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1290__MEXPAND_CODE_CHUNK, meltrout_61_warmelt_macro_MEXPAND_CODE_CHUNK); /*iniclos dclo_1291__MEXPAND_CODE_CHUNK */ /*_.VALCLO___V1366*/ meltfptr[1365] = (melt_ptr_t) & cdat->dclo_1291__MEXPAND_CODE_CHUNK; cdat->dclo_1291__MEXPAND_CODE_CHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1291__MEXPAND_CODE_CHUNK.nbval = 0; /*iniobj dsym_1292__CODE_CHUNK*/ /*uniqueobj*/ if (! /*_.VALDATA___V1367*/ meltfptr[1366]) /*_.VALDATA___V1367*/ meltfptr[1366] = (melt_ptr_t) & cdat->dsym_1292__CODE_CHUNK; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1292__CODE_CHUNK", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1292__CODE_CHUNK", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1292__CODE_CHUNK.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1292__CODE_CHUNK.obj_hash = 744676025; cdat->dsym_1292__CODE_CHUNK.obj_len = 3; /*inistring dstr_1293__CODE_CHUNK*/ /*_.VALSTR___V1368*/ meltfptr[1367] = (melt_ptr_t) & cdat->dstr_1293__CODE_CHUNK; cdat->dstr_1293__CODE_CHUNK.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1293__CODE_CHUNK.val, "CODE_CHUNK", sizeof (cdat->dstr_1293__CODE_CHUNK.val) - 1); /*inirout drout_1294__MEXPAND_UNSAFE_PUT_FIELDS */ /*_.VALROUT___V1369*/ meltfptr[1368] = (melt_ptr_t) & cdat->drout_1294__MEXPAND_UNSAFE_PUT_FIELDS; cdat->drout_1294__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1294__MEXPAND_UNSAFE_PUT_FIELDS.routdescr, "MEXPAND_UNSAFE_PUT_FIELDS @warmelt-macro.melt:3956", MELT_ROUTDESCR_LEN - 1); cdat->drout_1294__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1294__MEXPAND_UNSAFE_PUT_FIELDS, meltrout_62_warmelt_macro_MEXPAND_UNSAFE_PUT_FIELDS); /*iniclos dclo_1295__MEXPAND_UNSAFE_PUT_FIELDS */ /*_.VALCLO___V1370*/ meltfptr[1369] = (melt_ptr_t) & cdat->dclo_1295__MEXPAND_UNSAFE_PUT_FIELDS; cdat->dclo_1295__MEXPAND_UNSAFE_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1295__MEXPAND_UNSAFE_PUT_FIELDS.nbval = 0; /*iniobj dsym_1296__UNSAFE_PUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1371*/ meltfptr[1370]) /*_.VALDATA___V1371*/ meltfptr[1370] = (melt_ptr_t) & cdat->dsym_1296__UNSAFE_PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1296__UNSAFE_PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1296__UNSAFE_PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1296__UNSAFE_PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1296__UNSAFE_PUT_FIELDS.obj_hash = 2805843; cdat->dsym_1296__UNSAFE_PUT_FIELDS.obj_len = 3; /*inistring dstr_1297__UNSAFE_PUT_FIELD*/ /*_.VALSTR___V1372*/ meltfptr[1371] = (melt_ptr_t) & cdat->dstr_1297__UNSAFE_PUT_FIELD; cdat->dstr_1297__UNSAFE_PUT_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1297__UNSAFE_PUT_FIELD.val, "UNSAFE_PUT_FIELDS", sizeof (cdat->dstr_1297__UNSAFE_PUT_FIELD. val) - 1); /*inirout drout_1298__MEXPAND_PUT_FIELDS */ /*_.VALROUT___V1373*/ meltfptr[1372] = (melt_ptr_t) & cdat->drout_1298__MEXPAND_PUT_FIELDS; cdat->drout_1298__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1298__MEXPAND_PUT_FIELDS.routdescr, "MEXPAND_PUT_FIELDS @warmelt-macro.melt:4004", MELT_ROUTDESCR_LEN - 1); cdat->drout_1298__MEXPAND_PUT_FIELDS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1298__MEXPAND_PUT_FIELDS, meltrout_63_warmelt_macro_MEXPAND_PUT_FIELDS); /*iniclos dclo_1299__MEXPAND_PUT_FIELDS */ /*_.VALCLO___V1374*/ meltfptr[1373] = (melt_ptr_t) & cdat->dclo_1299__MEXPAND_PUT_FIELDS; cdat->dclo_1299__MEXPAND_PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1299__MEXPAND_PUT_FIELDS.nbval = 0; /*iniobj dsym_1300__PUT_FIELDS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1375*/ meltfptr[1374]) /*_.VALDATA___V1375*/ meltfptr[1374] = (melt_ptr_t) & cdat->dsym_1300__PUT_FIELDS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1300__PUT_FIELDS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1300__PUT_FIELDS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1300__PUT_FIELDS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1300__PUT_FIELDS.obj_hash = 370297609; cdat->dsym_1300__PUT_FIELDS.obj_len = 3; /*inistring dstr_1301__PUT_FIELDS*/ /*_.VALSTR___V1376*/ meltfptr[1375] = (melt_ptr_t) & cdat->dstr_1301__PUT_FIELDS; cdat->dstr_1301__PUT_FIELDS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1301__PUT_FIELDS.val, "PUT_FIELDS", sizeof (cdat->dstr_1301__PUT_FIELDS.val) - 1); /*inirout drout_1302__MEXPAND_UNSAFE_GET_FIELD */ /*_.VALROUT___V1377*/ meltfptr[1376] = (melt_ptr_t) & cdat->drout_1302__MEXPAND_UNSAFE_GET_FIELD; cdat->drout_1302__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1302__MEXPAND_UNSAFE_GET_FIELD.routdescr, "MEXPAND_UNSAFE_GET_FIELD @warmelt-macro.melt:4051", MELT_ROUTDESCR_LEN - 1); cdat->drout_1302__MEXPAND_UNSAFE_GET_FIELD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1302__MEXPAND_UNSAFE_GET_FIELD, meltrout_64_warmelt_macro_MEXPAND_UNSAFE_GET_FIELD); /*iniclos dclo_1303__MEXPAND_UNSAFE_GET_FIELD */ /*_.VALCLO___V1378*/ meltfptr[1377] = (melt_ptr_t) & cdat->dclo_1303__MEXPAND_UNSAFE_GET_FIELD; cdat->dclo_1303__MEXPAND_UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1303__MEXPAND_UNSAFE_GET_FIELD.nbval = 0; /*iniobj dsym_1304__UNSAFE_GET_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1379*/ meltfptr[1378]) /*_.VALDATA___V1379*/ meltfptr[1378] = (melt_ptr_t) & cdat->dsym_1304__UNSAFE_GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1304__UNSAFE_GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1304__UNSAFE_GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1304__UNSAFE_GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1304__UNSAFE_GET_FIELD.obj_hash = 38069390; cdat->dsym_1304__UNSAFE_GET_FIELD.obj_len = 3; /*inistring dstr_1305__UNSAFE_GET_FIELD*/ /*_.VALSTR___V1380*/ meltfptr[1379] = (melt_ptr_t) & cdat->dstr_1305__UNSAFE_GET_FIELD; cdat->dstr_1305__UNSAFE_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1305__UNSAFE_GET_FIELD.val, "UNSAFE_GET_FIELD", sizeof (cdat->dstr_1305__UNSAFE_GET_FIELD. val) - 1); /*inirout drout_1306__MEXPAND_GET_FIELD */ /*_.VALROUT___V1381*/ meltfptr[1380] = (melt_ptr_t) & cdat->drout_1306__MEXPAND_GET_FIELD; cdat->drout_1306__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1306__MEXPAND_GET_FIELD.routdescr, "MEXPAND_GET_FIELD @warmelt-macro.melt:4092", MELT_ROUTDESCR_LEN - 1); cdat->drout_1306__MEXPAND_GET_FIELD.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1306__MEXPAND_GET_FIELD, meltrout_65_warmelt_macro_MEXPAND_GET_FIELD); /*iniclos dclo_1307__MEXPAND_GET_FIELD */ /*_.VALCLO___V1382*/ meltfptr[1381] = (melt_ptr_t) & cdat->dclo_1307__MEXPAND_GET_FIELD; cdat->dclo_1307__MEXPAND_GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1307__MEXPAND_GET_FIELD.nbval = 0; /*iniobj dsym_1308__GET_FIELD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1383*/ meltfptr[1382]) /*_.VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t) & cdat->dsym_1308__GET_FIELD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1308__GET_FIELD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1308__GET_FIELD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1308__GET_FIELD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1308__GET_FIELD.obj_hash = 203020234; cdat->dsym_1308__GET_FIELD.obj_len = 3; /*inistring dstr_1309__GET_FIELD*/ /*_.VALSTR___V1384*/ meltfptr[1383] = (melt_ptr_t) & cdat->dstr_1309__GET_FIELD; cdat->dstr_1309__GET_FIELD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1309__GET_FIELD.val, "GET_FIELD", sizeof (cdat->dstr_1309__GET_FIELD.val) - 1); /*inirout drout_1310__PAIRLIST_TO_PROGN */ /*_.VALROUT___V1385*/ meltfptr[1384] = (melt_ptr_t) & cdat->drout_1310__PAIRLIST_TO_PROGN; cdat->drout_1310__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1310__PAIRLIST_TO_PROGN.routdescr, "PAIRLIST_TO_PROGN @warmelt-macro.melt:4133", MELT_ROUTDESCR_LEN - 1); cdat->drout_1310__PAIRLIST_TO_PROGN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1310__PAIRLIST_TO_PROGN, meltrout_66_warmelt_macro_PAIRLIST_TO_PROGN); /*iniclos dclo_1311__PAIRLIST_TO_PROGN */ /*_.VALCLO___V1387*/ meltfptr[1386] = (melt_ptr_t) & cdat->dclo_1311__PAIRLIST_TO_PROGN; cdat->dclo_1311__PAIRLIST_TO_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1311__PAIRLIST_TO_PROGN.nbval = 0; /*inirout drout_1312__LAMBDA_ */ /*_.VALROUT___V1386*/ meltfptr[1385] = (melt_ptr_t) & cdat->drout_1312__LAMBDA_; cdat->drout_1312__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1312__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4141", MELT_ROUTDESCR_LEN - 1); cdat->drout_1312__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1312__LAMBDA_, meltrout_67_warmelt_macro_LAMBDA___17__); /*inirout drout_1313__MEXPAND_SETQ */ /*_.VALROUT___V1388*/ meltfptr[1387] = (melt_ptr_t) & cdat->drout_1313__MEXPAND_SETQ; cdat->drout_1313__MEXPAND_SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1313__MEXPAND_SETQ.routdescr, "MEXPAND_SETQ @warmelt-macro.melt:4152", MELT_ROUTDESCR_LEN - 1); cdat->drout_1313__MEXPAND_SETQ.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1313__MEXPAND_SETQ, meltrout_68_warmelt_macro_MEXPAND_SETQ); /*iniclos dclo_1314__MEXPAND_SETQ */ /*_.VALCLO___V1389*/ meltfptr[1388] = (melt_ptr_t) & cdat->dclo_1314__MEXPAND_SETQ; cdat->dclo_1314__MEXPAND_SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1314__MEXPAND_SETQ.nbval = 0; /*iniobj dsym_1315__SETQ*/ /*uniqueobj*/ if (! /*_.VALDATA___V1390*/ meltfptr[1389]) /*_.VALDATA___V1390*/ meltfptr[1389] = (melt_ptr_t) & cdat->dsym_1315__SETQ; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1315__SETQ", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1315__SETQ", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1315__SETQ.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1315__SETQ.obj_hash = 46296512; cdat->dsym_1315__SETQ.obj_len = 3; /*inistring dstr_1316__SETQ*/ /*_.VALSTR___V1391*/ meltfptr[1390] = (melt_ptr_t) & cdat->dstr_1316__SETQ; cdat->dstr_1316__SETQ.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1316__SETQ.val, "SETQ", sizeof (cdat->dstr_1316__SETQ.val) - 1); /*inirout drout_1317__MEXPAND_IF */ /*_.VALROUT___V1392*/ meltfptr[1391] = (melt_ptr_t) & cdat->drout_1317__MEXPAND_IF; cdat->drout_1317__MEXPAND_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1317__MEXPAND_IF.routdescr, "MEXPAND_IF @warmelt-macro.melt:4183", MELT_ROUTDESCR_LEN - 1); cdat->drout_1317__MEXPAND_IF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1317__MEXPAND_IF, meltrout_69_warmelt_macro_MEXPAND_IF); /*iniclos dclo_1318__MEXPAND_IF */ /*_.VALCLO___V1393*/ meltfptr[1392] = (melt_ptr_t) & cdat->dclo_1318__MEXPAND_IF; cdat->dclo_1318__MEXPAND_IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1318__MEXPAND_IF.nbval = 0; /*iniobj dsym_1319__IF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1394*/ meltfptr[1393]) /*_.VALDATA___V1394*/ meltfptr[1393] = (melt_ptr_t) & cdat->dsym_1319__IF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1319__IF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1319__IF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1319__IF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1319__IF.obj_hash = 117586816; cdat->dsym_1319__IF.obj_len = 3; /*inistring dstr_1320__IF*/ /*_.VALSTR___V1395*/ meltfptr[1394] = (melt_ptr_t) & cdat->dstr_1320__IF; cdat->dstr_1320__IF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1320__IF.val, "IF", sizeof (cdat->dstr_1320__IF.val) - 1); /*inirout drout_1321__MEXPAND_WHEN */ /*_.VALROUT___V1396*/ meltfptr[1395] = (melt_ptr_t) & cdat->drout_1321__MEXPAND_WHEN; cdat->drout_1321__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1321__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:4237", MELT_ROUTDESCR_LEN - 1); cdat->drout_1321__MEXPAND_WHEN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1321__MEXPAND_WHEN, meltrout_70_warmelt_macro_MEXPAND_WHEN); /*iniclos dclo_1322__MEXPAND_WHEN */ /*_.VALCLO___V1397*/ meltfptr[1396] = (melt_ptr_t) & cdat->dclo_1322__MEXPAND_WHEN; cdat->dclo_1322__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1322__MEXPAND_WHEN.nbval = 0; /*iniobj dsym_1323__WHEN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1398*/ meltfptr[1397]) /*_.VALDATA___V1398*/ meltfptr[1397] = (melt_ptr_t) & cdat->dsym_1323__WHEN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1323__WHEN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1323__WHEN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1323__WHEN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1323__WHEN.obj_hash = 10073847; cdat->dsym_1323__WHEN.obj_len = 3; /*inistring dstr_1324__WHEN*/ /*_.VALSTR___V1399*/ meltfptr[1398] = (melt_ptr_t) & cdat->dstr_1324__WHEN; cdat->dstr_1324__WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1324__WHEN.val, "WHEN", sizeof (cdat->dstr_1324__WHEN.val) - 1); /*inirout drout_1325__MEXPAND_UNLESS */ /*_.VALROUT___V1400*/ meltfptr[1399] = (melt_ptr_t) & cdat->drout_1325__MEXPAND_UNLESS; cdat->drout_1325__MEXPAND_UNLESS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1325__MEXPAND_UNLESS.routdescr, "MEXPAND_UNLESS @warmelt-macro.melt:4273", MELT_ROUTDESCR_LEN - 1); cdat->drout_1325__MEXPAND_UNLESS.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1325__MEXPAND_UNLESS, meltrout_71_warmelt_macro_MEXPAND_UNLESS); /*iniclos dclo_1326__MEXPAND_UNLESS */ /*_.VALCLO___V1401*/ meltfptr[1400] = (melt_ptr_t) & cdat->dclo_1326__MEXPAND_UNLESS; cdat->dclo_1326__MEXPAND_UNLESS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1326__MEXPAND_UNLESS.nbval = 0; /*iniobj dsym_1327__UNLESS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1402*/ meltfptr[1401]) /*_.VALDATA___V1402*/ meltfptr[1401] = (melt_ptr_t) & cdat->dsym_1327__UNLESS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1327__UNLESS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1327__UNLESS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1327__UNLESS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1327__UNLESS.obj_hash = 409627047; cdat->dsym_1327__UNLESS.obj_len = 3; /*inistring dstr_1328__UNLESS*/ /*_.VALSTR___V1403*/ meltfptr[1402] = (melt_ptr_t) & cdat->dstr_1328__UNLESS; cdat->dstr_1328__UNLESS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1328__UNLESS.val, "UNLESS", sizeof (cdat->dstr_1328__UNLESS.val) - 1); /*inirout drout_1329__MEXPAND_CPPIF */ /*_.VALROUT___V1404*/ meltfptr[1403] = (melt_ptr_t) & cdat->drout_1329__MEXPAND_CPPIF; cdat->drout_1329__MEXPAND_CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1329__MEXPAND_CPPIF.routdescr, "MEXPAND_CPPIF @warmelt-macro.melt:4309", MELT_ROUTDESCR_LEN - 1); cdat->drout_1329__MEXPAND_CPPIF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1329__MEXPAND_CPPIF, meltrout_72_warmelt_macro_MEXPAND_CPPIF); /*iniclos dclo_1330__MEXPAND_CPPIF */ /*_.VALCLO___V1405*/ meltfptr[1404] = (melt_ptr_t) & cdat->dclo_1330__MEXPAND_CPPIF; cdat->dclo_1330__MEXPAND_CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1330__MEXPAND_CPPIF.nbval = 0; /*iniobj dsym_1331__CPPIF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1406*/ meltfptr[1405]) /*_.VALDATA___V1406*/ meltfptr[1405] = (melt_ptr_t) & cdat->dsym_1331__CPPIF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1331__CPPIF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1331__CPPIF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1331__CPPIF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1331__CPPIF.obj_hash = 829409177; cdat->dsym_1331__CPPIF.obj_len = 3; /*inistring dstr_1332__CPPIF*/ /*_.VALSTR___V1407*/ meltfptr[1406] = (melt_ptr_t) & cdat->dstr_1332__CPPIF; cdat->dstr_1332__CPPIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1332__CPPIF.val, "CPPIF", sizeof (cdat->dstr_1332__CPPIF.val) - 1); /*inirout drout_1333__FILTERGCCVERSION */ /*_.VALROUT___V1408*/ meltfptr[1407] = (melt_ptr_t) & cdat->drout_1333__FILTERGCCVERSION; cdat->drout_1333__FILTERGCCVERSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1333__FILTERGCCVERSION.routdescr, "FILTERGCCVERSION @warmelt-macro.melt:4366", MELT_ROUTDESCR_LEN - 1); cdat->drout_1333__FILTERGCCVERSION.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1333__FILTERGCCVERSION, meltrout_73_warmelt_macro_FILTERGCCVERSION); /*iniclos dclo_1334__FILTERGCCVERSION */ /*_.VALCLO___V1409*/ meltfptr[1408] = (melt_ptr_t) & cdat->dclo_1334__FILTERGCCVERSION; cdat->dclo_1334__FILTERGCCVERSION.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1334__FILTERGCCVERSION.nbval = 0; /*inirout drout_1335__MEXPAND_GCCIF */ /*_.VALROUT___V1410*/ meltfptr[1409] = (melt_ptr_t) & cdat->drout_1335__MEXPAND_GCCIF; cdat->drout_1335__MEXPAND_GCCIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1335__MEXPAND_GCCIF.routdescr, "MEXPAND_GCCIF @warmelt-macro.melt:4381", MELT_ROUTDESCR_LEN - 1); cdat->drout_1335__MEXPAND_GCCIF.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1335__MEXPAND_GCCIF, meltrout_74_warmelt_macro_MEXPAND_GCCIF); /*iniclos dclo_1336__MEXPAND_GCCIF */ /*_.VALCLO___V1411*/ meltfptr[1410] = (melt_ptr_t) & cdat->dclo_1336__MEXPAND_GCCIF; cdat->dclo_1336__MEXPAND_GCCIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1336__MEXPAND_GCCIF.nbval = 0; /*iniobj dsym_1337__GCCIF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1412*/ meltfptr[1411]) /*_.VALDATA___V1412*/ meltfptr[1411] = (melt_ptr_t) & cdat->dsym_1337__GCCIF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1337__GCCIF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1337__GCCIF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1337__GCCIF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1337__GCCIF.obj_hash = 909505007; cdat->dsym_1337__GCCIF.obj_len = 3; /*inistring dstr_1338__GCCIF*/ /*_.VALSTR___V1413*/ meltfptr[1412] = (melt_ptr_t) & cdat->dstr_1338__GCCIF; cdat->dstr_1338__GCCIF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1338__GCCIF.val, "GCCIF", sizeof (cdat->dstr_1338__GCCIF.val) - 1); /*inirout drout_1339__MEXPAND_COND */ /*_.VALROUT___V1414*/ meltfptr[1413] = (melt_ptr_t) & cdat->drout_1339__MEXPAND_COND; cdat->drout_1339__MEXPAND_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1339__MEXPAND_COND.routdescr, "MEXPAND_COND @warmelt-macro.melt:4444", MELT_ROUTDESCR_LEN - 1); cdat->drout_1339__MEXPAND_COND.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1339__MEXPAND_COND, meltrout_75_warmelt_macro_MEXPAND_COND); /*iniclos dclo_1340__MEXPAND_COND */ /*_.VALCLO___V1418*/ meltfptr[1417] = (melt_ptr_t) & cdat->dclo_1340__MEXPAND_COND; cdat->dclo_1340__MEXPAND_COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1340__MEXPAND_COND.nbval = 0; /*inirout drout_1341__LAMBDA_ */ /*_.VALROUT___V1415*/ meltfptr[1414] = (melt_ptr_t) & cdat->drout_1341__LAMBDA_; cdat->drout_1341__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1341__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4454", MELT_ROUTDESCR_LEN - 1); cdat->drout_1341__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1341__LAMBDA_, meltrout_76_warmelt_macro_LAMBDA___18__); /*iniobj dsym_1342__ELSE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1416*/ meltfptr[1415]) /*_.VALDATA___V1416*/ meltfptr[1415] = (melt_ptr_t) & cdat->dsym_1342__ELSE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1342__ELSE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1342__ELSE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1342__ELSE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1342__ELSE.obj_hash = 34374860; cdat->dsym_1342__ELSE.obj_len = 3; /*inistring dstr_1343__ELSE*/ /*_.VALSTR___V1417*/ meltfptr[1416] = (melt_ptr_t) & cdat->dstr_1343__ELSE; cdat->dstr_1343__ELSE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1343__ELSE.val, "ELSE", sizeof (cdat->dstr_1343__ELSE.val) - 1); /*iniobj dsym_1344__COND*/ /*uniqueobj*/ if (! /*_.VALDATA___V1419*/ meltfptr[1418]) /*_.VALDATA___V1419*/ meltfptr[1418] = (melt_ptr_t) & cdat->dsym_1344__COND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1344__COND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1344__COND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1344__COND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1344__COND.obj_hash = 51211759; cdat->dsym_1344__COND.obj_len = 3; /*inistring dstr_1345__COND*/ /*_.VALSTR___V1420*/ meltfptr[1419] = (melt_ptr_t) & cdat->dstr_1345__COND; cdat->dstr_1345__COND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1345__COND.val, "COND", sizeof (cdat->dstr_1345__COND.val) - 1); /*inirout drout_1346__MEXPAND_AND */ /*_.VALROUT___V1421*/ meltfptr[1420] = (melt_ptr_t) & cdat->drout_1346__MEXPAND_AND; cdat->drout_1346__MEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1346__MEXPAND_AND.routdescr, "MEXPAND_AND @warmelt-macro.melt:4549", MELT_ROUTDESCR_LEN - 1); cdat->drout_1346__MEXPAND_AND.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1346__MEXPAND_AND, meltrout_77_warmelt_macro_MEXPAND_AND); /*iniclos dclo_1347__MEXPAND_AND */ /*_.VALCLO___V1423*/ meltfptr[1422] = (melt_ptr_t) & cdat->dclo_1347__MEXPAND_AND; cdat->dclo_1347__MEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1347__MEXPAND_AND.nbval = 0; /*inirout drout_1348__LAMBDA_ */ /*_.VALROUT___V1422*/ meltfptr[1421] = (melt_ptr_t) & cdat->drout_1348__LAMBDA_; cdat->drout_1348__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1348__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4562", MELT_ROUTDESCR_LEN - 1); cdat->drout_1348__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1348__LAMBDA_, meltrout_78_warmelt_macro_LAMBDA___19__); /*inirout drout_1349__PATEXPAND_AS */ /*_.VALROUT___V1424*/ meltfptr[1423] = (melt_ptr_t) & cdat->drout_1349__PATEXPAND_AS; cdat->drout_1349__PATEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1349__PATEXPAND_AS.routdescr, "PATEXPAND_AS @warmelt-macro.melt:4590", MELT_ROUTDESCR_LEN - 1); cdat->drout_1349__PATEXPAND_AS.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1349__PATEXPAND_AS, meltrout_79_warmelt_macro_PATEXPAND_AS); /*iniclos dclo_1350__PATEXPAND_AS */ /*_.VALCLO___V1425*/ meltfptr[1424] = (melt_ptr_t) & cdat->dclo_1350__PATEXPAND_AS; cdat->dclo_1350__PATEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1350__PATEXPAND_AS.nbval = 0; /*inirout drout_1351__MEXPAND_AS */ /*_.VALROUT___V1426*/ meltfptr[1425] = (melt_ptr_t) & cdat->drout_1351__MEXPAND_AS; cdat->drout_1351__MEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1351__MEXPAND_AS.routdescr, "MEXPAND_AS @warmelt-macro.melt:4628", MELT_ROUTDESCR_LEN - 1); cdat->drout_1351__MEXPAND_AS.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1351__MEXPAND_AS, meltrout_80_warmelt_macro_MEXPAND_AS); /*iniclos dclo_1352__MEXPAND_AS */ /*_.VALCLO___V1427*/ meltfptr[1426] = (melt_ptr_t) & cdat->dclo_1352__MEXPAND_AS; cdat->dclo_1352__MEXPAND_AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1352__MEXPAND_AS.nbval = 0; /*iniobj dsym_1353__AS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1428*/ meltfptr[1427]) /*_.VALDATA___V1428*/ meltfptr[1427] = (melt_ptr_t) & cdat->dsym_1353__AS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1353__AS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1353__AS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1353__AS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1353__AS.obj_hash = 76496773; cdat->dsym_1353__AS.obj_len = 3; /*inistring dstr_1354__AS*/ /*_.VALSTR___V1429*/ meltfptr[1428] = (melt_ptr_t) & cdat->dstr_1354__AS; cdat->dstr_1354__AS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1354__AS.val, "AS", sizeof (cdat->dstr_1354__AS.val) - 1); /*inirout drout_1355__PATEXPAND_WHEN */ /*_.VALROUT___V1430*/ meltfptr[1429] = (melt_ptr_t) & cdat->drout_1355__PATEXPAND_WHEN; cdat->drout_1355__PATEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1355__PATEXPAND_WHEN.routdescr, "PATEXPAND_WHEN @warmelt-macro.melt:4642", MELT_ROUTDESCR_LEN - 1); cdat->drout_1355__PATEXPAND_WHEN.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1355__PATEXPAND_WHEN, meltrout_81_warmelt_macro_PATEXPAND_WHEN); /*iniclos dclo_1356__PATEXPAND_WHEN */ /*_.VALCLO___V1431*/ meltfptr[1430] = (melt_ptr_t) & cdat->dclo_1356__PATEXPAND_WHEN; cdat->dclo_1356__PATEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1356__PATEXPAND_WHEN.nbval = 0; /*inirout drout_1357__MEXPAND_WHEN */ /*_.VALROUT___V1432*/ meltfptr[1431] = (melt_ptr_t) & cdat->drout_1357__MEXPAND_WHEN; cdat->drout_1357__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1357__MEXPAND_WHEN.routdescr, "MEXPAND_WHEN @warmelt-macro.melt:4657", MELT_ROUTDESCR_LEN - 1); cdat->drout_1357__MEXPAND_WHEN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1357__MEXPAND_WHEN, meltrout_82_warmelt_macro_MEXPAND_WHEN); /*iniclos dclo_1358__MEXPAND_WHEN */ /*_.VALCLO___V1433*/ meltfptr[1432] = (melt_ptr_t) & cdat->dclo_1358__MEXPAND_WHEN; cdat->dclo_1358__MEXPAND_WHEN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1358__MEXPAND_WHEN.nbval = 0; /*inirout drout_1359__PATEXPAND_AND */ /*_.VALROUT___V1434*/ meltfptr[1433] = (melt_ptr_t) & cdat->drout_1359__PATEXPAND_AND; cdat->drout_1359__PATEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1359__PATEXPAND_AND.routdescr, "PATEXPAND_AND @warmelt-macro.melt:4672", MELT_ROUTDESCR_LEN - 1); cdat->drout_1359__PATEXPAND_AND.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1359__PATEXPAND_AND, meltrout_83_warmelt_macro_PATEXPAND_AND); /*iniclos dclo_1360__PATEXPAND_AND */ /*_.VALCLO___V1435*/ meltfptr[1434] = (melt_ptr_t) & cdat->dclo_1360__PATEXPAND_AND; cdat->dclo_1360__PATEXPAND_AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1360__PATEXPAND_AND.nbval = 0; /*iniobj dsym_1361__AND*/ /*uniqueobj*/ if (! /*_.VALDATA___V1436*/ meltfptr[1435]) /*_.VALDATA___V1436*/ meltfptr[1435] = (melt_ptr_t) & cdat->dsym_1361__AND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1361__AND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1361__AND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1361__AND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1361__AND.obj_hash = 123533605; cdat->dsym_1361__AND.obj_len = 3; /*inistring dstr_1362__AND*/ /*_.VALSTR___V1437*/ meltfptr[1436] = (melt_ptr_t) & cdat->dstr_1362__AND; cdat->dstr_1362__AND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1362__AND.val, "AND", sizeof (cdat->dstr_1362__AND.val) - 1); /*inirout drout_1363__MEXPAND_OR */ /*_.VALROUT___V1438*/ meltfptr[1437] = (melt_ptr_t) & cdat->drout_1363__MEXPAND_OR; cdat->drout_1363__MEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1363__MEXPAND_OR.routdescr, "MEXPAND_OR @warmelt-macro.melt:4709", MELT_ROUTDESCR_LEN - 1); cdat->drout_1363__MEXPAND_OR.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1363__MEXPAND_OR, meltrout_84_warmelt_macro_MEXPAND_OR); /*iniclos dclo_1364__MEXPAND_OR */ /*_.VALCLO___V1440*/ meltfptr[1439] = (melt_ptr_t) & cdat->dclo_1364__MEXPAND_OR; cdat->dclo_1364__MEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1364__MEXPAND_OR.nbval = 0; /*inirout drout_1365__LAMBDA_ */ /*_.VALROUT___V1439*/ meltfptr[1438] = (melt_ptr_t) & cdat->drout_1365__LAMBDA_; cdat->drout_1365__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1365__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:4721", MELT_ROUTDESCR_LEN - 1); cdat->drout_1365__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1365__LAMBDA_, meltrout_85_warmelt_macro_LAMBDA___20__); /*inirout drout_1366__PATEXPAND_OR */ /*_.VALROUT___V1441*/ meltfptr[1440] = (melt_ptr_t) & cdat->drout_1366__PATEXPAND_OR; cdat->drout_1366__PATEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1366__PATEXPAND_OR.routdescr, "PATEXPAND_OR @warmelt-macro.melt:4739", MELT_ROUTDESCR_LEN - 1); cdat->drout_1366__PATEXPAND_OR.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1366__PATEXPAND_OR, meltrout_86_warmelt_macro_PATEXPAND_OR); /*iniclos dclo_1367__PATEXPAND_OR */ /*_.VALCLO___V1442*/ meltfptr[1441] = (melt_ptr_t) & cdat->dclo_1367__PATEXPAND_OR; cdat->dclo_1367__PATEXPAND_OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1367__PATEXPAND_OR.nbval = 0; /*iniobj dsym_1368__OR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1443*/ meltfptr[1442]) /*_.VALDATA___V1443*/ meltfptr[1442] = (melt_ptr_t) & cdat->dsym_1368__OR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1368__OR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1368__OR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1368__OR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1368__OR.obj_hash = 44588765; cdat->dsym_1368__OR.obj_len = 3; /*inistring dstr_1369__OR*/ /*_.VALSTR___V1444*/ meltfptr[1443] = (melt_ptr_t) & cdat->dstr_1369__OR; cdat->dstr_1369__OR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1369__OR.val, "OR", sizeof (cdat->dstr_1369__OR.val) - 1); /*inirout drout_1370__MEXPAND_REFERENCE */ /*_.VALROUT___V1445*/ meltfptr[1444] = (melt_ptr_t) & cdat->drout_1370__MEXPAND_REFERENCE; cdat->drout_1370__MEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1370__MEXPAND_REFERENCE.routdescr, "MEXPAND_REFERENCE @warmelt-macro.melt:4777", MELT_ROUTDESCR_LEN - 1); cdat->drout_1370__MEXPAND_REFERENCE.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1370__MEXPAND_REFERENCE, meltrout_87_warmelt_macro_MEXPAND_REFERENCE); /*iniclos dclo_1371__MEXPAND_REFERENCE */ /*_.VALCLO___V1448*/ meltfptr[1447] = (melt_ptr_t) & cdat->dclo_1371__MEXPAND_REFERENCE; cdat->dclo_1371__MEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1371__MEXPAND_REFERENCE.nbval = 0; /*iniobj dsym_1372__REFERENCED_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1446*/ meltfptr[1445]) /*_.VALDATA___V1446*/ meltfptr[1445] = (melt_ptr_t) & cdat->dsym_1372__REFERENCED_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1372__REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1372__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1372__REFERENCED_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_KEYWORD)))); cdat->dsym_1372__REFERENCED_VALUE.obj_hash = 206937792; cdat->dsym_1372__REFERENCED_VALUE.obj_len = 3; /*inistring dstr_1373__REFERENCED_VALUE*/ /*_.VALSTR___V1447*/ meltfptr[1446] = (melt_ptr_t) & cdat->dstr_1373__REFERENCED_VALUE; cdat->dstr_1373__REFERENCED_VALUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1373__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (cdat->dstr_1373__REFERENCED_VALUE. val) - 1); /*inirout drout_1374__PATEXPAND_REFERENCE */ /*_.VALROUT___V1449*/ meltfptr[1448] = (melt_ptr_t) & cdat->drout_1374__PATEXPAND_REFERENCE; cdat->drout_1374__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1374__PATEXPAND_REFERENCE.routdescr, "PATEXPAND_REFERENCE @warmelt-macro.melt:4819", MELT_ROUTDESCR_LEN - 1); cdat->drout_1374__PATEXPAND_REFERENCE.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1374__PATEXPAND_REFERENCE, meltrout_88_warmelt_macro_PATEXPAND_REFERENCE); /*iniclos dclo_1375__PATEXPAND_REFERENCE */ /*_.VALCLO___V1451*/ meltfptr[1450] = (melt_ptr_t) & cdat->dclo_1375__PATEXPAND_REFERENCE; cdat->dclo_1375__PATEXPAND_REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1375__PATEXPAND_REFERENCE.nbval = 0; /*iniboxint dint_1376__ */ /*_.VALBXINT___V1450*/ meltfptr[1449] = (melt_ptr_t) & cdat->dint_1376__; cdat->dint_1376__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1376__.val = 1; /*iniobj dsym_1377__REFERENCE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1452*/ meltfptr[1451]) /*_.VALDATA___V1452*/ meltfptr[1451] = (melt_ptr_t) & cdat->dsym_1377__REFERENCE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1377__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_1377__REFERENCE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1377__REFERENCE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1377__REFERENCE.obj_hash = 615372739; cdat->dsym_1377__REFERENCE.obj_len = 3; /*inistring dstr_1378__REFERENCE*/ /*_.VALSTR___V1453*/ meltfptr[1452] = (melt_ptr_t) & cdat->dstr_1378__REFERENCE; cdat->dstr_1378__REFERENCE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1378__REFERENCE.val, "REFERENCE", sizeof (cdat->dstr_1378__REFERENCE.val) - 1); /*inirout drout_1379__MEXPANDOBSOLETE_CONTAINER */ /*_.VALROUT___V1454*/ meltfptr[1453] = (melt_ptr_t) & cdat->drout_1379__MEXPANDOBSOLETE_CONTAINER; cdat->drout_1379__MEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1379__MEXPANDOBSOLETE_CONTAINER.routdescr, "MEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4859", MELT_ROUTDESCR_LEN - 1); cdat->drout_1379__MEXPANDOBSOLETE_CONTAINER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1379__MEXPANDOBSOLETE_CONTAINER, meltrout_89_warmelt_macro_MEXPANDOBSOLETE_CONTAINER); /*iniclos dclo_1380__MEXPANDOBSOLETE_CONTAINER */ /*_.VALCLO___V1455*/ meltfptr[1454] = (melt_ptr_t) & cdat->dclo_1380__MEXPANDOBSOLETE_CONTAINER; cdat->dclo_1380__MEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1380__MEXPANDOBSOLETE_CONTAINER.nbval = 0; /*inirout drout_1381__PATEXPANDOBSOLETE_CONTAINER */ /*_.VALROUT___V1456*/ meltfptr[1455] = (melt_ptr_t) & cdat->drout_1381__PATEXPANDOBSOLETE_CONTAINER; cdat->drout_1381__PATEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1381__PATEXPANDOBSOLETE_CONTAINER.routdescr, "PATEXPANDOBSOLETE_CONTAINER @warmelt-macro.melt:4866", MELT_ROUTDESCR_LEN - 1); cdat->drout_1381__PATEXPANDOBSOLETE_CONTAINER.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1381__PATEXPANDOBSOLETE_CONTAINER, meltrout_90_warmelt_macro_PATEXPANDOBSOLETE_CONTAINER); /*iniclos dclo_1382__PATEXPANDOBSOLETE_CONTAINER */ /*_.VALCLO___V1457*/ meltfptr[1456] = (melt_ptr_t) & cdat->dclo_1382__PATEXPANDOBSOLETE_CONTAINER; cdat->dclo_1382__PATEXPANDOBSOLETE_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1382__PATEXPANDOBSOLETE_CONTAINER.nbval = 0; /*iniobj dsym_1383__CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1458*/ meltfptr[1457]) /*_.VALDATA___V1458*/ meltfptr[1457] = (melt_ptr_t) & cdat->dsym_1383__CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1383__CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1383__CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1383__CONTAINER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1383__CONTAINER.obj_hash = 612488677; cdat->dsym_1383__CONTAINER.obj_len = 3; /*inistring dstr_1384__CONTAINER*/ /*_.VALSTR___V1459*/ meltfptr[1458] = (melt_ptr_t) & cdat->dstr_1384__CONTAINER; cdat->dstr_1384__CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1384__CONTAINER.val, "CONTAINER", sizeof (cdat->dstr_1384__CONTAINER.val) - 1); /*inirout drout_1385__MEXPAND_DEREF */ /*_.VALROUT___V1460*/ meltfptr[1459] = (melt_ptr_t) & cdat->drout_1385__MEXPAND_DEREF; cdat->drout_1385__MEXPAND_DEREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1385__MEXPAND_DEREF.routdescr, "MEXPAND_DEREF @warmelt-macro.melt:4880", MELT_ROUTDESCR_LEN - 1); cdat->drout_1385__MEXPAND_DEREF.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1385__MEXPAND_DEREF, meltrout_91_warmelt_macro_MEXPAND_DEREF); /*iniclos dclo_1386__MEXPAND_DEREF */ /*_.VALCLO___V1461*/ meltfptr[1460] = (melt_ptr_t) & cdat->dclo_1386__MEXPAND_DEREF; cdat->dclo_1386__MEXPAND_DEREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1386__MEXPAND_DEREF.nbval = 0; /*iniobj dsym_1387__REFERENCED_VALUE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1462*/ meltfptr[1461]) /*_.VALDATA___V1462*/ meltfptr[1461] = (melt_ptr_t) & cdat->dsym_1387__REFERENCED_VALUE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1387__REFERENCED_VALUE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1387__REFERENCED_VALUE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1387__REFERENCED_VALUE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1387__REFERENCED_VALUE.obj_hash = 333195267; cdat->dsym_1387__REFERENCED_VALUE.obj_len = 3; /*inistring dstr_1388__REFERENCED_VALUE*/ /*_.VALSTR___V1463*/ meltfptr[1462] = (melt_ptr_t) & cdat->dstr_1388__REFERENCED_VALUE; cdat->dstr_1388__REFERENCED_VALUE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1388__REFERENCED_VALUE.val, "REFERENCED_VALUE", sizeof (cdat->dstr_1388__REFERENCED_VALUE. val) - 1); /*iniobj dsym_1389__DEREF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1464*/ meltfptr[1463]) /*_.VALDATA___V1464*/ meltfptr[1463] = (melt_ptr_t) & cdat->dsym_1389__DEREF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1389__DEREF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1389__DEREF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1389__DEREF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1389__DEREF.obj_hash = 113361694; cdat->dsym_1389__DEREF.obj_len = 3; /*inistring dstr_1390__DEREF*/ /*_.VALSTR___V1465*/ meltfptr[1464] = (melt_ptr_t) & cdat->dstr_1390__DEREF; cdat->dstr_1390__DEREF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1390__DEREF.val, "DEREF", sizeof (cdat->dstr_1390__DEREF.val) - 1); /*inirout drout_1391__MEXPANDOBSOLETE_CONTENT */ /*_.VALROUT___V1466*/ meltfptr[1465] = (melt_ptr_t) & cdat->drout_1391__MEXPANDOBSOLETE_CONTENT; cdat->drout_1391__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1391__MEXPANDOBSOLETE_CONTENT.routdescr, "MEXPANDOBSOLETE_CONTENT @warmelt-macro.melt:4924", MELT_ROUTDESCR_LEN - 1); cdat->drout_1391__MEXPANDOBSOLETE_CONTENT.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1391__MEXPANDOBSOLETE_CONTENT, meltrout_92_warmelt_macro_MEXPANDOBSOLETE_CONTENT); /*iniclos dclo_1392__MEXPANDOBSOLETE_CONTENT */ /*_.VALCLO___V1467*/ meltfptr[1466] = (melt_ptr_t) & cdat->dclo_1392__MEXPANDOBSOLETE_CONTENT; cdat->dclo_1392__MEXPANDOBSOLETE_CONTENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1392__MEXPANDOBSOLETE_CONTENT.nbval = 0; /*iniobj dsym_1393__CONTENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1468*/ meltfptr[1467]) /*_.VALDATA___V1468*/ meltfptr[1467] = (melt_ptr_t) & cdat->dsym_1393__CONTENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1393__CONTENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1393__CONTENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1393__CONTENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1393__CONTENT.obj_hash = 1008043694; cdat->dsym_1393__CONTENT.obj_len = 3; /*inistring dstr_1394__CONTENT*/ /*_.VALSTR___V1469*/ meltfptr[1468] = (melt_ptr_t) & cdat->dstr_1394__CONTENT; cdat->dstr_1394__CONTENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1394__CONTENT.val, "CONTENT", sizeof (cdat->dstr_1394__CONTENT.val) - 1); /*iniobj dsym_1395__EXCLAIM*/ /*uniqueobj*/ if (! /*_.VALDATA___V1470*/ meltfptr[1469]) /*_.VALDATA___V1470*/ meltfptr[1469] = (melt_ptr_t) & cdat->dsym_1395__EXCLAIM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1395__EXCLAIM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1395__EXCLAIM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1395__EXCLAIM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1395__EXCLAIM.obj_hash = 415490856; cdat->dsym_1395__EXCLAIM.obj_len = 3; /*inistring dstr_1396__EXCLAIM*/ /*_.VALSTR___V1471*/ meltfptr[1470] = (melt_ptr_t) & cdat->dstr_1396__EXCLAIM; cdat->dstr_1396__EXCLAIM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1396__EXCLAIM.val, "EXCLAIM", sizeof (cdat->dstr_1396__EXCLAIM.val) - 1); /*inirout drout_1397__MEXPAND_SET_REF */ /*_.VALROUT___V1472*/ meltfptr[1471] = (melt_ptr_t) & cdat->drout_1397__MEXPAND_SET_REF; cdat->drout_1397__MEXPAND_SET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1397__MEXPAND_SET_REF.routdescr, "MEXPAND_SET_REF @warmelt-macro.melt:4946", MELT_ROUTDESCR_LEN - 1); cdat->drout_1397__MEXPAND_SET_REF.nbval = 14; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1397__MEXPAND_SET_REF, meltrout_93_warmelt_macro_MEXPAND_SET_REF); /*iniclos dclo_1398__MEXPAND_SET_REF */ /*_.VALCLO___V1473*/ meltfptr[1472] = (melt_ptr_t) & cdat->dclo_1398__MEXPAND_SET_REF; cdat->dclo_1398__MEXPAND_SET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1398__MEXPAND_SET_REF.nbval = 0; /*iniobj dsym_1399__SET_REF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1474*/ meltfptr[1473]) /*_.VALDATA___V1474*/ meltfptr[1473] = (melt_ptr_t) & cdat->dsym_1399__SET_REF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1399__SET_REF", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1399__SET_REF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1399__SET_REF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1399__SET_REF.obj_hash = 647948259; cdat->dsym_1399__SET_REF.obj_len = 3; /*inistring dstr_1400__SET_REF*/ /*_.VALSTR___V1475*/ meltfptr[1474] = (melt_ptr_t) & cdat->dstr_1400__SET_REF; cdat->dstr_1400__SET_REF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1400__SET_REF.val, "SET_REF", sizeof (cdat->dstr_1400__SET_REF.val) - 1); /*inirout drout_1401__MEXPAND_TUPLE */ /*_.VALROUT___V1476*/ meltfptr[1475] = (melt_ptr_t) & cdat->drout_1401__MEXPAND_TUPLE; cdat->drout_1401__MEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1401__MEXPAND_TUPLE.routdescr, "MEXPAND_TUPLE @warmelt-macro.melt:4998", MELT_ROUTDESCR_LEN - 1); cdat->drout_1401__MEXPAND_TUPLE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1401__MEXPAND_TUPLE, meltrout_94_warmelt_macro_MEXPAND_TUPLE); /*iniclos dclo_1402__MEXPAND_TUPLE */ /*_.VALCLO___V1477*/ meltfptr[1476] = (melt_ptr_t) & cdat->dclo_1402__MEXPAND_TUPLE; cdat->dclo_1402__MEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1402__MEXPAND_TUPLE.nbval = 0; /*inirout drout_1403__PATEXPAND_TUPLE */ /*_.VALROUT___V1478*/ meltfptr[1477] = (melt_ptr_t) & cdat->drout_1403__PATEXPAND_TUPLE; cdat->drout_1403__PATEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1403__PATEXPAND_TUPLE.routdescr, "PATEXPAND_TUPLE @warmelt-macro.melt:5015", MELT_ROUTDESCR_LEN - 1); cdat->drout_1403__PATEXPAND_TUPLE.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1403__PATEXPAND_TUPLE, meltrout_95_warmelt_macro_PATEXPAND_TUPLE); /*iniclos dclo_1404__PATEXPAND_TUPLE */ /*_.VALCLO___V1479*/ meltfptr[1478] = (melt_ptr_t) & cdat->dclo_1404__PATEXPAND_TUPLE; cdat->dclo_1404__PATEXPAND_TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1404__PATEXPAND_TUPLE.nbval = 0; /*iniobj dsym_1405__TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1480*/ meltfptr[1479]) /*_.VALDATA___V1480*/ meltfptr[1479] = (melt_ptr_t) & cdat->dsym_1405__TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1405__TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1405__TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1405__TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1405__TUPLE.obj_hash = 507871921; cdat->dsym_1405__TUPLE.obj_len = 3; /*inistring dstr_1406__TUPLE*/ /*_.VALSTR___V1481*/ meltfptr[1480] = (melt_ptr_t) & cdat->dstr_1406__TUPLE; cdat->dstr_1406__TUPLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1406__TUPLE.val, "TUPLE", sizeof (cdat->dstr_1406__TUPLE.val) - 1); /*inirout drout_1407__MEXPAND_LIST */ /*_.VALROUT___V1482*/ meltfptr[1481] = (melt_ptr_t) & cdat->drout_1407__MEXPAND_LIST; cdat->drout_1407__MEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1407__MEXPAND_LIST.routdescr, "MEXPAND_LIST @warmelt-macro.melt:5045", MELT_ROUTDESCR_LEN - 1); cdat->drout_1407__MEXPAND_LIST.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1407__MEXPAND_LIST, meltrout_96_warmelt_macro_MEXPAND_LIST); /*iniclos dclo_1408__MEXPAND_LIST */ /*_.VALCLO___V1483*/ meltfptr[1482] = (melt_ptr_t) & cdat->dclo_1408__MEXPAND_LIST; cdat->dclo_1408__MEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1408__MEXPAND_LIST.nbval = 0; /*inirout drout_1409__PATEXPAND_LIST */ /*_.VALROUT___V1484*/ meltfptr[1483] = (melt_ptr_t) & cdat->drout_1409__PATEXPAND_LIST; cdat->drout_1409__PATEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1409__PATEXPAND_LIST.routdescr, "PATEXPAND_LIST @warmelt-macro.melt:5062", MELT_ROUTDESCR_LEN - 1); cdat->drout_1409__PATEXPAND_LIST.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1409__PATEXPAND_LIST, meltrout_97_warmelt_macro_PATEXPAND_LIST); /*iniclos dclo_1410__PATEXPAND_LIST */ /*_.VALCLO___V1485*/ meltfptr[1484] = (melt_ptr_t) & cdat->dclo_1410__PATEXPAND_LIST; cdat->dclo_1410__PATEXPAND_LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1410__PATEXPAND_LIST.nbval = 0; /*iniobj dsym_1411__LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1486*/ meltfptr[1485]) /*_.VALDATA___V1486*/ meltfptr[1485] = (melt_ptr_t) & cdat->dsym_1411__LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1411__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_1411__LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1411__LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1411__LIST.obj_hash = 120854873; cdat->dsym_1411__LIST.obj_len = 3; /*inistring dstr_1412__LIST*/ /*_.VALSTR___V1487*/ meltfptr[1486] = (melt_ptr_t) & cdat->dstr_1412__LIST; cdat->dstr_1412__LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1412__LIST.val, "LIST", sizeof (cdat->dstr_1412__LIST.val) - 1); /*inirout drout_1413__MEXPAND_MATCH */ /*_.VALROUT___V1488*/ meltfptr[1487] = (melt_ptr_t) & cdat->drout_1413__MEXPAND_MATCH; cdat->drout_1413__MEXPAND_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1413__MEXPAND_MATCH.routdescr, "MEXPAND_MATCH @warmelt-macro.melt:5093", MELT_ROUTDESCR_LEN - 1); cdat->drout_1413__MEXPAND_MATCH.nbval = 17; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1413__MEXPAND_MATCH, meltrout_98_warmelt_macro_MEXPAND_MATCH); /*iniclos dclo_1414__MEXPAND_MATCH */ /*_.VALCLO___V1490*/ meltfptr[1489] = (melt_ptr_t) & cdat->dclo_1414__MEXPAND_MATCH; cdat->dclo_1414__MEXPAND_MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1414__MEXPAND_MATCH.nbval = 0; /*inirout drout_1415__LAMBDA_ */ /*_.VALROUT___V1489*/ meltfptr[1488] = (melt_ptr_t) & cdat->drout_1415__LAMBDA_; cdat->drout_1415__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1415__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5107", MELT_ROUTDESCR_LEN - 1); cdat->drout_1415__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1415__LAMBDA_, meltrout_99_warmelt_macro_LAMBDA___21__); /*iniobj dsym_1416__MATCH*/ /*uniqueobj*/ if (! /*_.VALDATA___V1491*/ meltfptr[1490]) /*_.VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t) & cdat->dsym_1416__MATCH; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1416__MATCH", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1416__MATCH", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1416__MATCH.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1416__MATCH.obj_hash = 996778084; cdat->dsym_1416__MATCH.obj_len = 3; /*inistring dstr_1417__MATCH*/ /*_.VALSTR___V1492*/ meltfptr[1491] = (melt_ptr_t) & cdat->dstr_1417__MATCH; cdat->dstr_1417__MATCH.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1417__MATCH.val, "MATCH", sizeof (cdat->dstr_1417__MATCH.val) - 1); /*inirout drout_1418__MEXPAND_LETBINDING */ /*_.VALROUT___V1493*/ meltfptr[1492] = (melt_ptr_t) & cdat->drout_1418__MEXPAND_LETBINDING; cdat->drout_1418__MEXPAND_LETBINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1418__MEXPAND_LETBINDING.routdescr, "MEXPAND_LETBINDING @warmelt-macro.melt:5185", MELT_ROUTDESCR_LEN - 1); cdat->drout_1418__MEXPAND_LETBINDING.nbval = 13; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1418__MEXPAND_LETBINDING, meltrout_100_warmelt_macro_MEXPAND_LETBINDING); /*iniclos dclo_1419__MEXPAND_LETBINDING */ /*_.VALCLO___V1494*/ meltfptr[1493] = (melt_ptr_t) & cdat->dclo_1419__MEXPAND_LETBINDING; cdat->dclo_1419__MEXPAND_LETBINDING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1419__MEXPAND_LETBINDING.nbval = 0; /*iniobj dsym_1420__CLASS_FIXED_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1495*/ meltfptr[1494]) /*_.VALDATA___V1495*/ meltfptr[1494] = (melt_ptr_t) & cdat->dsym_1420__CLASS_FIXED_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1420__CLASS_FIXED_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1420__CLASS_FIXED_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1420__CLASS_FIXED_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1420__CLASS_FIXED_BINDING.obj_hash = 179808938; cdat->dsym_1420__CLASS_FIXED_BINDING.obj_len = 3; /*inistring dstr_1421__CLASS_FIXED_BIND*/ /*_.VALSTR___V1496*/ meltfptr[1495] = (melt_ptr_t) & cdat->dstr_1421__CLASS_FIXED_BIND; cdat->dstr_1421__CLASS_FIXED_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1421__CLASS_FIXED_BIND.val, "CLASS_FIXED_BINDING", sizeof (cdat->dstr_1421__CLASS_FIXED_BIND. val) - 1); /*inirout drout_1422__MEXPAND_LET */ /*_.VALROUT___V1497*/ meltfptr[1496] = (melt_ptr_t) & cdat->drout_1422__MEXPAND_LET; cdat->drout_1422__MEXPAND_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1422__MEXPAND_LET.routdescr, "MEXPAND_LET @warmelt-macro.melt:5269", MELT_ROUTDESCR_LEN - 1); cdat->drout_1422__MEXPAND_LET.nbval = 17; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1422__MEXPAND_LET, meltrout_101_warmelt_macro_MEXPAND_LET); /*iniclos dclo_1423__MEXPAND_LET */ /*_.VALCLO___V1501*/ meltfptr[1500] = (melt_ptr_t) & cdat->dclo_1423__MEXPAND_LET; cdat->dclo_1423__MEXPAND_LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1423__MEXPAND_LET.nbval = 0; /*inirout drout_1424__LAMBDA_ */ /*_.VALROUT___V1498*/ meltfptr[1497] = (melt_ptr_t) & cdat->drout_1424__LAMBDA_; cdat->drout_1424__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1424__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5291", MELT_ROUTDESCR_LEN - 1); cdat->drout_1424__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1424__LAMBDA_, meltrout_102_warmelt_macro_LAMBDA___22__); /*inirout drout_1425__LAMBDA_ */ /*_.VALROUT___V1499*/ meltfptr[1498] = (melt_ptr_t) & cdat->drout_1425__LAMBDA_; cdat->drout_1425__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1425__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5299", MELT_ROUTDESCR_LEN - 1); cdat->drout_1425__LAMBDA_.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1425__LAMBDA_, meltrout_103_warmelt_macro_LAMBDA___23__); /*inirout drout_1426__LAMBDA_ */ /*_.VALROUT___V1500*/ meltfptr[1499] = (melt_ptr_t) & cdat->drout_1426__LAMBDA_; cdat->drout_1426__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1426__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5312", MELT_ROUTDESCR_LEN - 1); cdat->drout_1426__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1426__LAMBDA_, meltrout_104_warmelt_macro_LAMBDA___24__); /*iniobj dsym_1427__LET*/ /*uniqueobj*/ if (! /*_.VALDATA___V1502*/ meltfptr[1501]) /*_.VALDATA___V1502*/ meltfptr[1501] = (melt_ptr_t) & cdat->dsym_1427__LET; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1427__LET", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1427__LET", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1427__LET.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1427__LET.obj_hash = 70931144; cdat->dsym_1427__LET.obj_len = 3; /*inistring dstr_1428__LET*/ /*_.VALSTR___V1503*/ meltfptr[1502] = (melt_ptr_t) & cdat->dstr_1428__LET; cdat->dstr_1428__LET.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1428__LET.val, "LET", sizeof (cdat->dstr_1428__LET.val) - 1); /*inirout drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE */ /*_.VALROUT___V1504*/ meltfptr[1503] = (melt_ptr_t) & cdat->drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE; cdat->drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE.routdescr, "YES_RECURSIVELY_CONSTRUCTIBLE @warmelt-macro.melt:5336", MELT_ROUTDESCR_LEN - 1); cdat->drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE, meltrout_105_warmelt_macro_YES_RECURSIVELY_CONSTRUCTIBLE); /*iniclos dclo_1430__YES_RECURSIVELY_CONSTRUCTIBLE */ /*_.VALCLO___V1505*/ meltfptr[1504] = (melt_ptr_t) & cdat->dclo_1430__YES_RECURSIVELY_CONSTRUCTIBLE; cdat->dclo_1430__YES_RECURSIVELY_CONSTRUCTIBLE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1430__YES_RECURSIVELY_CONSTRUCTIBLE.nbval = 0; /*iniobj dsym_1431__INSTALL_METHOD*/ /*uniqueobj*/ if (! /*_.VALDATA___V1506*/ meltfptr[1505]) /*_.VALDATA___V1506*/ meltfptr[1505] = (melt_ptr_t) & cdat->dsym_1431__INSTALL_METHOD; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1431__INSTALL_METHOD", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1431__INSTALL_METHOD", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1431__INSTALL_METHOD.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1431__INSTALL_METHOD.obj_hash = 680699224; cdat->dsym_1431__INSTALL_METHOD.obj_len = 3; /*inistring dstr_1432__INSTALL_METHOD*/ /*_.VALSTR___V1507*/ meltfptr[1506] = (melt_ptr_t) & cdat->dstr_1432__INSTALL_METHOD; cdat->dstr_1432__INSTALL_METHOD.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1432__INSTALL_METHOD.val, "INSTALL_METHOD", sizeof (cdat->dstr_1432__INSTALL_METHOD.val) - 1); /*inirout drout_1433__MEXPAND_LETREC */ /*_.VALROUT___V1508*/ meltfptr[1507] = (melt_ptr_t) & cdat->drout_1433__MEXPAND_LETREC; cdat->drout_1433__MEXPAND_LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1433__MEXPAND_LETREC.routdescr, "MEXPAND_LETREC @warmelt-macro.melt:5349", MELT_ROUTDESCR_LEN - 1); cdat->drout_1433__MEXPAND_LETREC.nbval = 20; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1433__MEXPAND_LETREC, meltrout_106_warmelt_macro_MEXPAND_LETREC); /*iniclos dclo_1434__MEXPAND_LETREC */ /*_.VALCLO___V1511*/ meltfptr[1510] = (melt_ptr_t) & cdat->dclo_1434__MEXPAND_LETREC; cdat->dclo_1434__MEXPAND_LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1434__MEXPAND_LETREC.nbval = 0; /*inirout drout_1435__LAMBDA_ */ /*_.VALROUT___V1509*/ meltfptr[1508] = (melt_ptr_t) & cdat->drout_1435__LAMBDA_; cdat->drout_1435__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1435__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5376", MELT_ROUTDESCR_LEN - 1); cdat->drout_1435__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1435__LAMBDA_, meltrout_107_warmelt_macro_LAMBDA___25__); /*iniobj dsym_1436__CLASS_LETREC_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1512*/ meltfptr[1511]) /*_.VALDATA___V1512*/ meltfptr[1511] = (melt_ptr_t) & cdat->dsym_1436__CLASS_LETREC_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1436__CLASS_LETREC_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1436__CLASS_LETREC_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1436__CLASS_LETREC_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1436__CLASS_LETREC_BINDING.obj_hash = 61769779; cdat->dsym_1436__CLASS_LETREC_BINDING.obj_len = 3; /*inistring dstr_1437__CLASS_LETREC_BIN*/ /*_.VALSTR___V1513*/ meltfptr[1512] = (melt_ptr_t) & cdat->dstr_1437__CLASS_LETREC_BIN; cdat->dstr_1437__CLASS_LETREC_BIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1437__CLASS_LETREC_BIN.val, "CLASS_LETREC_BINDING", sizeof (cdat->dstr_1437__CLASS_LETREC_BIN. val) - 1); /*inirout drout_1438__LAMBDA_ */ /*_.VALROUT___V1510*/ meltfptr[1509] = (melt_ptr_t) & cdat->drout_1438__LAMBDA_; cdat->drout_1438__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1438__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5482", MELT_ROUTDESCR_LEN - 1); cdat->drout_1438__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1438__LAMBDA_, meltrout_108_warmelt_macro_LAMBDA___26__); /*iniobj dsym_1439__LETREC*/ /*uniqueobj*/ if (! /*_.VALDATA___V1514*/ meltfptr[1513]) /*_.VALDATA___V1514*/ meltfptr[1513] = (melt_ptr_t) & cdat->dsym_1439__LETREC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1439__LETREC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1439__LETREC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1439__LETREC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1439__LETREC.obj_hash = 270027731; cdat->dsym_1439__LETREC.obj_len = 3; /*inistring dstr_1440__LETREC*/ /*_.VALSTR___V1515*/ meltfptr[1514] = (melt_ptr_t) & cdat->dstr_1440__LETREC; cdat->dstr_1440__LETREC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1440__LETREC.val, "LETREC", sizeof (cdat->dstr_1440__LETREC.val) - 1); /*inirout drout_1441__MEXPAND_LAMBDA */ /*_.VALROUT___V1516*/ meltfptr[1515] = (melt_ptr_t) & cdat->drout_1441__MEXPAND_LAMBDA; cdat->drout_1441__MEXPAND_LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1441__MEXPAND_LAMBDA.routdescr, "MEXPAND_LAMBDA @warmelt-macro.melt:5504", MELT_ROUTDESCR_LEN - 1); cdat->drout_1441__MEXPAND_LAMBDA.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1441__MEXPAND_LAMBDA, meltrout_109_warmelt_macro_MEXPAND_LAMBDA); /*iniclos dclo_1442__MEXPAND_LAMBDA */ /*_.VALCLO___V1518*/ meltfptr[1517] = (melt_ptr_t) & cdat->dclo_1442__MEXPAND_LAMBDA; cdat->dclo_1442__MEXPAND_LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1442__MEXPAND_LAMBDA.nbval = 0; /*inirout drout_1443__LAMBDA_ */ /*_.VALROUT___V1517*/ meltfptr[1516] = (melt_ptr_t) & cdat->drout_1443__LAMBDA_; cdat->drout_1443__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1443__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5527", MELT_ROUTDESCR_LEN - 1); cdat->drout_1443__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1443__LAMBDA_, meltrout_110_warmelt_macro_LAMBDA___27__); /*iniobj dsym_1444__LAMBDA*/ /*uniqueobj*/ if (! /*_.VALDATA___V1519*/ meltfptr[1518]) /*_.VALDATA___V1519*/ meltfptr[1518] = (melt_ptr_t) & cdat->dsym_1444__LAMBDA; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1444__LAMBDA", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1444__LAMBDA", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1444__LAMBDA.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1444__LAMBDA.obj_hash = 15346448; cdat->dsym_1444__LAMBDA.obj_len = 3; /*inistring dstr_1445__LAMBDA*/ /*_.VALSTR___V1520*/ meltfptr[1519] = (melt_ptr_t) & cdat->dstr_1445__LAMBDA; cdat->dstr_1445__LAMBDA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1445__LAMBDA.val, "LAMBDA", sizeof (cdat->dstr_1445__LAMBDA.val) - 1); /*inirout drout_1446__MEXPAND_VARIADIC */ /*_.VALROUT___V1521*/ meltfptr[1520] = (melt_ptr_t) & cdat->drout_1446__MEXPAND_VARIADIC; cdat->drout_1446__MEXPAND_VARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1446__MEXPAND_VARIADIC.routdescr, "MEXPAND_VARIADIC @warmelt-macro.melt:5555", MELT_ROUTDESCR_LEN - 1); cdat->drout_1446__MEXPAND_VARIADIC.nbval = 25; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1446__MEXPAND_VARIADIC, meltrout_111_warmelt_macro_MEXPAND_VARIADIC); /*iniclos dclo_1447__MEXPAND_VARIADIC */ /*_.VALCLO___V1526*/ meltfptr[1525] = (melt_ptr_t) & cdat->dclo_1447__MEXPAND_VARIADIC; cdat->dclo_1447__MEXPAND_VARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1447__MEXPAND_VARIADIC.nbval = 0; /*inirout drout_1448__LAMBDA_ */ /*_.VALROUT___V1522*/ meltfptr[1521] = (melt_ptr_t) & cdat->drout_1448__LAMBDA_; cdat->drout_1448__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1448__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5564", MELT_ROUTDESCR_LEN - 1); cdat->drout_1448__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1448__LAMBDA_, meltrout_112_warmelt_macro_LAMBDA___28__); /*inirout drout_1449__LAMBDA_ */ /*_.VALROUT___V1523*/ meltfptr[1522] = (melt_ptr_t) & cdat->drout_1449__LAMBDA_; cdat->drout_1449__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1449__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5594", MELT_ROUTDESCR_LEN - 1); cdat->drout_1449__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1449__LAMBDA_, meltrout_113_warmelt_macro_LAMBDA___29__); /*inirout drout_1450__LAMBDA_ */ /*_.VALROUT___V1524*/ meltfptr[1523] = (melt_ptr_t) & cdat->drout_1450__LAMBDA_; cdat->drout_1450__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1450__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5625", MELT_ROUTDESCR_LEN - 1); cdat->drout_1450__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1450__LAMBDA_, meltrout_114_warmelt_macro_LAMBDA___30__); /*inirout drout_1451__LAMBDA_ */ /*_.VALROUT___V1525*/ meltfptr[1524] = (melt_ptr_t) & cdat->drout_1451__LAMBDA_; cdat->drout_1451__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1451__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5636", MELT_ROUTDESCR_LEN - 1); cdat->drout_1451__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1451__LAMBDA_, meltrout_115_warmelt_macro_LAMBDA___31__); /*iniobj dsym_1452__VARIADIC*/ /*uniqueobj*/ if (! /*_.VALDATA___V1527*/ meltfptr[1526]) /*_.VALDATA___V1527*/ meltfptr[1526] = (melt_ptr_t) & cdat->dsym_1452__VARIADIC; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1452__VARIADIC", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1452__VARIADIC", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1452__VARIADIC.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1452__VARIADIC.obj_hash = 51178959; cdat->dsym_1452__VARIADIC.obj_len = 3; /*inistring dstr_1453__VARIADIC*/ /*_.VALSTR___V1528*/ meltfptr[1527] = (melt_ptr_t) & cdat->dstr_1453__VARIADIC; cdat->dstr_1453__VARIADIC.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1453__VARIADIC.val, "VARIADIC", sizeof (cdat->dstr_1453__VARIADIC.val) - 1); /*inirout drout_1454__MEXPAND_MULTICALL */ /*_.VALROUT___V1529*/ meltfptr[1528] = (melt_ptr_t) & cdat->drout_1454__MEXPAND_MULTICALL; cdat->drout_1454__MEXPAND_MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1454__MEXPAND_MULTICALL.routdescr, "MEXPAND_MULTICALL @warmelt-macro.melt:5678", MELT_ROUTDESCR_LEN - 1); cdat->drout_1454__MEXPAND_MULTICALL.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1454__MEXPAND_MULTICALL, meltrout_116_warmelt_macro_MEXPAND_MULTICALL); /*iniclos dclo_1455__MEXPAND_MULTICALL */ /*_.VALCLO___V1532*/ meltfptr[1531] = (melt_ptr_t) & cdat->dclo_1455__MEXPAND_MULTICALL; cdat->dclo_1455__MEXPAND_MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1455__MEXPAND_MULTICALL.nbval = 0; /*inirout drout_1456__LAMBDA_ */ /*_.VALROUT___V1530*/ meltfptr[1529] = (melt_ptr_t) & cdat->drout_1456__LAMBDA_; cdat->drout_1456__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1456__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5711", MELT_ROUTDESCR_LEN - 1); cdat->drout_1456__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1456__LAMBDA_, meltrout_117_warmelt_macro_LAMBDA___32__); /*inirout drout_1457__LAMBDA_ */ /*_.VALROUT___V1531*/ meltfptr[1530] = (melt_ptr_t) & cdat->drout_1457__LAMBDA_; cdat->drout_1457__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1457__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5715", MELT_ROUTDESCR_LEN - 1); cdat->drout_1457__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1457__LAMBDA_, meltrout_118_warmelt_macro_LAMBDA___33__); /*iniobj dsym_1458__MULTICALL*/ /*uniqueobj*/ if (! /*_.VALDATA___V1533*/ meltfptr[1532]) /*_.VALDATA___V1533*/ meltfptr[1532] = (melt_ptr_t) & cdat->dsym_1458__MULTICALL; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1458__MULTICALL", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1458__MULTICALL", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1458__MULTICALL.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1458__MULTICALL.obj_hash = 128361181; cdat->dsym_1458__MULTICALL.obj_len = 3; /*inistring dstr_1459__MULTICALL*/ /*_.VALSTR___V1534*/ meltfptr[1533] = (melt_ptr_t) & cdat->dstr_1459__MULTICALL; cdat->dstr_1459__MULTICALL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1459__MULTICALL.val, "MULTICALL", sizeof (cdat->dstr_1459__MULTICALL.val) - 1); /*inirout drout_1460__MEXPAND_QUOTE */ /*_.VALROUT___V1535*/ meltfptr[1534] = (melt_ptr_t) & cdat->drout_1460__MEXPAND_QUOTE; cdat->drout_1460__MEXPAND_QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1460__MEXPAND_QUOTE.routdescr, "MEXPAND_QUOTE @warmelt-macro.melt:5739", MELT_ROUTDESCR_LEN - 1); cdat->drout_1460__MEXPAND_QUOTE.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1460__MEXPAND_QUOTE, meltrout_119_warmelt_macro_MEXPAND_QUOTE); /*iniclos dclo_1461__MEXPAND_QUOTE */ /*_.VALCLO___V1536*/ meltfptr[1535] = (melt_ptr_t) & cdat->dclo_1461__MEXPAND_QUOTE; cdat->dclo_1461__MEXPAND_QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1461__MEXPAND_QUOTE.nbval = 0; /*iniobj dsym_1462__QUOTE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1537*/ meltfptr[1536]) /*_.VALDATA___V1537*/ meltfptr[1536] = (melt_ptr_t) & cdat->dsym_1462__QUOTE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1462__QUOTE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1462__QUOTE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1462__QUOTE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1462__QUOTE.obj_hash = 18202130; cdat->dsym_1462__QUOTE.obj_len = 3; /*inistring dstr_1463__QUOTE*/ /*_.VALSTR___V1538*/ meltfptr[1537] = (melt_ptr_t) & cdat->dstr_1463__QUOTE; cdat->dstr_1463__QUOTE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1463__QUOTE.val, "QUOTE", sizeof (cdat->dstr_1463__QUOTE.val) - 1); /*inirout drout_1464__MEXPAND_COMMENT */ /*_.VALROUT___V1539*/ meltfptr[1538] = (melt_ptr_t) & cdat->drout_1464__MEXPAND_COMMENT; cdat->drout_1464__MEXPAND_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1464__MEXPAND_COMMENT.routdescr, "MEXPAND_COMMENT @warmelt-macro.melt:5778", MELT_ROUTDESCR_LEN - 1); cdat->drout_1464__MEXPAND_COMMENT.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1464__MEXPAND_COMMENT, meltrout_120_warmelt_macro_MEXPAND_COMMENT); /*iniclos dclo_1465__MEXPAND_COMMENT */ /*_.VALCLO___V1540*/ meltfptr[1539] = (melt_ptr_t) & cdat->dclo_1465__MEXPAND_COMMENT; cdat->dclo_1465__MEXPAND_COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1465__MEXPAND_COMMENT.nbval = 0; /*iniobj dsym_1466__COMMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1541*/ meltfptr[1540]) /*_.VALDATA___V1541*/ meltfptr[1540] = (melt_ptr_t) & cdat->dsym_1466__COMMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1466__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_1466__COMMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1466__COMMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1466__COMMENT.obj_hash = 922859745; cdat->dsym_1466__COMMENT.obj_len = 3; /*inistring dstr_1467__COMMENT*/ /*_.VALSTR___V1542*/ meltfptr[1541] = (melt_ptr_t) & cdat->dstr_1467__COMMENT; cdat->dstr_1467__COMMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1467__COMMENT.val, "COMMENT", sizeof (cdat->dstr_1467__COMMENT.val) - 1); /*inirout drout_1468__MEXPAND_CHEADER */ /*_.VALROUT___V1543*/ meltfptr[1542] = (melt_ptr_t) & cdat->drout_1468__MEXPAND_CHEADER; cdat->drout_1468__MEXPAND_CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1468__MEXPAND_CHEADER.routdescr, "MEXPAND_CHEADER @warmelt-macro.melt:5808", MELT_ROUTDESCR_LEN - 1); cdat->drout_1468__MEXPAND_CHEADER.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1468__MEXPAND_CHEADER, meltrout_121_warmelt_macro_MEXPAND_CHEADER); /*iniclos dclo_1469__MEXPAND_CHEADER */ /*_.VALCLO___V1544*/ meltfptr[1543] = (melt_ptr_t) & cdat->dclo_1469__MEXPAND_CHEADER; cdat->dclo_1469__MEXPAND_CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1469__MEXPAND_CHEADER.nbval = 0; /*iniobj dsym_1470__CLASS_SEXPR_MACROSTRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1545*/ meltfptr[1544]) /*_.VALDATA___V1545*/ meltfptr[1544] = (melt_ptr_t) & cdat->dsym_1470__CLASS_SEXPR_MACROSTRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1470__CLASS_SEXPR_MACROSTRING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1470__CLASS_SEXPR_MACROSTRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1470__CLASS_SEXPR_MACROSTRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1470__CLASS_SEXPR_MACROSTRING.obj_hash = 576848661; cdat->dsym_1470__CLASS_SEXPR_MACROSTRING.obj_len = 3; /*inistring dstr_1471__CLASS_SEXPR_MACR*/ /*_.VALSTR___V1546*/ meltfptr[1545] = (melt_ptr_t) & cdat->dstr_1471__CLASS_SEXPR_MACR; cdat->dstr_1471__CLASS_SEXPR_MACR.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1471__CLASS_SEXPR_MACR.val, "CLASS_SEXPR_MACROSTRING", sizeof (cdat->dstr_1471__CLASS_SEXPR_MACR. val) - 1); /*iniobj dsym_1472__DISCR_STRBUF*/ /*uniqueobj*/ if (! /*_.VALDATA___V1547*/ meltfptr[1546]) /*_.VALDATA___V1547*/ meltfptr[1546] = (melt_ptr_t) & cdat->dsym_1472__DISCR_STRBUF; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1472__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_1472__DISCR_STRBUF", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1472__DISCR_STRBUF.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1472__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_1472__DISCR_STRBUF.obj_len = 3; /*inistring dstr_1473__DISCR_STRBUF*/ /*_.VALSTR___V1548*/ meltfptr[1547] = (melt_ptr_t) & cdat->dstr_1473__DISCR_STRBUF; cdat->dstr_1473__DISCR_STRBUF.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1473__DISCR_STRBUF.val, "DISCR_STRBUF", sizeof (cdat->dstr_1473__DISCR_STRBUF.val) - 1); /*iniobj dsym_1474__ADD2OUT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1549*/ meltfptr[1548]) /*_.VALDATA___V1549*/ meltfptr[1548] = (melt_ptr_t) & cdat->dsym_1474__ADD2OUT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1474__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_1474__ADD2OUT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1474__ADD2OUT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1474__ADD2OUT.obj_hash = 901325062; cdat->dsym_1474__ADD2OUT.obj_len = 3; /*inistring dstr_1475__ADD2OUT*/ /*_.VALSTR___V1550*/ meltfptr[1549] = (melt_ptr_t) & cdat->dstr_1475__ADD2OUT; cdat->dstr_1475__ADD2OUT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1475__ADD2OUT.val, "ADD2OUT", sizeof (cdat->dstr_1475__ADD2OUT.val) - 1); /*iniobj dsym_1476__CHEADER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1551*/ meltfptr[1550]) /*_.VALDATA___V1551*/ meltfptr[1550] = (melt_ptr_t) & cdat->dsym_1476__CHEADER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1476__CHEADER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1476__CHEADER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1476__CHEADER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1476__CHEADER.obj_hash = 78795358; cdat->dsym_1476__CHEADER.obj_len = 3; /*inistring dstr_1477__CHEADER*/ /*_.VALSTR___V1552*/ meltfptr[1551] = (melt_ptr_t) & cdat->dstr_1477__CHEADER; cdat->dstr_1477__CHEADER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1477__CHEADER.val, "CHEADER", sizeof (cdat->dstr_1477__CHEADER.val) - 1); /*inirout drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG */ /*_.VALROUT___V1553*/ meltfptr[1552] = (melt_ptr_t) & cdat->drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; cdat->drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.routdescr, "MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG @warmelt-macro.melt:5857", MELT_ROUTDESCR_LEN - 1); cdat->drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 8; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG, meltrout_122_warmelt_macro_MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG); /*iniclos dclo_1479__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG */ /*_.VALCLO___V1554*/ meltfptr[1553] = (melt_ptr_t) & cdat->dclo_1479__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG; cdat->dclo_1479__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1479__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG.nbval = 0; /*iniobj dsym_1480__DISCR_STRING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1555*/ meltfptr[1554]) /*_.VALDATA___V1555*/ meltfptr[1554] = (melt_ptr_t) & cdat->dsym_1480__DISCR_STRING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1480__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_1480__DISCR_STRING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1480__DISCR_STRING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1480__DISCR_STRING.obj_hash = 100436219; cdat->dsym_1480__DISCR_STRING.obj_len = 3; /*inistring dstr_1481__DISCR_STRING*/ /*_.VALSTR___V1556*/ meltfptr[1555] = (melt_ptr_t) & cdat->dstr_1481__DISCR_STRING; cdat->dstr_1481__DISCR_STRING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1481__DISCR_STRING.val, "DISCR_STRING", sizeof (cdat->dstr_1481__DISCR_STRING.val) - 1); /*iniobj dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1557*/ meltfptr[1556]) /*_.VALDATA___V1557*/ meltfptr[1556] = (melt_ptr_t) & cdat->dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 1069066195; cdat->dsym_1482__USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 3; /*inistring dstr_1483__USE_PACKAGE_FROM*/ /*_.VALSTR___V1558*/ meltfptr[1557] = (melt_ptr_t) & cdat->dstr_1483__USE_PACKAGE_FROM; cdat->dstr_1483__USE_PACKAGE_FROM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1483__USE_PACKAGE_FROM.val, "USE_PACKAGE_FROM_PKG_CONFIG", sizeof (cdat->dstr_1483__USE_PACKAGE_FROM. val) - 1); /*iniobj dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1559*/ meltfptr[1558]) /*_.VALDATA___V1559*/ meltfptr[1558] = (melt_ptr_t) & cdat->dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG.obj_hash = 973887417; cdat->dsym_1484__USE_PACKAGE_FROM_PKG_CONFIG.obj_len = 3; /*inistring dstr_1485__USE_PACKAGE_FROM*/ /*_.VALSTR___V1560*/ meltfptr[1559] = (melt_ptr_t) & cdat->dstr_1485__USE_PACKAGE_FROM; cdat->dstr_1485__USE_PACKAGE_FROM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1485__USE_PACKAGE_FROM.val, "USE-PACKAGE-FROM-PKG-CONFIG", sizeof (cdat->dstr_1485__USE_PACKAGE_FROM. val) - 1); /*inirout drout_1486__PAIRLIST_TO_RETURN */ /*_.VALROUT___V1561*/ meltfptr[1560] = (melt_ptr_t) & cdat->drout_1486__PAIRLIST_TO_RETURN; cdat->drout_1486__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1486__PAIRLIST_TO_RETURN.routdescr, "PAIRLIST_TO_RETURN @warmelt-macro.melt:5947", MELT_ROUTDESCR_LEN - 1); cdat->drout_1486__PAIRLIST_TO_RETURN.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1486__PAIRLIST_TO_RETURN, meltrout_123_warmelt_macro_PAIRLIST_TO_RETURN); /*iniclos dclo_1487__PAIRLIST_TO_RETURN */ /*_.VALCLO___V1563*/ meltfptr[1562] = (melt_ptr_t) & cdat->dclo_1487__PAIRLIST_TO_RETURN; cdat->dclo_1487__PAIRLIST_TO_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1487__PAIRLIST_TO_RETURN.nbval = 0; /*inirout drout_1488__LAMBDA_ */ /*_.VALROUT___V1562*/ meltfptr[1561] = (melt_ptr_t) & cdat->drout_1488__LAMBDA_; cdat->drout_1488__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1488__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:5955", MELT_ROUTDESCR_LEN - 1); cdat->drout_1488__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1488__LAMBDA_, meltrout_124_warmelt_macro_LAMBDA___34__); /*inirout drout_1489__MEXPAND_PROGN */ /*_.VALROUT___V1564*/ meltfptr[1563] = (melt_ptr_t) & cdat->drout_1489__MEXPAND_PROGN; cdat->drout_1489__MEXPAND_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1489__MEXPAND_PROGN.routdescr, "MEXPAND_PROGN @warmelt-macro.melt:5963", MELT_ROUTDESCR_LEN - 1); cdat->drout_1489__MEXPAND_PROGN.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1489__MEXPAND_PROGN, meltrout_125_warmelt_macro_MEXPAND_PROGN); /*iniclos dclo_1490__MEXPAND_PROGN */ /*_.VALCLO___V1565*/ meltfptr[1564] = (melt_ptr_t) & cdat->dclo_1490__MEXPAND_PROGN; cdat->dclo_1490__MEXPAND_PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1490__MEXPAND_PROGN.nbval = 0; /*iniobj dsym_1491__PROGN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1566*/ meltfptr[1565]) /*_.VALDATA___V1566*/ meltfptr[1565] = (melt_ptr_t) & cdat->dsym_1491__PROGN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1491__PROGN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1491__PROGN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1491__PROGN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1491__PROGN.obj_hash = 98153540; cdat->dsym_1491__PROGN.obj_len = 3; /*inistring dstr_1492__PROGN*/ /*_.VALSTR___V1567*/ meltfptr[1566] = (melt_ptr_t) & cdat->dstr_1492__PROGN; cdat->dstr_1492__PROGN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1492__PROGN.val, "PROGN", sizeof (cdat->dstr_1492__PROGN.val) - 1); /*inirout drout_1493__MEXPAND_RETURN */ /*_.VALROUT___V1568*/ meltfptr[1567] = (melt_ptr_t) & cdat->drout_1493__MEXPAND_RETURN; cdat->drout_1493__MEXPAND_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1493__MEXPAND_RETURN.routdescr, "MEXPAND_RETURN @warmelt-macro.melt:5988", MELT_ROUTDESCR_LEN - 1); cdat->drout_1493__MEXPAND_RETURN.nbval = 3; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1493__MEXPAND_RETURN, meltrout_126_warmelt_macro_MEXPAND_RETURN); /*iniclos dclo_1494__MEXPAND_RETURN */ /*_.VALCLO___V1569*/ meltfptr[1568] = (melt_ptr_t) & cdat->dclo_1494__MEXPAND_RETURN; cdat->dclo_1494__MEXPAND_RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1494__MEXPAND_RETURN.nbval = 0; /*iniobj dsym_1495__RETURN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1570*/ meltfptr[1569]) /*_.VALDATA___V1570*/ meltfptr[1569] = (melt_ptr_t) & cdat->dsym_1495__RETURN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1495__RETURN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1495__RETURN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1495__RETURN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1495__RETURN.obj_hash = 94541761; cdat->dsym_1495__RETURN.obj_len = 3; /*inistring dstr_1496__RETURN*/ /*_.VALSTR___V1571*/ meltfptr[1570] = (melt_ptr_t) & cdat->dstr_1496__RETURN; cdat->dstr_1496__RETURN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1496__RETURN.val, "RETURN", sizeof (cdat->dstr_1496__RETURN.val) - 1); /*inirout drout_1497__MEXPAND_FOREVER */ /*_.VALROUT___V1572*/ meltfptr[1571] = (melt_ptr_t) & cdat->drout_1497__MEXPAND_FOREVER; cdat->drout_1497__MEXPAND_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1497__MEXPAND_FOREVER.routdescr, "MEXPAND_FOREVER @warmelt-macro.melt:6011", MELT_ROUTDESCR_LEN - 1); cdat->drout_1497__MEXPAND_FOREVER.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1497__MEXPAND_FOREVER, meltrout_127_warmelt_macro_MEXPAND_FOREVER); /*iniclos dclo_1498__MEXPAND_FOREVER */ /*_.VALCLO___V1574*/ meltfptr[1573] = (melt_ptr_t) & cdat->dclo_1498__MEXPAND_FOREVER; cdat->dclo_1498__MEXPAND_FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1498__MEXPAND_FOREVER.nbval = 0; /*iniobj dsym_1499__CLASS_LABEL_BINDING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1575*/ meltfptr[1574]) /*_.VALDATA___V1575*/ meltfptr[1574] = (melt_ptr_t) & cdat->dsym_1499__CLASS_LABEL_BINDING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1499__CLASS_LABEL_BINDING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1499__CLASS_LABEL_BINDING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1499__CLASS_LABEL_BINDING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1499__CLASS_LABEL_BINDING.obj_hash = 513737494; cdat->dsym_1499__CLASS_LABEL_BINDING.obj_len = 3; /*inistring dstr_1500__CLASS_LABEL_BIND*/ /*_.VALSTR___V1576*/ meltfptr[1575] = (melt_ptr_t) & cdat->dstr_1500__CLASS_LABEL_BIND; cdat->dstr_1500__CLASS_LABEL_BIND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1500__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING", sizeof (cdat->dstr_1500__CLASS_LABEL_BIND. val) - 1); /*inirout drout_1501__LAMBDA_ */ /*_.VALROUT___V1573*/ meltfptr[1572] = (melt_ptr_t) & cdat->drout_1501__LAMBDA_; cdat->drout_1501__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1501__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6035", MELT_ROUTDESCR_LEN - 1); cdat->drout_1501__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1501__LAMBDA_, meltrout_128_warmelt_macro_LAMBDA___35__); /*iniobj dsym_1502__FOREVER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1577*/ meltfptr[1576]) /*_.VALDATA___V1577*/ meltfptr[1576] = (melt_ptr_t) & cdat->dsym_1502__FOREVER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1502__FOREVER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1502__FOREVER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1502__FOREVER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1502__FOREVER.obj_hash = 118376766; cdat->dsym_1502__FOREVER.obj_len = 3; /*inistring dstr_1503__FOREVER*/ /*_.VALSTR___V1578*/ meltfptr[1577] = (melt_ptr_t) & cdat->dstr_1503__FOREVER; cdat->dstr_1503__FOREVER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1503__FOREVER.val, "FOREVER", sizeof (cdat->dstr_1503__FOREVER.val) - 1); /*inirout drout_1504__MEXPAND_EXIT */ /*_.VALROUT___V1579*/ meltfptr[1578] = (melt_ptr_t) & cdat->drout_1504__MEXPAND_EXIT; cdat->drout_1504__MEXPAND_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1504__MEXPAND_EXIT.routdescr, "MEXPAND_EXIT @warmelt-macro.melt:6054", MELT_ROUTDESCR_LEN - 1); cdat->drout_1504__MEXPAND_EXIT.nbval = 10; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1504__MEXPAND_EXIT, meltrout_129_warmelt_macro_MEXPAND_EXIT); /*iniclos dclo_1505__MEXPAND_EXIT */ /*_.VALCLO___V1581*/ meltfptr[1580] = (melt_ptr_t) & cdat->dclo_1505__MEXPAND_EXIT; cdat->dclo_1505__MEXPAND_EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1505__MEXPAND_EXIT.nbval = 0; /*inirout drout_1506__LAMBDA_ */ /*_.VALROUT___V1580*/ meltfptr[1579] = (melt_ptr_t) & cdat->drout_1506__LAMBDA_; cdat->drout_1506__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1506__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6080", MELT_ROUTDESCR_LEN - 1); cdat->drout_1506__LAMBDA_.nbval = 0; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1506__LAMBDA_, meltrout_130_warmelt_macro_LAMBDA___36__); /*iniobj dsym_1507__EXIT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1582*/ meltfptr[1581]) /*_.VALDATA___V1582*/ meltfptr[1581] = (melt_ptr_t) & cdat->dsym_1507__EXIT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1507__EXIT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1507__EXIT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1507__EXIT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1507__EXIT.obj_hash = 90311298; cdat->dsym_1507__EXIT.obj_len = 3; /*inistring dstr_1508__EXIT*/ /*_.VALSTR___V1583*/ meltfptr[1582] = (melt_ptr_t) & cdat->dstr_1508__EXIT; cdat->dstr_1508__EXIT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1508__EXIT.val, "EXIT", sizeof (cdat->dstr_1508__EXIT.val) - 1); /*inirout drout_1509__MEXPAND_AGAIN */ /*_.VALROUT___V1584*/ meltfptr[1583] = (melt_ptr_t) & cdat->drout_1509__MEXPAND_AGAIN; cdat->drout_1509__MEXPAND_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1509__MEXPAND_AGAIN.routdescr, "MEXPAND_AGAIN @warmelt-macro.melt:6097", MELT_ROUTDESCR_LEN - 1); cdat->drout_1509__MEXPAND_AGAIN.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1509__MEXPAND_AGAIN, meltrout_131_warmelt_macro_MEXPAND_AGAIN); /*iniclos dclo_1510__MEXPAND_AGAIN */ /*_.VALCLO___V1585*/ meltfptr[1584] = (melt_ptr_t) & cdat->dclo_1510__MEXPAND_AGAIN; cdat->dclo_1510__MEXPAND_AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1510__MEXPAND_AGAIN.nbval = 0; /*iniobj dsym_1511__AGAIN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1586*/ meltfptr[1585]) /*_.VALDATA___V1586*/ meltfptr[1585] = (melt_ptr_t) & cdat->dsym_1511__AGAIN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1511__AGAIN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1511__AGAIN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1511__AGAIN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1511__AGAIN.obj_hash = 247154639; cdat->dsym_1511__AGAIN.obj_len = 3; /*inistring dstr_1512__AGAIN*/ /*_.VALSTR___V1587*/ meltfptr[1586] = (melt_ptr_t) & cdat->dstr_1512__AGAIN; cdat->dstr_1512__AGAIN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1512__AGAIN.val, "AGAIN", sizeof (cdat->dstr_1512__AGAIN.val) - 1); /*inirout drout_1513__MEXPAND_COMPILE_WARNING */ /*_.VALROUT___V1588*/ meltfptr[1587] = (melt_ptr_t) & cdat->drout_1513__MEXPAND_COMPILE_WARNING; cdat->drout_1513__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1513__MEXPAND_COMPILE_WARNING.routdescr, "MEXPAND_COMPILE_WARNING @warmelt-macro.melt:6141", MELT_ROUTDESCR_LEN - 1); cdat->drout_1513__MEXPAND_COMPILE_WARNING.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1513__MEXPAND_COMPILE_WARNING, meltrout_132_warmelt_macro_MEXPAND_COMPILE_WARNING); /*iniclos dclo_1514__MEXPAND_COMPILE_WARNING */ /*_.VALCLO___V1589*/ meltfptr[1588] = (melt_ptr_t) & cdat->dclo_1514__MEXPAND_COMPILE_WARNING; cdat->dclo_1514__MEXPAND_COMPILE_WARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1514__MEXPAND_COMPILE_WARNING.nbval = 0; /*iniobj dsym_1515__COMPILE_WARNING*/ /*uniqueobj*/ if (! /*_.VALDATA___V1590*/ meltfptr[1589]) /*_.VALDATA___V1590*/ meltfptr[1589] = (melt_ptr_t) & cdat->dsym_1515__COMPILE_WARNING; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1515__COMPILE_WARNING", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1515__COMPILE_WARNING", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1515__COMPILE_WARNING.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1515__COMPILE_WARNING.obj_hash = 87862926; cdat->dsym_1515__COMPILE_WARNING.obj_len = 3; /*inistring dstr_1516__COMPILE_WARNING*/ /*_.VALSTR___V1591*/ meltfptr[1590] = (melt_ptr_t) & cdat->dstr_1516__COMPILE_WARNING; cdat->dstr_1516__COMPILE_WARNING.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1516__COMPILE_WARNING.val, "COMPILE_WARNING", sizeof (cdat->dstr_1516__COMPILE_WARNING. val) - 1); /*inirout drout_1517__MEXPAND_ASSERT_MSG */ /*_.VALROUT___V1592*/ meltfptr[1591] = (melt_ptr_t) & cdat->drout_1517__MEXPAND_ASSERT_MSG; cdat->drout_1517__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1517__MEXPAND_ASSERT_MSG.routdescr, "MEXPAND_ASSERT_MSG @warmelt-macro.melt:6184", MELT_ROUTDESCR_LEN - 1); cdat->drout_1517__MEXPAND_ASSERT_MSG.nbval = 15; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1517__MEXPAND_ASSERT_MSG, meltrout_133_warmelt_macro_MEXPAND_ASSERT_MSG); /*iniclos dclo_1518__MEXPAND_ASSERT_MSG */ /*_.VALCLO___V1597*/ meltfptr[1596] = (melt_ptr_t) & cdat->dclo_1518__MEXPAND_ASSERT_MSG; cdat->dclo_1518__MEXPAND_ASSERT_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1518__MEXPAND_ASSERT_MSG.nbval = 0; /*iniobj dsym_1519__ASSERT_FAILED*/ /*uniqueobj*/ if (! /*_.VALDATA___V1593*/ meltfptr[1592]) /*_.VALDATA___V1593*/ meltfptr[1592] = (melt_ptr_t) & cdat->dsym_1519__ASSERT_FAILED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1519__ASSERT_FAILED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1519__ASSERT_FAILED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1519__ASSERT_FAILED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1519__ASSERT_FAILED.obj_hash = 201548028; cdat->dsym_1519__ASSERT_FAILED.obj_len = 3; /*inistring dstr_1520__ASSERT_FAILED*/ /*_.VALSTR___V1594*/ meltfptr[1593] = (melt_ptr_t) & cdat->dstr_1520__ASSERT_FAILED; cdat->dstr_1520__ASSERT_FAILED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1520__ASSERT_FAILED.val, "ASSERT_FAILED", sizeof (cdat->dstr_1520__ASSERT_FAILED.val) - 1); /*iniobj dsym_1521__FIND_ENV_DEBUG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1598*/ meltfptr[1597]) /*_.VALDATA___V1598*/ meltfptr[1597] = (melt_ptr_t) & cdat->dsym_1521__FIND_ENV_DEBUG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1521__FIND_ENV_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1521__FIND_ENV_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1521__FIND_ENV_DEBUG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1521__FIND_ENV_DEBUG.obj_hash = 670001916; cdat->dsym_1521__FIND_ENV_DEBUG.obj_len = 3; /*inistring dstr_1522__FIND_ENV_DEBUG*/ /*_.VALSTR___V1599*/ meltfptr[1598] = (melt_ptr_t) & cdat->dstr_1522__FIND_ENV_DEBUG; cdat->dstr_1522__FIND_ENV_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1522__FIND_ENV_DEBUG.val, "FIND_ENV_DEBUG", sizeof (cdat->dstr_1522__FIND_ENV_DEBUG.val) - 1); /*iniobj dsym_1523__MELT_HAVE_DEBUG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1595*/ meltfptr[1594]) /*_.VALDATA___V1595*/ meltfptr[1594] = (melt_ptr_t) & cdat->dsym_1523__MELT_HAVE_DEBUG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1523__MELT_HAVE_DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1523__MELT_HAVE_DEBUG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1523__MELT_HAVE_DEBUG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1523__MELT_HAVE_DEBUG.obj_hash = 270921591; cdat->dsym_1523__MELT_HAVE_DEBUG.obj_len = 3; /*inistring dstr_1524__MELT_HAVE_DEBUG*/ /*_.VALSTR___V1596*/ meltfptr[1595] = (melt_ptr_t) & cdat->dstr_1524__MELT_HAVE_DEBUG; cdat->dstr_1524__MELT_HAVE_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1524__MELT_HAVE_DEBUG.val, "MELT_HAVE_DEBUG", sizeof (cdat->dstr_1524__MELT_HAVE_DEBUG. val) - 1); /*iniobj dsym_1525__ASSERT_MSG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1600*/ meltfptr[1599]) /*_.VALDATA___V1600*/ meltfptr[1599] = (melt_ptr_t) & cdat->dsym_1525__ASSERT_MSG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1525__ASSERT_MSG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1525__ASSERT_MSG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1525__ASSERT_MSG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1525__ASSERT_MSG.obj_hash = 877781164; cdat->dsym_1525__ASSERT_MSG.obj_len = 3; /*inistring dstr_1526__ASSERT_MSG*/ /*_.VALSTR___V1601*/ meltfptr[1600] = (melt_ptr_t) & cdat->dstr_1526__ASSERT_MSG; cdat->dstr_1526__ASSERT_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1526__ASSERT_MSG.val, "ASSERT_MSG", sizeof (cdat->dstr_1526__ASSERT_MSG.val) - 1); /*inirout drout_1527__MEXPAND_DEBUG_MSG */ /*_.VALROUT___V1602*/ meltfptr[1601] = (melt_ptr_t) & cdat->drout_1527__MEXPAND_DEBUG_MSG; cdat->drout_1527__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1527__MEXPAND_DEBUG_MSG.routdescr, "MEXPAND_DEBUG_MSG @warmelt-macro.melt:6273", MELT_ROUTDESCR_LEN - 1); cdat->drout_1527__MEXPAND_DEBUG_MSG.nbval = 11; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1527__MEXPAND_DEBUG_MSG, meltrout_134_warmelt_macro_MEXPAND_DEBUG_MSG); /*iniclos dclo_1528__MEXPAND_DEBUG_MSG */ /*_.VALCLO___V1607*/ meltfptr[1606] = (melt_ptr_t) & cdat->dclo_1528__MEXPAND_DEBUG_MSG; cdat->dclo_1528__MEXPAND_DEBUG_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1528__MEXPAND_DEBUG_MSG.nbval = 0; /*iniobj dsym_1529__THE_MELTCALLCOUNT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1603*/ meltfptr[1602]) /*_.VALDATA___V1603*/ meltfptr[1602] = (melt_ptr_t) & cdat->dsym_1529__THE_MELTCALLCOUNT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1529__THE_MELTCALLCOUNT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1529__THE_MELTCALLCOUNT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1529__THE_MELTCALLCOUNT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1529__THE_MELTCALLCOUNT.obj_hash = 508915431; cdat->dsym_1529__THE_MELTCALLCOUNT.obj_len = 3; /*inistring dstr_1530__THE_MELTCALLCOUN*/ /*_.VALSTR___V1604*/ meltfptr[1603] = (melt_ptr_t) & cdat->dstr_1530__THE_MELTCALLCOUN; cdat->dstr_1530__THE_MELTCALLCOUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1530__THE_MELTCALLCOUN.val, "THE_MELTCALLCOUNT", sizeof (cdat->dstr_1530__THE_MELTCALLCOUN. val) - 1); /*iniobj dsym_1531__DEBUG_MSG_FUN*/ /*uniqueobj*/ if (! /*_.VALDATA___V1605*/ meltfptr[1604]) /*_.VALDATA___V1605*/ meltfptr[1604] = (melt_ptr_t) & cdat->dsym_1531__DEBUG_MSG_FUN; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1531__DEBUG_MSG_FUN", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1531__DEBUG_MSG_FUN", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1531__DEBUG_MSG_FUN.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1531__DEBUG_MSG_FUN.obj_hash = 938829072; cdat->dsym_1531__DEBUG_MSG_FUN.obj_len = 3; /*inistring dstr_1532__DEBUG_MSG_FUN*/ /*_.VALSTR___V1606*/ meltfptr[1605] = (melt_ptr_t) & cdat->dstr_1532__DEBUG_MSG_FUN; cdat->dstr_1532__DEBUG_MSG_FUN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1532__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN", sizeof (cdat->dstr_1532__DEBUG_MSG_FUN.val) - 1); /*iniobj dsym_1533__DEBUG_MSG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1608*/ meltfptr[1607]) /*_.VALDATA___V1608*/ meltfptr[1607] = (melt_ptr_t) & cdat->dsym_1533__DEBUG_MSG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1533__DEBUG_MSG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1533__DEBUG_MSG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1533__DEBUG_MSG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1533__DEBUG_MSG.obj_hash = 653165353; cdat->dsym_1533__DEBUG_MSG.obj_len = 3; /*inistring dstr_1534__DEBUG_MSG*/ /*_.VALSTR___V1609*/ meltfptr[1608] = (melt_ptr_t) & cdat->dstr_1534__DEBUG_MSG; cdat->dstr_1534__DEBUG_MSG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1534__DEBUG_MSG.val, "DEBUG_MSG", sizeof (cdat->dstr_1534__DEBUG_MSG.val) - 1); /*inirout drout_1535__MEXPAND_DEBUG */ /*_.VALROUT___V1610*/ meltfptr[1609] = (melt_ptr_t) & cdat->drout_1535__MEXPAND_DEBUG; cdat->drout_1535__MEXPAND_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1535__MEXPAND_DEBUG.routdescr, "MEXPAND_DEBUG @warmelt-macro.melt:6346", MELT_ROUTDESCR_LEN - 1); cdat->drout_1535__MEXPAND_DEBUG.nbval = 24; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1535__MEXPAND_DEBUG, meltrout_135_warmelt_macro_MEXPAND_DEBUG); /*iniclos dclo_1536__MEXPAND_DEBUG */ /*_.VALCLO___V1616*/ meltfptr[1615] = (melt_ptr_t) & cdat->dclo_1536__MEXPAND_DEBUG; cdat->dclo_1536__MEXPAND_DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1536__MEXPAND_DEBUG.nbval = 0; /*iniobj dsym_1537__MELT_NEED_DBG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1611*/ meltfptr[1610]) /*_.VALDATA___V1611*/ meltfptr[1610] = (melt_ptr_t) & cdat->dsym_1537__MELT_NEED_DBG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1537__MELT_NEED_DBG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1537__MELT_NEED_DBG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1537__MELT_NEED_DBG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1537__MELT_NEED_DBG.obj_hash = 95427033; cdat->dsym_1537__MELT_NEED_DBG.obj_len = 3; /*inistring dstr_1538__MELT_NEED_DBG*/ /*_.VALSTR___V1612*/ meltfptr[1611] = (melt_ptr_t) & cdat->dstr_1538__MELT_NEED_DBG; cdat->dstr_1538__MELT_NEED_DBG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1538__MELT_NEED_DBG.val, "MELT_NEED_DBG", sizeof (cdat->dstr_1538__MELT_NEED_DBG.val) - 1); /*iniobj dsym_1539__MELT_INCREMENT_DBGCOUNTER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1613*/ meltfptr[1612]) /*_.VALDATA___V1613*/ meltfptr[1612] = (melt_ptr_t) & cdat->dsym_1539__MELT_INCREMENT_DBGCOUNTER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1539__MELT_INCREMENT_DBGCOUNTER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1539__MELT_INCREMENT_DBGCOUNTER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1539__MELT_INCREMENT_DBGCOUNTER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1539__MELT_INCREMENT_DBGCOUNTER.obj_hash = 74344851; cdat->dsym_1539__MELT_INCREMENT_DBGCOUNTER.obj_len = 3; /*inistring dstr_1540__MELT_INCREMENT_D*/ /*_.VALSTR___V1614*/ meltfptr[1613] = (melt_ptr_t) & cdat->dstr_1540__MELT_INCREMENT_D; cdat->dstr_1540__MELT_INCREMENT_D.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1540__MELT_INCREMENT_D.val, "MELT_INCREMENT_DBGCOUNTER", sizeof (cdat->dstr_1540__MELT_INCREMENT_D. val) - 1); /*iniobj dsym_1541__LIST_APPEND2LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1617*/ meltfptr[1616]) /*_.VALDATA___V1617*/ meltfptr[1616] = (melt_ptr_t) & cdat->dsym_1541__LIST_APPEND2LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1541__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_1541__LIST_APPEND2LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1541__LIST_APPEND2LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1541__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_1541__LIST_APPEND2LIST.obj_len = 3; /*inistring dstr_1542__LIST_APPEND2LIST*/ /*_.VALSTR___V1618*/ meltfptr[1617] = (melt_ptr_t) & cdat->dstr_1542__LIST_APPEND2LIST; cdat->dstr_1542__LIST_APPEND2LIST.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1542__LIST_APPEND2LIST.val, "LIST_APPEND2LIST", sizeof (cdat->dstr_1542__LIST_APPEND2LIST. val) - 1); /*iniboxint dint_1543__ */ /*_.VALBXINT___V1615*/ meltfptr[1614] = (melt_ptr_t) & cdat->dint_1543__; cdat->dint_1543__.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CONSTANT_INTEGER)))); cdat->dint_1543__.val = 0; /*iniobj dsym_1544__DEBUG*/ /*uniqueobj*/ if (! /*_.VALDATA___V1619*/ meltfptr[1618]) /*_.VALDATA___V1619*/ meltfptr[1618] = (melt_ptr_t) & cdat->dsym_1544__DEBUG; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1544__DEBUG", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1544__DEBUG", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1544__DEBUG.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1544__DEBUG.obj_hash = 237202636; cdat->dsym_1544__DEBUG.obj_len = 3; /*inistring dstr_1545__DEBUG*/ /*_.VALSTR___V1620*/ meltfptr[1619] = (melt_ptr_t) & cdat->dstr_1545__DEBUG; cdat->dstr_1545__DEBUG.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1545__DEBUG.val, "DEBUG", sizeof (cdat->dstr_1545__DEBUG.val) - 1); /*inirout drout_1546__MEXPAND_EXPORT_VALUES */ /*_.VALROUT___V1621*/ meltfptr[1620] = (melt_ptr_t) & cdat->drout_1546__MEXPAND_EXPORT_VALUES; cdat->drout_1546__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1546__MEXPAND_EXPORT_VALUES.routdescr, "MEXPAND_EXPORT_VALUES @warmelt-macro.melt:6467", MELT_ROUTDESCR_LEN - 1); cdat->drout_1546__MEXPAND_EXPORT_VALUES.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1546__MEXPAND_EXPORT_VALUES, meltrout_136_warmelt_macro_MEXPAND_EXPORT_VALUES); /*iniclos dclo_1547__MEXPAND_EXPORT_VALUES */ /*_.VALCLO___V1623*/ meltfptr[1622] = (melt_ptr_t) & cdat->dclo_1547__MEXPAND_EXPORT_VALUES; cdat->dclo_1547__MEXPAND_EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1547__MEXPAND_EXPORT_VALUES.nbval = 0; /*inirout drout_1548__LAMBDA_ */ /*_.VALROUT___V1622*/ meltfptr[1621] = (melt_ptr_t) & cdat->drout_1548__LAMBDA_; cdat->drout_1548__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1548__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6479", MELT_ROUTDESCR_LEN - 1); cdat->drout_1548__LAMBDA_.nbval = 2; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1548__LAMBDA_, meltrout_137_warmelt_macro_LAMBDA___37__); /*iniobj dsym_1549__EXPORT_VALUES*/ /*uniqueobj*/ if (! /*_.VALDATA___V1624*/ meltfptr[1623]) /*_.VALDATA___V1624*/ meltfptr[1623] = (melt_ptr_t) & cdat->dsym_1549__EXPORT_VALUES; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1549__EXPORT_VALUES", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1549__EXPORT_VALUES", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1549__EXPORT_VALUES.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1549__EXPORT_VALUES.obj_hash = 967501408; cdat->dsym_1549__EXPORT_VALUES.obj_len = 3; /*inistring dstr_1550__EXPORT_VALUES*/ /*_.VALSTR___V1625*/ meltfptr[1624] = (melt_ptr_t) & cdat->dstr_1550__EXPORT_VALUES; cdat->dstr_1550__EXPORT_VALUES.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1550__EXPORT_VALUES.val, "EXPORT_VALUES", sizeof (cdat->dstr_1550__EXPORT_VALUES.val) - 1); /*inirout drout_1551__MEXPAND_EXPORT_MACRO */ /*_.VALROUT___V1626*/ meltfptr[1625] = (melt_ptr_t) & cdat->drout_1551__MEXPAND_EXPORT_MACRO; cdat->drout_1551__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1551__MEXPAND_EXPORT_MACRO.routdescr, "MEXPAND_EXPORT_MACRO @warmelt-macro.melt:6505", MELT_ROUTDESCR_LEN - 1); cdat->drout_1551__MEXPAND_EXPORT_MACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1551__MEXPAND_EXPORT_MACRO, meltrout_138_warmelt_macro_MEXPAND_EXPORT_MACRO); /*iniclos dclo_1552__MEXPAND_EXPORT_MACRO */ /*_.VALCLO___V1627*/ meltfptr[1626] = (melt_ptr_t) & cdat->dclo_1552__MEXPAND_EXPORT_MACRO; cdat->dclo_1552__MEXPAND_EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1552__MEXPAND_EXPORT_MACRO.nbval = 0; /*iniobj dsym_1553__EXPORT_MACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V1628*/ meltfptr[1627]) /*_.VALDATA___V1628*/ meltfptr[1627] = (melt_ptr_t) & cdat->dsym_1553__EXPORT_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1553__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_1553__EXPORT_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1553__EXPORT_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1553__EXPORT_MACRO.obj_hash = 539749464; cdat->dsym_1553__EXPORT_MACRO.obj_len = 3; /*inistring dstr_1554__EXPORT_MACRO*/ /*_.VALSTR___V1629*/ meltfptr[1628] = (melt_ptr_t) & cdat->dstr_1554__EXPORT_MACRO; cdat->dstr_1554__EXPORT_MACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1554__EXPORT_MACRO.val, "EXPORT_MACRO", sizeof (cdat->dstr_1554__EXPORT_MACRO.val) - 1); /*inirout drout_1555__MEXPAND_EXPORT_PATMACRO */ /*_.VALROUT___V1630*/ meltfptr[1629] = (melt_ptr_t) & cdat->drout_1555__MEXPAND_EXPORT_PATMACRO; cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.routdescr, "MEXPAND_EXPORT_PATMACRO @warmelt-macro.melt:6549", MELT_ROUTDESCR_LEN - 1); cdat->drout_1555__MEXPAND_EXPORT_PATMACRO.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1555__MEXPAND_EXPORT_PATMACRO, meltrout_139_warmelt_macro_MEXPAND_EXPORT_PATMACRO); /*iniclos dclo_1556__MEXPAND_EXPORT_PATMACRO */ /*_.VALCLO___V1631*/ meltfptr[1630] = (melt_ptr_t) & cdat->dclo_1556__MEXPAND_EXPORT_PATMACRO; cdat->dclo_1556__MEXPAND_EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1556__MEXPAND_EXPORT_PATMACRO.nbval = 0; /*iniobj dsym_1557__EXPORT_PATMACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V1632*/ meltfptr[1631]) /*_.VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t) & cdat->dsym_1557__EXPORT_PATMACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1557__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_1557__EXPORT_PATMACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1557__EXPORT_PATMACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1557__EXPORT_PATMACRO.obj_hash = 363095059; cdat->dsym_1557__EXPORT_PATMACRO.obj_len = 3; /*inistring dstr_1558__EXPORT_PATMACRO*/ /*_.VALSTR___V1633*/ meltfptr[1632] = (melt_ptr_t) & cdat->dstr_1558__EXPORT_PATMACRO; cdat->dstr_1558__EXPORT_PATMACRO.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1558__EXPORT_PATMACRO.val, "EXPORT_PATMACRO", sizeof (cdat->dstr_1558__EXPORT_PATMACRO. val) - 1); /*inirout drout_1559__MEXPAND_EXPORT_CLASS */ /*_.VALROUT___V1634*/ meltfptr[1633] = (melt_ptr_t) & cdat->drout_1559__MEXPAND_EXPORT_CLASS; cdat->drout_1559__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1559__MEXPAND_EXPORT_CLASS.routdescr, "MEXPAND_EXPORT_CLASS @warmelt-macro.melt:6599", MELT_ROUTDESCR_LEN - 1); cdat->drout_1559__MEXPAND_EXPORT_CLASS.nbval = 9; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1559__MEXPAND_EXPORT_CLASS, meltrout_140_warmelt_macro_MEXPAND_EXPORT_CLASS); /*iniclos dclo_1560__MEXPAND_EXPORT_CLASS */ /*_.VALCLO___V1636*/ meltfptr[1635] = (melt_ptr_t) & cdat->dclo_1560__MEXPAND_EXPORT_CLASS; cdat->dclo_1560__MEXPAND_EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1560__MEXPAND_EXPORT_CLASS.nbval = 0; /*inirout drout_1561__LAMBDA_ */ /*_.VALROUT___V1635*/ meltfptr[1634] = (melt_ptr_t) & cdat->drout_1561__LAMBDA_; cdat->drout_1561__LAMBDA_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1561__LAMBDA_.routdescr, "LAMBDA_ @warmelt-macro.melt:6611", MELT_ROUTDESCR_LEN - 1); cdat->drout_1561__LAMBDA_.nbval = 1; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1561__LAMBDA_, meltrout_141_warmelt_macro_LAMBDA___38__); /*iniobj dsym_1562__EXPORT_CLASS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1637*/ meltfptr[1636]) /*_.VALDATA___V1637*/ meltfptr[1636] = (melt_ptr_t) & cdat->dsym_1562__EXPORT_CLASS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1562__EXPORT_CLASS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1562__EXPORT_CLASS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1562__EXPORT_CLASS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1562__EXPORT_CLASS.obj_hash = 352628427; cdat->dsym_1562__EXPORT_CLASS.obj_len = 3; /*inistring dstr_1563__EXPORT_CLASS*/ /*_.VALSTR___V1638*/ meltfptr[1637] = (melt_ptr_t) & cdat->dstr_1563__EXPORT_CLASS; cdat->dstr_1563__EXPORT_CLASS.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1563__EXPORT_CLASS.val, "EXPORT_CLASS", sizeof (cdat->dstr_1563__EXPORT_CLASS.val) - 1); /*inirout drout_1564__MEXPAND_EXPORT_SYNONYM */ /*_.VALROUT___V1639*/ meltfptr[1638] = (melt_ptr_t) & cdat->drout_1564__MEXPAND_EXPORT_SYNONYM; cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.routdescr, "MEXPAND_EXPORT_SYNONYM @warmelt-macro.melt:6631", MELT_ROUTDESCR_LEN - 1); cdat->drout_1564__MEXPAND_EXPORT_SYNONYM.nbval = 7; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1564__MEXPAND_EXPORT_SYNONYM, meltrout_142_warmelt_macro_MEXPAND_EXPORT_SYNONYM); /*iniclos dclo_1565__MEXPAND_EXPORT_SYNONYM */ /*_.VALCLO___V1640*/ meltfptr[1639] = (melt_ptr_t) & cdat->dclo_1565__MEXPAND_EXPORT_SYNONYM; cdat->dclo_1565__MEXPAND_EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1565__MEXPAND_EXPORT_SYNONYM.nbval = 0; /*iniobj dsym_1566__EXPORT_SYNONYM*/ /*uniqueobj*/ if (! /*_.VALDATA___V1641*/ meltfptr[1640]) /*_.VALDATA___V1641*/ meltfptr[1640] = (melt_ptr_t) & cdat->dsym_1566__EXPORT_SYNONYM; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1566__EXPORT_SYNONYM", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1566__EXPORT_SYNONYM", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1566__EXPORT_SYNONYM.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1566__EXPORT_SYNONYM.obj_hash = 585099698; cdat->dsym_1566__EXPORT_SYNONYM.obj_len = 3; /*inistring dstr_1567__EXPORT_SYNONYM*/ /*_.VALSTR___V1642*/ meltfptr[1641] = (melt_ptr_t) & cdat->dstr_1567__EXPORT_SYNONYM; cdat->dstr_1567__EXPORT_SYNONYM.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1567__EXPORT_SYNONYM.val, "EXPORT_SYNONYM", sizeof (cdat->dstr_1567__EXPORT_SYNONYM.val) - 1); /*inirout drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALROUT___V1643*/ meltfptr[1642] = (melt_ptr_t) & cdat-> drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, "MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6683", MELT_ROUTDESCR_LEN - 1); cdat->drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_143_warmelt_macro_MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER); /*iniclos dclo_1569__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALCLO___V1644*/ meltfptr[1643] = (melt_ptr_t) & cdat-> dclo_1569__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1569__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1569__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1645*/ meltfptr[1644]) /*_.VALDATA___V1645*/ meltfptr[1644] = (melt_ptr_t) & cdat->dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 714873699; cdat->dsym_1570__CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_1571__CURRENT_MODULE_E*/ /*_.VALSTR___V1646*/ meltfptr[1645] = (melt_ptr_t) & cdat->dstr_1571__CURRENT_MODULE_E; cdat->dstr_1571__CURRENT_MODULE_E.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1571__CURRENT_MODULE_E.val, "CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1571__CURRENT_MODULE_E. val) - 1); /*inirout drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT */ /*_.VALROUT___V1647*/ meltfptr[1646] = (melt_ptr_t) & cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT; cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.routdescr, "MEXPAND_PARENT_MODULE_ENVIRONMENT @warmelt-macro.melt:6710", MELT_ROUTDESCR_LEN - 1); cdat->drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 5; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT, meltrout_144_warmelt_macro_MEXPAND_PARENT_MODULE_ENVIRONMENT); /*iniclos dclo_1573__MEXPAND_PARENT_MODULE_ENVIRONMENT */ /*_.VALCLO___V1648*/ meltfptr[1647] = (melt_ptr_t) & cdat->dclo_1573__MEXPAND_PARENT_MODULE_ENVIRONMENT; cdat->dclo_1573__MEXPAND_PARENT_MODULE_ENVIRONMENT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1573__MEXPAND_PARENT_MODULE_ENVIRONMENT.nbval = 0; /*iniobj dsym_1574__PARENT_MODULE_ENVIRONMENT*/ /*uniqueobj*/ if (! /*_.VALDATA___V1649*/ meltfptr[1648]) /*_.VALDATA___V1649*/ meltfptr[1648] = (melt_ptr_t) & cdat->dsym_1574__PARENT_MODULE_ENVIRONMENT; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1574__PARENT_MODULE_ENVIRONMENT", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1574__PARENT_MODULE_ENVIRONMENT", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1574__PARENT_MODULE_ENVIRONMENT.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1574__PARENT_MODULE_ENVIRONMENT.obj_hash = 315808274; cdat->dsym_1574__PARENT_MODULE_ENVIRONMENT.obj_len = 3; /*inistring dstr_1575__PARENT_MODULE_EN*/ /*_.VALSTR___V1650*/ meltfptr[1649] = (melt_ptr_t) & cdat->dstr_1575__PARENT_MODULE_EN; cdat->dstr_1575__PARENT_MODULE_EN.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1575__PARENT_MODULE_EN.val, "PARENT_MODULE_ENVIRONMENT", sizeof (cdat->dstr_1575__PARENT_MODULE_EN. val) - 1); /*inirout drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALROUT___V1651*/ meltfptr[1650] = (melt_ptr_t) & cdat-> drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat-> drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. routdescr, "MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-macro.melt:6739", MELT_ROUTDESCR_LEN - 1); cdat->drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER. nbval = 4; MELT_ROUTINE_SET_ROUTCODE (&cdat-> drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER, meltrout_145_warmelt_macro_MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER); /*iniclos dclo_1577__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.VALCLO___V1652*/ meltfptr[1651] = (melt_ptr_t) & cdat-> dclo_1577__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1577__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1577__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*uniqueobj*/ if (! /*_.VALDATA___V1653*/ meltfptr[1652]) /*_.VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t) & cdat-> dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 540992734; cdat->dsym_1578__UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; /*inistring dstr_1579__UPDATE_CURRENT_M*/ /*_.VALSTR___V1654*/ meltfptr[1653] = (melt_ptr_t) & cdat->dstr_1579__UPDATE_CURRENT_M; cdat->dstr_1579__UPDATE_CURRENT_M.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1579__UPDATE_CURRENT_M.val, "UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", sizeof (cdat->dstr_1579__UPDATE_CURRENT_M. val) - 1); /*inirout drout_1580__MEXPAND_FETCH_PREDEFINED */ /*_.VALROUT___V1655*/ meltfptr[1654] = (melt_ptr_t) & cdat->drout_1580__MEXPAND_FETCH_PREDEFINED; cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.routdescr, "MEXPAND_FETCH_PREDEFINED @warmelt-macro.melt:6769", MELT_ROUTDESCR_LEN - 1); cdat->drout_1580__MEXPAND_FETCH_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1580__MEXPAND_FETCH_PREDEFINED, meltrout_146_warmelt_macro_MEXPAND_FETCH_PREDEFINED); /*iniclos dclo_1581__MEXPAND_FETCH_PREDEFINED */ /*_.VALCLO___V1656*/ meltfptr[1655] = (melt_ptr_t) & cdat->dclo_1581__MEXPAND_FETCH_PREDEFINED; cdat->dclo_1581__MEXPAND_FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1581__MEXPAND_FETCH_PREDEFINED.nbval = 0; /*iniobj dsym_1582__FETCH_PREDEFINED*/ /*uniqueobj*/ if (! /*_.VALDATA___V1657*/ meltfptr[1656]) /*_.VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t) & cdat->dsym_1582__FETCH_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1582__FETCH_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1582__FETCH_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1582__FETCH_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1582__FETCH_PREDEFINED.obj_hash = 951904659; cdat->dsym_1582__FETCH_PREDEFINED.obj_len = 3; /*inistring dstr_1583__FETCH_PREDEFINED*/ /*_.VALSTR___V1658*/ meltfptr[1657] = (melt_ptr_t) & cdat->dstr_1583__FETCH_PREDEFINED; cdat->dstr_1583__FETCH_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1583__FETCH_PREDEFINED.val, "FETCH_PREDEFINED", sizeof (cdat->dstr_1583__FETCH_PREDEFINED. val) - 1); /*inirout drout_1584__MEXPAND_STORE_PREDEFINED */ /*_.VALROUT___V1659*/ meltfptr[1658] = (melt_ptr_t) & cdat->drout_1584__MEXPAND_STORE_PREDEFINED; cdat->drout_1584__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_ROUTINE)))); strncpy (cdat->drout_1584__MEXPAND_STORE_PREDEFINED.routdescr, "MEXPAND_STORE_PREDEFINED @warmelt-macro.melt:6798", MELT_ROUTDESCR_LEN - 1); cdat->drout_1584__MEXPAND_STORE_PREDEFINED.nbval = 6; MELT_ROUTINE_SET_ROUTCODE (&cdat->drout_1584__MEXPAND_STORE_PREDEFINED, meltrout_147_warmelt_macro_MEXPAND_STORE_PREDEFINED); /*iniclos dclo_1585__MEXPAND_STORE_PREDEFINED */ /*_.VALCLO___V1660*/ meltfptr[1659] = (melt_ptr_t) & cdat->dclo_1585__MEXPAND_STORE_PREDEFINED; cdat->dclo_1585__MEXPAND_STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_CLOSURE)))); cdat->dclo_1585__MEXPAND_STORE_PREDEFINED.nbval = 0; /*iniobj dsym_1586__STORE_PREDEFINED*/ /*uniqueobj*/ if (! /*_.VALDATA___V1661*/ meltfptr[1660]) /*_.VALDATA___V1661*/ meltfptr[1660] = (melt_ptr_t) & cdat->dsym_1586__STORE_PREDEFINED; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1586__STORE_PREDEFINED", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1586__STORE_PREDEFINED", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1586__STORE_PREDEFINED.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1586__STORE_PREDEFINED.obj_hash = 8509317; cdat->dsym_1586__STORE_PREDEFINED.obj_len = 3; /*inistring dstr_1587__STORE_PREDEFINED*/ /*_.VALSTR___V1662*/ meltfptr[1661] = (melt_ptr_t) & cdat->dstr_1587__STORE_PREDEFINED; cdat->dstr_1587__STORE_PREDEFINED.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1587__STORE_PREDEFINED.val, "STORE_PREDEFINED", sizeof (cdat->dstr_1587__STORE_PREDEFINED. val) - 1); /*iniobj dsym_1588__EXPAND_APPLY*/ /*uniqueobj*/ if (! /*_.VALDATA___V1663*/ meltfptr[1662]) /*_.VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t) & cdat->dsym_1588__EXPAND_APPLY; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1588__EXPAND_APPLY", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1588__EXPAND_APPLY", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1588__EXPAND_APPLY.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1588__EXPAND_APPLY.obj_hash = 57901779; cdat->dsym_1588__EXPAND_APPLY.obj_len = 3; /*inistring dstr_1589__EXPAND_APPLY*/ /*_.VALSTR___V1664*/ meltfptr[1663] = (melt_ptr_t) & cdat->dstr_1589__EXPAND_APPLY; cdat->dstr_1589__EXPAND_APPLY.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1589__EXPAND_APPLY.val, "EXPAND_APPLY", sizeof (cdat->dstr_1589__EXPAND_APPLY.val) - 1); /*iniobj dsym_1590__EXPAND_MSEND*/ /*uniqueobj*/ if (! /*_.VALDATA___V1665*/ meltfptr[1664]) /*_.VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t) & cdat->dsym_1590__EXPAND_MSEND; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1590__EXPAND_MSEND", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1590__EXPAND_MSEND", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1590__EXPAND_MSEND.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1590__EXPAND_MSEND.obj_hash = 624621035; cdat->dsym_1590__EXPAND_MSEND.obj_len = 3; /*inistring dstr_1591__EXPAND_MSEND*/ /*_.VALSTR___V1666*/ meltfptr[1665] = (melt_ptr_t) & cdat->dstr_1591__EXPAND_MSEND; cdat->dstr_1591__EXPAND_MSEND.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1591__EXPAND_MSEND.val, "EXPAND_MSEND", sizeof (cdat->dstr_1591__EXPAND_MSEND.val) - 1); /*iniobj dsym_1592__EXPAND_PAIRLIST_AS_TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1667*/ meltfptr[1666]) /*_.VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t) & cdat->dsym_1592__EXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1592__EXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1592__EXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1592__EXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1592__EXPAND_PAIRLIST_AS_TUPLE.obj_hash = 953849859; cdat->dsym_1592__EXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_1593__EXPAND_PAIRLIST_*/ /*_.VALSTR___V1668*/ meltfptr[1667] = (melt_ptr_t) & cdat->dstr_1593__EXPAND_PAIRLIST_; cdat->dstr_1593__EXPAND_PAIRLIST_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1593__EXPAND_PAIRLIST_.val, "EXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1593__EXPAND_PAIRLIST_. val) - 1); /*iniobj dsym_1594__EXPAND_PRIMITIVE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1669*/ meltfptr[1668]) /*_.VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t) & cdat->dsym_1594__EXPAND_PRIMITIVE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1594__EXPAND_PRIMITIVE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1594__EXPAND_PRIMITIVE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1594__EXPAND_PRIMITIVE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1594__EXPAND_PRIMITIVE.obj_hash = 489692488; cdat->dsym_1594__EXPAND_PRIMITIVE.obj_len = 3; /*inistring dstr_1595__EXPAND_PRIMITIVE*/ /*_.VALSTR___V1670*/ meltfptr[1669] = (melt_ptr_t) & cdat->dstr_1595__EXPAND_PRIMITIVE; cdat->dstr_1595__EXPAND_PRIMITIVE.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1595__EXPAND_PRIMITIVE.val, "EXPAND_PRIMITIVE", sizeof (cdat->dstr_1595__EXPAND_PRIMITIVE. val) - 1); /*iniobj dsym_1596__INSTALL_INITIAL_MACRO*/ /*uniqueobj*/ if (! /*_.VALDATA___V1671*/ meltfptr[1670]) /*_.VALDATA___V1671*/ meltfptr[1670] = (melt_ptr_t) & cdat->dsym_1596__INSTALL_INITIAL_MACRO; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1596__INSTALL_INITIAL_MACRO", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1596__INSTALL_INITIAL_MACRO", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1596__INSTALL_INITIAL_MACRO.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1596__INSTALL_INITIAL_MACRO.obj_hash = 101362976; cdat->dsym_1596__INSTALL_INITIAL_MACRO.obj_len = 3; /*inistring dstr_1597__INSTALL_INITIAL_*/ /*_.VALSTR___V1672*/ meltfptr[1671] = (melt_ptr_t) & cdat->dstr_1597__INSTALL_INITIAL_; cdat->dstr_1597__INSTALL_INITIAL_.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1597__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO", sizeof (cdat->dstr_1597__INSTALL_INITIAL_. val) - 1); /*iniobj dsym_1598__LAMBDA_ARG_BINDINGS*/ /*uniqueobj*/ if (! /*_.VALDATA___V1673*/ meltfptr[1672]) /*_.VALDATA___V1673*/ meltfptr[1672] = (melt_ptr_t) & cdat->dsym_1598__LAMBDA_ARG_BINDINGS; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1598__LAMBDA_ARG_BINDINGS", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1598__LAMBDA_ARG_BINDINGS", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1598__LAMBDA_ARG_BINDINGS.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1598__LAMBDA_ARG_BINDINGS.obj_hash = 242170999; cdat->dsym_1598__LAMBDA_ARG_BINDINGS.obj_len = 3; /*inistring dstr_1599__LAMBDA_ARG_BINDI*/ /*_.VALSTR___V1674*/ meltfptr[1673] = (melt_ptr_t) & cdat->dstr_1599__LAMBDA_ARG_BINDI; cdat->dstr_1599__LAMBDA_ARG_BINDI.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1599__LAMBDA_ARG_BINDI.val, "LAMBDA_ARG_BINDINGS", sizeof (cdat->dstr_1599__LAMBDA_ARG_BINDI. val) - 1); /*iniobj dsym_1600__MACROEXPAND_1*/ /*uniqueobj*/ if (! /*_.VALDATA___V1675*/ meltfptr[1674]) /*_.VALDATA___V1675*/ meltfptr[1674] = (melt_ptr_t) & cdat->dsym_1600__MACROEXPAND_1; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1600__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_1600__MACROEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1600__MACROEXPAND_1.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1600__MACROEXPAND_1.obj_hash = 858793911; cdat->dsym_1600__MACROEXPAND_1.obj_len = 3; /*inistring dstr_1601__MACROEXPAND_1*/ /*_.VALSTR___V1676*/ meltfptr[1675] = (melt_ptr_t) & cdat->dstr_1601__MACROEXPAND_1; cdat->dstr_1601__MACROEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1601__MACROEXPAND_1.val, "MACROEXPAND_1", sizeof (cdat->dstr_1601__MACROEXPAND_1.val) - 1); /*iniobj dsym_1602__MACROEXPAND_TOPLEVEL_LIST*/ /*uniqueobj*/ if (! /*_.VALDATA___V1677*/ meltfptr[1676]) /*_.VALDATA___V1677*/ meltfptr[1676] = (melt_ptr_t) & cdat->dsym_1602__MACROEXPAND_TOPLEVEL_LIST; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1602__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_1602__MACROEXPAND_TOPLEVEL_LIST", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1602__MACROEXPAND_TOPLEVEL_LIST.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1602__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; cdat->dsym_1602__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; /*inistring dstr_1603__MACROEXPAND_TOPL*/ /*_.VALSTR___V1678*/ meltfptr[1677] = (melt_ptr_t) & cdat->dstr_1603__MACROEXPAND_TOPL; cdat->dstr_1603__MACROEXPAND_TOPL.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1603__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST", sizeof (cdat->dstr_1603__MACROEXPAND_TOPL. val) - 1); /*iniobj dsym_1604__PATTERNEXPAND_1*/ /*uniqueobj*/ if (! /*_.VALDATA___V1679*/ meltfptr[1678]) /*_.VALDATA___V1679*/ meltfptr[1678] = (melt_ptr_t) & cdat->dsym_1604__PATTERNEXPAND_1; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1604__PATTERNEXPAND_1", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1604__PATTERNEXPAND_1", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1604__PATTERNEXPAND_1.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1604__PATTERNEXPAND_1.obj_hash = 263501284; cdat->dsym_1604__PATTERNEXPAND_1.obj_len = 3; /*inistring dstr_1605__PATTERNEXPAND_1*/ /*_.VALSTR___V1680*/ meltfptr[1679] = (melt_ptr_t) & cdat->dstr_1605__PATTERNEXPAND_1; cdat->dstr_1605__PATTERNEXPAND_1.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1605__PATTERNEXPAND_1.val, "PATTERNEXPAND_1", sizeof (cdat->dstr_1605__PATTERNEXPAND_1. val) - 1); /*iniobj dsym_1606__PATTERNEXPAND_EXPR*/ /*uniqueobj*/ if (! /*_.VALDATA___V1681*/ meltfptr[1680]) /*_.VALDATA___V1681*/ meltfptr[1680] = (melt_ptr_t) & cdat->dsym_1606__PATTERNEXPAND_EXPR; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1606__PATTERNEXPAND_EXPR", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1606__PATTERNEXPAND_EXPR", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1606__PATTERNEXPAND_EXPR.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1606__PATTERNEXPAND_EXPR.obj_hash = 842722016; cdat->dsym_1606__PATTERNEXPAND_EXPR.obj_len = 3; /*inistring dstr_1607__PATTERNEXPAND_EX*/ /*_.VALSTR___V1682*/ meltfptr[1681] = (melt_ptr_t) & cdat->dstr_1607__PATTERNEXPAND_EX; cdat->dstr_1607__PATTERNEXPAND_EX.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1607__PATTERNEXPAND_EX.val, "PATTERNEXPAND_EXPR", sizeof (cdat->dstr_1607__PATTERNEXPAND_EX. val) - 1); /*iniobj dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1683*/ meltfptr[1682]) /*_.VALDATA___V1683*/ meltfptr[1682] = (melt_ptr_t) & cdat->dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_hash = 551172859; cdat->dsym_1608__PATTERNEXPAND_PAIRLIST_AS_TUPLE.obj_len = 3; /*inistring dstr_1609__PATTERNEXPAND_PA*/ /*_.VALSTR___V1684*/ meltfptr[1683] = (melt_ptr_t) & cdat->dstr_1609__PATTERNEXPAND_PA; cdat->dstr_1609__PATTERNEXPAND_PA.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1609__PATTERNEXPAND_PA.val, "PATTERNEXPAND_PAIRLIST_AS_TUPLE", sizeof (cdat->dstr_1609__PATTERNEXPAND_PA. val) - 1); /*iniobj dsym_1610__PATTERN_WEIGHT_TUPLE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1685*/ meltfptr[1684]) /*_.VALDATA___V1685*/ meltfptr[1684] = (melt_ptr_t) & cdat->dsym_1610__PATTERN_WEIGHT_TUPLE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1610__PATTERN_WEIGHT_TUPLE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1610__PATTERN_WEIGHT_TUPLE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1610__PATTERN_WEIGHT_TUPLE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1610__PATTERN_WEIGHT_TUPLE.obj_hash = 239554717; cdat->dsym_1610__PATTERN_WEIGHT_TUPLE.obj_len = 3; /*inistring dstr_1611__PATTERN_WEIGHT_T*/ /*_.VALSTR___V1686*/ meltfptr[1685] = (melt_ptr_t) & cdat->dstr_1611__PATTERN_WEIGHT_T; cdat->dstr_1611__PATTERN_WEIGHT_T.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1611__PATTERN_WEIGHT_T.val, "PATTERN_WEIGHT_TUPLE", sizeof (cdat->dstr_1611__PATTERN_WEIGHT_T. val) - 1); /*iniobj dsym_1612__REGISTER_GENERATOR_DEVICE*/ /*uniqueobj*/ if (! /*_.VALDATA___V1687*/ meltfptr[1686]) /*_.VALDATA___V1687*/ meltfptr[1686] = (melt_ptr_t) & cdat->dsym_1612__REGISTER_GENERATOR_DEVICE; if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr isobj dsym_1612__REGISTER_GENERATOR_DEVICE", melt_magic_discr ((melt_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL))))) == MELTOBMAG_OBJECT); if (MELT_LIKELY (!melt_prohibit_garbcoll)) melt_assertmsg ("iniobj check.discr objmagic dsym_1612__REGISTER_GENERATOR_DEVICE", ((meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))))-> meltobj_magic == MELTOBMAG_OBJECT); cdat->dsym_1612__REGISTER_GENERATOR_DEVICE.meltobj_class = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (CLASS_SYMBOL)))); cdat->dsym_1612__REGISTER_GENERATOR_DEVICE.obj_hash = 805123873; cdat->dsym_1612__REGISTER_GENERATOR_DEVICE.obj_len = 3; /*inistring dstr_1613__REGISTER_GENERAT*/ /*_.VALSTR___V1688*/ meltfptr[1687] = (melt_ptr_t) & cdat->dstr_1613__REGISTER_GENERAT; cdat->dstr_1613__REGISTER_GENERAT.discr = (meltobject_ptr_t) (((melt_ptr_t) (MELT_PREDEF (DISCR_STRING)))); /*small inistring */ strncpy (cdat->dstr_1613__REGISTER_GENERAT.val, "REGISTER_GENERATOR_DEVICE", sizeof (cdat->dstr_1613__REGISTER_GENERAT. val) - 1); cdat = NULL; melt_prohibit_garbcoll = FALSE; #undef meltfram__ } /*end initialize_module_meltdata_warmelt_macro */ #if MELT_HAVE_DEBUG const char meltmodule_warmelt_macro__melt_have_debug_enabled[] = "MELT module warmelt-macro have debug enabled"; #else /*!MELT_HAVE_DEBUG */ const char meltmodule_warmelt_macro__melt_have_debug_disabled[] = "MELT module warmelt-macro 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 = 1831; 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 */ -2457; ((struct melt_callframe_st *) &meltfram__)->mcfr_forwmarkrout = meltmod__warmelt_macro__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:IS_RECURSIVELY_CONSTRUCTIBLE */ { melt_ptr_t sy_IS_RECURSIVELY_CONSTRUCTIBLE = meltgc_named_symbol ("IS_RECURSIVELY_CONSTRUCTIBLE", MELT_GET); if (sy_IS_RECURSIVELY_CONSTRUCTIBLE && NULL == /*_.VALDATA___V76*/ meltfptr[75]) /*_.VALDATA___V76*/ meltfptr[75] = (melt_ptr_t) sy_IS_RECURSIVELY_CONSTRUCTIBLE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SELECTOR */ { melt_ptr_t sy_CLASS_SELECTOR = meltgc_named_symbol ("CLASS_SELECTOR", MELT_GET); if (sy_CLASS_SELECTOR && NULL == /*_.VALDATA___V78*/ meltfptr[77]) /*_.VALDATA___V78*/ meltfptr[77] = (melt_ptr_t) sy_CLASS_SELECTOR; } /*^getnamedsymbol */ /*getnamedsym:RECV */ { melt_ptr_t sy_RECV = meltgc_named_symbol ("RECV", MELT_GET); if (sy_RECV && NULL == /*_.VALDATA___V80*/ meltfptr[79]) /*_.VALDATA___V80*/ meltfptr[79] = (melt_ptr_t) sy_RECV; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_GENERATOR_DEVICE */ { melt_ptr_t sy_CLASS_SOURCE_GENERATOR_DEVICE = meltgc_named_symbol ("CLASS_SOURCE_GENERATOR_DEVICE", MELT_GET); if (sy_CLASS_SOURCE_GENERATOR_DEVICE && NULL == /*_.VALDATA___V86*/ meltfptr[85]) /*_.VALDATA___V86*/ meltfptr[85] = (melt_ptr_t) sy_CLASS_SOURCE_GENERATOR_DEVICE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE */ { melt_ptr_t sy_CLASS_SOURCE = meltgc_named_symbol ("CLASS_SOURCE", MELT_GET); if (sy_CLASS_SOURCE && NULL == /*_.VALDATA___V88*/ meltfptr[87]) /*_.VALDATA___V88*/ meltfptr[87] = (melt_ptr_t) sy_CLASS_SOURCE; } /*^getnamedsymbol */ /*getnamedsym:SRCGEN_DEFIN */ { melt_ptr_t sy_SRCGEN_DEFIN = meltgc_named_symbol ("SRCGEN_DEFIN", MELT_GET); if (sy_SRCGEN_DEFIN && NULL == /*_.VALDATA___V98*/ meltfptr[97]) /*_.VALDATA___V98*/ meltfptr[97] = (melt_ptr_t) sy_SRCGEN_DEFIN; } /*^getnamedsymbol */ /*getnamedsym:SRCGEN_REPR */ { melt_ptr_t sy_SRCGEN_REPR = meltgc_named_symbol ("SRCGEN_REPR", MELT_GET); if (sy_SRCGEN_REPR && NULL == /*_.VALDATA___V100*/ meltfptr[99]) /*_.VALDATA___V100*/ meltfptr[99] = (melt_ptr_t) sy_SRCGEN_REPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LAZY_MACRO_EXPANSION */ { melt_ptr_t sy_CLASS_SOURCE_LAZY_MACRO_EXPANSION = meltgc_named_symbol ("CLASS_SOURCE_LAZY_MACRO_EXPANSION", MELT_GET); if (sy_CLASS_SOURCE_LAZY_MACRO_EXPANSION && NULL == /*_.VALDATA___V102*/ meltfptr[101]) /*_.VALDATA___V102*/ meltfptr[101] = (melt_ptr_t) sy_CLASS_SOURCE_LAZY_MACRO_EXPANSION; } /*^getnamedsymbol */ /*getnamedsym:SLAZYMACRO_FUN */ { melt_ptr_t sy_SLAZYMACRO_FUN = meltgc_named_symbol ("SLAZYMACRO_FUN", MELT_GET); if (sy_SLAZYMACRO_FUN && NULL == /*_.VALDATA___V112*/ meltfptr[111]) /*_.VALDATA___V112*/ meltfptr[111] = (melt_ptr_t) sy_SLAZYMACRO_FUN; } /*^getnamedsymbol */ /*getnamedsym:SLAZYMACRO_OPER */ { melt_ptr_t sy_SLAZYMACRO_OPER = meltgc_named_symbol ("SLAZYMACRO_OPER", MELT_GET); if (sy_SLAZYMACRO_OPER && NULL == /*_.VALDATA___V114*/ meltfptr[113]) /*_.VALDATA___V114*/ meltfptr[113] = (melt_ptr_t) sy_SLAZYMACRO_OPER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_ARGUMENTED_OPERATOR */ { melt_ptr_t sy_CLASS_SOURCE_ARGUMENTED_OPERATOR = meltgc_named_symbol ("CLASS_SOURCE_ARGUMENTED_OPERATOR", MELT_GET); if (sy_CLASS_SOURCE_ARGUMENTED_OPERATOR && NULL == /*_.VALDATA___V116*/ meltfptr[115]) /*_.VALDATA___V116*/ meltfptr[115] = (melt_ptr_t) sy_CLASS_SOURCE_ARGUMENTED_OPERATOR; } /*^getnamedsymbol */ /*getnamedsym:SARGOP_ARGS */ { melt_ptr_t sy_SARGOP_ARGS = meltgc_named_symbol ("SARGOP_ARGS", MELT_GET); if (sy_SARGOP_ARGS && NULL == /*_.VALDATA___V124*/ meltfptr[123]) /*_.VALDATA___V124*/ meltfptr[123] = (melt_ptr_t) sy_SARGOP_ARGS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_APPLY */ { melt_ptr_t sy_CLASS_SOURCE_APPLY = meltgc_named_symbol ("CLASS_SOURCE_APPLY", MELT_GET); if (sy_CLASS_SOURCE_APPLY && NULL == /*_.VALDATA___V126*/ meltfptr[125]) /*_.VALDATA___V126*/ meltfptr[125] = (melt_ptr_t) sy_CLASS_SOURCE_APPLY; } /*^getnamedsymbol */ /*getnamedsym:SAPP_FUN */ { melt_ptr_t sy_SAPP_FUN = meltgc_named_symbol ("SAPP_FUN", MELT_GET); if (sy_SAPP_FUN && NULL == /*_.VALDATA___V134*/ meltfptr[133]) /*_.VALDATA___V134*/ meltfptr[133] = (melt_ptr_t) sy_SAPP_FUN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_MSEND */ { melt_ptr_t sy_CLASS_SOURCE_MSEND = meltgc_named_symbol ("CLASS_SOURCE_MSEND", MELT_GET); if (sy_CLASS_SOURCE_MSEND && NULL == /*_.VALDATA___V136*/ meltfptr[135]) /*_.VALDATA___V136*/ meltfptr[135] = (melt_ptr_t) sy_CLASS_SOURCE_MSEND; } /*^getnamedsymbol */ /*getnamedsym:MSEND_SELSYMB */ { melt_ptr_t sy_MSEND_SELSYMB = meltgc_named_symbol ("MSEND_SELSYMB", MELT_GET); if (sy_MSEND_SELSYMB && NULL == /*_.VALDATA___V146*/ meltfptr[145]) /*_.VALDATA___V146*/ meltfptr[145] = (melt_ptr_t) sy_MSEND_SELSYMB; } /*^getnamedsymbol */ /*getnamedsym:MSEND_RECV */ { melt_ptr_t sy_MSEND_RECV = meltgc_named_symbol ("MSEND_RECV", MELT_GET); if (sy_MSEND_RECV && NULL == /*_.VALDATA___V148*/ meltfptr[147]) /*_.VALDATA___V148*/ meltfptr[147] = (melt_ptr_t) sy_MSEND_RECV; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PRIMITIVE */ { melt_ptr_t sy_CLASS_SOURCE_PRIMITIVE = meltgc_named_symbol ("CLASS_SOURCE_PRIMITIVE", MELT_GET); if (sy_CLASS_SOURCE_PRIMITIVE && NULL == /*_.VALDATA___V150*/ meltfptr[149]) /*_.VALDATA___V150*/ meltfptr[149] = (melt_ptr_t) sy_CLASS_SOURCE_PRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:SPRIM_OPER */ { melt_ptr_t sy_SPRIM_OPER = meltgc_named_symbol ("SPRIM_OPER", MELT_GET); if (sy_SPRIM_OPER && NULL == /*_.VALDATA___V158*/ meltfptr[157]) /*_.VALDATA___V158*/ meltfptr[157] = (melt_ptr_t) sy_SPRIM_OPER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CITERATION */ { melt_ptr_t sy_CLASS_SOURCE_CITERATION = meltgc_named_symbol ("CLASS_SOURCE_CITERATION", MELT_GET); if (sy_CLASS_SOURCE_CITERATION && NULL == /*_.VALDATA___V160*/ meltfptr[159]) /*_.VALDATA___V160*/ meltfptr[159] = (melt_ptr_t) sy_CLASS_SOURCE_CITERATION; } /*^getnamedsymbol */ /*getnamedsym:SCITER_OPER */ { melt_ptr_t sy_SCITER_OPER = meltgc_named_symbol ("SCITER_OPER", MELT_GET); if (sy_SCITER_OPER && NULL == /*_.VALDATA___V172*/ meltfptr[171]) /*_.VALDATA___V172*/ meltfptr[171] = (melt_ptr_t) sy_SCITER_OPER; } /*^getnamedsymbol */ /*getnamedsym:SCITER_VARBIND */ { melt_ptr_t sy_SCITER_VARBIND = meltgc_named_symbol ("SCITER_VARBIND", MELT_GET); if (sy_SCITER_VARBIND && NULL == /*_.VALDATA___V174*/ meltfptr[173]) /*_.VALDATA___V174*/ meltfptr[173] = (melt_ptr_t) sy_SCITER_VARBIND; } /*^getnamedsymbol */ /*getnamedsym:SCITER_BODY */ { melt_ptr_t sy_SCITER_BODY = meltgc_named_symbol ("SCITER_BODY", MELT_GET); if (sy_SCITER_BODY && NULL == /*_.VALDATA___V176*/ meltfptr[175]) /*_.VALDATA___V176*/ meltfptr[175] = (melt_ptr_t) sy_SCITER_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CMATCHEXPR */ { melt_ptr_t sy_CLASS_SOURCE_CMATCHEXPR = meltgc_named_symbol ("CLASS_SOURCE_CMATCHEXPR", MELT_GET); if (sy_CLASS_SOURCE_CMATCHEXPR && NULL == /*_.VALDATA___V178*/ meltfptr[177]) /*_.VALDATA___V178*/ meltfptr[177] = (melt_ptr_t) sy_CLASS_SOURCE_CMATCHEXPR; } /*^getnamedsymbol */ /*getnamedsym:SCMATX_CMATCHER */ { melt_ptr_t sy_SCMATX_CMATCHER = meltgc_named_symbol ("SCMATX_CMATCHER", MELT_GET); if (sy_SCMATX_CMATCHER && NULL == /*_.VALDATA___V186*/ meltfptr[185]) /*_.VALDATA___V186*/ meltfptr[185] = (melt_ptr_t) sy_SCMATX_CMATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_FUNMATCHEXPR */ { melt_ptr_t sy_CLASS_SOURCE_FUNMATCHEXPR = meltgc_named_symbol ("CLASS_SOURCE_FUNMATCHEXPR", MELT_GET); if (sy_CLASS_SOURCE_FUNMATCHEXPR && NULL == /*_.VALDATA___V188*/ meltfptr[187]) /*_.VALDATA___V188*/ meltfptr[187] = (melt_ptr_t) sy_CLASS_SOURCE_FUNMATCHEXPR; } /*^getnamedsymbol */ /*getnamedsym:SFMATX_FMATCHER */ { melt_ptr_t sy_SFMATX_FMATCHER = meltgc_named_symbol ("SFMATX_FMATCHER", MELT_GET); if (sy_SFMATX_FMATCHER && NULL == /*_.VALDATA___V198*/ meltfptr[197]) /*_.VALDATA___V198*/ meltfptr[197] = (melt_ptr_t) sy_SFMATX_FMATCHER; } /*^getnamedsymbol */ /*getnamedsym:SFMATX_FMATBIND */ { melt_ptr_t sy_SFMATX_FMATBIND = meltgc_named_symbol ("SFMATX_FMATBIND", MELT_GET); if (sy_SFMATX_FMATBIND && NULL == /*_.VALDATA___V200*/ meltfptr[199]) /*_.VALDATA___V200*/ meltfptr[199] = (melt_ptr_t) sy_SFMATX_FMATBIND; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_TUPLE */ { melt_ptr_t sy_CLASS_SOURCE_TUPLE = meltgc_named_symbol ("CLASS_SOURCE_TUPLE", MELT_GET); if (sy_CLASS_SOURCE_TUPLE && NULL == /*_.VALDATA___V202*/ meltfptr[201]) /*_.VALDATA___V202*/ meltfptr[201] = (melt_ptr_t) sy_CLASS_SOURCE_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LIST */ { melt_ptr_t sy_CLASS_SOURCE_LIST = meltgc_named_symbol ("CLASS_SOURCE_LIST", MELT_GET); if (sy_CLASS_SOURCE_LIST && NULL == /*_.VALDATA___V208*/ meltfptr[207]) /*_.VALDATA___V208*/ meltfptr[207] = (melt_ptr_t) sy_CLASS_SOURCE_LIST; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PROGN */ { melt_ptr_t sy_CLASS_SOURCE_PROGN = meltgc_named_symbol ("CLASS_SOURCE_PROGN", MELT_GET); if (sy_CLASS_SOURCE_PROGN && NULL == /*_.VALDATA___V214*/ meltfptr[213]) /*_.VALDATA___V214*/ meltfptr[213] = (melt_ptr_t) sy_CLASS_SOURCE_PROGN; } /*^getnamedsymbol */ /*getnamedsym:SPROGN_BODY */ { melt_ptr_t sy_SPROGN_BODY = meltgc_named_symbol ("SPROGN_BODY", MELT_GET); if (sy_SPROGN_BODY && NULL == /*_.VALDATA___V222*/ meltfptr[221]) /*_.VALDATA___V222*/ meltfptr[221] = (melt_ptr_t) sy_SPROGN_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_RETURN */ { melt_ptr_t sy_CLASS_SOURCE_RETURN = meltgc_named_symbol ("CLASS_SOURCE_RETURN", MELT_GET); if (sy_CLASS_SOURCE_RETURN && NULL == /*_.VALDATA___V224*/ meltfptr[223]) /*_.VALDATA___V224*/ meltfptr[223] = (melt_ptr_t) sy_CLASS_SOURCE_RETURN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_SETQ */ { melt_ptr_t sy_CLASS_SOURCE_SETQ = meltgc_named_symbol ("CLASS_SOURCE_SETQ", MELT_GET); if (sy_CLASS_SOURCE_SETQ && NULL == /*_.VALDATA___V230*/ meltfptr[229]) /*_.VALDATA___V230*/ meltfptr[229] = (melt_ptr_t) sy_CLASS_SOURCE_SETQ; } /*^getnamedsymbol */ /*getnamedsym:SSTQ_VAR */ { melt_ptr_t sy_SSTQ_VAR = meltgc_named_symbol ("SSTQ_VAR", MELT_GET); if (sy_SSTQ_VAR && NULL == /*_.VALDATA___V240*/ meltfptr[239]) /*_.VALDATA___V240*/ meltfptr[239] = (melt_ptr_t) sy_SSTQ_VAR; } /*^getnamedsymbol */ /*getnamedsym:SSTQ_EXPR */ { melt_ptr_t sy_SSTQ_EXPR = meltgc_named_symbol ("SSTQ_EXPR", MELT_GET); if (sy_SSTQ_EXPR && NULL == /*_.VALDATA___V242*/ meltfptr[241]) /*_.VALDATA___V242*/ meltfptr[241] = (melt_ptr_t) sy_SSTQ_EXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_COMMENT */ { melt_ptr_t sy_CLASS_SOURCE_COMMENT = meltgc_named_symbol ("CLASS_SOURCE_COMMENT", MELT_GET); if (sy_CLASS_SOURCE_COMMENT && NULL == /*_.VALDATA___V244*/ meltfptr[243]) /*_.VALDATA___V244*/ meltfptr[243] = (melt_ptr_t) sy_CLASS_SOURCE_COMMENT; } /*^getnamedsymbol */ /*getnamedsym:SCOMM_STR */ { melt_ptr_t sy_SCOMM_STR = meltgc_named_symbol ("SCOMM_STR", MELT_GET); if (sy_SCOMM_STR && NULL == /*_.VALDATA___V252*/ meltfptr[251]) /*_.VALDATA___V252*/ meltfptr[251] = (melt_ptr_t) sy_SCOMM_STR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CHEADER */ { melt_ptr_t sy_CLASS_SOURCE_CHEADER = meltgc_named_symbol ("CLASS_SOURCE_CHEADER", MELT_GET); if (sy_CLASS_SOURCE_CHEADER && NULL == /*_.VALDATA___V254*/ meltfptr[253]) /*_.VALDATA___V254*/ meltfptr[253] = (melt_ptr_t) sy_CLASS_SOURCE_CHEADER; } /*^getnamedsymbol */ /*getnamedsym:SCHEADER_CODESTRING */ { melt_ptr_t sy_SCHEADER_CODESTRING = meltgc_named_symbol ("SCHEADER_CODESTRING", MELT_GET); if (sy_SCHEADER_CODESTRING && NULL == /*_.VALDATA___V262*/ meltfptr[261]) /*_.VALDATA___V262*/ meltfptr[261] = (melt_ptr_t) sy_SCHEADER_CODESTRING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ { melt_ptr_t sy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG = meltgc_named_symbol ("CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG", MELT_GET); if (sy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG && NULL == /*_.VALDATA___V264*/ meltfptr[263]) /*_.VALDATA___V264*/ meltfptr[263] = (melt_ptr_t) sy_CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; } /*^getnamedsymbol */ /*getnamedsym:SUSEPACKAGE_PKGTUPLE */ { melt_ptr_t sy_SUSEPACKAGE_PKGTUPLE = meltgc_named_symbol ("SUSEPACKAGE_PKGTUPLE", MELT_GET); if (sy_SUSEPACKAGE_PKGTUPLE && NULL == /*_.VALDATA___V272*/ meltfptr[271]) /*_.VALDATA___V272*/ meltfptr[271] = (melt_ptr_t) sy_SUSEPACKAGE_PKGTUPLE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_QUOTE */ { melt_ptr_t sy_CLASS_SOURCE_QUOTE = meltgc_named_symbol ("CLASS_SOURCE_QUOTE", MELT_GET); if (sy_CLASS_SOURCE_QUOTE && NULL == /*_.VALDATA___V274*/ meltfptr[273]) /*_.VALDATA___V274*/ meltfptr[273] = (melt_ptr_t) sy_CLASS_SOURCE_QUOTE; } /*^getnamedsymbol */ /*getnamedsym:SQUOTED */ { melt_ptr_t sy_SQUOTED = meltgc_named_symbol ("SQUOTED", MELT_GET); if (sy_SQUOTED && NULL == /*_.VALDATA___V282*/ meltfptr[281]) /*_.VALDATA___V282*/ meltfptr[281] = (melt_ptr_t) sy_SQUOTED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORTCOMMON */ { melt_ptr_t sy_CLASS_SOURCE_EXPORTCOMMON = meltgc_named_symbol ("CLASS_SOURCE_EXPORTCOMMON", MELT_GET); if (sy_CLASS_SOURCE_EXPORTCOMMON && NULL == /*_.VALDATA___V284*/ meltfptr[283]) /*_.VALDATA___V284*/ meltfptr[283] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORTCOMMON; } /*^getnamedsymbol */ /*getnamedsym:SEXPORT_NAMES */ { melt_ptr_t sy_SEXPORT_NAMES = meltgc_named_symbol ("SEXPORT_NAMES", MELT_GET); if (sy_SEXPORT_NAMES && NULL == /*_.VALDATA___V292*/ meltfptr[291]) /*_.VALDATA___V292*/ meltfptr[291] = (melt_ptr_t) sy_SEXPORT_NAMES; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORT_VALUES */ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_VALUES = meltgc_named_symbol ("CLASS_SOURCE_EXPORT_VALUES", MELT_GET); if (sy_CLASS_SOURCE_EXPORT_VALUES && NULL == /*_.VALDATA___V294*/ meltfptr[293]) /*_.VALDATA___V294*/ meltfptr[293] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_VALUES; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORT_CLASS */ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_CLASS = meltgc_named_symbol ("CLASS_SOURCE_EXPORT_CLASS", MELT_GET); if (sy_CLASS_SOURCE_EXPORT_CLASS && NULL == /*_.VALDATA___V300*/ meltfptr[299]) /*_.VALDATA___V300*/ meltfptr[299] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_CLASS; } /*^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___V306*/ meltfptr[305]) /*_.VALDATA___V306*/ meltfptr[305] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_MACRO; } /*^getnamedsymbol */ /*getnamedsym:SEXPMAC_MNAME */ { melt_ptr_t sy_SEXPMAC_MNAME = meltgc_named_symbol ("SEXPMAC_MNAME", MELT_GET); if (sy_SEXPMAC_MNAME && NULL == /*_.VALDATA___V318*/ meltfptr[317]) /*_.VALDATA___V318*/ meltfptr[317] = (melt_ptr_t) sy_SEXPMAC_MNAME; } /*^getnamedsymbol */ /*getnamedsym:SEXPMAC_MVAL */ { melt_ptr_t sy_SEXPMAC_MVAL = meltgc_named_symbol ("SEXPMAC_MVAL", MELT_GET); if (sy_SEXPMAC_MVAL && NULL == /*_.VALDATA___V320*/ meltfptr[319]) /*_.VALDATA___V320*/ meltfptr[319] = (melt_ptr_t) sy_SEXPMAC_MVAL; } /*^getnamedsymbol */ /*getnamedsym:SEXPMAC_DOC */ { melt_ptr_t sy_SEXPMAC_DOC = meltgc_named_symbol ("SEXPMAC_DOC", MELT_GET); if (sy_SEXPMAC_DOC && NULL == /*_.VALDATA___V322*/ meltfptr[321]) /*_.VALDATA___V322*/ meltfptr[321] = (melt_ptr_t) sy_SEXPMAC_DOC; } /*^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___V324*/ meltfptr[323]) /*_.VALDATA___V324*/ meltfptr[323] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_PATMACRO; } /*^getnamedsymbol */ /*getnamedsym:SEXPPAT_PVAL */ { melt_ptr_t sy_SEXPPAT_PVAL = meltgc_named_symbol ("SEXPPAT_PVAL", MELT_GET); if (sy_SEXPPAT_PVAL && NULL == /*_.VALDATA___V332*/ meltfptr[331]) /*_.VALDATA___V332*/ meltfptr[331] = (melt_ptr_t) sy_SEXPPAT_PVAL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXPORT_SYNONYM */ { melt_ptr_t sy_CLASS_SOURCE_EXPORT_SYNONYM = meltgc_named_symbol ("CLASS_SOURCE_EXPORT_SYNONYM", MELT_GET); if (sy_CLASS_SOURCE_EXPORT_SYNONYM && NULL == /*_.VALDATA___V334*/ meltfptr[333]) /*_.VALDATA___V334*/ meltfptr[333] = (melt_ptr_t) sy_CLASS_SOURCE_EXPORT_SYNONYM; } /*^getnamedsymbol */ /*getnamedsym:SEXPSYN_NEWNAME */ { melt_ptr_t sy_SEXPSYN_NEWNAME = meltgc_named_symbol ("SEXPSYN_NEWNAME", MELT_GET); if (sy_SEXPSYN_NEWNAME && NULL == /*_.VALDATA___V346*/ meltfptr[345]) /*_.VALDATA___V346*/ meltfptr[345] = (melt_ptr_t) sy_SEXPSYN_NEWNAME; } /*^getnamedsymbol */ /*getnamedsym:SEXPSYN_OLDNAME */ { melt_ptr_t sy_SEXPSYN_OLDNAME = meltgc_named_symbol ("SEXPSYN_OLDNAME", MELT_GET); if (sy_SEXPSYN_OLDNAME && NULL == /*_.VALDATA___V348*/ meltfptr[347]) /*_.VALDATA___V348*/ meltfptr[347] = (melt_ptr_t) sy_SEXPSYN_OLDNAME; } /*^getnamedsymbol */ /*getnamedsym:SEXPSYN_DOC */ { melt_ptr_t sy_SEXPSYN_DOC = meltgc_named_symbol ("SEXPSYN_DOC", MELT_GET); if (sy_SEXPSYN_DOC && NULL == /*_.VALDATA___V350*/ meltfptr[349]) /*_.VALDATA___V350*/ meltfptr[349] = (melt_ptr_t) sy_SEXPSYN_DOC; } /*^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___V352*/ meltfptr[351]) /*_.VALDATA___V352*/ meltfptr[351] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINITION; } /*^getnamedsymbol */ /*getnamedsym:SDEF_NAME */ { melt_ptr_t sy_SDEF_NAME = meltgc_named_symbol ("SDEF_NAME", MELT_GET); if (sy_SDEF_NAME && NULL == /*_.VALDATA___V362*/ meltfptr[361]) /*_.VALDATA___V362*/ meltfptr[361] = (melt_ptr_t) sy_SDEF_NAME; } /*^getnamedsymbol */ /*getnamedsym:SDEF_DOC */ { melt_ptr_t sy_SDEF_DOC = meltgc_named_symbol ("SDEF_DOC", MELT_GET); if (sy_SDEF_DOC && NULL == /*_.VALDATA___V364*/ meltfptr[363]) /*_.VALDATA___V364*/ meltfptr[363] = (melt_ptr_t) sy_SDEF_DOC; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFINE */ { melt_ptr_t sy_CLASS_SOURCE_DEFINE = meltgc_named_symbol ("CLASS_SOURCE_DEFINE", MELT_GET); if (sy_CLASS_SOURCE_DEFINE && NULL == /*_.VALDATA___V366*/ meltfptr[365]) /*_.VALDATA___V366*/ meltfptr[365] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINE; } /*^getnamedsymbol */ /*getnamedsym:SDEFINE_BODY */ { melt_ptr_t sy_SDEFINE_BODY = meltgc_named_symbol ("SDEFINE_BODY", MELT_GET); if (sy_SDEFINE_BODY && NULL == /*_.VALDATA___V374*/ meltfptr[373]) /*_.VALDATA___V374*/ meltfptr[373] = (melt_ptr_t) sy_SDEFINE_BODY; } /*^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___V376*/ meltfptr[375]) /*_.VALDATA___V376*/ meltfptr[375] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINITION_FORMAL; } /*^getnamedsymbol */ /*getnamedsym:SFORMAL_ARGS */ { melt_ptr_t sy_SFORMAL_ARGS = meltgc_named_symbol ("SFORMAL_ARGS", MELT_GET); if (sy_SFORMAL_ARGS && NULL == /*_.VALDATA___V384*/ meltfptr[383]) /*_.VALDATA___V384*/ meltfptr[383] = (melt_ptr_t) sy_SFORMAL_ARGS; } /*^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___V386*/ meltfptr[385]) /*_.VALDATA___V386*/ meltfptr[385] = (melt_ptr_t) sy_CLASS_SOURCE_DEFUN; } /*^getnamedsymbol */ /*getnamedsym:SFUN_BODY */ { melt_ptr_t sy_SFUN_BODY = meltgc_named_symbol ("SFUN_BODY", MELT_GET); if (sy_SFUN_BODY && NULL == /*_.VALDATA___V394*/ meltfptr[393]) /*_.VALDATA___V394*/ meltfptr[393] = (melt_ptr_t) sy_SFUN_BODY; } /*^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___V396*/ meltfptr[395]) /*_.VALDATA___V396*/ meltfptr[395] = (melt_ptr_t) sy_CLASS_SOURCE_DEFPRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:SPRIM_TYPE */ { melt_ptr_t sy_SPRIM_TYPE = meltgc_named_symbol ("SPRIM_TYPE", MELT_GET); if (sy_SPRIM_TYPE && NULL == /*_.VALDATA___V408*/ meltfptr[407]) /*_.VALDATA___V408*/ meltfptr[407] = (melt_ptr_t) sy_SPRIM_TYPE; } /*^getnamedsymbol */ /*getnamedsym:SPRIM_EXPANSION */ { melt_ptr_t sy_SPRIM_EXPANSION = meltgc_named_symbol ("SPRIM_EXPANSION", MELT_GET); if (sy_SPRIM_EXPANSION && NULL == /*_.VALDATA___V410*/ meltfptr[409]) /*_.VALDATA___V410*/ meltfptr[409] = (melt_ptr_t) sy_SPRIM_EXPANSION; } /*^getnamedsymbol */ /*getnamedsym:SPRIM_EXPLOC */ { melt_ptr_t sy_SPRIM_EXPLOC = meltgc_named_symbol ("SPRIM_EXPLOC", MELT_GET); if (sy_SPRIM_EXPLOC && NULL == /*_.VALDATA___V412*/ meltfptr[411]) /*_.VALDATA___V412*/ meltfptr[411] = (melt_ptr_t) sy_SPRIM_EXPLOC; } /*^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___V414*/ meltfptr[413]) /*_.VALDATA___V414*/ meltfptr[413] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCITERATOR; } /*^getnamedsymbol */ /*getnamedsym:SCITERDEF_CITERATOR */ { melt_ptr_t sy_SCITERDEF_CITERATOR = meltgc_named_symbol ("SCITERDEF_CITERATOR", MELT_GET); if (sy_SCITERDEF_CITERATOR && NULL == /*_.VALDATA___V426*/ meltfptr[425]) /*_.VALDATA___V426*/ meltfptr[425] = (melt_ptr_t) sy_SCITERDEF_CITERATOR; } /*^getnamedsymbol */ /*getnamedsym:SCITERDEF_BEFORELOC */ { melt_ptr_t sy_SCITERDEF_BEFORELOC = meltgc_named_symbol ("SCITERDEF_BEFORELOC", MELT_GET); if (sy_SCITERDEF_BEFORELOC && NULL == /*_.VALDATA___V428*/ meltfptr[427]) /*_.VALDATA___V428*/ meltfptr[427] = (melt_ptr_t) sy_SCITERDEF_BEFORELOC; } /*^getnamedsymbol */ /*getnamedsym:SCITERDEF_AFTERLOC */ { melt_ptr_t sy_SCITERDEF_AFTERLOC = meltgc_named_symbol ("SCITERDEF_AFTERLOC", MELT_GET); if (sy_SCITERDEF_AFTERLOC && NULL == /*_.VALDATA___V430*/ meltfptr[429]) /*_.VALDATA___V430*/ meltfptr[429] = (melt_ptr_t) sy_SCITERDEF_AFTERLOC; } /*^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___V432*/ meltfptr[431]) /*_.VALDATA___V432*/ meltfptr[431] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCMATCHER; } /*^getnamedsymbol */ /*getnamedsym:SCMATDEF_CMATCHER */ { melt_ptr_t sy_SCMATDEF_CMATCHER = meltgc_named_symbol ("SCMATDEF_CMATCHER", MELT_GET); if (sy_SCMATDEF_CMATCHER && NULL == /*_.VALDATA___V446*/ meltfptr[445]) /*_.VALDATA___V446*/ meltfptr[445] = (melt_ptr_t) sy_SCMATDEF_CMATCHER; } /*^getnamedsymbol */ /*getnamedsym:SCMATDEF_TESTLOC */ { melt_ptr_t sy_SCMATDEF_TESTLOC = meltgc_named_symbol ("SCMATDEF_TESTLOC", MELT_GET); if (sy_SCMATDEF_TESTLOC && NULL == /*_.VALDATA___V448*/ meltfptr[447]) /*_.VALDATA___V448*/ meltfptr[447] = (melt_ptr_t) sy_SCMATDEF_TESTLOC; } /*^getnamedsymbol */ /*getnamedsym:SCMATDEF_FILLLOC */ { melt_ptr_t sy_SCMATDEF_FILLLOC = meltgc_named_symbol ("SCMATDEF_FILLLOC", MELT_GET); if (sy_SCMATDEF_FILLLOC && NULL == /*_.VALDATA___V450*/ meltfptr[449]) /*_.VALDATA___V450*/ meltfptr[449] = (melt_ptr_t) sy_SCMATDEF_FILLLOC; } /*^getnamedsymbol */ /*getnamedsym:SCMATDEF_OPERLOC */ { melt_ptr_t sy_SCMATDEF_OPERLOC = meltgc_named_symbol ("SCMATDEF_OPERLOC", MELT_GET); if (sy_SCMATDEF_OPERLOC && NULL == /*_.VALDATA___V452*/ meltfptr[451]) /*_.VALDATA___V452*/ meltfptr[451] = (melt_ptr_t) sy_SCMATDEF_OPERLOC; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFUNMATCHER */ { melt_ptr_t sy_CLASS_SOURCE_DEFUNMATCHER = meltgc_named_symbol ("CLASS_SOURCE_DEFUNMATCHER", MELT_GET); if (sy_CLASS_SOURCE_DEFUNMATCHER && NULL == /*_.VALDATA___V454*/ meltfptr[453]) /*_.VALDATA___V454*/ meltfptr[453] = (melt_ptr_t) sy_CLASS_SOURCE_DEFUNMATCHER; } /*^getnamedsymbol */ /*getnamedsym:SFUMATDEF_INS */ { melt_ptr_t sy_SFUMATDEF_INS = meltgc_named_symbol ("SFUMATDEF_INS", MELT_GET); if (sy_SFUMATDEF_INS && NULL == /*_.VALDATA___V470*/ meltfptr[469]) /*_.VALDATA___V470*/ meltfptr[469] = (melt_ptr_t) sy_SFUMATDEF_INS; } /*^getnamedsymbol */ /*getnamedsym:SFUMATDEF_OUTS */ { melt_ptr_t sy_SFUMATDEF_OUTS = meltgc_named_symbol ("SFUMATDEF_OUTS", MELT_GET); if (sy_SFUMATDEF_OUTS && NULL == /*_.VALDATA___V472*/ meltfptr[471]) /*_.VALDATA___V472*/ meltfptr[471] = (melt_ptr_t) sy_SFUMATDEF_OUTS; } /*^getnamedsymbol */ /*getnamedsym:SFUMATDEF_MATCHF */ { melt_ptr_t sy_SFUMATDEF_MATCHF = meltgc_named_symbol ("SFUMATDEF_MATCHF", MELT_GET); if (sy_SFUMATDEF_MATCHF && NULL == /*_.VALDATA___V474*/ meltfptr[473]) /*_.VALDATA___V474*/ meltfptr[473] = (melt_ptr_t) sy_SFUMATDEF_MATCHF; } /*^getnamedsymbol */ /*getnamedsym:SFUMATDEF_APPLYF */ { melt_ptr_t sy_SFUMATDEF_APPLYF = meltgc_named_symbol ("SFUMATDEF_APPLYF", MELT_GET); if (sy_SFUMATDEF_APPLYF && NULL == /*_.VALDATA___V476*/ meltfptr[475]) /*_.VALDATA___V476*/ meltfptr[475] = (melt_ptr_t) sy_SFUMATDEF_APPLYF; } /*^getnamedsymbol */ /*getnamedsym:SFUMATDEF_DATA */ { melt_ptr_t sy_SFUMATDEF_DATA = meltgc_named_symbol ("SFUMATDEF_DATA", MELT_GET); if (sy_SFUMATDEF_DATA && NULL == /*_.VALDATA___V478*/ meltfptr[477]) /*_.VALDATA___V478*/ meltfptr[477] = (melt_ptr_t) sy_SFUMATDEF_DATA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_DEFOBJCOMMON */ { melt_ptr_t sy_CLASS_SOURCE_DEFOBJCOMMON = meltgc_named_symbol ("CLASS_SOURCE_DEFOBJCOMMON", MELT_GET); if (sy_CLASS_SOURCE_DEFOBJCOMMON && NULL == /*_.VALDATA___V480*/ meltfptr[479]) /*_.VALDATA___V480*/ meltfptr[479] = (melt_ptr_t) sy_CLASS_SOURCE_DEFOBJCOMMON; } /*^getnamedsymbol */ /*getnamedsym:SOBJ_PREDEF */ { melt_ptr_t sy_SOBJ_PREDEF = meltgc_named_symbol ("SOBJ_PREDEF", MELT_GET); if (sy_SOBJ_PREDEF && NULL == /*_.VALDATA___V488*/ meltfptr[487]) /*_.VALDATA___V488*/ meltfptr[487] = (melt_ptr_t) sy_SOBJ_PREDEF; } /*^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___V490*/ meltfptr[489]) /*_.VALDATA___V490*/ meltfptr[489] = (melt_ptr_t) sy_CLASS_SOURCE_DEFCLASS; } /*^getnamedsymbol */ /*getnamedsym:SCLASS_CLABIND */ { melt_ptr_t sy_SCLASS_CLABIND = meltgc_named_symbol ("SCLASS_CLABIND", MELT_GET); if (sy_SCLASS_CLABIND && NULL == /*_.VALDATA___V502*/ meltfptr[501]) /*_.VALDATA___V502*/ meltfptr[501] = (melt_ptr_t) sy_SCLASS_CLABIND; } /*^getnamedsymbol */ /*getnamedsym:SCLASS_SUPERBIND */ { melt_ptr_t sy_SCLASS_SUPERBIND = meltgc_named_symbol ("SCLASS_SUPERBIND", MELT_GET); if (sy_SCLASS_SUPERBIND && NULL == /*_.VALDATA___V504*/ meltfptr[503]) /*_.VALDATA___V504*/ meltfptr[503] = (melt_ptr_t) sy_SCLASS_SUPERBIND; } /*^getnamedsymbol */ /*getnamedsym:SCLASS_FLDBINDS */ { melt_ptr_t sy_SCLASS_FLDBINDS = meltgc_named_symbol ("SCLASS_FLDBINDS", MELT_GET); if (sy_SCLASS_FLDBINDS && NULL == /*_.VALDATA___V506*/ meltfptr[505]) /*_.VALDATA___V506*/ meltfptr[505] = (melt_ptr_t) sy_SCLASS_FLDBINDS; } /*^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___V508*/ meltfptr[507]) /*_.VALDATA___V508*/ meltfptr[507] = (melt_ptr_t) sy_CLASS_SOURCE_DEFINSTANCE; } /*^getnamedsymbol */ /*getnamedsym:SINST_CLASS */ { melt_ptr_t sy_SINST_CLASS = meltgc_named_symbol ("SINST_CLASS", MELT_GET); if (sy_SINST_CLASS && NULL == /*_.VALDATA___V522*/ meltfptr[521]) /*_.VALDATA___V522*/ meltfptr[521] = (melt_ptr_t) sy_SINST_CLASS; } /*^getnamedsymbol */ /*getnamedsym:SINST_CLABIND */ { melt_ptr_t sy_SINST_CLABIND = meltgc_named_symbol ("SINST_CLABIND", MELT_GET); if (sy_SINST_CLABIND && NULL == /*_.VALDATA___V524*/ meltfptr[523]) /*_.VALDATA___V524*/ meltfptr[523] = (melt_ptr_t) sy_SINST_CLABIND; } /*^getnamedsymbol */ /*getnamedsym:SINST_OBJNUM */ { melt_ptr_t sy_SINST_OBJNUM = meltgc_named_symbol ("SINST_OBJNUM", MELT_GET); if (sy_SINST_OBJNUM && NULL == /*_.VALDATA___V526*/ meltfptr[525]) /*_.VALDATA___V526*/ meltfptr[525] = (melt_ptr_t) sy_SINST_OBJNUM; } /*^getnamedsymbol */ /*getnamedsym:SINST_FIELDS */ { melt_ptr_t sy_SINST_FIELDS = meltgc_named_symbol ("SINST_FIELDS", MELT_GET); if (sy_SINST_FIELDS && NULL == /*_.VALDATA___V528*/ meltfptr[527]) /*_.VALDATA___V528*/ meltfptr[527] = (melt_ptr_t) sy_SINST_FIELDS; } /*^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___V530*/ meltfptr[529]) /*_.VALDATA___V530*/ meltfptr[529] = (melt_ptr_t) sy_CLASS_SOURCE_DEFSELECTOR; } /*^getnamedsymbol */ /*getnamedsym:SDEFSEL_FORMALS */ { melt_ptr_t sy_SDEFSEL_FORMALS = meltgc_named_symbol ("SDEFSEL_FORMALS", MELT_GET); if (sy_SDEFSEL_FORMALS && NULL == /*_.VALDATA___V538*/ meltfptr[537]) /*_.VALDATA___V538*/ meltfptr[537] = (melt_ptr_t) sy_SDEFSEL_FORMALS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_FIELDASSIGN */ { melt_ptr_t sy_CLASS_SOURCE_FIELDASSIGN = meltgc_named_symbol ("CLASS_SOURCE_FIELDASSIGN", MELT_GET); if (sy_CLASS_SOURCE_FIELDASSIGN && NULL == /*_.VALDATA___V540*/ meltfptr[539]) /*_.VALDATA___V540*/ meltfptr[539] = (melt_ptr_t) sy_CLASS_SOURCE_FIELDASSIGN; } /*^getnamedsymbol */ /*getnamedsym:SFLA_FIELD */ { melt_ptr_t sy_SFLA_FIELD = meltgc_named_symbol ("SFLA_FIELD", MELT_GET); if (sy_SFLA_FIELD && NULL == /*_.VALDATA___V550*/ meltfptr[549]) /*_.VALDATA___V550*/ meltfptr[549] = (melt_ptr_t) sy_SFLA_FIELD; } /*^getnamedsymbol */ /*getnamedsym:SFLA_EXPR */ { melt_ptr_t sy_SFLA_EXPR = meltgc_named_symbol ("SFLA_EXPR", MELT_GET); if (sy_SFLA_EXPR && NULL == /*_.VALDATA___V552*/ meltfptr[551]) /*_.VALDATA___V552*/ meltfptr[551] = (melt_ptr_t) sy_SFLA_EXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_INSTANCE */ { melt_ptr_t sy_CLASS_SOURCE_INSTANCE = meltgc_named_symbol ("CLASS_SOURCE_INSTANCE", MELT_GET); if (sy_CLASS_SOURCE_INSTANCE && NULL == /*_.VALDATA___V554*/ meltfptr[553]) /*_.VALDATA___V554*/ meltfptr[553] = (melt_ptr_t) sy_CLASS_SOURCE_INSTANCE; } /*^getnamedsymbol */ /*getnamedsym:SMINS_CLASS */ { melt_ptr_t sy_SMINS_CLASS = meltgc_named_symbol ("SMINS_CLASS", MELT_GET); if (sy_SMINS_CLASS && NULL == /*_.VALDATA___V566*/ meltfptr[565]) /*_.VALDATA___V566*/ meltfptr[565] = (melt_ptr_t) sy_SMINS_CLASS; } /*^getnamedsymbol */ /*getnamedsym:SMINS_CLABIND */ { melt_ptr_t sy_SMINS_CLABIND = meltgc_named_symbol ("SMINS_CLABIND", MELT_GET); if (sy_SMINS_CLABIND && NULL == /*_.VALDATA___V568*/ meltfptr[567]) /*_.VALDATA___V568*/ meltfptr[567] = (melt_ptr_t) sy_SMINS_CLABIND; } /*^getnamedsymbol */ /*getnamedsym:SMINS_FIELDS */ { melt_ptr_t sy_SMINS_FIELDS = meltgc_named_symbol ("SMINS_FIELDS", MELT_GET); if (sy_SMINS_FIELDS && NULL == /*_.VALDATA___V570*/ meltfptr[569]) /*_.VALDATA___V570*/ meltfptr[569] = (melt_ptr_t) sy_SMINS_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_GET_FIELD */ { melt_ptr_t sy_CLASS_SOURCE_GET_FIELD = meltgc_named_symbol ("CLASS_SOURCE_GET_FIELD", MELT_GET); if (sy_CLASS_SOURCE_GET_FIELD && NULL == /*_.VALDATA___V572*/ meltfptr[571]) /*_.VALDATA___V572*/ meltfptr[571] = (melt_ptr_t) sy_CLASS_SOURCE_GET_FIELD; } /*^getnamedsymbol */ /*getnamedsym:SUGET_OBJ */ { melt_ptr_t sy_SUGET_OBJ = meltgc_named_symbol ("SUGET_OBJ", MELT_GET); if (sy_SUGET_OBJ && NULL == /*_.VALDATA___V582*/ meltfptr[581]) /*_.VALDATA___V582*/ meltfptr[581] = (melt_ptr_t) sy_SUGET_OBJ; } /*^getnamedsymbol */ /*getnamedsym:SUGET_FIELD */ { melt_ptr_t sy_SUGET_FIELD = meltgc_named_symbol ("SUGET_FIELD", MELT_GET); if (sy_SUGET_FIELD && NULL == /*_.VALDATA___V584*/ meltfptr[583]) /*_.VALDATA___V584*/ meltfptr[583] = (melt_ptr_t) sy_SUGET_FIELD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_UNSAFE_GET_FIELD */ { melt_ptr_t sy_CLASS_SOURCE_UNSAFE_GET_FIELD = meltgc_named_symbol ("CLASS_SOURCE_UNSAFE_GET_FIELD", MELT_GET); if (sy_CLASS_SOURCE_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V586*/ meltfptr[585]) /*_.VALDATA___V586*/ meltfptr[585] = (melt_ptr_t) sy_CLASS_SOURCE_UNSAFE_GET_FIELD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PUT_FIELDS */ { melt_ptr_t sy_CLASS_SOURCE_PUT_FIELDS = meltgc_named_symbol ("CLASS_SOURCE_PUT_FIELDS", MELT_GET); if (sy_CLASS_SOURCE_PUT_FIELDS && NULL == /*_.VALDATA___V592*/ meltfptr[591]) /*_.VALDATA___V592*/ meltfptr[591] = (melt_ptr_t) sy_CLASS_SOURCE_PUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:SUPUT_OBJ */ { melt_ptr_t sy_SUPUT_OBJ = meltgc_named_symbol ("SUPUT_OBJ", MELT_GET); if (sy_SUPUT_OBJ && NULL == /*_.VALDATA___V602*/ meltfptr[601]) /*_.VALDATA___V602*/ meltfptr[601] = (melt_ptr_t) sy_SUPUT_OBJ; } /*^getnamedsymbol */ /*getnamedsym:SUPUT_FIELDS */ { melt_ptr_t sy_SUPUT_FIELDS = meltgc_named_symbol ("SUPUT_FIELDS", MELT_GET); if (sy_SUPUT_FIELDS && NULL == /*_.VALDATA___V604*/ meltfptr[603]) /*_.VALDATA___V604*/ meltfptr[603] = (melt_ptr_t) sy_SUPUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS */ { melt_ptr_t sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS = meltgc_named_symbol ("CLASS_SOURCE_UNSAFE_PUT_FIELDS", MELT_GET); if (sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V606*/ meltfptr[605]) /*_.VALDATA___V606*/ meltfptr[605] = (melt_ptr_t) sy_CLASS_SOURCE_UNSAFE_PUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_IF */ { melt_ptr_t sy_CLASS_SOURCE_IF = meltgc_named_symbol ("CLASS_SOURCE_IF", MELT_GET); if (sy_CLASS_SOURCE_IF && NULL == /*_.VALDATA___V612*/ meltfptr[611]) /*_.VALDATA___V612*/ meltfptr[611] = (melt_ptr_t) sy_CLASS_SOURCE_IF; } /*^getnamedsymbol */ /*getnamedsym:SIF_TEST */ { melt_ptr_t sy_SIF_TEST = meltgc_named_symbol ("SIF_TEST", MELT_GET); if (sy_SIF_TEST && NULL == /*_.VALDATA___V622*/ meltfptr[621]) /*_.VALDATA___V622*/ meltfptr[621] = (melt_ptr_t) sy_SIF_TEST; } /*^getnamedsymbol */ /*getnamedsym:SIF_THEN */ { melt_ptr_t sy_SIF_THEN = meltgc_named_symbol ("SIF_THEN", MELT_GET); if (sy_SIF_THEN && NULL == /*_.VALDATA___V624*/ meltfptr[623]) /*_.VALDATA___V624*/ meltfptr[623] = (melt_ptr_t) sy_SIF_THEN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_IFELSE */ { melt_ptr_t sy_CLASS_SOURCE_IFELSE = meltgc_named_symbol ("CLASS_SOURCE_IFELSE", MELT_GET); if (sy_CLASS_SOURCE_IFELSE && NULL == /*_.VALDATA___V626*/ meltfptr[625]) /*_.VALDATA___V626*/ meltfptr[625] = (melt_ptr_t) sy_CLASS_SOURCE_IFELSE; } /*^getnamedsymbol */ /*getnamedsym:SIF_ELSE */ { melt_ptr_t sy_SIF_ELSE = meltgc_named_symbol ("SIF_ELSE", MELT_GET); if (sy_SIF_ELSE && NULL == /*_.VALDATA___V634*/ meltfptr[633]) /*_.VALDATA___V634*/ meltfptr[633] = (melt_ptr_t) sy_SIF_ELSE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_OR */ { melt_ptr_t sy_CLASS_SOURCE_OR = meltgc_named_symbol ("CLASS_SOURCE_OR", MELT_GET); if (sy_CLASS_SOURCE_OR && NULL == /*_.VALDATA___V636*/ meltfptr[635]) /*_.VALDATA___V636*/ meltfptr[635] = (melt_ptr_t) sy_CLASS_SOURCE_OR; } /*^getnamedsymbol */ /*getnamedsym:SOR_DISJ */ { melt_ptr_t sy_SOR_DISJ = meltgc_named_symbol ("SOR_DISJ", MELT_GET); if (sy_SOR_DISJ && NULL == /*_.VALDATA___V644*/ meltfptr[643]) /*_.VALDATA___V644*/ meltfptr[643] = (melt_ptr_t) sy_SOR_DISJ; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CPPIF */ { melt_ptr_t sy_CLASS_SOURCE_CPPIF = meltgc_named_symbol ("CLASS_SOURCE_CPPIF", MELT_GET); if (sy_CLASS_SOURCE_CPPIF && NULL == /*_.VALDATA___V646*/ meltfptr[645]) /*_.VALDATA___V646*/ meltfptr[645] = (melt_ptr_t) sy_CLASS_SOURCE_CPPIF; } /*^getnamedsymbol */ /*getnamedsym:SIFP_COND */ { melt_ptr_t sy_SIFP_COND = meltgc_named_symbol ("SIFP_COND", MELT_GET); if (sy_SIFP_COND && NULL == /*_.VALDATA___V658*/ meltfptr[657]) /*_.VALDATA___V658*/ meltfptr[657] = (melt_ptr_t) sy_SIFP_COND; } /*^getnamedsymbol */ /*getnamedsym:SIFP_THEN */ { melt_ptr_t sy_SIFP_THEN = meltgc_named_symbol ("SIFP_THEN", MELT_GET); if (sy_SIFP_THEN && NULL == /*_.VALDATA___V660*/ meltfptr[659]) /*_.VALDATA___V660*/ meltfptr[659] = (melt_ptr_t) sy_SIFP_THEN; } /*^getnamedsymbol */ /*getnamedsym:SIFP_ELSE */ { melt_ptr_t sy_SIFP_ELSE = meltgc_named_symbol ("SIFP_ELSE", MELT_GET); if (sy_SIFP_ELSE && NULL == /*_.VALDATA___V662*/ meltfptr[661]) /*_.VALDATA___V662*/ meltfptr[661] = (melt_ptr_t) sy_SIFP_ELSE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_MATCH */ { melt_ptr_t sy_CLASS_SOURCE_MATCH = meltgc_named_symbol ("CLASS_SOURCE_MATCH", MELT_GET); if (sy_CLASS_SOURCE_MATCH && NULL == /*_.VALDATA___V664*/ meltfptr[663]) /*_.VALDATA___V664*/ meltfptr[663] = (melt_ptr_t) sy_CLASS_SOURCE_MATCH; } /*^getnamedsymbol */ /*getnamedsym:SMAT_MATCHEDX */ { melt_ptr_t sy_SMAT_MATCHEDX = meltgc_named_symbol ("SMAT_MATCHEDX", MELT_GET); if (sy_SMAT_MATCHEDX && NULL == /*_.VALDATA___V674*/ meltfptr[673]) /*_.VALDATA___V674*/ meltfptr[673] = (melt_ptr_t) sy_SMAT_MATCHEDX; } /*^getnamedsymbol */ /*getnamedsym:SMAT_CASES */ { melt_ptr_t sy_SMAT_CASES = meltgc_named_symbol ("SMAT_CASES", MELT_GET); if (sy_SMAT_CASES && NULL == /*_.VALDATA___V676*/ meltfptr[675]) /*_.VALDATA___V676*/ meltfptr[675] = (melt_ptr_t) sy_SMAT_CASES; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_MATCH_CASE */ { melt_ptr_t sy_CLASS_SOURCE_MATCH_CASE = meltgc_named_symbol ("CLASS_SOURCE_MATCH_CASE", MELT_GET); if (sy_CLASS_SOURCE_MATCH_CASE && NULL == /*_.VALDATA___V678*/ meltfptr[677]) /*_.VALDATA___V678*/ meltfptr[677] = (melt_ptr_t) sy_CLASS_SOURCE_MATCH_CASE; } /*^getnamedsymbol */ /*getnamedsym:SCAM_PATT */ { melt_ptr_t sy_SCAM_PATT = meltgc_named_symbol ("SCAM_PATT", MELT_GET); if (sy_SCAM_PATT && NULL == /*_.VALDATA___V688*/ meltfptr[687]) /*_.VALDATA___V688*/ meltfptr[687] = (melt_ptr_t) sy_SCAM_PATT; } /*^getnamedsymbol */ /*getnamedsym:SCAM_BODY */ { melt_ptr_t sy_SCAM_BODY = meltgc_named_symbol ("SCAM_BODY", MELT_GET); if (sy_SCAM_BODY && NULL == /*_.VALDATA___V690*/ meltfptr[689]) /*_.VALDATA___V690*/ meltfptr[689] = (melt_ptr_t) sy_SCAM_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LET_BINDING */ { melt_ptr_t sy_CLASS_SOURCE_LET_BINDING = meltgc_named_symbol ("CLASS_SOURCE_LET_BINDING", MELT_GET); if (sy_CLASS_SOURCE_LET_BINDING && NULL == /*_.VALDATA___V692*/ meltfptr[691]) /*_.VALDATA___V692*/ meltfptr[691] = (melt_ptr_t) sy_CLASS_SOURCE_LET_BINDING; } /*^getnamedsymbol */ /*getnamedsym:SLETB_TYPE */ { melt_ptr_t sy_SLETB_TYPE = meltgc_named_symbol ("SLETB_TYPE", MELT_GET); if (sy_SLETB_TYPE && NULL == /*_.VALDATA___V704*/ meltfptr[703]) /*_.VALDATA___V704*/ meltfptr[703] = (melt_ptr_t) sy_SLETB_TYPE; } /*^getnamedsymbol */ /*getnamedsym:SLETB_BINDER */ { melt_ptr_t sy_SLETB_BINDER = meltgc_named_symbol ("SLETB_BINDER", MELT_GET); if (sy_SLETB_BINDER && NULL == /*_.VALDATA___V706*/ meltfptr[705]) /*_.VALDATA___V706*/ meltfptr[705] = (melt_ptr_t) sy_SLETB_BINDER; } /*^getnamedsymbol */ /*getnamedsym:SLETB_EXPR */ { melt_ptr_t sy_SLETB_EXPR = meltgc_named_symbol ("SLETB_EXPR", MELT_GET); if (sy_SLETB_EXPR && NULL == /*_.VALDATA___V708*/ meltfptr[707]) /*_.VALDATA___V708*/ meltfptr[707] = (melt_ptr_t) sy_SLETB_EXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LETREC_BINDING */ { melt_ptr_t sy_CLASS_SOURCE_LETREC_BINDING = meltgc_named_symbol ("CLASS_SOURCE_LETREC_BINDING", MELT_GET); if (sy_CLASS_SOURCE_LETREC_BINDING && NULL == /*_.VALDATA___V710*/ meltfptr[709]) /*_.VALDATA___V710*/ meltfptr[709] = (melt_ptr_t) sy_CLASS_SOURCE_LETREC_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LET */ { melt_ptr_t sy_CLASS_SOURCE_LET = meltgc_named_symbol ("CLASS_SOURCE_LET", MELT_GET); if (sy_CLASS_SOURCE_LET && NULL == /*_.VALDATA___V716*/ meltfptr[715]) /*_.VALDATA___V716*/ meltfptr[715] = (melt_ptr_t) sy_CLASS_SOURCE_LET; } /*^getnamedsymbol */ /*getnamedsym:SLET_BINDINGS */ { melt_ptr_t sy_SLET_BINDINGS = meltgc_named_symbol ("SLET_BINDINGS", MELT_GET); if (sy_SLET_BINDINGS && NULL == /*_.VALDATA___V726*/ meltfptr[725]) /*_.VALDATA___V726*/ meltfptr[725] = (melt_ptr_t) sy_SLET_BINDINGS; } /*^getnamedsymbol */ /*getnamedsym:SLET_BODY */ { melt_ptr_t sy_SLET_BODY = meltgc_named_symbol ("SLET_BODY", MELT_GET); if (sy_SLET_BODY && NULL == /*_.VALDATA___V728*/ meltfptr[727]) /*_.VALDATA___V728*/ meltfptr[727] = (melt_ptr_t) sy_SLET_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LETREC */ { melt_ptr_t sy_CLASS_SOURCE_LETREC = meltgc_named_symbol ("CLASS_SOURCE_LETREC", MELT_GET); if (sy_CLASS_SOURCE_LETREC && NULL == /*_.VALDATA___V730*/ meltfptr[729]) /*_.VALDATA___V730*/ meltfptr[729] = (melt_ptr_t) sy_CLASS_SOURCE_LETREC; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LAMBDA */ { melt_ptr_t sy_CLASS_SOURCE_LAMBDA = meltgc_named_symbol ("CLASS_SOURCE_LAMBDA", MELT_GET); if (sy_CLASS_SOURCE_LAMBDA && NULL == /*_.VALDATA___V736*/ meltfptr[735]) /*_.VALDATA___V736*/ meltfptr[735] = (melt_ptr_t) sy_CLASS_SOURCE_LAMBDA; } /*^getnamedsymbol */ /*getnamedsym:SLAM_ARGBIND */ { melt_ptr_t sy_SLAM_ARGBIND = meltgc_named_symbol ("SLAM_ARGBIND", MELT_GET); if (sy_SLAM_ARGBIND && NULL == /*_.VALDATA___V746*/ meltfptr[745]) /*_.VALDATA___V746*/ meltfptr[745] = (melt_ptr_t) sy_SLAM_ARGBIND; } /*^getnamedsymbol */ /*getnamedsym:SLAM_BODY */ { melt_ptr_t sy_SLAM_BODY = meltgc_named_symbol ("SLAM_BODY", MELT_GET); if (sy_SLAM_BODY && NULL == /*_.VALDATA___V748*/ meltfptr[747]) /*_.VALDATA___V748*/ meltfptr[747] = (melt_ptr_t) sy_SLAM_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_IFVARIADIC */ { melt_ptr_t sy_CLASS_SOURCE_IFVARIADIC = meltgc_named_symbol ("CLASS_SOURCE_IFVARIADIC", MELT_GET); if (sy_CLASS_SOURCE_IFVARIADIC && NULL == /*_.VALDATA___V750*/ meltfptr[749]) /*_.VALDATA___V750*/ meltfptr[749] = (melt_ptr_t) sy_CLASS_SOURCE_IFVARIADIC; } /*^getnamedsymbol */ /*getnamedsym:SIFVARIADIC_ARGBIND */ { melt_ptr_t sy_SIFVARIADIC_ARGBIND = meltgc_named_symbol ("SIFVARIADIC_ARGBIND", MELT_GET); if (sy_SIFVARIADIC_ARGBIND && NULL == /*_.VALDATA___V762*/ meltfptr[761]) /*_.VALDATA___V762*/ meltfptr[761] = (melt_ptr_t) sy_SIFVARIADIC_ARGBIND; } /*^getnamedsymbol */ /*getnamedsym:SIFVARIADIC_THEN */ { melt_ptr_t sy_SIFVARIADIC_THEN = meltgc_named_symbol ("SIFVARIADIC_THEN", MELT_GET); if (sy_SIFVARIADIC_THEN && NULL == /*_.VALDATA___V764*/ meltfptr[763]) /*_.VALDATA___V764*/ meltfptr[763] = (melt_ptr_t) sy_SIFVARIADIC_THEN; } /*^getnamedsymbol */ /*getnamedsym:SIFVARIADIC_ELSE */ { melt_ptr_t sy_SIFVARIADIC_ELSE = meltgc_named_symbol ("SIFVARIADIC_ELSE", MELT_GET); if (sy_SIFVARIADIC_ELSE && NULL == /*_.VALDATA___V766*/ meltfptr[765]) /*_.VALDATA___V766*/ meltfptr[765] = (melt_ptr_t) sy_SIFVARIADIC_ELSE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_MULTICALL */ { melt_ptr_t sy_CLASS_SOURCE_MULTICALL = meltgc_named_symbol ("CLASS_SOURCE_MULTICALL", MELT_GET); if (sy_CLASS_SOURCE_MULTICALL && NULL == /*_.VALDATA___V768*/ meltfptr[767]) /*_.VALDATA___V768*/ meltfptr[767] = (melt_ptr_t) sy_CLASS_SOURCE_MULTICALL; } /*^getnamedsymbol */ /*getnamedsym:SMULC_RESBIND */ { melt_ptr_t sy_SMULC_RESBIND = meltgc_named_symbol ("SMULC_RESBIND", MELT_GET); if (sy_SMULC_RESBIND && NULL == /*_.VALDATA___V780*/ meltfptr[779]) /*_.VALDATA___V780*/ meltfptr[779] = (melt_ptr_t) sy_SMULC_RESBIND; } /*^getnamedsymbol */ /*getnamedsym:SMULC_CALL */ { melt_ptr_t sy_SMULC_CALL = meltgc_named_symbol ("SMULC_CALL", MELT_GET); if (sy_SMULC_CALL && NULL == /*_.VALDATA___V782*/ meltfptr[781]) /*_.VALDATA___V782*/ meltfptr[781] = (melt_ptr_t) sy_SMULC_CALL; } /*^getnamedsymbol */ /*getnamedsym:SMULC_BODY */ { melt_ptr_t sy_SMULC_BODY = meltgc_named_symbol ("SMULC_BODY", MELT_GET); if (sy_SMULC_BODY && NULL == /*_.VALDATA___V784*/ meltfptr[783]) /*_.VALDATA___V784*/ meltfptr[783] = (melt_ptr_t) sy_SMULC_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_LABELLED */ { melt_ptr_t sy_CLASS_SOURCE_LABELLED = meltgc_named_symbol ("CLASS_SOURCE_LABELLED", MELT_GET); if (sy_CLASS_SOURCE_LABELLED && NULL == /*_.VALDATA___V786*/ meltfptr[785]) /*_.VALDATA___V786*/ meltfptr[785] = (melt_ptr_t) sy_CLASS_SOURCE_LABELLED; } /*^getnamedsymbol */ /*getnamedsym:SLABEL_BIND */ { melt_ptr_t sy_SLABEL_BIND = meltgc_named_symbol ("SLABEL_BIND", MELT_GET); if (sy_SLABEL_BIND && NULL == /*_.VALDATA___V794*/ meltfptr[793]) /*_.VALDATA___V794*/ meltfptr[793] = (melt_ptr_t) sy_SLABEL_BIND; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_FOREVER */ { melt_ptr_t sy_CLASS_SOURCE_FOREVER = meltgc_named_symbol ("CLASS_SOURCE_FOREVER", MELT_GET); if (sy_CLASS_SOURCE_FOREVER && NULL == /*_.VALDATA___V796*/ meltfptr[795]) /*_.VALDATA___V796*/ meltfptr[795] = (melt_ptr_t) sy_CLASS_SOURCE_FOREVER; } /*^getnamedsymbol */ /*getnamedsym:SFRV_BODY */ { melt_ptr_t sy_SFRV_BODY = meltgc_named_symbol ("SFRV_BODY", MELT_GET); if (sy_SFRV_BODY && NULL == /*_.VALDATA___V804*/ meltfptr[803]) /*_.VALDATA___V804*/ meltfptr[803] = (melt_ptr_t) sy_SFRV_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_AGAIN */ { melt_ptr_t sy_CLASS_SOURCE_AGAIN = meltgc_named_symbol ("CLASS_SOURCE_AGAIN", MELT_GET); if (sy_CLASS_SOURCE_AGAIN && NULL == /*_.VALDATA___V806*/ meltfptr[805]) /*_.VALDATA___V806*/ meltfptr[805] = (melt_ptr_t) sy_CLASS_SOURCE_AGAIN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_EXIT */ { melt_ptr_t sy_CLASS_SOURCE_EXIT = meltgc_named_symbol ("CLASS_SOURCE_EXIT", MELT_GET); if (sy_CLASS_SOURCE_EXIT && NULL == /*_.VALDATA___V812*/ meltfptr[811]) /*_.VALDATA___V812*/ meltfptr[811] = (melt_ptr_t) sy_CLASS_SOURCE_EXIT; } /*^getnamedsymbol */ /*getnamedsym:SEXI_BODY */ { melt_ptr_t sy_SEXI_BODY = meltgc_named_symbol ("SEXI_BODY", MELT_GET); if (sy_SEXI_BODY && NULL == /*_.VALDATA___V820*/ meltfptr[819]) /*_.VALDATA___V820*/ meltfptr[819] = (melt_ptr_t) sy_SEXI_BODY; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_COMPILEWARNING */ { melt_ptr_t sy_CLASS_SOURCE_COMPILEWARNING = meltgc_named_symbol ("CLASS_SOURCE_COMPILEWARNING", MELT_GET); if (sy_CLASS_SOURCE_COMPILEWARNING && NULL == /*_.VALDATA___V822*/ meltfptr[821]) /*_.VALDATA___V822*/ meltfptr[821] = (melt_ptr_t) sy_CLASS_SOURCE_COMPILEWARNING; } /*^getnamedsymbol */ /*getnamedsym:SCWARN_MSG */ { melt_ptr_t sy_SCWARN_MSG = meltgc_named_symbol ("SCWARN_MSG", MELT_GET); if (sy_SCWARN_MSG && NULL == /*_.VALDATA___V832*/ meltfptr[831]) /*_.VALDATA___V832*/ meltfptr[831] = (melt_ptr_t) sy_SCWARN_MSG; } /*^getnamedsymbol */ /*getnamedsym:SCWARN_EXPR */ { melt_ptr_t sy_SCWARN_EXPR = meltgc_named_symbol ("SCWARN_EXPR", MELT_GET); if (sy_SCWARN_EXPR && NULL == /*_.VALDATA___V834*/ meltfptr[833]) /*_.VALDATA___V834*/ meltfptr[833] = (melt_ptr_t) sy_SCWARN_EXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ { melt_ptr_t sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol ("CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); if (sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V836*/ meltfptr[835]) /*_.VALDATA___V836*/ meltfptr[835] = (melt_ptr_t) sy_CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:CMEC_COMMENT */ { melt_ptr_t sy_CMEC_COMMENT = meltgc_named_symbol ("CMEC_COMMENT", MELT_GET); if (sy_CMEC_COMMENT && NULL == /*_.VALDATA___V844*/ meltfptr[843]) /*_.VALDATA___V844*/ meltfptr[843] = (melt_ptr_t) sy_CMEC_COMMENT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ { melt_ptr_t sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = meltgc_named_symbol ("CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT", MELT_GET); if (sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V846*/ meltfptr[845]) /*_.VALDATA___V846*/ meltfptr[845] = (melt_ptr_t) sy_CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ { melt_ptr_t sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol ("CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); if (sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V852*/ meltfptr[851]) /*_.VALDATA___V852*/ meltfptr[851] = (melt_ptr_t) sy_CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:SUCME_COMMENT */ { melt_ptr_t sy_SUCME_COMMENT = meltgc_named_symbol ("SUCME_COMMENT", MELT_GET); if (sy_SUCME_COMMENT && NULL == /*_.VALDATA___V860*/ meltfptr[859]) /*_.VALDATA___V860*/ meltfptr[859] = (melt_ptr_t) sy_SUCME_COMMENT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_FETCH_PREDEFINED */ { melt_ptr_t sy_CLASS_SOURCE_FETCH_PREDEFINED = meltgc_named_symbol ("CLASS_SOURCE_FETCH_PREDEFINED", MELT_GET); if (sy_CLASS_SOURCE_FETCH_PREDEFINED && NULL == /*_.VALDATA___V862*/ meltfptr[861]) /*_.VALDATA___V862*/ meltfptr[861] = (melt_ptr_t) sy_CLASS_SOURCE_FETCH_PREDEFINED; } /*^getnamedsymbol */ /*getnamedsym:SFEPD_PREDEF */ { melt_ptr_t sy_SFEPD_PREDEF = meltgc_named_symbol ("SFEPD_PREDEF", MELT_GET); if (sy_SFEPD_PREDEF && NULL == /*_.VALDATA___V870*/ meltfptr[869]) /*_.VALDATA___V870*/ meltfptr[869] = (melt_ptr_t) sy_SFEPD_PREDEF; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_STORE_PREDEFINED */ { melt_ptr_t sy_CLASS_SOURCE_STORE_PREDEFINED = meltgc_named_symbol ("CLASS_SOURCE_STORE_PREDEFINED", MELT_GET); if (sy_CLASS_SOURCE_STORE_PREDEFINED && NULL == /*_.VALDATA___V872*/ meltfptr[871]) /*_.VALDATA___V872*/ meltfptr[871] = (melt_ptr_t) sy_CLASS_SOURCE_STORE_PREDEFINED; } /*^getnamedsymbol */ /*getnamedsym:SSTPD_PREDEF */ { melt_ptr_t sy_SSTPD_PREDEF = meltgc_named_symbol ("SSTPD_PREDEF", MELT_GET); if (sy_SSTPD_PREDEF && NULL == /*_.VALDATA___V882*/ meltfptr[881]) /*_.VALDATA___V882*/ meltfptr[881] = (melt_ptr_t) sy_SSTPD_PREDEF; } /*^getnamedsymbol */ /*getnamedsym:SSTPD_VALUE */ { melt_ptr_t sy_SSTPD_VALUE = meltgc_named_symbol ("SSTPD_VALUE", MELT_GET); if (sy_SSTPD_VALUE && NULL == /*_.VALDATA___V884*/ meltfptr[883]) /*_.VALDATA___V884*/ meltfptr[883] = (melt_ptr_t) sy_SSTPD_VALUE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_CODECHUNK */ { melt_ptr_t sy_CLASS_SOURCE_CODECHUNK = meltgc_named_symbol ("CLASS_SOURCE_CODECHUNK", MELT_GET); if (sy_CLASS_SOURCE_CODECHUNK && NULL == /*_.VALDATA___V886*/ meltfptr[885]) /*_.VALDATA___V886*/ meltfptr[885] = (melt_ptr_t) sy_CLASS_SOURCE_CODECHUNK; } /*^getnamedsymbol */ /*getnamedsym:SCH_GENSYM */ { melt_ptr_t sy_SCH_GENSYM = meltgc_named_symbol ("SCH_GENSYM", MELT_GET); if (sy_SCH_GENSYM && NULL == /*_.VALDATA___V896*/ meltfptr[895]) /*_.VALDATA___V896*/ meltfptr[895] = (melt_ptr_t) sy_SCH_GENSYM; } /*^getnamedsymbol */ /*getnamedsym:SCH_CHUNKS */ { melt_ptr_t sy_SCH_CHUNKS = meltgc_named_symbol ("SCH_CHUNKS", MELT_GET); if (sy_SCH_CHUNKS && NULL == /*_.VALDATA___V898*/ meltfptr[897]) /*_.VALDATA___V898*/ meltfptr[897] = (melt_ptr_t) sy_SCH_CHUNKS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN = meltgc_named_symbol ("CLASS_SOURCE_PATTERN", MELT_GET); if (sy_CLASS_SOURCE_PATTERN && NULL == /*_.VALDATA___V900*/ meltfptr[899]) /*_.VALDATA___V900*/ meltfptr[899] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN; } /*^getnamedsymbol */ /*getnamedsym:PAT_WEIGHT */ { melt_ptr_t sy_PAT_WEIGHT = meltgc_named_symbol ("PAT_WEIGHT", MELT_GET); if (sy_PAT_WEIGHT && NULL == /*_.VALDATA___V908*/ meltfptr[907]) /*_.VALDATA___V908*/ meltfptr[907] = (melt_ptr_t) sy_PAT_WEIGHT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_OR */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OR = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_OR", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_OR && NULL == /*_.VALDATA___V910*/ meltfptr[909]) /*_.VALDATA___V910*/ meltfptr[909] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_OR; } /*^getnamedsymbol */ /*getnamedsym:ORPAT_DISJ */ { melt_ptr_t sy_ORPAT_DISJ = meltgc_named_symbol ("ORPAT_DISJ", MELT_GET); if (sy_ORPAT_DISJ && NULL == /*_.VALDATA___V918*/ meltfptr[917]) /*_.VALDATA___V918*/ meltfptr[917] = (melt_ptr_t) sy_ORPAT_DISJ; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_AND */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_AND = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_AND", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_AND && NULL == /*_.VALDATA___V920*/ meltfptr[919]) /*_.VALDATA___V920*/ meltfptr[919] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_AND; } /*^getnamedsymbol */ /*getnamedsym:ANDPAT_CONJ */ { melt_ptr_t sy_ANDPAT_CONJ = meltgc_named_symbol ("ANDPAT_CONJ", MELT_GET); if (sy_ANDPAT_CONJ && NULL == /*_.VALDATA___V928*/ meltfptr[927]) /*_.VALDATA___V928*/ meltfptr[927] = (melt_ptr_t) sy_ANDPAT_CONJ; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_WHEN */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_WHEN = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_WHEN", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_WHEN && NULL == /*_.VALDATA___V930*/ meltfptr[929]) /*_.VALDATA___V930*/ meltfptr[929] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_WHEN; } /*^getnamedsymbol */ /*getnamedsym:WHENPAT_SUBPAT */ { melt_ptr_t sy_WHENPAT_SUBPAT = meltgc_named_symbol ("WHENPAT_SUBPAT", MELT_GET); if (sy_WHENPAT_SUBPAT && NULL == /*_.VALDATA___V940*/ meltfptr[939]) /*_.VALDATA___V940*/ meltfptr[939] = (melt_ptr_t) sy_WHENPAT_SUBPAT; } /*^getnamedsymbol */ /*getnamedsym:WHENPAT_COND */ { melt_ptr_t sy_WHENPAT_COND = meltgc_named_symbol ("WHENPAT_COND", MELT_GET); if (sy_WHENPAT_COND && NULL == /*_.VALDATA___V942*/ meltfptr[941]) /*_.VALDATA___V942*/ meltfptr[941] = (melt_ptr_t) sy_WHENPAT_COND; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_VARIABLE */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_VARIABLE = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_VARIABLE", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_VARIABLE && NULL == /*_.VALDATA___V944*/ meltfptr[943]) /*_.VALDATA___V944*/ meltfptr[943] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_VARIABLE; } /*^getnamedsymbol */ /*getnamedsym:SPATVAR_SYMB */ { melt_ptr_t sy_SPATVAR_SYMB = meltgc_named_symbol ("SPATVAR_SYMB", MELT_GET); if (sy_SPATVAR_SYMB && NULL == /*_.VALDATA___V954*/ meltfptr[953]) /*_.VALDATA___V954*/ meltfptr[953] = (melt_ptr_t) sy_SPATVAR_SYMB; } /*^getnamedsymbol */ /*getnamedsym:SPATVAR_NBOCC */ { melt_ptr_t sy_SPATVAR_NBOCC = meltgc_named_symbol ("SPATVAR_NBOCC", MELT_GET); if (sy_SPATVAR_NBOCC && NULL == /*_.VALDATA___V956*/ meltfptr[955]) /*_.VALDATA___V956*/ meltfptr[955] = (melt_ptr_t) sy_SPATVAR_NBOCC; } /*^getnamedsymbol */ /*getnamedsym:SPAT_VAR */ { melt_ptr_t sy_SPAT_VAR = meltgc_named_symbol ("SPAT_VAR", MELT_GET); if (sy_SPAT_VAR && NULL == /*_.VALDATA___V958*/ meltfptr[957]) /*_.VALDATA___V958*/ meltfptr[957] = (melt_ptr_t) sy_SPAT_VAR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_JOKER_VARIABLE", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE && NULL == /*_.VALDATA___V960*/ meltfptr[959]) /*_.VALDATA___V960*/ meltfptr[959] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_JOKER_VARIABLE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTANT */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTANT = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_CONSTANT", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_CONSTANT && NULL == /*_.VALDATA___V966*/ meltfptr[965]) /*_.VALDATA___V966*/ meltfptr[965] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_CONSTANT; } /*^getnamedsymbol */ /*getnamedsym:SPAT_CONSTX */ { melt_ptr_t sy_SPAT_CONSTX = meltgc_named_symbol ("SPAT_CONSTX", MELT_GET); if (sy_SPAT_CONSTX && NULL == /*_.VALDATA___V974*/ meltfptr[973]) /*_.VALDATA___V974*/ meltfptr[973] = (melt_ptr_t) sy_SPAT_CONSTX; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_CONSTRUCT */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_CONSTRUCT = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_CONSTRUCT", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_CONSTRUCT && NULL == /*_.VALDATA___V976*/ meltfptr[975]) /*_.VALDATA___V976*/ meltfptr[975] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_CONSTRUCT; } /*^getnamedsymbol */ /*getnamedsym:CTPAT_SUBPA */ { melt_ptr_t sy_CTPAT_SUBPA = meltgc_named_symbol ("CTPAT_SUBPA", MELT_GET); if (sy_CTPAT_SUBPA && NULL == /*_.VALDATA___V984*/ meltfptr[983]) /*_.VALDATA___V984*/ meltfptr[983] = (melt_ptr_t) sy_CTPAT_SUBPA; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_TUPLE */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_TUPLE = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_TUPLE", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_TUPLE && NULL == /*_.VALDATA___V986*/ meltfptr[985]) /*_.VALDATA___V986*/ meltfptr[985] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_LIST */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_LIST = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_LIST", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_LIST && NULL == /*_.VALDATA___V992*/ meltfptr[991]) /*_.VALDATA___V992*/ meltfptr[991] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_LIST; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_OBJECT */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_OBJECT = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_OBJECT", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_OBJECT && NULL == /*_.VALDATA___V998*/ meltfptr[997]) /*_.VALDATA___V998*/ meltfptr[997] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_OBJECT; } /*^getnamedsymbol */ /*getnamedsym:SPAT_CLASS */ { melt_ptr_t sy_SPAT_CLASS = meltgc_named_symbol ("SPAT_CLASS", MELT_GET); if (sy_SPAT_CLASS && NULL == /*_.VALDATA___V1008*/ meltfptr[1007]) /*_.VALDATA___V1008*/ meltfptr[1007] = (melt_ptr_t) sy_SPAT_CLASS; } /*^getnamedsymbol */ /*getnamedsym:SPAT_FIELDS */ { melt_ptr_t sy_SPAT_FIELDS = meltgc_named_symbol ("SPAT_FIELDS", MELT_GET); if (sy_SPAT_FIELDS && NULL == /*_.VALDATA___V1010*/ meltfptr[1009]) /*_.VALDATA___V1010*/ meltfptr[1009] = (melt_ptr_t) sy_SPAT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_INSTANCE */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_INSTANCE = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_INSTANCE", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_INSTANCE && NULL == /*_.VALDATA___V1012*/ meltfptr[1011]) /*_.VALDATA___V1012*/ meltfptr[1011] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_INSTANCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_FIELD_PATTERN */ { melt_ptr_t sy_CLASS_SOURCE_FIELD_PATTERN = meltgc_named_symbol ("CLASS_SOURCE_FIELD_PATTERN", MELT_GET); if (sy_CLASS_SOURCE_FIELD_PATTERN && NULL == /*_.VALDATA___V1018*/ meltfptr[1017]) /*_.VALDATA___V1018*/ meltfptr[1017] = (melt_ptr_t) sy_CLASS_SOURCE_FIELD_PATTERN; } /*^getnamedsymbol */ /*getnamedsym:SPAF_FIELD */ { melt_ptr_t sy_SPAF_FIELD = meltgc_named_symbol ("SPAF_FIELD", MELT_GET); if (sy_SPAF_FIELD && NULL == /*_.VALDATA___V1028*/ meltfptr[1027]) /*_.VALDATA___V1028*/ meltfptr[1027] = (melt_ptr_t) sy_SPAF_FIELD; } /*^getnamedsymbol */ /*getnamedsym:SPAF_PATTERN */ { melt_ptr_t sy_SPAF_PATTERN = meltgc_named_symbol ("SPAF_PATTERN", MELT_GET); if (sy_SPAF_PATTERN && NULL == /*_.VALDATA___V1030*/ meltfptr[1029]) /*_.VALDATA___V1030*/ meltfptr[1029] = (melt_ptr_t) sy_SPAF_PATTERN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_COMPOSITE */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_COMPOSITE = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_COMPOSITE", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_COMPOSITE && NULL == /*_.VALDATA___V1032*/ meltfptr[1031]) /*_.VALDATA___V1032*/ meltfptr[1031] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_COMPOSITE; } /*^getnamedsymbol */ /*getnamedsym:SPAC_OPERATOR */ { melt_ptr_t sy_SPAC_OPERATOR = meltgc_named_symbol ("SPAC_OPERATOR", MELT_GET); if (sy_SPAC_OPERATOR && NULL == /*_.VALDATA___V1046*/ meltfptr[1045]) /*_.VALDATA___V1046*/ meltfptr[1045] = (melt_ptr_t) sy_SPAC_OPERATOR; } /*^getnamedsymbol */ /*getnamedsym:SPAC_OPERBIND */ { melt_ptr_t sy_SPAC_OPERBIND = meltgc_named_symbol ("SPAC_OPERBIND", MELT_GET); if (sy_SPAC_OPERBIND && NULL == /*_.VALDATA___V1048*/ meltfptr[1047]) /*_.VALDATA___V1048*/ meltfptr[1047] = (melt_ptr_t) sy_SPAC_OPERBIND; } /*^getnamedsymbol */ /*getnamedsym:SPAC_INARGS */ { melt_ptr_t sy_SPAC_INARGS = meltgc_named_symbol ("SPAC_INARGS", MELT_GET); if (sy_SPAC_INARGS && NULL == /*_.VALDATA___V1050*/ meltfptr[1049]) /*_.VALDATA___V1050*/ meltfptr[1049] = (melt_ptr_t) sy_SPAC_INARGS; } /*^getnamedsymbol */ /*getnamedsym:SPAC_OUTARGS */ { melt_ptr_t sy_SPAC_OUTARGS = meltgc_named_symbol ("SPAC_OUTARGS", MELT_GET); if (sy_SPAC_OUTARGS && NULL == /*_.VALDATA___V1052*/ meltfptr[1051]) /*_.VALDATA___V1052*/ meltfptr[1051] = (melt_ptr_t) sy_SPAC_OUTARGS; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_MATCHER */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_MATCHER = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_MATCHER", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_MATCHER && NULL == /*_.VALDATA___V1054*/ meltfptr[1053]) /*_.VALDATA___V1054*/ meltfptr[1053] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_MATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_C_MATCH */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_C_MATCH = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_C_MATCH", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_C_MATCH && NULL == /*_.VALDATA___V1060*/ meltfptr[1059]) /*_.VALDATA___V1060*/ meltfptr[1059] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_C_MATCH; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SOURCE_PATTERN_FUN_MATCH */ { melt_ptr_t sy_CLASS_SOURCE_PATTERN_FUN_MATCH = meltgc_named_symbol ("CLASS_SOURCE_PATTERN_FUN_MATCH", MELT_GET); if (sy_CLASS_SOURCE_PATTERN_FUN_MATCH && NULL == /*_.VALDATA___V1066*/ meltfptr[1065]) /*_.VALDATA___V1066*/ meltfptr[1065] = (melt_ptr_t) sy_CLASS_SOURCE_PATTERN_FUN_MATCH; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ENVIRONMENT */ { melt_ptr_t sy_CLASS_ENVIRONMENT = meltgc_named_symbol ("CLASS_ENVIRONMENT", MELT_GET); if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V1074*/ meltfptr[1073]) /*_.VALDATA___V1074*/ meltfptr[1073] = (melt_ptr_t) sy_CLASS_ENVIRONMENT; } /*^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___V1078*/ meltfptr[1077]) /*_.VALDATA___V1078*/ meltfptr[1077] = (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___V1080*/ meltfptr[1079]) /*_.VALDATA___V1080*/ meltfptr[1079] = (melt_ptr_t) sy_DISCR_MULTIPLE; } /*^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___V1088*/ meltfptr[1087]) /*_.VALDATA___V1088*/ meltfptr[1087] = (melt_ptr_t) sy_MELT_DEBUG_FUN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_MODULE_CONTEXT */ { melt_ptr_t sy_CLASS_MODULE_CONTEXT = meltgc_named_symbol ("CLASS_MODULE_CONTEXT", MELT_GET); if (sy_CLASS_MODULE_CONTEXT && NULL == /*_.VALDATA___V1090*/ meltfptr[1089]) /*_.VALDATA___V1090*/ meltfptr[1089] = (melt_ptr_t) sy_CLASS_MODULE_CONTEXT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_LOCATED */ { melt_ptr_t sy_CLASS_LOCATED = meltgc_named_symbol ("CLASS_LOCATED", MELT_GET); if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V1092*/ meltfptr[1091]) /*_.VALDATA___V1092*/ meltfptr[1091] = (melt_ptr_t) sy_CLASS_LOCATED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SEXPR */ { melt_ptr_t sy_CLASS_SEXPR = meltgc_named_symbol ("CLASS_SEXPR", MELT_GET); if (sy_CLASS_SEXPR && NULL == /*_.VALDATA___V1096*/ meltfptr[1095]) /*_.VALDATA___V1096*/ meltfptr[1095] = (melt_ptr_t) sy_CLASS_SEXPR; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SYMBOL */ { melt_ptr_t sy_CLASS_SYMBOL = meltgc_named_symbol ("CLASS_SYMBOL", MELT_GET); if (sy_CLASS_SYMBOL && NULL == /*_.VALDATA___V1120*/ meltfptr[1119]) /*_.VALDATA___V1120*/ meltfptr[1119] = (melt_ptr_t) sy_CLASS_SYMBOL; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FIELD */ { melt_ptr_t sy_CLASS_FIELD = meltgc_named_symbol ("CLASS_FIELD", MELT_GET); if (sy_CLASS_FIELD && NULL == /*_.VALDATA___V1122*/ meltfptr[1121]) /*_.VALDATA___V1122*/ meltfptr[1121] = (melt_ptr_t) sy_CLASS_FIELD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_KEYWORD */ { melt_ptr_t sy_CLASS_KEYWORD = meltgc_named_symbol ("CLASS_KEYWORD", MELT_GET); if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V1124*/ meltfptr[1123]) /*_.VALDATA___V1124*/ meltfptr[1123] = (melt_ptr_t) sy_CLASS_KEYWORD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_NAMED */ { melt_ptr_t sy_CLASS_NAMED = meltgc_named_symbol ("CLASS_NAMED", MELT_GET); if (sy_CLASS_NAMED && NULL == /*_.VALDATA___V1126*/ meltfptr[1125]) /*_.VALDATA___V1126*/ meltfptr[1125] = (melt_ptr_t) sy_CLASS_NAMED; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CITERATOR */ { melt_ptr_t sy_CLASS_CITERATOR = meltgc_named_symbol ("CLASS_CITERATOR", MELT_GET); if (sy_CLASS_CITERATOR && NULL == /*_.VALDATA___V1128*/ meltfptr[1127]) /*_.VALDATA___V1128*/ meltfptr[1127] = (melt_ptr_t) sy_CLASS_CITERATOR; } /*^getnamedsymbol */ /*getnamedsym:FRESH_ENV */ { melt_ptr_t sy_FRESH_ENV = meltgc_named_symbol ("FRESH_ENV", MELT_GET); if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1130*/ meltfptr[1129]) /*_.VALDATA___V1130*/ meltfptr[1129] = (melt_ptr_t) sy_FRESH_ENV; } /*^getnamedsymbol */ /*getnamedsym:MULTIPLE_EVERY */ { melt_ptr_t sy_MULTIPLE_EVERY = meltgc_named_symbol ("MULTIPLE_EVERY", MELT_GET); if (sy_MULTIPLE_EVERY && NULL == /*_.VALDATA___V1132*/ meltfptr[1131]) /*_.VALDATA___V1132*/ meltfptr[1131] = (melt_ptr_t) sy_MULTIPLE_EVERY; } /*^getnamedsymbol */ /*getnamedsym:PUT_ENV */ { melt_ptr_t sy_PUT_ENV = meltgc_named_symbol ("PUT_ENV", MELT_GET); if (sy_PUT_ENV && NULL == /*_.VALDATA___V1134*/ meltfptr[1133]) /*_.VALDATA___V1134*/ meltfptr[1133] = (melt_ptr_t) sy_PUT_ENV; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CMATCHER */ { melt_ptr_t sy_CLASS_CMATCHER = meltgc_named_symbol ("CLASS_CMATCHER", MELT_GET); if (sy_CLASS_CMATCHER && NULL == /*_.VALDATA___V1136*/ meltfptr[1135]) /*_.VALDATA___V1136*/ meltfptr[1135] = (melt_ptr_t) sy_CLASS_CMATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FUNMATCHER */ { melt_ptr_t sy_CLASS_FUNMATCHER = meltgc_named_symbol ("CLASS_FUNMATCHER", MELT_GET); if (sy_CLASS_FUNMATCHER && NULL == /*_.VALDATA___V1138*/ meltfptr[1137]) /*_.VALDATA___V1138*/ meltfptr[1137] = (melt_ptr_t) sy_CLASS_FUNMATCHER; } /*^getnamedsymbol */ /*getnamedsym:FIND_ENV */ { melt_ptr_t sy_FIND_ENV = meltgc_named_symbol ("FIND_ENV", MELT_GET); if (sy_FIND_ENV && NULL == /*_.VALDATA___V1140*/ meltfptr[1139]) /*_.VALDATA___V1140*/ meltfptr[1139] = (melt_ptr_t) sy_FIND_ENV; } /*^getnamedsymbol */ /*getnamedsym:CLASS_MACRO_BINDING */ { melt_ptr_t sy_CLASS_MACRO_BINDING = meltgc_named_symbol ("CLASS_MACRO_BINDING", MELT_GET); if (sy_CLASS_MACRO_BINDING && NULL == /*_.VALDATA___V1142*/ meltfptr[1141]) /*_.VALDATA___V1142*/ meltfptr[1141] = (melt_ptr_t) sy_CLASS_MACRO_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SELECTOR_BINDING */ { melt_ptr_t sy_CLASS_SELECTOR_BINDING = meltgc_named_symbol ("CLASS_SELECTOR_BINDING", MELT_GET); if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V1144*/ meltfptr[1143]) /*_.VALDATA___V1144*/ meltfptr[1143] = (melt_ptr_t) sy_CLASS_SELECTOR_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PRIMITIVE_BINDING */ { melt_ptr_t sy_CLASS_PRIMITIVE_BINDING = meltgc_named_symbol ("CLASS_PRIMITIVE_BINDING", MELT_GET); if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V1146*/ meltfptr[1145]) /*_.VALDATA___V1146*/ meltfptr[1145] = (melt_ptr_t) sy_CLASS_PRIMITIVE_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CITERATOR_BINDING */ { melt_ptr_t sy_CLASS_CITERATOR_BINDING = meltgc_named_symbol ("CLASS_CITERATOR_BINDING", MELT_GET); if (sy_CLASS_CITERATOR_BINDING && NULL == /*_.VALDATA___V1148*/ meltfptr[1147]) /*_.VALDATA___V1148*/ meltfptr[1147] = (melt_ptr_t) sy_CLASS_CITERATOR_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CMATCHER_BINDING */ { melt_ptr_t sy_CLASS_CMATCHER_BINDING = meltgc_named_symbol ("CLASS_CMATCHER_BINDING", MELT_GET); if (sy_CLASS_CMATCHER_BINDING && NULL == /*_.VALDATA___V1150*/ meltfptr[1149]) /*_.VALDATA___V1150*/ meltfptr[1149] = (melt_ptr_t) sy_CLASS_CMATCHER_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FUNMATCHER_BINDING */ { melt_ptr_t sy_CLASS_FUNMATCHER_BINDING = meltgc_named_symbol ("CLASS_FUNMATCHER_BINDING", MELT_GET); if (sy_CLASS_FUNMATCHER_BINDING && NULL == /*_.VALDATA___V1152*/ meltfptr[1151]) /*_.VALDATA___V1152*/ meltfptr[1151] = (melt_ptr_t) sy_CLASS_FUNMATCHER_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FIELD_BINDING */ { melt_ptr_t sy_CLASS_FIELD_BINDING = meltgc_named_symbol ("CLASS_FIELD_BINDING", MELT_GET); if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1154*/ meltfptr[1153]) /*_.VALDATA___V1154*/ meltfptr[1153] = (melt_ptr_t) sy_CLASS_FIELD_BINDING; } /*^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___V1156*/ meltfptr[1155]) /*_.VALDATA___V1156*/ meltfptr[1155] = (melt_ptr_t) sy_CLASS_FORMAL_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_LET_BINDING */ { melt_ptr_t sy_CLASS_LET_BINDING = meltgc_named_symbol ("CLASS_LET_BINDING", MELT_GET); if (sy_CLASS_LET_BINDING && NULL == /*_.VALDATA___V1158*/ meltfptr[1157]) /*_.VALDATA___V1158*/ meltfptr[1157] = (melt_ptr_t) sy_CLASS_LET_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_VALUE_BINDING */ { melt_ptr_t sy_CLASS_VALUE_BINDING = meltgc_named_symbol ("CLASS_VALUE_BINDING", MELT_GET); if (sy_CLASS_VALUE_BINDING && NULL == /*_.VALDATA___V1160*/ meltfptr[1159]) /*_.VALDATA___V1160*/ meltfptr[1159] = (melt_ptr_t) sy_CLASS_VALUE_BINDING; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PRIMITIVE */ { melt_ptr_t sy_CLASS_PRIMITIVE = meltgc_named_symbol ("CLASS_PRIMITIVE", MELT_GET); if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1162*/ meltfptr[1161]) /*_.VALDATA___V1162*/ meltfptr[1161] = (melt_ptr_t) sy_CLASS_PRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PATTERN_EXPANSION_CONTEXT */ { melt_ptr_t sy_CLASS_PATTERN_EXPANSION_CONTEXT = meltgc_named_symbol ("CLASS_PATTERN_EXPANSION_CONTEXT", MELT_GET); if (sy_CLASS_PATTERN_EXPANSION_CONTEXT && NULL == /*_.VALDATA___V1164*/ meltfptr[1163]) /*_.VALDATA___V1164*/ meltfptr[1163] = (melt_ptr_t) sy_CLASS_PATTERN_EXPANSION_CONTEXT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_ROOT */ { melt_ptr_t sy_CLASS_ROOT = meltgc_named_symbol ("CLASS_ROOT", MELT_GET); if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V1166*/ meltfptr[1165]) /*_.VALDATA___V1166*/ meltfptr[1165] = (melt_ptr_t) sy_CLASS_ROOT; } /*^getnamedsymbol */ /*getnamedsym:PCTX_MEXPANDER */ { melt_ptr_t sy_PCTX_MEXPANDER = meltgc_named_symbol ("PCTX_MEXPANDER", MELT_GET); if (sy_PCTX_MEXPANDER && NULL == /*_.VALDATA___V1180*/ meltfptr[1179]) /*_.VALDATA___V1180*/ meltfptr[1179] = (melt_ptr_t) sy_PCTX_MEXPANDER; } /*^getnamedsymbol */ /*getnamedsym:PCTX_PEXPANDER */ { melt_ptr_t sy_PCTX_PEXPANDER = meltgc_named_symbol ("PCTX_PEXPANDER", MELT_GET); if (sy_PCTX_PEXPANDER && NULL == /*_.VALDATA___V1182*/ meltfptr[1181]) /*_.VALDATA___V1182*/ meltfptr[1181] = (melt_ptr_t) sy_PCTX_PEXPANDER; } /*^getnamedsymbol */ /*getnamedsym:PCTX_VARMAP */ { melt_ptr_t sy_PCTX_VARMAP = meltgc_named_symbol ("PCTX_VARMAP", MELT_GET); if (sy_PCTX_VARMAP && NULL == /*_.VALDATA___V1184*/ meltfptr[1183]) /*_.VALDATA___V1184*/ meltfptr[1183] = (melt_ptr_t) sy_PCTX_VARMAP; } /*^getnamedsymbol */ /*getnamedsym:PCTX_MODCTX */ { melt_ptr_t sy_PCTX_MODCTX = meltgc_named_symbol ("PCTX_MODCTX", MELT_GET); if (sy_PCTX_MODCTX && NULL == /*_.VALDATA___V1186*/ meltfptr[1185]) /*_.VALDATA___V1186*/ meltfptr[1185] = (melt_ptr_t) sy_PCTX_MODCTX; } /*^getnamedsymbol */ /*getnamedsym:PAIRLIST_TO_MULTIPLE */ { melt_ptr_t sy_PAIRLIST_TO_MULTIPLE = meltgc_named_symbol ("PAIRLIST_TO_MULTIPLE", MELT_GET); if (sy_PAIRLIST_TO_MULTIPLE && NULL == /*_.VALDATA___V1210*/ meltfptr[1209]) /*_.VALDATA___V1210*/ meltfptr[1209] = (melt_ptr_t) sy_PAIRLIST_TO_MULTIPLE; } /*^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___V1212*/ meltfptr[1211]) /*_.VALDATA___V1212*/ meltfptr[1211] = (melt_ptr_t) sy_CLASS_ANY_MATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_REFERENCE */ { melt_ptr_t sy_CLASS_REFERENCE = meltgc_named_symbol ("CLASS_REFERENCE", MELT_GET); if (sy_CLASS_REFERENCE && NULL == /*_.VALDATA___V1214*/ meltfptr[1213]) /*_.VALDATA___V1214*/ meltfptr[1213] = (melt_ptr_t) sy_CLASS_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:MULTIPLE_MAP */ { melt_ptr_t sy_MULTIPLE_MAP = meltgc_named_symbol ("MULTIPLE_MAP", MELT_GET); if (sy_MULTIPLE_MAP && NULL == /*_.VALDATA___V1216*/ meltfptr[1215]) /*_.VALDATA___V1216*/ meltfptr[1215] = (melt_ptr_t) sy_MULTIPLE_MAP; } /*^getnamedsymbol */ /*getnamedsym:DISCR_INTEGER */ { melt_ptr_t sy_DISCR_INTEGER = meltgc_named_symbol ("DISCR_INTEGER", MELT_GET); if (sy_DISCR_INTEGER && NULL == /*_.VALDATA___V1218*/ meltfptr[1217]) /*_.VALDATA___V1218*/ meltfptr[1217] = (melt_ptr_t) sy_DISCR_INTEGER; } /*^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___V1220*/ meltfptr[1219]) /*_.VALDATA___V1220*/ meltfptr[1219] = (melt_ptr_t) sy_DISCR_CONSTANT_INTEGER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_PATMACRO_BINDING */ { melt_ptr_t sy_CLASS_PATMACRO_BINDING = meltgc_named_symbol ("CLASS_PATMACRO_BINDING", MELT_GET); if (sy_CLASS_PATMACRO_BINDING && NULL == /*_.VALDATA___V1222*/ meltfptr[1221]) /*_.VALDATA___V1222*/ meltfptr[1221] = (melt_ptr_t) sy_CLASS_PATMACRO_BINDING; } /*^getnamedsymbol */ /*getnamedsym:QUESTION */ { melt_ptr_t sy_QUESTION = meltgc_named_symbol ("QUESTION", MELT_GET); if (sy_QUESTION && NULL == /*_.VALDATA___V1191*/ meltfptr[1190]) /*_.VALDATA___V1191*/ meltfptr[1190] = (melt_ptr_t) sy_QUESTION; } /*^getnamedsymbol */ /*getnamedsym:_ */ { melt_ptr_t sy_ = meltgc_named_symbol ("_", MELT_GET); if (sy_ && NULL == /*_.VALDATA___V1194*/ meltfptr[1193]) /*_.VALDATA___V1194*/ meltfptr[1193] = (melt_ptr_t) sy_; } /*^getnamedsymbol */ /*getnamedsym:DISCR_LIST */ { melt_ptr_t sy_DISCR_LIST = meltgc_named_symbol ("DISCR_LIST", MELT_GET); if (sy_DISCR_LIST && NULL == /*_.VALDATA___V1226*/ meltfptr[1225]) /*_.VALDATA___V1226*/ meltfptr[1225] = (melt_ptr_t) sy_DISCR_LIST; } /*^getnamedsymbol */ /*getnamedsym:CTYPE_VALUE */ { melt_ptr_t sy_CTYPE_VALUE = meltgc_named_symbol ("CTYPE_VALUE", MELT_GET); if (sy_CTYPE_VALUE && NULL == /*_.VALDATA___V1228*/ meltfptr[1227]) /*_.VALDATA___V1228*/ meltfptr[1227] = (melt_ptr_t) sy_CTYPE_VALUE; } /*^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___V1230*/ meltfptr[1229]) /*_.VALDATA___V1230*/ meltfptr[1229] = (melt_ptr_t) sy_DISCR_MAP_OBJECTS; } /*^getnamedsymbol */ /*getnamedsym:DISCR_FORMAL_SEQUENCE */ { melt_ptr_t sy_DISCR_FORMAL_SEQUENCE = meltgc_named_symbol ("DISCR_FORMAL_SEQUENCE", MELT_GET); if (sy_DISCR_FORMAL_SEQUENCE && NULL == /*_.VALDATA___V1232*/ meltfptr[1231]) /*_.VALDATA___V1232*/ meltfptr[1231] = (melt_ptr_t) sy_DISCR_FORMAL_SEQUENCE; } /*^getnamedkeyword */ /*getnamedkeyw:REST */ { melt_ptr_t kw_REST = meltgc_named_keyword ("REST", MELT_GET); if (kw_REST) /*_.VALDATA___V1110*/ meltfptr[1109] = (melt_ptr_t) kw_REST; } /*^getnamedsymbol */ /*getnamedsym:DISCR_VARIADIC_FORMAL_SEQUENCE */ { melt_ptr_t sy_DISCR_VARIADIC_FORMAL_SEQUENCE = meltgc_named_symbol ("DISCR_VARIADIC_FORMAL_SEQUENCE", MELT_GET); if (sy_DISCR_VARIADIC_FORMAL_SEQUENCE && NULL == /*_.VALDATA___V1234*/ meltfptr[1233]) /*_.VALDATA___V1234*/ meltfptr[1233] = (melt_ptr_t) sy_DISCR_VARIADIC_FORMAL_SEQUENCE; } /*^getnamedsymbol */ /*getnamedsym:CLASS_CTYPE */ { melt_ptr_t sy_CLASS_CTYPE = meltgc_named_symbol ("CLASS_CTYPE", MELT_GET); if (sy_CLASS_CTYPE && NULL == /*_.VALDATA___V1236*/ meltfptr[1235]) /*_.VALDATA___V1236*/ meltfptr[1235] = (melt_ptr_t) sy_CLASS_CTYPE; } /*^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___V1238*/ meltfptr[1237]) /*_.VALDATA___V1238*/ meltfptr[1237] = (melt_ptr_t) sy_CLASS_ANY_BINDING; } /*^getnamedsymbol */ /*getnamedsym:INITIAL_ENVIRONMENT */ { melt_ptr_t sy_INITIAL_ENVIRONMENT = meltgc_named_symbol ("INITIAL_ENVIRONMENT", MELT_GET); if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V1242*/ meltfptr[1241]) /*_.VALDATA___V1242*/ meltfptr[1241] = (melt_ptr_t) sy_INITIAL_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:WARN_SHADOW */ { melt_ptr_t sy_WARN_SHADOW = meltgc_named_symbol ("WARN_SHADOW", MELT_GET); if (sy_WARN_SHADOW && NULL == /*_.VALDATA___V1246*/ meltfptr[1245]) /*_.VALDATA___V1246*/ meltfptr[1245] = (melt_ptr_t) sy_WARN_SHADOW; } /*^getnamedsymbol */ /*getnamedsym:DISCR_VERBATIM_STRING */ { melt_ptr_t sy_DISCR_VERBATIM_STRING = meltgc_named_symbol ("DISCR_VERBATIM_STRING", MELT_GET); if (sy_DISCR_VERBATIM_STRING && NULL == /*_.VALDATA___V1257*/ meltfptr[1256]) /*_.VALDATA___V1257*/ meltfptr[1256] = (melt_ptr_t) sy_DISCR_VERBATIM_STRING; } /*^getnamedkeyword */ /*getnamedkeyw:DOC */ { melt_ptr_t kw_DOC = meltgc_named_keyword ("DOC", MELT_GET); if (kw_DOC) /*_.VALDATA___V1264*/ meltfptr[1263] = (melt_ptr_t) kw_DOC; } /*^getnamedsymbol */ /*getnamedsym:DEFPRIMITIVE */ { melt_ptr_t sy_DEFPRIMITIVE = meltgc_named_symbol ("DEFPRIMITIVE", MELT_GET); if (sy_DEFPRIMITIVE && NULL == /*_.VALDATA___V1267*/ meltfptr[1266]) /*_.VALDATA___V1267*/ meltfptr[1266] = (melt_ptr_t) sy_DEFPRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:DEFCITERATOR */ { melt_ptr_t sy_DEFCITERATOR = meltgc_named_symbol ("DEFCITERATOR", MELT_GET); if (sy_DEFCITERATOR && NULL == /*_.VALDATA___V1271*/ meltfptr[1270]) /*_.VALDATA___V1271*/ meltfptr[1270] = (melt_ptr_t) sy_DEFCITERATOR; } /*^getnamedsymbol */ /*getnamedsym:DEFCMATCHER */ { melt_ptr_t sy_DEFCMATCHER = meltgc_named_symbol ("DEFCMATCHER", MELT_GET); if (sy_DEFCMATCHER && NULL == /*_.VALDATA___V1276*/ meltfptr[1275]) /*_.VALDATA___V1276*/ meltfptr[1275] = (melt_ptr_t) sy_DEFCMATCHER; } /*^getnamedsymbol */ /*getnamedsym:DEFUNMATCHER */ { melt_ptr_t sy_DEFUNMATCHER = meltgc_named_symbol ("DEFUNMATCHER", MELT_GET); if (sy_DEFUNMATCHER && NULL == /*_.VALDATA___V1281*/ meltfptr[1280]) /*_.VALDATA___V1281*/ meltfptr[1280] = (melt_ptr_t) sy_DEFUNMATCHER; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FUNCTION_BINDING */ { melt_ptr_t sy_CLASS_FUNCTION_BINDING = meltgc_named_symbol ("CLASS_FUNCTION_BINDING", MELT_GET); if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1286*/ meltfptr[1285]) /*_.VALDATA___V1286*/ meltfptr[1285] = (melt_ptr_t) sy_CLASS_FUNCTION_BINDING; } /*^getnamedsymbol */ /*getnamedsym:DEFUN */ { melt_ptr_t sy_DEFUN = meltgc_named_symbol ("DEFUN", MELT_GET); if (sy_DEFUN && NULL == /*_.VALDATA___V1288*/ meltfptr[1287]) /*_.VALDATA___V1288*/ meltfptr[1287] = (melt_ptr_t) sy_DEFUN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_DEFINED_VALUE_BINDING */ { melt_ptr_t sy_CLASS_DEFINED_VALUE_BINDING = meltgc_named_symbol ("CLASS_DEFINED_VALUE_BINDING", MELT_GET); if (sy_CLASS_DEFINED_VALUE_BINDING && NULL == /*_.VALDATA___V1295*/ meltfptr[1294]) /*_.VALDATA___V1295*/ meltfptr[1294] = (melt_ptr_t) sy_CLASS_DEFINED_VALUE_BINDING; } /*^getnamedkeyword */ /*getnamedkeyw:TRUE */ { melt_ptr_t kw_TRUE = meltgc_named_keyword ("TRUE", MELT_GET); if (kw_TRUE) /*_.VALDATA___V1291*/ meltfptr[1290] = (melt_ptr_t) kw_TRUE; } /*^getnamedsymbol */ /*getnamedsym:DEFINE */ { melt_ptr_t sy_DEFINE = meltgc_named_symbol ("DEFINE", MELT_GET); if (sy_DEFINE && NULL == /*_.VALDATA___V1297*/ meltfptr[1296]) /*_.VALDATA___V1297*/ meltfptr[1296] = (melt_ptr_t) sy_DEFINE; } /*^getnamedkeyword */ /*getnamedkeyw:SUPER */ { melt_ptr_t kw_SUPER = meltgc_named_keyword ("SUPER", MELT_GET); if (kw_SUPER) /*_.VALDATA___V1300*/ meltfptr[1299] = (melt_ptr_t) kw_SUPER; } /*^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___V1307*/ meltfptr[1306]) /*_.VALDATA___V1307*/ meltfptr[1306] = (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___V1309*/ meltfptr[1308]) /*_.VALDATA___V1309*/ meltfptr[1308] = (melt_ptr_t) sy_CLASS_CLASS; } /*^getnamedkeyword */ /*getnamedkeyw:FIELDS */ { melt_ptr_t kw_FIELDS = meltgc_named_keyword ("FIELDS", MELT_GET); if (kw_FIELDS) /*_.VALDATA___V1302*/ meltfptr[1301] = (melt_ptr_t) kw_FIELDS; } /*^getnamedkeyword */ /*getnamedkeyw:PREDEF */ { melt_ptr_t kw_PREDEF = meltgc_named_keyword ("PREDEF", MELT_GET); if (kw_PREDEF) /*_.VALDATA___V1304*/ meltfptr[1303] = (melt_ptr_t) kw_PREDEF; } /*^getnamedsymbol */ /*getnamedsym:DISCR_CLASS_SEQUENCE */ { melt_ptr_t sy_DISCR_CLASS_SEQUENCE = meltgc_named_symbol ("DISCR_CLASS_SEQUENCE", MELT_GET); if (sy_DISCR_CLASS_SEQUENCE && NULL == /*_.VALDATA___V1315*/ meltfptr[1314]) /*_.VALDATA___V1315*/ meltfptr[1314] = (melt_ptr_t) sy_DISCR_CLASS_SEQUENCE; } /*^getnamedsymbol */ /*getnamedsym:DISCR_MAP_STRINGS */ { melt_ptr_t sy_DISCR_MAP_STRINGS = meltgc_named_symbol ("DISCR_MAP_STRINGS", MELT_GET); if (sy_DISCR_MAP_STRINGS && NULL == /*_.VALDATA___V1317*/ meltfptr[1316]) /*_.VALDATA___V1317*/ meltfptr[1316] = (melt_ptr_t) sy_DISCR_MAP_STRINGS; } /*^getnamedsymbol */ /*getnamedsym:DISCR_FIELD_SEQUENCE */ { melt_ptr_t sy_DISCR_FIELD_SEQUENCE = meltgc_named_symbol ("DISCR_FIELD_SEQUENCE", MELT_GET); if (sy_DISCR_FIELD_SEQUENCE && NULL == /*_.VALDATA___V1319*/ meltfptr[1318]) /*_.VALDATA___V1319*/ meltfptr[1318] = (melt_ptr_t) sy_DISCR_FIELD_SEQUENCE; } /*^getnamedsymbol */ /*getnamedsym:DEFCLASS */ { melt_ptr_t sy_DEFCLASS = meltgc_named_symbol ("DEFCLASS", MELT_GET); if (sy_DEFCLASS && NULL == /*_.VALDATA___V1321*/ meltfptr[1320]) /*_.VALDATA___V1321*/ meltfptr[1320] = (melt_ptr_t) sy_DEFCLASS; } /*^getnamedsymbol */ /*getnamedsym:MULTIPLE_ITERATE_TEST */ { melt_ptr_t sy_MULTIPLE_ITERATE_TEST = meltgc_named_symbol ("MULTIPLE_ITERATE_TEST", MELT_GET); if (sy_MULTIPLE_ITERATE_TEST && NULL == /*_.VALDATA___V1326*/ meltfptr[1325]) /*_.VALDATA___V1326*/ meltfptr[1325] = (melt_ptr_t) sy_MULTIPLE_ITERATE_TEST; } /*^getnamedsymbol */ /*getnamedsym:CLASS_INSTANCE_BINDING */ { melt_ptr_t sy_CLASS_INSTANCE_BINDING = meltgc_named_symbol ("CLASS_INSTANCE_BINDING", MELT_GET); if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1332*/ meltfptr[1331]) /*_.VALDATA___V1332*/ meltfptr[1331] = (melt_ptr_t) sy_CLASS_INSTANCE_BINDING; } /*^getnamedkeyword */ /*getnamedkeyw:OBJ_NUM */ { melt_ptr_t kw_OBJ_NUM = meltgc_named_keyword ("OBJ_NUM", MELT_GET); if (kw_OBJ_NUM) /*_.VALDATA___V1329*/ meltfptr[1328] = (melt_ptr_t) kw_OBJ_NUM; } /*^getnamedsymbol */ /*getnamedsym:DEFINSTANCE */ { melt_ptr_t sy_DEFINSTANCE = meltgc_named_symbol ("DEFINSTANCE", MELT_GET); if (sy_DEFINSTANCE && NULL == /*_.VALDATA___V1334*/ meltfptr[1333]) /*_.VALDATA___V1334*/ meltfptr[1333] = (melt_ptr_t) sy_DEFINSTANCE; } /*^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___V1340*/ meltfptr[1339]) /*_.VALDATA___V1340*/ meltfptr[1339] = (melt_ptr_t) sy_MELT_MODE_REFERENCE; } /*^getnamedkeyword */ /*getnamedkeyw:FORMALS */ { melt_ptr_t kw_FORMALS = meltgc_named_keyword ("FORMALS", MELT_GET); if (kw_FORMALS) /*_.VALDATA___V1337*/ meltfptr[1336] = (melt_ptr_t) kw_FORMALS; } /*^getnamedsymbol */ /*getnamedsym:DEFSELECTOR */ { melt_ptr_t sy_DEFSELECTOR = meltgc_named_symbol ("DEFSELECTOR", MELT_GET); if (sy_DEFSELECTOR && NULL == /*_.VALDATA___V1342*/ meltfptr[1341]) /*_.VALDATA___V1342*/ meltfptr[1341] = (melt_ptr_t) sy_DEFSELECTOR; } /*^getnamedsymbol */ /*getnamedsym:INSTANCE */ { melt_ptr_t sy_INSTANCE = meltgc_named_symbol ("INSTANCE", MELT_GET); if (sy_INSTANCE && NULL == /*_.VALDATA___V1346*/ meltfptr[1345]) /*_.VALDATA___V1346*/ meltfptr[1345] = (melt_ptr_t) sy_INSTANCE; } /*^getnamedsymbol */ /*getnamedsym:LOAD */ { melt_ptr_t sy_LOAD = meltgc_named_symbol ("LOAD", MELT_GET); if (sy_LOAD && NULL == /*_.VALDATA___V1350*/ meltfptr[1349]) /*_.VALDATA___V1350*/ meltfptr[1349] = (melt_ptr_t) sy_LOAD; } /*^getnamedsymbol */ /*getnamedsym:OBJECT */ { melt_ptr_t sy_OBJECT = meltgc_named_symbol ("OBJECT", MELT_GET); if (sy_OBJECT && NULL == /*_.VALDATA___V1363*/ meltfptr[1362]) /*_.VALDATA___V1363*/ meltfptr[1362] = (melt_ptr_t) sy_OBJECT; } /*^getnamedsymbol */ /*getnamedsym:CODE_CHUNK */ { melt_ptr_t sy_CODE_CHUNK = meltgc_named_symbol ("CODE_CHUNK", MELT_GET); if (sy_CODE_CHUNK && NULL == /*_.VALDATA___V1367*/ meltfptr[1366]) /*_.VALDATA___V1367*/ meltfptr[1366] = (melt_ptr_t) sy_CODE_CHUNK; } /*^getnamedsymbol */ /*getnamedsym:UNSAFE_PUT_FIELDS */ { melt_ptr_t sy_UNSAFE_PUT_FIELDS = meltgc_named_symbol ("UNSAFE_PUT_FIELDS", MELT_GET); if (sy_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1371*/ meltfptr[1370]) /*_.VALDATA___V1371*/ meltfptr[1370] = (melt_ptr_t) sy_UNSAFE_PUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:PUT_FIELDS */ { melt_ptr_t sy_PUT_FIELDS = meltgc_named_symbol ("PUT_FIELDS", MELT_GET); if (sy_PUT_FIELDS && NULL == /*_.VALDATA___V1375*/ meltfptr[1374]) /*_.VALDATA___V1375*/ meltfptr[1374] = (melt_ptr_t) sy_PUT_FIELDS; } /*^getnamedsymbol */ /*getnamedsym:UNSAFE_GET_FIELD */ { melt_ptr_t sy_UNSAFE_GET_FIELD = meltgc_named_symbol ("UNSAFE_GET_FIELD", MELT_GET); if (sy_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1379*/ meltfptr[1378]) /*_.VALDATA___V1379*/ meltfptr[1378] = (melt_ptr_t) sy_UNSAFE_GET_FIELD; } /*^getnamedsymbol */ /*getnamedsym:GET_FIELD */ { melt_ptr_t sy_GET_FIELD = meltgc_named_symbol ("GET_FIELD", MELT_GET); if (sy_GET_FIELD && NULL == /*_.VALDATA___V1383*/ meltfptr[1382]) /*_.VALDATA___V1383*/ meltfptr[1382] = (melt_ptr_t) sy_GET_FIELD; } /*^getnamedsymbol */ /*getnamedsym:SETQ */ { melt_ptr_t sy_SETQ = meltgc_named_symbol ("SETQ", MELT_GET); if (sy_SETQ && NULL == /*_.VALDATA___V1390*/ meltfptr[1389]) /*_.VALDATA___V1390*/ meltfptr[1389] = (melt_ptr_t) sy_SETQ; } /*^getnamedsymbol */ /*getnamedsym:IF */ { melt_ptr_t sy_IF = meltgc_named_symbol ("IF", MELT_GET); if (sy_IF && NULL == /*_.VALDATA___V1394*/ meltfptr[1393]) /*_.VALDATA___V1394*/ meltfptr[1393] = (melt_ptr_t) sy_IF; } /*^getnamedsymbol */ /*getnamedsym:WHEN */ { melt_ptr_t sy_WHEN = meltgc_named_symbol ("WHEN", MELT_GET); if (sy_WHEN && NULL == /*_.VALDATA___V1398*/ meltfptr[1397]) /*_.VALDATA___V1398*/ meltfptr[1397] = (melt_ptr_t) sy_WHEN; } /*^getnamedsymbol */ /*getnamedsym:UNLESS */ { melt_ptr_t sy_UNLESS = meltgc_named_symbol ("UNLESS", MELT_GET); if (sy_UNLESS && NULL == /*_.VALDATA___V1402*/ meltfptr[1401]) /*_.VALDATA___V1402*/ meltfptr[1401] = (melt_ptr_t) sy_UNLESS; } /*^getnamedsymbol */ /*getnamedsym:CPPIF */ { melt_ptr_t sy_CPPIF = meltgc_named_symbol ("CPPIF", MELT_GET); if (sy_CPPIF && NULL == /*_.VALDATA___V1406*/ meltfptr[1405]) /*_.VALDATA___V1406*/ meltfptr[1405] = (melt_ptr_t) sy_CPPIF; } /*^getnamedsymbol */ /*getnamedsym:GCCIF */ { melt_ptr_t sy_GCCIF = meltgc_named_symbol ("GCCIF", MELT_GET); if (sy_GCCIF && NULL == /*_.VALDATA___V1412*/ meltfptr[1411]) /*_.VALDATA___V1412*/ meltfptr[1411] = (melt_ptr_t) sy_GCCIF; } /*^getnamedkeyword */ /*getnamedkeyw:ELSE */ { melt_ptr_t kw_ELSE = meltgc_named_keyword ("ELSE", MELT_GET); if (kw_ELSE) /*_.VALDATA___V1416*/ meltfptr[1415] = (melt_ptr_t) kw_ELSE; } /*^getnamedsymbol */ /*getnamedsym:COND */ { melt_ptr_t sy_COND = meltgc_named_symbol ("COND", MELT_GET); if (sy_COND && NULL == /*_.VALDATA___V1419*/ meltfptr[1418]) /*_.VALDATA___V1419*/ meltfptr[1418] = (melt_ptr_t) sy_COND; } /*^getnamedsymbol */ /*getnamedsym:AS */ { melt_ptr_t sy_AS = meltgc_named_symbol ("AS", MELT_GET); if (sy_AS && NULL == /*_.VALDATA___V1428*/ meltfptr[1427]) /*_.VALDATA___V1428*/ meltfptr[1427] = (melt_ptr_t) sy_AS; } /*^getnamedsymbol */ /*getnamedsym:AND */ { melt_ptr_t sy_AND = meltgc_named_symbol ("AND", MELT_GET); if (sy_AND && NULL == /*_.VALDATA___V1436*/ meltfptr[1435]) /*_.VALDATA___V1436*/ meltfptr[1435] = (melt_ptr_t) sy_AND; } /*^getnamedsymbol */ /*getnamedsym:OR */ { melt_ptr_t sy_OR = meltgc_named_symbol ("OR", MELT_GET); if (sy_OR && NULL == /*_.VALDATA___V1443*/ meltfptr[1442]) /*_.VALDATA___V1443*/ meltfptr[1442] = (melt_ptr_t) sy_OR; } /*^getnamedkeyword */ /*getnamedkeyw:REFERENCED_VALUE */ { melt_ptr_t kw_REFERENCED_VALUE = meltgc_named_keyword ("REFERENCED_VALUE", MELT_GET); if (kw_REFERENCED_VALUE) /*_.VALDATA___V1446*/ meltfptr[1445] = (melt_ptr_t) kw_REFERENCED_VALUE; } /*^getnamedsymbol */ /*getnamedsym:REFERENCE */ { melt_ptr_t sy_REFERENCE = meltgc_named_symbol ("REFERENCE", MELT_GET); if (sy_REFERENCE && NULL == /*_.VALDATA___V1452*/ meltfptr[1451]) /*_.VALDATA___V1452*/ meltfptr[1451] = (melt_ptr_t) sy_REFERENCE; } /*^getnamedsymbol */ /*getnamedsym:CONTAINER */ { melt_ptr_t sy_CONTAINER = meltgc_named_symbol ("CONTAINER", MELT_GET); if (sy_CONTAINER && NULL == /*_.VALDATA___V1458*/ meltfptr[1457]) /*_.VALDATA___V1458*/ meltfptr[1457] = (melt_ptr_t) sy_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:REFERENCED_VALUE */ { melt_ptr_t sy_REFERENCED_VALUE = meltgc_named_symbol ("REFERENCED_VALUE", MELT_GET); if (sy_REFERENCED_VALUE && NULL == /*_.VALDATA___V1462*/ meltfptr[1461]) /*_.VALDATA___V1462*/ meltfptr[1461] = (melt_ptr_t) sy_REFERENCED_VALUE; } /*^getnamedsymbol */ /*getnamedsym:DEREF */ { melt_ptr_t sy_DEREF = meltgc_named_symbol ("DEREF", MELT_GET); if (sy_DEREF && NULL == /*_.VALDATA___V1464*/ meltfptr[1463]) /*_.VALDATA___V1464*/ meltfptr[1463] = (melt_ptr_t) sy_DEREF; } /*^getnamedsymbol */ /*getnamedsym:CONTENT */ { melt_ptr_t sy_CONTENT = meltgc_named_symbol ("CONTENT", MELT_GET); if (sy_CONTENT && NULL == /*_.VALDATA___V1468*/ meltfptr[1467]) /*_.VALDATA___V1468*/ meltfptr[1467] = (melt_ptr_t) sy_CONTENT; } /*^getnamedsymbol */ /*getnamedsym:EXCLAIM */ { melt_ptr_t sy_EXCLAIM = meltgc_named_symbol ("EXCLAIM", MELT_GET); if (sy_EXCLAIM && NULL == /*_.VALDATA___V1470*/ meltfptr[1469]) /*_.VALDATA___V1470*/ meltfptr[1469] = (melt_ptr_t) sy_EXCLAIM; } /*^getnamedsymbol */ /*getnamedsym:SET_REF */ { melt_ptr_t sy_SET_REF = meltgc_named_symbol ("SET_REF", MELT_GET); if (sy_SET_REF && NULL == /*_.VALDATA___V1474*/ meltfptr[1473]) /*_.VALDATA___V1474*/ meltfptr[1473] = (melt_ptr_t) sy_SET_REF; } /*^getnamedsymbol */ /*getnamedsym:TUPLE */ { melt_ptr_t sy_TUPLE = meltgc_named_symbol ("TUPLE", MELT_GET); if (sy_TUPLE && NULL == /*_.VALDATA___V1480*/ meltfptr[1479]) /*_.VALDATA___V1480*/ meltfptr[1479] = (melt_ptr_t) sy_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:LIST */ { melt_ptr_t sy_LIST = meltgc_named_symbol ("LIST", MELT_GET); if (sy_LIST && NULL == /*_.VALDATA___V1486*/ meltfptr[1485]) /*_.VALDATA___V1486*/ meltfptr[1485] = (melt_ptr_t) sy_LIST; } /*^getnamedsymbol */ /*getnamedsym:MATCH */ { melt_ptr_t sy_MATCH = meltgc_named_symbol ("MATCH", MELT_GET); if (sy_MATCH && NULL == /*_.VALDATA___V1491*/ meltfptr[1490]) /*_.VALDATA___V1491*/ meltfptr[1490] = (melt_ptr_t) sy_MATCH; } /*^getnamedsymbol */ /*getnamedsym:CLASS_FIXED_BINDING */ { melt_ptr_t sy_CLASS_FIXED_BINDING = meltgc_named_symbol ("CLASS_FIXED_BINDING", MELT_GET); if (sy_CLASS_FIXED_BINDING && NULL == /*_.VALDATA___V1495*/ meltfptr[1494]) /*_.VALDATA___V1495*/ meltfptr[1494] = (melt_ptr_t) sy_CLASS_FIXED_BINDING; } /*^getnamedsymbol */ /*getnamedsym:LET */ { melt_ptr_t sy_LET = meltgc_named_symbol ("LET", MELT_GET); if (sy_LET && NULL == /*_.VALDATA___V1502*/ meltfptr[1501]) /*_.VALDATA___V1502*/ meltfptr[1501] = (melt_ptr_t) sy_LET; } /*^getnamedsymbol */ /*getnamedsym:INSTALL_METHOD */ { melt_ptr_t sy_INSTALL_METHOD = meltgc_named_symbol ("INSTALL_METHOD", MELT_GET); if (sy_INSTALL_METHOD && NULL == /*_.VALDATA___V1506*/ meltfptr[1505]) /*_.VALDATA___V1506*/ meltfptr[1505] = (melt_ptr_t) sy_INSTALL_METHOD; } /*^getnamedsymbol */ /*getnamedsym:CLASS_LETREC_BINDING */ { melt_ptr_t sy_CLASS_LETREC_BINDING = meltgc_named_symbol ("CLASS_LETREC_BINDING", MELT_GET); if (sy_CLASS_LETREC_BINDING && NULL == /*_.VALDATA___V1512*/ meltfptr[1511]) /*_.VALDATA___V1512*/ meltfptr[1511] = (melt_ptr_t) sy_CLASS_LETREC_BINDING; } /*^getnamedsymbol */ /*getnamedsym:LETREC */ { melt_ptr_t sy_LETREC = meltgc_named_symbol ("LETREC", MELT_GET); if (sy_LETREC && NULL == /*_.VALDATA___V1514*/ meltfptr[1513]) /*_.VALDATA___V1514*/ meltfptr[1513] = (melt_ptr_t) sy_LETREC; } /*^getnamedsymbol */ /*getnamedsym:LAMBDA */ { melt_ptr_t sy_LAMBDA = meltgc_named_symbol ("LAMBDA", MELT_GET); if (sy_LAMBDA && NULL == /*_.VALDATA___V1519*/ meltfptr[1518]) /*_.VALDATA___V1519*/ meltfptr[1518] = (melt_ptr_t) sy_LAMBDA; } /*^getnamedsymbol */ /*getnamedsym:VARIADIC */ { melt_ptr_t sy_VARIADIC = meltgc_named_symbol ("VARIADIC", MELT_GET); if (sy_VARIADIC && NULL == /*_.VALDATA___V1527*/ meltfptr[1526]) /*_.VALDATA___V1527*/ meltfptr[1526] = (melt_ptr_t) sy_VARIADIC; } /*^getnamedsymbol */ /*getnamedsym:MULTICALL */ { melt_ptr_t sy_MULTICALL = meltgc_named_symbol ("MULTICALL", MELT_GET); if (sy_MULTICALL && NULL == /*_.VALDATA___V1533*/ meltfptr[1532]) /*_.VALDATA___V1533*/ meltfptr[1532] = (melt_ptr_t) sy_MULTICALL; } /*^getnamedsymbol */ /*getnamedsym:QUOTE */ { melt_ptr_t sy_QUOTE = meltgc_named_symbol ("QUOTE", MELT_GET); if (sy_QUOTE && NULL == /*_.VALDATA___V1537*/ meltfptr[1536]) /*_.VALDATA___V1537*/ meltfptr[1536] = (melt_ptr_t) sy_QUOTE; } /*^getnamedsymbol */ /*getnamedsym:COMMENT */ { melt_ptr_t sy_COMMENT = meltgc_named_symbol ("COMMENT", MELT_GET); if (sy_COMMENT && NULL == /*_.VALDATA___V1541*/ meltfptr[1540]) /*_.VALDATA___V1541*/ meltfptr[1540] = (melt_ptr_t) sy_COMMENT; } /*^getnamedsymbol */ /*getnamedsym:CLASS_SEXPR_MACROSTRING */ { melt_ptr_t sy_CLASS_SEXPR_MACROSTRING = meltgc_named_symbol ("CLASS_SEXPR_MACROSTRING", MELT_GET); if (sy_CLASS_SEXPR_MACROSTRING && NULL == /*_.VALDATA___V1545*/ meltfptr[1544]) /*_.VALDATA___V1545*/ meltfptr[1544] = (melt_ptr_t) sy_CLASS_SEXPR_MACROSTRING; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRBUF */ { melt_ptr_t sy_DISCR_STRBUF = meltgc_named_symbol ("DISCR_STRBUF", MELT_GET); if (sy_DISCR_STRBUF && NULL == /*_.VALDATA___V1547*/ meltfptr[1546]) /*_.VALDATA___V1547*/ meltfptr[1546] = (melt_ptr_t) sy_DISCR_STRBUF; } /*^getnamedsymbol */ /*getnamedsym:ADD2OUT */ { melt_ptr_t sy_ADD2OUT = meltgc_named_symbol ("ADD2OUT", MELT_GET); if (sy_ADD2OUT && NULL == /*_.VALDATA___V1549*/ meltfptr[1548]) /*_.VALDATA___V1549*/ meltfptr[1548] = (melt_ptr_t) sy_ADD2OUT; } /*^getnamedsymbol */ /*getnamedsym:CHEADER */ { melt_ptr_t sy_CHEADER = meltgc_named_symbol ("CHEADER", MELT_GET); if (sy_CHEADER && NULL == /*_.VALDATA___V1551*/ meltfptr[1550]) /*_.VALDATA___V1551*/ meltfptr[1550] = (melt_ptr_t) sy_CHEADER; } /*^getnamedsymbol */ /*getnamedsym:DISCR_STRING */ { melt_ptr_t sy_DISCR_STRING = meltgc_named_symbol ("DISCR_STRING", MELT_GET); if (sy_DISCR_STRING && NULL == /*_.VALDATA___V1555*/ meltfptr[1554]) /*_.VALDATA___V1555*/ meltfptr[1554] = (melt_ptr_t) sy_DISCR_STRING; } /*^getnamedsymbol */ /*getnamedsym:USE_PACKAGE_FROM_PKG_CONFIG */ { melt_ptr_t sy_USE_PACKAGE_FROM_PKG_CONFIG = meltgc_named_symbol ("USE_PACKAGE_FROM_PKG_CONFIG", MELT_GET); if (sy_USE_PACKAGE_FROM_PKG_CONFIG && NULL == /*_.VALDATA___V1557*/ meltfptr[1556]) /*_.VALDATA___V1557*/ meltfptr[1556] = (melt_ptr_t) sy_USE_PACKAGE_FROM_PKG_CONFIG; } /*^getnamedsymbol */ /*getnamedsym:USE-PACKAGE-FROM-PKG-CONFIG */ { melt_ptr_t sy_USE_PACKAGE_FROM_PKG_CONFIG = meltgc_named_symbol ("USE-PACKAGE-FROM-PKG-CONFIG", MELT_GET); if (sy_USE_PACKAGE_FROM_PKG_CONFIG && NULL == /*_.VALDATA___V1559*/ meltfptr[1558]) /*_.VALDATA___V1559*/ meltfptr[1558] = (melt_ptr_t) sy_USE_PACKAGE_FROM_PKG_CONFIG; } /*^getnamedsymbol */ /*getnamedsym:PROGN */ { melt_ptr_t sy_PROGN = meltgc_named_symbol ("PROGN", MELT_GET); if (sy_PROGN && NULL == /*_.VALDATA___V1566*/ meltfptr[1565]) /*_.VALDATA___V1566*/ meltfptr[1565] = (melt_ptr_t) sy_PROGN; } /*^getnamedsymbol */ /*getnamedsym:RETURN */ { melt_ptr_t sy_RETURN = meltgc_named_symbol ("RETURN", MELT_GET); if (sy_RETURN && NULL == /*_.VALDATA___V1570*/ meltfptr[1569]) /*_.VALDATA___V1570*/ meltfptr[1569] = (melt_ptr_t) sy_RETURN; } /*^getnamedsymbol */ /*getnamedsym:CLASS_LABEL_BINDING */ { melt_ptr_t sy_CLASS_LABEL_BINDING = meltgc_named_symbol ("CLASS_LABEL_BINDING", MELT_GET); if (sy_CLASS_LABEL_BINDING && NULL == /*_.VALDATA___V1575*/ meltfptr[1574]) /*_.VALDATA___V1575*/ meltfptr[1574] = (melt_ptr_t) sy_CLASS_LABEL_BINDING; } /*^getnamedsymbol */ /*getnamedsym:FOREVER */ { melt_ptr_t sy_FOREVER = meltgc_named_symbol ("FOREVER", MELT_GET); if (sy_FOREVER && NULL == /*_.VALDATA___V1577*/ meltfptr[1576]) /*_.VALDATA___V1577*/ meltfptr[1576] = (melt_ptr_t) sy_FOREVER; } /*^getnamedsymbol */ /*getnamedsym:EXIT */ { melt_ptr_t sy_EXIT = meltgc_named_symbol ("EXIT", MELT_GET); if (sy_EXIT && NULL == /*_.VALDATA___V1582*/ meltfptr[1581]) /*_.VALDATA___V1582*/ meltfptr[1581] = (melt_ptr_t) sy_EXIT; } /*^getnamedsymbol */ /*getnamedsym:AGAIN */ { melt_ptr_t sy_AGAIN = meltgc_named_symbol ("AGAIN", MELT_GET); if (sy_AGAIN && NULL == /*_.VALDATA___V1586*/ meltfptr[1585]) /*_.VALDATA___V1586*/ meltfptr[1585] = (melt_ptr_t) sy_AGAIN; } /*^getnamedsymbol */ /*getnamedsym:COMPILE_WARNING */ { melt_ptr_t sy_COMPILE_WARNING = meltgc_named_symbol ("COMPILE_WARNING", MELT_GET); if (sy_COMPILE_WARNING && NULL == /*_.VALDATA___V1590*/ meltfptr[1589]) /*_.VALDATA___V1590*/ meltfptr[1589] = (melt_ptr_t) sy_COMPILE_WARNING; } /*^getnamedsymbol */ /*getnamedsym:ASSERT_FAILED */ { melt_ptr_t sy_ASSERT_FAILED = meltgc_named_symbol ("ASSERT_FAILED", MELT_GET); if (sy_ASSERT_FAILED && NULL == /*_.VALDATA___V1593*/ meltfptr[1592]) /*_.VALDATA___V1593*/ meltfptr[1592] = (melt_ptr_t) sy_ASSERT_FAILED; } /*^getnamedsymbol */ /*getnamedsym:FIND_ENV_DEBUG */ { melt_ptr_t sy_FIND_ENV_DEBUG = meltgc_named_symbol ("FIND_ENV_DEBUG", MELT_GET); if (sy_FIND_ENV_DEBUG && NULL == /*_.VALDATA___V1598*/ meltfptr[1597]) /*_.VALDATA___V1598*/ meltfptr[1597] = (melt_ptr_t) sy_FIND_ENV_DEBUG; } /*^getnamedsymbol */ /*getnamedsym:MELT_HAVE_DEBUG */ { melt_ptr_t sy_MELT_HAVE_DEBUG = meltgc_named_symbol ("MELT_HAVE_DEBUG", MELT_GET); if (sy_MELT_HAVE_DEBUG && NULL == /*_.VALDATA___V1595*/ meltfptr[1594]) /*_.VALDATA___V1595*/ meltfptr[1594] = (melt_ptr_t) sy_MELT_HAVE_DEBUG; } /*^getnamedsymbol */ /*getnamedsym:ASSERT_MSG */ { melt_ptr_t sy_ASSERT_MSG = meltgc_named_symbol ("ASSERT_MSG", MELT_GET); if (sy_ASSERT_MSG && NULL == /*_.VALDATA___V1600*/ meltfptr[1599]) /*_.VALDATA___V1600*/ meltfptr[1599] = (melt_ptr_t) sy_ASSERT_MSG; } /*^getnamedsymbol */ /*getnamedsym:THE_MELTCALLCOUNT */ { melt_ptr_t sy_THE_MELTCALLCOUNT = meltgc_named_symbol ("THE_MELTCALLCOUNT", MELT_GET); if (sy_THE_MELTCALLCOUNT && NULL == /*_.VALDATA___V1603*/ meltfptr[1602]) /*_.VALDATA___V1603*/ meltfptr[1602] = (melt_ptr_t) sy_THE_MELTCALLCOUNT; } /*^getnamedsymbol */ /*getnamedsym:DEBUG_MSG_FUN */ { melt_ptr_t sy_DEBUG_MSG_FUN = meltgc_named_symbol ("DEBUG_MSG_FUN", MELT_GET); if (sy_DEBUG_MSG_FUN && NULL == /*_.VALDATA___V1605*/ meltfptr[1604]) /*_.VALDATA___V1605*/ meltfptr[1604] = (melt_ptr_t) sy_DEBUG_MSG_FUN; } /*^getnamedsymbol */ /*getnamedsym:DEBUG_MSG */ { melt_ptr_t sy_DEBUG_MSG = meltgc_named_symbol ("DEBUG_MSG", MELT_GET); if (sy_DEBUG_MSG && NULL == /*_.VALDATA___V1608*/ meltfptr[1607]) /*_.VALDATA___V1608*/ meltfptr[1607] = (melt_ptr_t) sy_DEBUG_MSG; } /*^getnamedsymbol */ /*getnamedsym:MELT_NEED_DBG */ { melt_ptr_t sy_MELT_NEED_DBG = meltgc_named_symbol ("MELT_NEED_DBG", MELT_GET); if (sy_MELT_NEED_DBG && NULL == /*_.VALDATA___V1611*/ meltfptr[1610]) /*_.VALDATA___V1611*/ meltfptr[1610] = (melt_ptr_t) sy_MELT_NEED_DBG; } /*^getnamedsymbol */ /*getnamedsym:MELT_INCREMENT_DBGCOUNTER */ { melt_ptr_t sy_MELT_INCREMENT_DBGCOUNTER = meltgc_named_symbol ("MELT_INCREMENT_DBGCOUNTER", MELT_GET); if (sy_MELT_INCREMENT_DBGCOUNTER && NULL == /*_.VALDATA___V1613*/ meltfptr[1612]) /*_.VALDATA___V1613*/ meltfptr[1612] = (melt_ptr_t) sy_MELT_INCREMENT_DBGCOUNTER; } /*^getnamedsymbol */ /*getnamedsym:LIST_APPEND2LIST */ { melt_ptr_t sy_LIST_APPEND2LIST = meltgc_named_symbol ("LIST_APPEND2LIST", MELT_GET); if (sy_LIST_APPEND2LIST && NULL == /*_.VALDATA___V1617*/ meltfptr[1616]) /*_.VALDATA___V1617*/ meltfptr[1616] = (melt_ptr_t) sy_LIST_APPEND2LIST; } /*^getnamedsymbol */ /*getnamedsym:DEBUG */ { melt_ptr_t sy_DEBUG = meltgc_named_symbol ("DEBUG", MELT_GET); if (sy_DEBUG && NULL == /*_.VALDATA___V1619*/ meltfptr[1618]) /*_.VALDATA___V1619*/ meltfptr[1618] = (melt_ptr_t) sy_DEBUG; } /*^getnamedsymbol */ /*getnamedsym:EXPORT_VALUES */ { melt_ptr_t sy_EXPORT_VALUES = meltgc_named_symbol ("EXPORT_VALUES", MELT_GET); if (sy_EXPORT_VALUES && NULL == /*_.VALDATA___V1624*/ meltfptr[1623]) /*_.VALDATA___V1624*/ meltfptr[1623] = (melt_ptr_t) sy_EXPORT_VALUES; } /*^getnamedsymbol */ /*getnamedsym:EXPORT_MACRO */ { melt_ptr_t sy_EXPORT_MACRO = meltgc_named_symbol ("EXPORT_MACRO", MELT_GET); if (sy_EXPORT_MACRO && NULL == /*_.VALDATA___V1628*/ meltfptr[1627]) /*_.VALDATA___V1628*/ meltfptr[1627] = (melt_ptr_t) sy_EXPORT_MACRO; } /*^getnamedsymbol */ /*getnamedsym:EXPORT_PATMACRO */ { melt_ptr_t sy_EXPORT_PATMACRO = meltgc_named_symbol ("EXPORT_PATMACRO", MELT_GET); if (sy_EXPORT_PATMACRO && NULL == /*_.VALDATA___V1632*/ meltfptr[1631]) /*_.VALDATA___V1632*/ meltfptr[1631] = (melt_ptr_t) sy_EXPORT_PATMACRO; } /*^getnamedsymbol */ /*getnamedsym:EXPORT_CLASS */ { melt_ptr_t sy_EXPORT_CLASS = meltgc_named_symbol ("EXPORT_CLASS", MELT_GET); if (sy_EXPORT_CLASS && NULL == /*_.VALDATA___V1637*/ meltfptr[1636]) /*_.VALDATA___V1637*/ meltfptr[1636] = (melt_ptr_t) sy_EXPORT_CLASS; } /*^getnamedsymbol */ /*getnamedsym:EXPORT_SYNONYM */ { melt_ptr_t sy_EXPORT_SYNONYM = meltgc_named_symbol ("EXPORT_SYNONYM", MELT_GET); if (sy_EXPORT_SYNONYM && NULL == /*_.VALDATA___V1641*/ meltfptr[1640]) /*_.VALDATA___V1641*/ meltfptr[1640] = (melt_ptr_t) sy_EXPORT_SYNONYM; } /*^getnamedsymbol */ /*getnamedsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER */ { melt_ptr_t sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol ("CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); if (sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1645*/ meltfptr[1644]) /*_.VALDATA___V1645*/ meltfptr[1644] = (melt_ptr_t) sy_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:PARENT_MODULE_ENVIRONMENT */ { melt_ptr_t sy_PARENT_MODULE_ENVIRONMENT = meltgc_named_symbol ("PARENT_MODULE_ENVIRONMENT", MELT_GET); if (sy_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1649*/ meltfptr[1648]) /*_.VALDATA___V1649*/ meltfptr[1648] = (melt_ptr_t) sy_PARENT_MODULE_ENVIRONMENT; } /*^getnamedsymbol */ /*getnamedsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ { melt_ptr_t sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = meltgc_named_symbol ("UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", MELT_GET); if (sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1653*/ meltfptr[1652]) /*_.VALDATA___V1653*/ meltfptr[1652] = (melt_ptr_t) sy_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*^getnamedsymbol */ /*getnamedsym:FETCH_PREDEFINED */ { melt_ptr_t sy_FETCH_PREDEFINED = meltgc_named_symbol ("FETCH_PREDEFINED", MELT_GET); if (sy_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1657*/ meltfptr[1656]) /*_.VALDATA___V1657*/ meltfptr[1656] = (melt_ptr_t) sy_FETCH_PREDEFINED; } /*^getnamedsymbol */ /*getnamedsym:STORE_PREDEFINED */ { melt_ptr_t sy_STORE_PREDEFINED = meltgc_named_symbol ("STORE_PREDEFINED", MELT_GET); if (sy_STORE_PREDEFINED && NULL == /*_.VALDATA___V1661*/ meltfptr[1660]) /*_.VALDATA___V1661*/ meltfptr[1660] = (melt_ptr_t) sy_STORE_PREDEFINED; } /*^getnamedsymbol */ /*getnamedsym:EXPAND_APPLY */ { melt_ptr_t sy_EXPAND_APPLY = meltgc_named_symbol ("EXPAND_APPLY", MELT_GET); if (sy_EXPAND_APPLY && NULL == /*_.VALDATA___V1663*/ meltfptr[1662]) /*_.VALDATA___V1663*/ meltfptr[1662] = (melt_ptr_t) sy_EXPAND_APPLY; } /*^getnamedsymbol */ /*getnamedsym:EXPAND_MSEND */ { melt_ptr_t sy_EXPAND_MSEND = meltgc_named_symbol ("EXPAND_MSEND", MELT_GET); if (sy_EXPAND_MSEND && NULL == /*_.VALDATA___V1665*/ meltfptr[1664]) /*_.VALDATA___V1665*/ meltfptr[1664] = (melt_ptr_t) sy_EXPAND_MSEND; } /*^getnamedsymbol */ /*getnamedsym:EXPAND_PAIRLIST_AS_TUPLE */ { melt_ptr_t sy_EXPAND_PAIRLIST_AS_TUPLE = meltgc_named_symbol ("EXPAND_PAIRLIST_AS_TUPLE", MELT_GET); if (sy_EXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1667*/ meltfptr[1666]) /*_.VALDATA___V1667*/ meltfptr[1666] = (melt_ptr_t) sy_EXPAND_PAIRLIST_AS_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:EXPAND_PRIMITIVE */ { melt_ptr_t sy_EXPAND_PRIMITIVE = meltgc_named_symbol ("EXPAND_PRIMITIVE", MELT_GET); if (sy_EXPAND_PRIMITIVE && NULL == /*_.VALDATA___V1669*/ meltfptr[1668]) /*_.VALDATA___V1669*/ meltfptr[1668] = (melt_ptr_t) sy_EXPAND_PRIMITIVE; } /*^getnamedsymbol */ /*getnamedsym:INSTALL_INITIAL_MACRO */ { melt_ptr_t sy_INSTALL_INITIAL_MACRO = meltgc_named_symbol ("INSTALL_INITIAL_MACRO", MELT_GET); if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V1671*/ meltfptr[1670]) /*_.VALDATA___V1671*/ meltfptr[1670] = (melt_ptr_t) sy_INSTALL_INITIAL_MACRO; } /*^getnamedsymbol */ /*getnamedsym:LAMBDA_ARG_BINDINGS */ { melt_ptr_t sy_LAMBDA_ARG_BINDINGS = meltgc_named_symbol ("LAMBDA_ARG_BINDINGS", MELT_GET); if (sy_LAMBDA_ARG_BINDINGS && NULL == /*_.VALDATA___V1673*/ meltfptr[1672]) /*_.VALDATA___V1673*/ meltfptr[1672] = (melt_ptr_t) sy_LAMBDA_ARG_BINDINGS; } /*^getnamedsymbol */ /*getnamedsym:MACROEXPAND_1 */ { melt_ptr_t sy_MACROEXPAND_1 = meltgc_named_symbol ("MACROEXPAND_1", MELT_GET); if (sy_MACROEXPAND_1 && NULL == /*_.VALDATA___V1675*/ meltfptr[1674]) /*_.VALDATA___V1675*/ meltfptr[1674] = (melt_ptr_t) sy_MACROEXPAND_1; } /*^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___V1677*/ meltfptr[1676]) /*_.VALDATA___V1677*/ meltfptr[1676] = (melt_ptr_t) sy_MACROEXPAND_TOPLEVEL_LIST; } /*^getnamedsymbol */ /*getnamedsym:PATTERNEXPAND_1 */ { melt_ptr_t sy_PATTERNEXPAND_1 = meltgc_named_symbol ("PATTERNEXPAND_1", MELT_GET); if (sy_PATTERNEXPAND_1 && NULL == /*_.VALDATA___V1679*/ meltfptr[1678]) /*_.VALDATA___V1679*/ meltfptr[1678] = (melt_ptr_t) sy_PATTERNEXPAND_1; } /*^getnamedsymbol */ /*getnamedsym:PATTERNEXPAND_EXPR */ { melt_ptr_t sy_PATTERNEXPAND_EXPR = meltgc_named_symbol ("PATTERNEXPAND_EXPR", MELT_GET); if (sy_PATTERNEXPAND_EXPR && NULL == /*_.VALDATA___V1681*/ meltfptr[1680]) /*_.VALDATA___V1681*/ meltfptr[1680] = (melt_ptr_t) sy_PATTERNEXPAND_EXPR; } /*^getnamedsymbol */ /*getnamedsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE */ { melt_ptr_t sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE = meltgc_named_symbol ("PATTERNEXPAND_PAIRLIST_AS_TUPLE", MELT_GET); if (sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE && NULL == /*_.VALDATA___V1683*/ meltfptr[1682]) /*_.VALDATA___V1683*/ meltfptr[1682] = (melt_ptr_t) sy_PATTERNEXPAND_PAIRLIST_AS_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:PATTERN_WEIGHT_TUPLE */ { melt_ptr_t sy_PATTERN_WEIGHT_TUPLE = meltgc_named_symbol ("PATTERN_WEIGHT_TUPLE", MELT_GET); if (sy_PATTERN_WEIGHT_TUPLE && NULL == /*_.VALDATA___V1685*/ meltfptr[1684]) /*_.VALDATA___V1685*/ meltfptr[1684] = (melt_ptr_t) sy_PATTERN_WEIGHT_TUPLE; } /*^getnamedsymbol */ /*getnamedsym:REGISTER_GENERATOR_DEVICE */ { melt_ptr_t sy_REGISTER_GENERATOR_DEVICE = meltgc_named_symbol ("REGISTER_GENERATOR_DEVICE", MELT_GET); if (sy_REGISTER_GENERATOR_DEVICE && NULL == /*_.VALDATA___V1687*/ meltfptr[1686]) /*_.VALDATA___V1687*/ meltfptr[1686] = (melt_ptr_t) sy_REGISTER_GENERATOR_DEVICE; } /*^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_SELECTOR"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_SELECTOR__V7*/ meltfptr[6] = 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 = "CLASS_SOURCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_SOURCE__V8*/ meltfptr[7] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_ENVIRONMENT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1074*/ meltfptr[1073]), (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-macro"; /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1078*/ meltfptr[1077]), (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-macro"; /*_.DISCR_MULTIPLE__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1080*/ meltfptr[1079]), (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-macro"; /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]), (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_MODULE_CONTEXT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_MODULE_CONTEXT__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1090*/ meltfptr[1089]), (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-macro"; /*_.CLASS_LOCATED__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1092*/ meltfptr[1091]), (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-macro"; /*_.CLASS_SEXPR__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1096*/ meltfptr[1095]), (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-macro"; /*_.CLASS_SYMBOL__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1120*/ meltfptr[1119]), (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-macro"; /*_.CLASS_FIELD__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1122*/ meltfptr[1121]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_KEYWORD"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_KEYWORD__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1124*/ meltfptr[1123]), (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-macro"; /*_.CLASS_NAMED__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1126*/ meltfptr[1125]), (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-macro"; /*_.CLASS_CITERATOR__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1128*/ meltfptr[1127]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "FRESH_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.FRESH_ENV__V21*/ meltfptr[20] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1130*/ meltfptr[1129]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MULTIPLE_EVERY"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.MULTIPLE_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1132*/ meltfptr[1131]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "PUT_ENV"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.PUT_ENV__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1134*/ meltfptr[1133]), (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_CMATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_CMATCHER__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1136*/ meltfptr[1135]), (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_FUNMATCHER"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1138*/ meltfptr[1137]), (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-macro"; /*_.FIND_ENV__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1140*/ meltfptr[1139]), (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_MACRO_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_MACRO_BINDING__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1142*/ meltfptr[1141]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_SELECTOR_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_SELECTOR_BINDING__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143]), (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_PRIMITIVE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145]), (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_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_CITERATOR_BINDING__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147]), (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_CMATCHER_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149]), (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_FUNMATCHER_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151]), (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_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153]), (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-macro"; /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155]), (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_LET_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_LET_BINDING__V35*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "CLASS_VALUE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159]), (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_PRIMITIVE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161]), (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_ROOT"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_ROOT__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165]), (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 = "PAIRLIST_TO_MULTIPLE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1210*/ meltfptr[1209]), (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-macro"; /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1212*/ meltfptr[1211]), (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-macro"; /*_.CLASS_REFERENCE__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MULTIPLE_MAP"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.MULTIPLE_MAP__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1216*/ meltfptr[1215]), (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-macro"; /*_.DISCR_INTEGER__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217]), (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-macro"; /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219]), (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_PATMACRO_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]), (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-macro"; /*_.DISCR_LIST__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1226*/ meltfptr[1225]), (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 = "CTYPE_VALUE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CTYPE_VALUE__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1228*/ meltfptr[1227]), (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-macro"; /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1230*/ meltfptr[1229]), (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_FORMAL_SEQUENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_FORMAL_SEQUENCE__V49*/ meltfptr[48] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1232*/ meltfptr[1231]), (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_VARIADIC_FORMAL_SEQUENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1234*/ meltfptr[1233]), (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-macro"; /*_.CLASS_CTYPE__V51*/ meltfptr[50] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1236*/ meltfptr[1235]), (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-macro"; /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1238*/ meltfptr[1237]), (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-macro"; /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1242*/ meltfptr[1241]), (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_VERBATIM_STRING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1257*/ meltfptr[1256]), (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_FUNCTION_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1286*/ meltfptr[1285]), (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_DEFINED_VALUE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_DEFINED_VALUE_BINDING__V56*/ meltfptr[55] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1295*/ meltfptr[1294]), (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-macro"; /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1307*/ meltfptr[1306]), (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-macro"; /*_.CLASS_CLASS__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1309*/ meltfptr[1308]), (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_CLASS_SEQUENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_CLASS_SEQUENCE__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1315*/ meltfptr[1314]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "DISCR_MAP_STRINGS"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_MAP_STRINGS__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1317*/ meltfptr[1316]), (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_FIELD_SEQUENCE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.DISCR_FIELD_SEQUENCE__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1319*/ meltfptr[1318]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "MULTIPLE_ITERATE_TEST"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1326*/ meltfptr[1325]), (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_INSTANCE_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_INSTANCE_BINDING__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1332*/ meltfptr[1331]), (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-macro"; /*_.MELT_MODE_REFERENCE__V64*/ meltfptr[63] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1340*/ meltfptr[1339]), (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 = "REFERENCED_VALUE"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.REFERENCED_VALUE__V65*/ meltfptr[64] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1462*/ meltfptr[1461]), (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_FIXED_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_FIXED_BINDING__V66*/ meltfptr[65] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1495*/ meltfptr[1494]), (MELTBPARSTR_PTR MELTBPARSTR_CSTRING MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } /*^apply */ /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.PREVENV___V4*/ meltfptr[3]; /*^apply.arg */ argtab[1].meltbp_cstring = "INSTALL_METHOD"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.INSTALL_METHOD__V67*/ meltfptr[66] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1506*/ meltfptr[1505]), (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_LETREC_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_LETREC_BINDING__V68*/ meltfptr[67] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1512*/ meltfptr[1511]), (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_MACROSTRING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_SEXPR_MACROSTRING__V69*/ meltfptr[68] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1545*/ meltfptr[1544]), (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-macro"; /*_.DISCR_STRBUF__V70*/ meltfptr[69] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1547*/ meltfptr[1546]), (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-macro"; /*_.ADD2OUT__V71*/ meltfptr[70] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1549*/ meltfptr[1548]), (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-macro"; /*_.DISCR_STRING__V72*/ meltfptr[71] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1555*/ meltfptr[1554]), (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_LABEL_BINDING"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1575*/ meltfptr[1574]), (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_DEBUG"; /*^apply.arg */ argtab[2].meltbp_cstring = "warmelt-macro"; /*_.FIND_ENV_DEBUG__V74*/ meltfptr[73] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1598*/ meltfptr[1597]), (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-macro"; /*_.LIST_APPEND2LIST__V75*/ meltfptr[74] = melt_apply ((meltclosure_ptr_t) ( /*_.VALIMPORT___V6*/ meltfptr[5]), (melt_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616]), (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_macro (&meltfram__, meltpredefinited); /**initial routine body**/ meltmod__warmelt_macro__initialmeltchunk_0 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_1 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_2 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_3 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_4 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_5 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_6 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_7 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_8 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_9 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_10 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_11 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_12 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_13 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_14 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_15 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_16 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_17 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_18 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_19 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_20 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_21 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_22 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_23 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_24 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_25 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_26 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_27 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_28 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_29 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_30 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_31 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_32 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_33 (&meltfram__, meltpredefinited); meltmod__warmelt_macro__initialmeltchunk_34 (&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 start_module_melt */ void meltmod__warmelt_macro__initialmeltchunk_0 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /**COMMENT: start of oinibody **/ ; /*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]); MELT_LOCATION ("warmelt-macro.melt:39:/ initchunk"); #line 39 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 39 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (0 >= 0 && 0 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81])))); ((meltobject_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81]))->obj_vartab[0] = (melt_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79]); MELT_LOCATION ("warmelt-macro.melt:39:/ initchunk"); #line 39 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 39 /*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) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_VALUE)))); MELT_LOCATION ("warmelt-macro.melt:39:/ initchunk"); #line 39 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 39 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V82*/ meltfptr[81]); /*putupl#23 */ melt_assertmsg ("putupl #23 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #23 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V83*/ meltfptr[82]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V82*/ meltfptr[81]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V83*/ meltfptr[82]); MELT_LOCATION ("warmelt-macro.melt:39:/ initchunk"); #line 39 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 39 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83])))); ((meltobject_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V85*/ meltfptr[84]); MELT_LOCATION ("warmelt-macro.melt:39:/ initchunk"); #line 39 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 39 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V84*/ meltfptr[83]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])))); ((meltobject_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V87*/ meltfptr[86]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V86*/ meltfptr[85]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])))); ((meltobject_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V89*/ meltfptr[88]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V88*/ meltfptr[87]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*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]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])))); ((meltobject_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#24 */ melt_assertmsg ("putupl #24 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #24 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#25 */ melt_assertmsg ("putupl #25 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #25 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#26 */ melt_assertmsg ("putupl #26 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #26 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#27 */ melt_assertmsg ("putupl #27 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #27 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V92*/ meltfptr[91]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])))); ((meltobject_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V92*/ meltfptr[91]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V94*/ meltfptr[93]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92])))); ((meltobject_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 44 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V93*/ meltfptr[92]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])))); ((meltobject_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V96*/ meltfptr[95]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94])))); ((meltobject_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 44 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V95*/ meltfptr[94]); /*putupl#28 */ melt_assertmsg ("putupl #28 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #28 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#29 */ melt_assertmsg ("putupl #29 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #29 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#30 */ melt_assertmsg ("putupl #30 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #30 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V93*/ meltfptr[92]); /*putupl#31 */ melt_assertmsg ("putupl #31 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #31 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V95*/ meltfptr[94]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 44 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89])))); ((meltobject_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V97*/ meltfptr[96]); MELT_LOCATION ("warmelt-macro.melt:44:/ initchunk"); #line 44 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 44 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V90*/ meltfptr[89]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])))); ((meltobject_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V101*/ meltfptr[100]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V100*/ meltfptr[99]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])))); ((meltobject_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V103*/ meltfptr[102]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V102*/ meltfptr[101]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])))); ((meltobject_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V105*/ meltfptr[104]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])))); ((meltobject_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#32 */ melt_assertmsg ("putupl #32 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #32 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#33 */ melt_assertmsg ("putupl #33 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #33 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#34 */ melt_assertmsg ("putupl #34 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #34 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#35 */ melt_assertmsg ("putupl #35 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #35 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V106*/ meltfptr[105]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])))); ((meltobject_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V106*/ meltfptr[105]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*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]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106])))); ((meltobject_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 53 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V107*/ meltfptr[106]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*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-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*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) ( /*_.VALDATA___V104*/ meltfptr[103]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 53 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V109*/ meltfptr[108]); /*putupl#36 */ melt_assertmsg ("putupl #36 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #36 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#37 */ melt_assertmsg ("putupl #37 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #37 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#38 */ melt_assertmsg ("putupl #38 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #38 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V107*/ meltfptr[106]); /*putupl#39 */ melt_assertmsg ("putupl #39 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #39 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V109*/ meltfptr[108]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 53 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103])))); ((meltobject_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V111*/ meltfptr[110]); MELT_LOCATION ("warmelt-macro.melt:53:/ initchunk"); #line 53 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 53 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V104*/ meltfptr[103]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V112*/ meltfptr[111])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V112*/ meltfptr[111])))); ((meltobject_ptr_t) ( /*_.VALDATA___V112*/ meltfptr[111]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V113*/ meltfptr[112]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V112*/ meltfptr[111]); /*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-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*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-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#40 */ melt_assertmsg ("putupl #40 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #40 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#41 */ melt_assertmsg ("putupl #41 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #41 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#42 */ melt_assertmsg ("putupl #42 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #42 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#43 */ melt_assertmsg ("putupl #43 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #43 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V120*/ meltfptr[119]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V120*/ meltfptr[119]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*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]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120])))); ((meltobject_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 66 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#44 */ melt_assertmsg ("putupl #44 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #44 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#45 */ melt_assertmsg ("putupl #45 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #45 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#46 */ melt_assertmsg ("putupl #46 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #46 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V123*/ meltfptr[122]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 66 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117])))); ((meltobject_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V123*/ meltfptr[122]); MELT_LOCATION ("warmelt-macro.melt:66:/ initchunk"); #line 66 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 66 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V118*/ meltfptr[117]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])))); ((meltobject_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V125*/ meltfptr[124]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V124*/ meltfptr[123]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])))); ((meltobject_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V127*/ meltfptr[126]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V126*/ meltfptr[125]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*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-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#47 */ melt_assertmsg ("putupl #47 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #47 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#48 */ melt_assertmsg ("putupl #48 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #48 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#49 */ melt_assertmsg ("putupl #49 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #49 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#50 */ melt_assertmsg ("putupl #50 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #50 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#51 */ melt_assertmsg ("putupl #51 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #51 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V130*/ meltfptr[129]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V130*/ meltfptr[129]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])))); ((meltobject_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V132*/ meltfptr[131]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130])))); ((meltobject_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 74 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V131*/ meltfptr[130]); /*putupl#52 */ melt_assertmsg ("putupl #52 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #52 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#53 */ melt_assertmsg ("putupl #53 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #53 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#54 */ melt_assertmsg ("putupl #54 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #54 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#55 */ melt_assertmsg ("putupl #55 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #55 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V131*/ meltfptr[130]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V133*/ meltfptr[132]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 74 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V133*/ meltfptr[132]); MELT_LOCATION ("warmelt-macro.melt:74:/ initchunk"); #line 74 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 74 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V128*/ meltfptr[127]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V135*/ meltfptr[134]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V134*/ meltfptr[133]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])))); ((meltobject_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V137*/ meltfptr[136]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V136*/ meltfptr[135]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*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-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#56 */ melt_assertmsg ("putupl #56 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #56 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#57 */ melt_assertmsg ("putupl #57 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #57 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#58 */ melt_assertmsg ("putupl #58 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #58 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#59 */ melt_assertmsg ("putupl #59 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #59 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#60 */ melt_assertmsg ("putupl #60 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #60 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V140*/ meltfptr[139]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V140*/ meltfptr[139]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140])))); ((meltobject_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V142*/ meltfptr[141]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140])))); ((meltobject_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 84 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V141*/ meltfptr[140]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_0 */ void meltmod__warmelt_macro__initialmeltchunk_1 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142])))); ((meltobject_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V144*/ meltfptr[143]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142])))); ((meltobject_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 84 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V143*/ meltfptr[142]); /*putupl#61 */ melt_assertmsg ("putupl #61 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #61 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#62 */ melt_assertmsg ("putupl #62 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #62 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#63 */ melt_assertmsg ("putupl #63 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #63 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#64 */ melt_assertmsg ("putupl #64 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #64 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V141*/ meltfptr[140]); /*putupl#65 */ melt_assertmsg ("putupl #65 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #65 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V143*/ meltfptr[142]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V145*/ meltfptr[144]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 84 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V145*/ meltfptr[144]); MELT_LOCATION ("warmelt-macro.melt:84:/ initchunk"); #line 84 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 84 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V138*/ meltfptr[137]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V146*/ meltfptr[145]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V148*/ meltfptr[147]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])))); ((meltobject_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V151*/ meltfptr[150]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V150*/ meltfptr[149]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*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-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#66 */ melt_assertmsg ("putupl #66 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #66 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#67 */ melt_assertmsg ("putupl #67 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #67 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#68 */ melt_assertmsg ("putupl #68 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #68 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#69 */ melt_assertmsg ("putupl #69 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #69 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#70 */ melt_assertmsg ("putupl #70 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #70 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V154*/ meltfptr[153]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154])))); ((meltobject_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V156*/ meltfptr[155]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154])))); ((meltobject_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 95 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V155*/ meltfptr[154]); /*putupl#71 */ melt_assertmsg ("putupl #71 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #71 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#72 */ melt_assertmsg ("putupl #72 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #72 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#73 */ melt_assertmsg ("putupl #73 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #73 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#74 */ melt_assertmsg ("putupl #74 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #74 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V155*/ meltfptr[154]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V157*/ meltfptr[156]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 95 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V157*/ meltfptr[156]); MELT_LOCATION ("warmelt-macro.melt:95:/ initchunk"); #line 95 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 95 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V152*/ meltfptr[151]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157])))); ((meltobject_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V159*/ meltfptr[158]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V158*/ meltfptr[157]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V160*/ meltfptr[159])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V160*/ meltfptr[159])))); ((meltobject_ptr_t) ( /*_.VALDATA___V160*/ meltfptr[159]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V161*/ meltfptr[160]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V160*/ meltfptr[159]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])))); ((meltobject_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V163*/ meltfptr[162]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])))); ((meltobject_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#75 */ melt_assertmsg ("putupl #75 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #75 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#76 */ melt_assertmsg ("putupl #76 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #76 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#77 */ melt_assertmsg ("putupl #77 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #77 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#78 */ melt_assertmsg ("putupl #78 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #78 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#79 */ melt_assertmsg ("putupl #79 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #79 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V164*/ meltfptr[163]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])))); ((meltobject_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V164*/ meltfptr[163]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*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]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164])))); ((meltobject_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 106 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V165*/ meltfptr[164]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*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]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166])))); ((meltobject_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 106 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V167*/ meltfptr[166]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*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]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168])))); ((meltobject_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 106 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V169*/ meltfptr[168]); /*putupl#80 */ melt_assertmsg ("putupl #80 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #80 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#81 */ melt_assertmsg ("putupl #81 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #81 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#82 */ melt_assertmsg ("putupl #82 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #82 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#83 */ melt_assertmsg ("putupl #83 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #83 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V165*/ meltfptr[164]); /*putupl#84 */ melt_assertmsg ("putupl #84 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #84 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V167*/ meltfptr[166]); /*putupl#85 */ melt_assertmsg ("putupl #85 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #85 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V169*/ meltfptr[168]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V171*/ meltfptr[170]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 106 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161])))); ((meltobject_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V171*/ meltfptr[170]); MELT_LOCATION ("warmelt-macro.melt:106:/ initchunk"); #line 106 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 106 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V162*/ meltfptr[161]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])))); ((meltobject_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V173*/ meltfptr[172]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V172*/ meltfptr[171]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V174*/ meltfptr[173])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V174*/ meltfptr[173])))); ((meltobject_ptr_t) ( /*_.VALDATA___V174*/ meltfptr[173]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V175*/ meltfptr[174]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V174*/ meltfptr[173]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])))); ((meltobject_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V177*/ meltfptr[176]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V176*/ meltfptr[175]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])))); ((meltobject_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V179*/ meltfptr[178]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V178*/ meltfptr[177]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V181*/ meltfptr[180]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#86 */ melt_assertmsg ("putupl #86 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #86 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#87 */ melt_assertmsg ("putupl #87 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #87 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#88 */ melt_assertmsg ("putupl #88 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #88 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#89 */ melt_assertmsg ("putupl #89 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #89 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#90 */ melt_assertmsg ("putupl #90 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #90 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V182*/ meltfptr[181]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V182*/ meltfptr[181]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*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]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182])))); ((meltobject_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 118 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V183*/ meltfptr[182]); /*putupl#91 */ melt_assertmsg ("putupl #91 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #91 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#92 */ melt_assertmsg ("putupl #92 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #92 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#93 */ melt_assertmsg ("putupl #93 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #93 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#94 */ melt_assertmsg ("putupl #94 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #94 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V183*/ meltfptr[182]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V185*/ meltfptr[184]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 118 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V185*/ meltfptr[184]); MELT_LOCATION ("warmelt-macro.melt:118:/ initchunk"); #line 118 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 118 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V180*/ meltfptr[179]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])))); ((meltobject_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V187*/ meltfptr[186]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V186*/ meltfptr[185]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])))); ((meltobject_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V189*/ meltfptr[188]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V188*/ meltfptr[187]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])))); ((meltobject_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V191*/ meltfptr[190]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])))); ((meltobject_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#95 */ melt_assertmsg ("putupl #95 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #95 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#96 */ melt_assertmsg ("putupl #96 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #96 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#97 */ melt_assertmsg ("putupl #97 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #97 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#98 */ melt_assertmsg ("putupl #98 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #98 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#99 */ melt_assertmsg ("putupl #99 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #99 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])))); ((meltobject_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V192*/ meltfptr[191]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192])))); ((meltobject_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V194*/ meltfptr[193]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192])))); ((meltobject_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 127 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V193*/ meltfptr[192]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194])))); ((meltobject_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V196*/ meltfptr[195]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194])))); ((meltobject_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 127 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V195*/ meltfptr[194]); /*putupl#100 */ melt_assertmsg ("putupl #100 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #100 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#101 */ melt_assertmsg ("putupl #101 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #101 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#102 */ melt_assertmsg ("putupl #102 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #102 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*putupl#103 */ melt_assertmsg ("putupl #103 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #103 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V193*/ meltfptr[192]); /*putupl#104 */ melt_assertmsg ("putupl #104 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #104 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V195*/ meltfptr[194]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V197*/ meltfptr[196]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 127 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189])))); ((meltobject_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V197*/ meltfptr[196]); MELT_LOCATION ("warmelt-macro.melt:127:/ initchunk"); #line 127 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 127 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V190*/ meltfptr[189]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V198*/ meltfptr[197])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V198*/ meltfptr[197])))); ((meltobject_ptr_t) ( /*_.VALDATA___V198*/ meltfptr[197]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V199*/ meltfptr[198]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V198*/ meltfptr[197]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])))); ((meltobject_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V201*/ meltfptr[200]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V200*/ meltfptr[199]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])))); ((meltobject_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V203*/ meltfptr[202]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V202*/ meltfptr[201]); MELT_LOCATION ("warmelt-macro.melt:138:/ initchunk"); #line 138 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 138 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V205*/ meltfptr[204]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_1 */ void meltmod__warmelt_macro__initialmeltchunk_2 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:138:/ initchunk"); #line 138 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 138 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#105 */ melt_assertmsg ("putupl #105 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #105 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#106 */ melt_assertmsg ("putupl #106 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #106 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#107 */ melt_assertmsg ("putupl #107 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #107 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#108 */ melt_assertmsg ("putupl #108 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #108 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#109 */ melt_assertmsg ("putupl #109 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #109 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V206*/ meltfptr[205]); MELT_LOCATION ("warmelt-macro.melt:138:/ initchunk"); #line 138 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 138 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V206*/ meltfptr[205]); /*putupl#110 */ melt_assertmsg ("putupl #110 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #110 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#111 */ melt_assertmsg ("putupl #111 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #111 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#112 */ melt_assertmsg ("putupl #112 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #112 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V207*/ meltfptr[206]); MELT_LOCATION ("warmelt-macro.melt:138:/ initchunk"); #line 138 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 138 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203])))); ((meltobject_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V207*/ meltfptr[206]); MELT_LOCATION ("warmelt-macro.melt:138:/ initchunk"); #line 138 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 138 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V204*/ meltfptr[203]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])))); ((meltobject_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V209*/ meltfptr[208]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V208*/ meltfptr[207]); MELT_LOCATION ("warmelt-macro.melt:145:/ initchunk"); #line 145 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 145 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V211*/ meltfptr[210]); MELT_LOCATION ("warmelt-macro.melt:145:/ initchunk"); #line 145 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 145 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#113 */ melt_assertmsg ("putupl #113 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #113 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#114 */ melt_assertmsg ("putupl #114 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #114 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#115 */ melt_assertmsg ("putupl #115 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #115 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#116 */ melt_assertmsg ("putupl #116 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #116 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#117 */ melt_assertmsg ("putupl #117 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #117 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V212*/ meltfptr[211]); MELT_LOCATION ("warmelt-macro.melt:145:/ initchunk"); #line 145 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 145 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V212*/ meltfptr[211]); /*putupl#118 */ melt_assertmsg ("putupl #118 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #118 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#119 */ melt_assertmsg ("putupl #119 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #119 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#120 */ melt_assertmsg ("putupl #120 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #120 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V213*/ meltfptr[212]); MELT_LOCATION ("warmelt-macro.melt:145:/ initchunk"); #line 145 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 145 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V213*/ meltfptr[212]); MELT_LOCATION ("warmelt-macro.melt:145:/ initchunk"); #line 145 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 145 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V210*/ meltfptr[209]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V215*/ meltfptr[214]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V214*/ meltfptr[213]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])))); ((meltobject_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V217*/ meltfptr[216]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])))); ((meltobject_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#121 */ melt_assertmsg ("putupl #121 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #121 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#122 */ melt_assertmsg ("putupl #122 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #122 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#123 */ melt_assertmsg ("putupl #123 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #123 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#124 */ melt_assertmsg ("putupl #124 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #124 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V218*/ meltfptr[217]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])))); ((meltobject_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V218*/ meltfptr[217]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V220*/ meltfptr[219]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218])))); ((meltobject_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 152 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V219*/ meltfptr[218]); /*putupl#125 */ melt_assertmsg ("putupl #125 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #125 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#126 */ melt_assertmsg ("putupl #126 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #126 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#127 */ melt_assertmsg ("putupl #127 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #127 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V219*/ meltfptr[218]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V221*/ meltfptr[220]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 152 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215])))); ((meltobject_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V221*/ meltfptr[220]); MELT_LOCATION ("warmelt-macro.melt:152:/ initchunk"); #line 152 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 152 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V216*/ meltfptr[215]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])))); ((meltobject_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V223*/ meltfptr[222]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V222*/ meltfptr[221]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])))); ((meltobject_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V225*/ meltfptr[224]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V224*/ meltfptr[223]); MELT_LOCATION ("warmelt-macro.melt:160:/ initchunk"); #line 160 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 160 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V227*/ meltfptr[226]); MELT_LOCATION ("warmelt-macro.melt:160:/ initchunk"); #line 160 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 160 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*putupl#128 */ melt_assertmsg ("putupl #128 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #128 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#129 */ melt_assertmsg ("putupl #129 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #129 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#130 */ melt_assertmsg ("putupl #130 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #130 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#131 */ melt_assertmsg ("putupl #131 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #131 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#132 */ melt_assertmsg ("putupl #132 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #132 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V118*/ meltfptr[117]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V228*/ meltfptr[227]); MELT_LOCATION ("warmelt-macro.melt:160:/ initchunk"); #line 160 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 160 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V228*/ meltfptr[227]); /*putupl#133 */ melt_assertmsg ("putupl #133 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #133 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#134 */ melt_assertmsg ("putupl #134 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #134 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#135 */ melt_assertmsg ("putupl #135 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #135 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V121*/ meltfptr[120]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V229*/ meltfptr[228]); MELT_LOCATION ("warmelt-macro.melt:160:/ initchunk"); #line 160 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 160 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V229*/ meltfptr[228]); MELT_LOCATION ("warmelt-macro.melt:160:/ initchunk"); #line 160 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 160 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V226*/ meltfptr[225]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])))); ((meltobject_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V231*/ meltfptr[230]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V230*/ meltfptr[229]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V233*/ meltfptr[232]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#136 */ melt_assertmsg ("putupl #136 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #136 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#137 */ melt_assertmsg ("putupl #137 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #137 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#138 */ melt_assertmsg ("putupl #138 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #138 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#139 */ melt_assertmsg ("putupl #139 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #139 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V234*/ meltfptr[233]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V234*/ meltfptr[233]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234])))); ((meltobject_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V236*/ meltfptr[235]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234])))); ((meltobject_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 167 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V235*/ meltfptr[234]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*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]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236])))); ((meltobject_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 167 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V237*/ meltfptr[236]); /*putupl#140 */ melt_assertmsg ("putupl #140 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #140 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#141 */ melt_assertmsg ("putupl #141 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #141 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#142 */ melt_assertmsg ("putupl #142 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #142 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V235*/ meltfptr[234]); /*putupl#143 */ melt_assertmsg ("putupl #143 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #143 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V237*/ meltfptr[236]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V239*/ meltfptr[238]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 167 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V239*/ meltfptr[238]); MELT_LOCATION ("warmelt-macro.melt:167:/ initchunk"); #line 167 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 167 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V232*/ meltfptr[231]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])))); ((meltobject_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V241*/ meltfptr[240]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V240*/ meltfptr[239]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])))); ((meltobject_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V243*/ meltfptr[242]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V242*/ meltfptr[241]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])))); ((meltobject_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V245*/ meltfptr[244]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V244*/ meltfptr[243]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V247*/ meltfptr[246]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#144 */ melt_assertmsg ("putupl #144 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #144 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#145 */ melt_assertmsg ("putupl #145 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #145 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#146 */ melt_assertmsg ("putupl #146 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #146 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#147 */ melt_assertmsg ("putupl #147 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #147 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V248*/ meltfptr[247]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V248*/ meltfptr[247]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*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]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248])))); ((meltobject_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 176 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V249*/ meltfptr[248]); /*putupl#148 */ melt_assertmsg ("putupl #148 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #148 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#149 */ melt_assertmsg ("putupl #149 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #149 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#150 */ melt_assertmsg ("putupl #150 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #150 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V249*/ meltfptr[248]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 176 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V251*/ meltfptr[250]); MELT_LOCATION ("warmelt-macro.melt:176:/ initchunk"); #line 176 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 176 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V246*/ meltfptr[245]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V252*/ meltfptr[251])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V252*/ meltfptr[251])))); ((meltobject_ptr_t) ( /*_.VALDATA___V252*/ meltfptr[251]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V253*/ meltfptr[252]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V252*/ meltfptr[251]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V254*/ meltfptr[253])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V254*/ meltfptr[253])))); ((meltobject_ptr_t) ( /*_.VALDATA___V254*/ meltfptr[253]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V255*/ meltfptr[254]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V254*/ meltfptr[253]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])))); ((meltobject_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V257*/ meltfptr[256]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])))); ((meltobject_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#151 */ melt_assertmsg ("putupl #151 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #151 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#152 */ melt_assertmsg ("putupl #152 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #152 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#153 */ melt_assertmsg ("putupl #153 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #153 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#154 */ melt_assertmsg ("putupl #154 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #154 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V258*/ meltfptr[257]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])))); ((meltobject_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V258*/ meltfptr[257]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])))); ((meltobject_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V260*/ meltfptr[259]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_2 */ void meltmod__warmelt_macro__initialmeltchunk_3 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258])))); ((meltobject_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 184 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V259*/ meltfptr[258]); /*putupl#155 */ melt_assertmsg ("putupl #155 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #155 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#156 */ melt_assertmsg ("putupl #156 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #156 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#157 */ melt_assertmsg ("putupl #157 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #157 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V259*/ meltfptr[258]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V261*/ meltfptr[260]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 184 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255])))); ((meltobject_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V261*/ meltfptr[260]); MELT_LOCATION ("warmelt-macro.melt:184:/ initchunk"); #line 184 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 184 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V256*/ meltfptr[255]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V262*/ meltfptr[261])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V262*/ meltfptr[261])))); ((meltobject_ptr_t) ( /*_.VALDATA___V262*/ meltfptr[261]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V263*/ meltfptr[262]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V262*/ meltfptr[261]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V264*/ meltfptr[263])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V264*/ meltfptr[263])))); ((meltobject_ptr_t) ( /*_.VALDATA___V264*/ meltfptr[263]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V265*/ meltfptr[264]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V264*/ meltfptr[263]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])))); ((meltobject_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V267*/ meltfptr[266]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])))); ((meltobject_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#158 */ melt_assertmsg ("putupl #158 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #158 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#159 */ melt_assertmsg ("putupl #159 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #159 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#160 */ melt_assertmsg ("putupl #160 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #160 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#161 */ melt_assertmsg ("putupl #161 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #161 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V268*/ meltfptr[267]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])))); ((meltobject_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V268*/ meltfptr[267]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])))); ((meltobject_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V270*/ meltfptr[269]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268])))); ((meltobject_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 194 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V269*/ meltfptr[268]); /*putupl#162 */ melt_assertmsg ("putupl #162 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #162 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#163 */ melt_assertmsg ("putupl #163 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #163 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#164 */ melt_assertmsg ("putupl #164 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #164 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V269*/ meltfptr[268]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V271*/ meltfptr[270]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 194 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265])))); ((meltobject_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V271*/ meltfptr[270]); MELT_LOCATION ("warmelt-macro.melt:194:/ initchunk"); #line 194 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 194 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V266*/ meltfptr[265]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V272*/ meltfptr[271])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V272*/ meltfptr[271])))); ((meltobject_ptr_t) ( /*_.VALDATA___V272*/ meltfptr[271]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V273*/ meltfptr[272]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V272*/ meltfptr[271]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V274*/ meltfptr[273])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V274*/ meltfptr[273])))); ((meltobject_ptr_t) ( /*_.VALDATA___V274*/ meltfptr[273]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V275*/ meltfptr[274]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V274*/ meltfptr[273]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])))); ((meltobject_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V277*/ meltfptr[276]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])))); ((meltobject_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#165 */ melt_assertmsg ("putupl #165 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #165 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#166 */ melt_assertmsg ("putupl #166 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #166 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#167 */ melt_assertmsg ("putupl #167 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #167 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#168 */ melt_assertmsg ("putupl #168 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #168 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V278*/ meltfptr[277]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])))); ((meltobject_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V278*/ meltfptr[277]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])))); ((meltobject_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V280*/ meltfptr[279]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278])))); ((meltobject_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 204 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V279*/ meltfptr[278]); /*putupl#169 */ melt_assertmsg ("putupl #169 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #169 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#170 */ melt_assertmsg ("putupl #170 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #170 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#171 */ melt_assertmsg ("putupl #171 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #171 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V279*/ meltfptr[278]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V281*/ meltfptr[280]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 204 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275])))); ((meltobject_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V281*/ meltfptr[280]); MELT_LOCATION ("warmelt-macro.melt:204:/ initchunk"); #line 204 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 204 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V276*/ meltfptr[275]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V282*/ meltfptr[281])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V282*/ meltfptr[281])))); ((meltobject_ptr_t) ( /*_.VALDATA___V282*/ meltfptr[281]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V283*/ meltfptr[282]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V282*/ meltfptr[281]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V284*/ meltfptr[283])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V284*/ meltfptr[283])))); ((meltobject_ptr_t) ( /*_.VALDATA___V284*/ meltfptr[283]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V285*/ meltfptr[284]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V284*/ meltfptr[283]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])))); ((meltobject_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V287*/ meltfptr[286]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])))); ((meltobject_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#172 */ melt_assertmsg ("putupl #172 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #172 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#173 */ melt_assertmsg ("putupl #173 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #173 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#174 */ melt_assertmsg ("putupl #174 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #174 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#175 */ melt_assertmsg ("putupl #175 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #175 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V288*/ meltfptr[287]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])))); ((meltobject_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V288*/ meltfptr[287]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288])))); ((meltobject_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V290*/ meltfptr[289]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288])))); ((meltobject_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 211 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V289*/ meltfptr[288]); /*putupl#176 */ melt_assertmsg ("putupl #176 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #176 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#177 */ melt_assertmsg ("putupl #177 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #177 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#178 */ melt_assertmsg ("putupl #178 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #178 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V291*/ meltfptr[290]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 211 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285])))); ((meltobject_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V291*/ meltfptr[290]); MELT_LOCATION ("warmelt-macro.melt:211:/ initchunk"); #line 211 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 211 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V286*/ meltfptr[285]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V294*/ meltfptr[293])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V294*/ meltfptr[293])))); ((meltobject_ptr_t) ( /*_.VALDATA___V294*/ meltfptr[293]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V295*/ meltfptr[294]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V294*/ meltfptr[293]); MELT_LOCATION ("warmelt-macro.melt:220:/ initchunk"); #line 220 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 220 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])))); ((meltobject_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V297*/ meltfptr[296]); MELT_LOCATION ("warmelt-macro.melt:220:/ initchunk"); #line 220 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 220 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])))); ((meltobject_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]); /*putupl#179 */ melt_assertmsg ("putupl #179 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #179 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#180 */ melt_assertmsg ("putupl #180 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #180 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#181 */ melt_assertmsg ("putupl #181 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #181 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#182 */ melt_assertmsg ("putupl #182 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #182 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#183 */ melt_assertmsg ("putupl #183 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #183 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V298*/ meltfptr[297]); MELT_LOCATION ("warmelt-macro.melt:220:/ initchunk"); #line 220 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 220 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])))); ((meltobject_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V298*/ meltfptr[297]); /*putupl#184 */ melt_assertmsg ("putupl #184 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #184 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#185 */ melt_assertmsg ("putupl #185 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #185 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#186 */ melt_assertmsg ("putupl #186 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #186 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V299*/ meltfptr[298]); MELT_LOCATION ("warmelt-macro.melt:220:/ initchunk"); #line 220 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 220 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295])))); ((meltobject_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V299*/ meltfptr[298]); MELT_LOCATION ("warmelt-macro.melt:220:/ initchunk"); #line 220 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 220 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V296*/ meltfptr[295]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V300*/ meltfptr[299])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V300*/ meltfptr[299])))); ((meltobject_ptr_t) ( /*_.VALDATA___V300*/ meltfptr[299]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V301*/ meltfptr[300]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V300*/ meltfptr[299]); MELT_LOCATION ("warmelt-macro.melt:227:/ initchunk"); #line 227 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 227 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])))); ((meltobject_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V303*/ meltfptr[302]); MELT_LOCATION ("warmelt-macro.melt:227:/ initchunk"); #line 227 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 227 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])))); ((meltobject_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]); /*putupl#187 */ melt_assertmsg ("putupl #187 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #187 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#188 */ melt_assertmsg ("putupl #188 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #188 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#189 */ melt_assertmsg ("putupl #189 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #189 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#190 */ melt_assertmsg ("putupl #190 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #190 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#191 */ melt_assertmsg ("putupl #191 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #191 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V286*/ meltfptr[285]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V304*/ meltfptr[303]); MELT_LOCATION ("warmelt-macro.melt:227:/ initchunk"); #line 227 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 227 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])))); ((meltobject_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V304*/ meltfptr[303]); /*putupl#192 */ melt_assertmsg ("putupl #192 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #192 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#193 */ melt_assertmsg ("putupl #193 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #193 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#194 */ melt_assertmsg ("putupl #194 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #194 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V289*/ meltfptr[288]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V305*/ meltfptr[304]); MELT_LOCATION ("warmelt-macro.melt:227:/ initchunk"); #line 227 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 227 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301])))); ((meltobject_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V305*/ meltfptr[304]); MELT_LOCATION ("warmelt-macro.melt:227:/ initchunk"); #line 227 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 227 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V302*/ meltfptr[301]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V306*/ meltfptr[305])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V306*/ meltfptr[305])))); ((meltobject_ptr_t) ( /*_.VALDATA___V306*/ meltfptr[305]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V307*/ meltfptr[306]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V306*/ meltfptr[305]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])))); ((meltobject_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V309*/ meltfptr[308]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])))); ((meltobject_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#195 */ melt_assertmsg ("putupl #195 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #195 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#196 */ melt_assertmsg ("putupl #196 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #196 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#197 */ melt_assertmsg ("putupl #197 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #197 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#198 */ melt_assertmsg ("putupl #198 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #198 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V310*/ meltfptr[309]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])))); ((meltobject_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V310*/ meltfptr[309]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*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]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310])))); ((meltobject_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 236 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V311*/ meltfptr[310]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*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-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*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) ( /*_.VALDATA___V308*/ meltfptr[307]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 236 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V313*/ meltfptr[312]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])))); ((meltobject_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V316*/ meltfptr[315]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314])))); ((meltobject_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 236 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V315*/ meltfptr[314]); /*putupl#199 */ melt_assertmsg ("putupl #199 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #199 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#200 */ melt_assertmsg ("putupl #200 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #200 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_3 */ void meltmod__warmelt_macro__initialmeltchunk_4 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#201*/ melt_assertmsg ("putupl #201 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #201 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]); /*putupl#202 */ melt_assertmsg ("putupl #202 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #202 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]); /*putupl#203 */ melt_assertmsg ("putupl #203 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #203 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V317*/ meltfptr[316]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 236 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307])))); ((meltobject_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V317*/ meltfptr[316]); MELT_LOCATION ("warmelt-macro.melt:236:/ initchunk"); #line 236 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 236 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V308*/ meltfptr[307]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V320*/ meltfptr[319])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V320*/ meltfptr[319])))); ((meltobject_ptr_t) ( /*_.VALDATA___V320*/ meltfptr[319]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V321*/ meltfptr[320]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V320*/ meltfptr[319]); /*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]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V324*/ meltfptr[323]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])))); ((meltobject_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V327*/ meltfptr[326]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])))); ((meltobject_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); /*putupl#204 */ melt_assertmsg ("putupl #204 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #204 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#205 */ melt_assertmsg ("putupl #205 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #205 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#206 */ melt_assertmsg ("putupl #206 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #206 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#207 */ melt_assertmsg ("putupl #207 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #207 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#208 */ melt_assertmsg ("putupl #208 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #208 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V328*/ meltfptr[327]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])))); ((meltobject_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V328*/ meltfptr[327]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*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]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328])))); ((meltobject_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 249 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V329*/ meltfptr[328]); /*putupl#209 */ melt_assertmsg ("putupl #209 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #209 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#210 */ melt_assertmsg ("putupl #210 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #210 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#211 */ melt_assertmsg ("putupl #211 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #211 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V311*/ meltfptr[310]); /*putupl#212 */ melt_assertmsg ("putupl #212 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #212 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V313*/ meltfptr[312]); /*putupl#213 */ melt_assertmsg ("putupl #213 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #213 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V315*/ meltfptr[314]); /*putupl#214 */ melt_assertmsg ("putupl #214 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #214 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V329*/ meltfptr[328]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V331*/ meltfptr[330]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 249 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325])))); ((meltobject_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V331*/ meltfptr[330]); MELT_LOCATION ("warmelt-macro.melt:249:/ initchunk"); #line 249 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 249 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V326*/ meltfptr[325]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V332*/ meltfptr[331])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V332*/ meltfptr[331])))); ((meltobject_ptr_t) ( /*_.VALDATA___V332*/ meltfptr[331]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V333*/ meltfptr[332]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V332*/ meltfptr[331]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V334*/ meltfptr[333])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V334*/ meltfptr[333])))); ((meltobject_ptr_t) ( /*_.VALDATA___V334*/ meltfptr[333]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V335*/ meltfptr[334]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V334*/ meltfptr[333]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])))); ((meltobject_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V337*/ meltfptr[336]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])))); ((meltobject_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#215 */ melt_assertmsg ("putupl #215 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #215 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#216 */ melt_assertmsg ("putupl #216 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #216 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#217 */ melt_assertmsg ("putupl #217 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #217 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#218 */ melt_assertmsg ("putupl #218 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #218 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])))); ((meltobject_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V338*/ meltfptr[337]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*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]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338])))); ((meltobject_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 261 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V339*/ meltfptr[338]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])))); ((meltobject_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V342*/ meltfptr[341]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340])))); ((meltobject_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 261 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V341*/ meltfptr[340]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])))); ((meltobject_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V344*/ meltfptr[343]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342])))); ((meltobject_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 261 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V343*/ meltfptr[342]); /*putupl#219 */ melt_assertmsg ("putupl #219 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #219 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#220 */ melt_assertmsg ("putupl #220 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #220 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#221 */ melt_assertmsg ("putupl #221 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #221 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V339*/ meltfptr[338]); /*putupl#222 */ melt_assertmsg ("putupl #222 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #222 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V341*/ meltfptr[340]); /*putupl#223 */ melt_assertmsg ("putupl #223 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #223 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V343*/ meltfptr[342]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V345*/ meltfptr[344]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 261 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335])))); ((meltobject_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V345*/ meltfptr[344]); MELT_LOCATION ("warmelt-macro.melt:261:/ initchunk"); #line 261 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 261 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V336*/ meltfptr[335]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V346*/ meltfptr[345])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V346*/ meltfptr[345])))); ((meltobject_ptr_t) ( /*_.VALDATA___V346*/ meltfptr[345]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V347*/ meltfptr[346]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V346*/ meltfptr[345]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V350*/ meltfptr[349])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V350*/ meltfptr[349])))); ((meltobject_ptr_t) ( /*_.VALDATA___V350*/ meltfptr[349]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V351*/ meltfptr[350]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V350*/ meltfptr[349]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V352*/ meltfptr[351])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V352*/ meltfptr[351])))); ((meltobject_ptr_t) ( /*_.VALDATA___V352*/ meltfptr[351]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V353*/ meltfptr[352]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V352*/ meltfptr[351]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V355*/ meltfptr[354]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#224 */ melt_assertmsg ("putupl #224 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #224 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#225 */ melt_assertmsg ("putupl #225 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #225 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#226 */ melt_assertmsg ("putupl #226 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #226 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#227 */ melt_assertmsg ("putupl #227 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #227 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V356*/ meltfptr[355]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V356*/ meltfptr[355]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356])))); ((meltobject_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V358*/ meltfptr[357]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356])))); ((meltobject_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 272 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V357*/ meltfptr[356]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358])))); ((meltobject_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V360*/ meltfptr[359]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358])))); ((meltobject_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 272 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#228 */ melt_assertmsg ("putupl #228 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #228 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#229 */ melt_assertmsg ("putupl #229 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #229 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#230 */ melt_assertmsg ("putupl #230 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #230 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#231 */ melt_assertmsg ("putupl #231 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #231 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 272 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353])))); ((meltobject_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V361*/ meltfptr[360]); MELT_LOCATION ("warmelt-macro.melt:272:/ initchunk"); #line 272 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 272 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V354*/ meltfptr[353]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V362*/ meltfptr[361])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V362*/ meltfptr[361])))); ((meltobject_ptr_t) ( /*_.VALDATA___V362*/ meltfptr[361]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V363*/ meltfptr[362]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V362*/ meltfptr[361]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])))); ((meltobject_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V365*/ meltfptr[364]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V364*/ meltfptr[363]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V366*/ meltfptr[365])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V366*/ meltfptr[365])))); ((meltobject_ptr_t) ( /*_.VALDATA___V366*/ meltfptr[365]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V367*/ meltfptr[366]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V366*/ meltfptr[365]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])))); ((meltobject_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V369*/ meltfptr[368]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])))); ((meltobject_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#232 */ melt_assertmsg ("putupl #232 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #232 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#233 */ melt_assertmsg ("putupl #233 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #233 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#234 */ melt_assertmsg ("putupl #234 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #234 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#235 */ melt_assertmsg ("putupl #235 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #235 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#236 */ melt_assertmsg ("putupl #236 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #236 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V370*/ meltfptr[369]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])))); ((meltobject_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V370*/ meltfptr[369]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370])))); ((meltobject_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V372*/ meltfptr[371]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370])))); ((meltobject_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 282 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V371*/ meltfptr[370]); /*putupl#237 */ melt_assertmsg ("putupl #237 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #237 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#238 */ melt_assertmsg ("putupl #238 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #238 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#239 */ melt_assertmsg ("putupl #239 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #239 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#240 */ melt_assertmsg ("putupl #240 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #240 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#241 */ melt_assertmsg ("putupl #241 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #241 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V371*/ meltfptr[370]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V373*/ meltfptr[372]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 282 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367])))); ((meltobject_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V373*/ meltfptr[372]); MELT_LOCATION ("warmelt-macro.melt:282:/ initchunk"); #line 282 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 282 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V368*/ meltfptr[367]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V376*/ meltfptr[375])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V376*/ meltfptr[375])))); ((meltobject_ptr_t) ( /*_.VALDATA___V376*/ meltfptr[375]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V377*/ meltfptr[376]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V376*/ meltfptr[375]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])))); ((meltobject_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V379*/ meltfptr[378]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])))); ((meltobject_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#242 */ melt_assertmsg ("putupl #242 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #242 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#243 */ melt_assertmsg ("putupl #243 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #243 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#244 */ melt_assertmsg ("putupl #244 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #244 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_4 */ void meltmod__warmelt_macro__initialmeltchunk_5 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#245*/ melt_assertmsg ("putupl #245 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #245 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#246 */ melt_assertmsg ("putupl #246 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #246 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V380*/ meltfptr[379]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])))); ((meltobject_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V380*/ meltfptr[379]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380])))); ((meltobject_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V382*/ meltfptr[381]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380])))); ((meltobject_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 290 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#247 */ melt_assertmsg ("putupl #247 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #247 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#248 */ melt_assertmsg ("putupl #248 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #248 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#249 */ melt_assertmsg ("putupl #249 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #249 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#250 */ melt_assertmsg ("putupl #250 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #250 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#251 */ melt_assertmsg ("putupl #251 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #251 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V383*/ meltfptr[382]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 290 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377])))); ((meltobject_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V383*/ meltfptr[382]); MELT_LOCATION ("warmelt-macro.melt:290:/ initchunk"); #line 290 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 290 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V378*/ meltfptr[377]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V384*/ meltfptr[383])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V384*/ meltfptr[383])))); ((meltobject_ptr_t) ( /*_.VALDATA___V384*/ meltfptr[383]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V385*/ meltfptr[384]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V384*/ meltfptr[383]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])))); ((meltobject_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V387*/ meltfptr[386]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V386*/ meltfptr[385]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V389*/ meltfptr[388]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*putupl#252 */ melt_assertmsg ("putupl #252 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #252 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#253 */ melt_assertmsg ("putupl #253 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #253 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#254 */ melt_assertmsg ("putupl #254 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #254 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#255 */ melt_assertmsg ("putupl #255 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #255 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#256 */ melt_assertmsg ("putupl #256 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #256 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#257 */ melt_assertmsg ("putupl #257 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #257 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V390*/ meltfptr[389]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V390*/ meltfptr[389]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*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]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390])))); ((meltobject_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 298 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V391*/ meltfptr[390]); /*putupl#258 */ melt_assertmsg ("putupl #258 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #258 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#259 */ melt_assertmsg ("putupl #259 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #259 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#260 */ melt_assertmsg ("putupl #260 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #260 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#261 */ melt_assertmsg ("putupl #261 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #261 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#262 */ melt_assertmsg ("putupl #262 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #262 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#263 */ melt_assertmsg ("putupl #263 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #263 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V391*/ meltfptr[390]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V393*/ meltfptr[392]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 298 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387])))); ((meltobject_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V393*/ meltfptr[392]); MELT_LOCATION ("warmelt-macro.melt:298:/ initchunk"); #line 298 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 298 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V388*/ meltfptr[387]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V394*/ meltfptr[393])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V394*/ meltfptr[393])))); ((meltobject_ptr_t) ( /*_.VALDATA___V394*/ meltfptr[393]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V395*/ meltfptr[394]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V394*/ meltfptr[393]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V396*/ meltfptr[395])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V396*/ meltfptr[395])))); ((meltobject_ptr_t) ( /*_.VALDATA___V396*/ meltfptr[395]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V397*/ meltfptr[396]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V396*/ meltfptr[395]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])))); ((meltobject_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V399*/ meltfptr[398]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])))); ((meltobject_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*putupl#264 */ melt_assertmsg ("putupl #264 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #264 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#265 */ melt_assertmsg ("putupl #265 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #265 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#266 */ melt_assertmsg ("putupl #266 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #266 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#267 */ melt_assertmsg ("putupl #267 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #267 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#268 */ melt_assertmsg ("putupl #268 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #268 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#269 */ melt_assertmsg ("putupl #269 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #269 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V400*/ meltfptr[399]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])))); ((meltobject_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V400*/ meltfptr[399]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])))); ((meltobject_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V402*/ meltfptr[401]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400])))); ((meltobject_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 305 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V401*/ meltfptr[400]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402])))); ((meltobject_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V404*/ meltfptr[403]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402])))); ((meltobject_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 305 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V403*/ meltfptr[402]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*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]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404])))); ((meltobject_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 305 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V405*/ meltfptr[404]); /*putupl#270 */ melt_assertmsg ("putupl #270 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #270 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#271 */ melt_assertmsg ("putupl #271 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #271 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#272 */ melt_assertmsg ("putupl #272 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #272 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#273 */ melt_assertmsg ("putupl #273 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #273 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#274 */ melt_assertmsg ("putupl #274 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #274 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#275 */ melt_assertmsg ("putupl #275 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #275 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V401*/ meltfptr[400]); /*putupl#276 */ melt_assertmsg ("putupl #276 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #276 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V403*/ meltfptr[402]); /*putupl#277 */ melt_assertmsg ("putupl #277 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #277 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V405*/ meltfptr[404]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V407*/ meltfptr[406]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 305 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397])))); ((meltobject_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V407*/ meltfptr[406]); MELT_LOCATION ("warmelt-macro.melt:305:/ initchunk"); #line 305 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 305 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V398*/ meltfptr[397]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V408*/ meltfptr[407])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V408*/ meltfptr[407])))); ((meltobject_ptr_t) ( /*_.VALDATA___V408*/ meltfptr[407]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V409*/ meltfptr[408]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V408*/ meltfptr[407]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])))); ((meltobject_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V411*/ meltfptr[410]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V410*/ meltfptr[409]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])))); ((meltobject_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V413*/ meltfptr[412]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V412*/ meltfptr[411]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V414*/ meltfptr[413])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V414*/ meltfptr[413])))); ((meltobject_ptr_t) ( /*_.VALDATA___V414*/ meltfptr[413]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V415*/ meltfptr[414]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V414*/ meltfptr[413]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])))); ((meltobject_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V417*/ meltfptr[416]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])))); ((meltobject_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*putupl#278 */ melt_assertmsg ("putupl #278 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #278 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#279 */ melt_assertmsg ("putupl #279 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #279 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#280 */ melt_assertmsg ("putupl #280 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #280 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#281 */ melt_assertmsg ("putupl #281 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #281 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#282 */ melt_assertmsg ("putupl #282 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #282 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#283 */ melt_assertmsg ("putupl #283 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #283 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V418*/ meltfptr[417]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])))); ((meltobject_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V418*/ meltfptr[417]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])))); ((meltobject_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V420*/ meltfptr[419]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418])))); ((meltobject_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 318 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V419*/ meltfptr[418]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*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]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420])))); ((meltobject_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 318 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V421*/ meltfptr[420]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*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-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*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) ( /*_.VALDATA___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 318 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V423*/ meltfptr[422]); /*putupl#284 */ melt_assertmsg ("putupl #284 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #284 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#285 */ melt_assertmsg ("putupl #285 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #285 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#286 */ melt_assertmsg ("putupl #286 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #286 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#287 */ melt_assertmsg ("putupl #287 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #287 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#288 */ melt_assertmsg ("putupl #288 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #288 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#289 */ melt_assertmsg ("putupl #289 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #289 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V419*/ meltfptr[418]); /*putupl#290 */ melt_assertmsg ("putupl #290 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #290 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V421*/ meltfptr[420]); /*putupl#291 */ melt_assertmsg ("putupl #291 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #291 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V423*/ meltfptr[422]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V425*/ meltfptr[424]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 318 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415])))); ((meltobject_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V425*/ meltfptr[424]); MELT_LOCATION ("warmelt-macro.melt:318:/ initchunk"); #line 318 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 318 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V416*/ meltfptr[415]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V426*/ meltfptr[425])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V426*/ meltfptr[425])))); ((meltobject_ptr_t) ( /*_.VALDATA___V426*/ meltfptr[425]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V427*/ meltfptr[426]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V426*/ meltfptr[425]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V428*/ meltfptr[427])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V428*/ meltfptr[427])))); ((meltobject_ptr_t) ( /*_.VALDATA___V428*/ meltfptr[427]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V429*/ meltfptr[428]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V428*/ meltfptr[427]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V430*/ meltfptr[429])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V430*/ meltfptr[429])))); ((meltobject_ptr_t) ( /*_.VALDATA___V430*/ meltfptr[429]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V431*/ meltfptr[430]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V430*/ meltfptr[429]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V432*/ meltfptr[431])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V432*/ meltfptr[431])))); ((meltobject_ptr_t) ( /*_.VALDATA___V432*/ meltfptr[431]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V433*/ meltfptr[432]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V432*/ meltfptr[431]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V435*/ meltfptr[434]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*putupl#292 */ melt_assertmsg ("putupl #292 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #292 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#293 */ melt_assertmsg ("putupl #293 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #293 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#294 */ melt_assertmsg ("putupl #294 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #294 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#295 */ melt_assertmsg ("putupl #295 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #295 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#296 */ melt_assertmsg ("putupl #296 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #296 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_5 */ void meltmod__warmelt_macro__initialmeltchunk_6 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#297*/ melt_assertmsg ("putupl #297 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #297 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V436*/ meltfptr[435]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V436*/ meltfptr[435]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436])))); ((meltobject_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V438*/ meltfptr[437]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436])))); ((meltobject_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 328 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V437*/ meltfptr[436]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438])))); ((meltobject_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V440*/ meltfptr[439]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438])))); ((meltobject_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 328 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V439*/ meltfptr[438]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440])))); ((meltobject_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V442*/ meltfptr[441]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440])))); ((meltobject_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 328 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V441*/ meltfptr[440]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442])))); ((meltobject_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V444*/ meltfptr[443]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442])))); ((meltobject_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 328 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V443*/ meltfptr[442]); /*putupl#298 */ melt_assertmsg ("putupl #298 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #298 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#299 */ melt_assertmsg ("putupl #299 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #299 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#300 */ melt_assertmsg ("putupl #300 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #300 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#301 */ melt_assertmsg ("putupl #301 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #301 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#302 */ melt_assertmsg ("putupl #302 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #302 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#303 */ melt_assertmsg ("putupl #303 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #303 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V437*/ meltfptr[436]); /*putupl#304 */ melt_assertmsg ("putupl #304 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #304 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V439*/ meltfptr[438]); /*putupl#305 */ melt_assertmsg ("putupl #305 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #305 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V441*/ meltfptr[440]); /*putupl#306 */ melt_assertmsg ("putupl #306 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #306 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V443*/ meltfptr[442]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V445*/ meltfptr[444]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 328 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433])))); ((meltobject_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V445*/ meltfptr[444]); MELT_LOCATION ("warmelt-macro.melt:328:/ initchunk"); #line 328 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 328 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V434*/ meltfptr[433]); /*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]); /*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]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V448*/ meltfptr[447]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V450*/ meltfptr[449])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V450*/ meltfptr[449])))); ((meltobject_ptr_t) ( /*_.VALDATA___V450*/ meltfptr[449]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V451*/ meltfptr[450]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V450*/ meltfptr[449]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V452*/ meltfptr[451])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V452*/ meltfptr[451])))); ((meltobject_ptr_t) ( /*_.VALDATA___V452*/ meltfptr[451]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V453*/ meltfptr[452]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V452*/ meltfptr[451]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V454*/ meltfptr[453])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V454*/ meltfptr[453])))); ((meltobject_ptr_t) ( /*_.VALDATA___V454*/ meltfptr[453]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V455*/ meltfptr[454]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V454*/ meltfptr[453]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])))); ((meltobject_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V457*/ meltfptr[456]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])))); ((meltobject_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*putupl#307 */ melt_assertmsg ("putupl #307 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #307 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#308 */ melt_assertmsg ("putupl #308 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #308 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#309 */ melt_assertmsg ("putupl #309 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #309 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#310 */ melt_assertmsg ("putupl #310 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #310 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#311 */ melt_assertmsg ("putupl #311 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #311 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#312 */ melt_assertmsg ("putupl #312 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #312 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V378*/ meltfptr[377]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V458*/ meltfptr[457]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])))); ((meltobject_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V458*/ meltfptr[457]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*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]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458])))); ((meltobject_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V459*/ meltfptr[458]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*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-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*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) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V461*/ meltfptr[460]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462])))); ((meltobject_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V464*/ meltfptr[463]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462])))); ((meltobject_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V463*/ meltfptr[462]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464])))); ((meltobject_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V466*/ meltfptr[465]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464])))); ((meltobject_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V465*/ meltfptr[464]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*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]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466])))); ((meltobject_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V467*/ meltfptr[466]); /*putupl#313 */ melt_assertmsg ("putupl #313 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #313 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#314 */ melt_assertmsg ("putupl #314 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #314 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#315 */ melt_assertmsg ("putupl #315 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #315 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#316 */ melt_assertmsg ("putupl #316 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #316 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#317 */ melt_assertmsg ("putupl #317 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #317 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V381*/ meltfptr[380]); /*putupl#318 */ melt_assertmsg ("putupl #318 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #318 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V459*/ meltfptr[458]); /*putupl#319 */ melt_assertmsg ("putupl #319 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #319 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V461*/ meltfptr[460]); /*putupl#320 */ melt_assertmsg ("putupl #320 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #320 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V463*/ meltfptr[462]); /*putupl#321 */ melt_assertmsg ("putupl #321 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #321 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V465*/ meltfptr[464]); /*putupl#322 */ melt_assertmsg ("putupl #322 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #322 checkoff", (9 >= 0 && 9 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]))->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V467*/ meltfptr[466]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V469*/ meltfptr[468]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 347 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455])))); ((meltobject_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V469*/ meltfptr[468]); MELT_LOCATION ("warmelt-macro.melt:347:/ initchunk"); #line 347 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 347 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V456*/ meltfptr[455]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V470*/ meltfptr[469])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V470*/ meltfptr[469])))); ((meltobject_ptr_t) ( /*_.VALDATA___V470*/ meltfptr[469]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V471*/ meltfptr[470]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V470*/ meltfptr[469]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V472*/ meltfptr[471])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V472*/ meltfptr[471])))); ((meltobject_ptr_t) ( /*_.VALDATA___V472*/ meltfptr[471]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V473*/ meltfptr[472]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V472*/ meltfptr[471]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V474*/ meltfptr[473])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V474*/ meltfptr[473])))); ((meltobject_ptr_t) ( /*_.VALDATA___V474*/ meltfptr[473]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V475*/ meltfptr[474]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V474*/ meltfptr[473]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V476*/ meltfptr[475])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V476*/ meltfptr[475])))); ((meltobject_ptr_t) ( /*_.VALDATA___V476*/ meltfptr[475]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V477*/ meltfptr[476]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V476*/ meltfptr[475]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V478*/ meltfptr[477])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V478*/ meltfptr[477])))); ((meltobject_ptr_t) ( /*_.VALDATA___V478*/ meltfptr[477]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V479*/ meltfptr[478]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V478*/ meltfptr[477]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V480*/ meltfptr[479])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V480*/ meltfptr[479])))); ((meltobject_ptr_t) ( /*_.VALDATA___V480*/ meltfptr[479]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V481*/ meltfptr[480]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V480*/ meltfptr[479]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])))); ((meltobject_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V483*/ meltfptr[482]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])))); ((meltobject_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#323 */ melt_assertmsg ("putupl #323 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #323 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#324 */ melt_assertmsg ("putupl #324 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #324 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#325 */ melt_assertmsg ("putupl #325 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #325 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#326 */ melt_assertmsg ("putupl #326 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #326 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#327 */ melt_assertmsg ("putupl #327 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #327 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V484*/ meltfptr[483]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])))); ((meltobject_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V484*/ meltfptr[483]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*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-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*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) ( /*_.VALDATA___V482*/ meltfptr[481]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 367 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V485*/ meltfptr[484]); /*putupl#328 */ melt_assertmsg ("putupl #328 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #328 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#329 */ melt_assertmsg ("putupl #329 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #329 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#330 */ melt_assertmsg ("putupl #330 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #330 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#331 */ melt_assertmsg ("putupl #331 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #331 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#332 */ melt_assertmsg ("putupl #332 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #332 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 367 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481])))); ((meltobject_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V487*/ meltfptr[486]); MELT_LOCATION ("warmelt-macro.melt:367:/ initchunk"); #line 367 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 367 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V482*/ meltfptr[481]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V488*/ meltfptr[487])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V488*/ meltfptr[487])))); ((meltobject_ptr_t) ( /*_.VALDATA___V488*/ meltfptr[487]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V489*/ meltfptr[488]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V488*/ meltfptr[487]); /*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]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*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]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])))); ((meltobject_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]); /*putupl#333 */ melt_assertmsg ("putupl #333 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #333 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#334 */ melt_assertmsg ("putupl #334 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #334 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#335 */ melt_assertmsg ("putupl #335 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #335 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#336 */ melt_assertmsg ("putupl #336 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #336 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#337 */ melt_assertmsg ("putupl #337 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #337 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#338 */ melt_assertmsg ("putupl #338 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #338 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V494*/ meltfptr[493]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])))); ((meltobject_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V494*/ meltfptr[493]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V496*/ meltfptr[495]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 377 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V495*/ meltfptr[494]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496])))); ((meltobject_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V498*/ meltfptr[497]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496])))); ((meltobject_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 377 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V497*/ meltfptr[496]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498])))); ((meltobject_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V500*/ meltfptr[499]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_6 */ void meltmod__warmelt_macro__initialmeltchunk_7 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498])))); ((meltobject_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 377 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V499*/ meltfptr[498]); /*putupl#339 */ melt_assertmsg ("putupl #339 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #339 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#340 */ melt_assertmsg ("putupl #340 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #340 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#341 */ melt_assertmsg ("putupl #341 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #341 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#342 */ melt_assertmsg ("putupl #342 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #342 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#343 */ melt_assertmsg ("putupl #343 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #343 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]); /*putupl#344 */ melt_assertmsg ("putupl #344 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #344 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V495*/ meltfptr[494]); /*putupl#345 */ melt_assertmsg ("putupl #345 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #345 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V497*/ meltfptr[496]); /*putupl#346 */ melt_assertmsg ("putupl #346 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #346 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V499*/ meltfptr[498]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V501*/ meltfptr[500]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 377 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491])))); ((meltobject_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V501*/ meltfptr[500]); MELT_LOCATION ("warmelt-macro.melt:377:/ initchunk"); #line 377 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 377 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V492*/ meltfptr[491]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V502*/ meltfptr[501])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V502*/ meltfptr[501])))); ((meltobject_ptr_t) ( /*_.VALDATA___V502*/ meltfptr[501]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V503*/ meltfptr[502]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V502*/ meltfptr[501]); /*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]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V506*/ meltfptr[505])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V506*/ meltfptr[505])))); ((meltobject_ptr_t) ( /*_.VALDATA___V506*/ meltfptr[505]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V507*/ meltfptr[506]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V506*/ meltfptr[505]); /*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-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])))); ((meltobject_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V511*/ meltfptr[510]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])))); ((meltobject_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]); /*putupl#347 */ melt_assertmsg ("putupl #347 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #347 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#348 */ melt_assertmsg ("putupl #348 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #348 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#349 */ melt_assertmsg ("putupl #349 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #349 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#350 */ melt_assertmsg ("putupl #350 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #350 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#351 */ melt_assertmsg ("putupl #351 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #351 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#352 */ melt_assertmsg ("putupl #352 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #352 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V512*/ meltfptr[511]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])))); ((meltobject_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V512*/ meltfptr[511]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*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]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512])))); ((meltobject_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 390 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V513*/ meltfptr[512]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V516*/ meltfptr[515]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514])))); ((meltobject_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 390 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V515*/ meltfptr[514]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])))); ((meltobject_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V518*/ meltfptr[517]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516])))); ((meltobject_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 390 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V517*/ meltfptr[516]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V520*/ meltfptr[519]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 390 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V519*/ meltfptr[518]); /*putupl#353 */ melt_assertmsg ("putupl #353 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #353 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#354 */ melt_assertmsg ("putupl #354 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #354 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#355 */ melt_assertmsg ("putupl #355 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #355 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#356 */ melt_assertmsg ("putupl #356 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #356 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#357 */ melt_assertmsg ("putupl #357 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #357 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]); /*putupl#358 */ melt_assertmsg ("putupl #358 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #358 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512]); /*putupl#359 */ melt_assertmsg ("putupl #359 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #359 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514]); /*putupl#360 */ melt_assertmsg ("putupl #360 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #360 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516]); /*putupl#361 */ melt_assertmsg ("putupl #361 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #361 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V521*/ meltfptr[520]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 390 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509])))); ((meltobject_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V521*/ meltfptr[520]); MELT_LOCATION ("warmelt-macro.melt:390:/ initchunk"); #line 390 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 390 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V510*/ meltfptr[509]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V522*/ meltfptr[521])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V522*/ meltfptr[521])))); ((meltobject_ptr_t) ( /*_.VALDATA___V522*/ meltfptr[521]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V523*/ meltfptr[522]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V522*/ meltfptr[521]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523])))); ((meltobject_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V525*/ meltfptr[524]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V524*/ meltfptr[523]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])))); ((meltobject_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V527*/ meltfptr[526]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V526*/ meltfptr[525]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V528*/ meltfptr[527])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V528*/ meltfptr[527])))); ((meltobject_ptr_t) ( /*_.VALDATA___V528*/ meltfptr[527]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V529*/ meltfptr[528]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V528*/ meltfptr[527]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V530*/ meltfptr[529])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V530*/ meltfptr[529])))); ((meltobject_ptr_t) ( /*_.VALDATA___V530*/ meltfptr[529]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V531*/ meltfptr[530]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V530*/ meltfptr[529]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])))); ((meltobject_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V533*/ meltfptr[532]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])))); ((meltobject_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); /*putupl#362 */ melt_assertmsg ("putupl #362 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #362 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#363 */ melt_assertmsg ("putupl #363 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #363 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#364 */ melt_assertmsg ("putupl #364 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #364 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#365 */ melt_assertmsg ("putupl #365 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #365 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#366 */ melt_assertmsg ("putupl #366 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #366 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); /*putupl#367 */ melt_assertmsg ("putupl #367 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #367 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V482*/ meltfptr[481]); /*putupl#368 */ melt_assertmsg ("putupl #368 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #368 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V534*/ meltfptr[533]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])))); ((meltobject_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V534*/ meltfptr[533]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V536*/ meltfptr[535]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534])))); ((meltobject_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 404 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V535*/ meltfptr[534]); /*putupl#369 */ melt_assertmsg ("putupl #369 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #369 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#370 */ melt_assertmsg ("putupl #370 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #370 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#371 */ melt_assertmsg ("putupl #371 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #371 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V357*/ meltfptr[356]); /*putupl#372 */ melt_assertmsg ("putupl #372 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #372 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V359*/ meltfptr[358]); /*putupl#373 */ melt_assertmsg ("putupl #373 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #373 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V485*/ meltfptr[484]); /*putupl#374 */ melt_assertmsg ("putupl #374 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #374 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V513*/ meltfptr[512]); /*putupl#375 */ melt_assertmsg ("putupl #375 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #375 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V515*/ meltfptr[514]); /*putupl#376 */ melt_assertmsg ("putupl #376 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #376 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V517*/ meltfptr[516]); /*putupl#377 */ melt_assertmsg ("putupl #377 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #377 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V519*/ meltfptr[518]); /*putupl#378 */ melt_assertmsg ("putupl #378 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #378 checkoff", (9 >= 0 && 9 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]))->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V535*/ meltfptr[534]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V537*/ meltfptr[536]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 404 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531])))); ((meltobject_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V537*/ meltfptr[536]); MELT_LOCATION ("warmelt-macro.melt:404:/ initchunk"); #line 404 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 404 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V532*/ meltfptr[531]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V538*/ meltfptr[537])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V538*/ meltfptr[537])))); ((meltobject_ptr_t) ( /*_.VALDATA___V538*/ meltfptr[537]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V539*/ meltfptr[538]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V538*/ meltfptr[537]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V540*/ meltfptr[539])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V540*/ meltfptr[539])))); ((meltobject_ptr_t) ( /*_.VALDATA___V540*/ meltfptr[539]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V541*/ meltfptr[540]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V540*/ meltfptr[539]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])))); ((meltobject_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V543*/ meltfptr[542]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])))); ((meltobject_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#379 */ melt_assertmsg ("putupl #379 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #379 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#380 */ melt_assertmsg ("putupl #380 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #380 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#381 */ melt_assertmsg ("putupl #381 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #381 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#382 */ melt_assertmsg ("putupl #382 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #382 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V544*/ meltfptr[543]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])))); ((meltobject_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V544*/ meltfptr[543]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544])))); ((meltobject_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V546*/ meltfptr[545]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544])))); ((meltobject_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 413 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V545*/ meltfptr[544]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V548*/ meltfptr[547]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546])))); ((meltobject_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 413 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V547*/ meltfptr[546]); /*putupl#383 */ melt_assertmsg ("putupl #383 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #383 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#384 */ melt_assertmsg ("putupl #384 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #384 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#385 */ melt_assertmsg ("putupl #385 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #385 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V545*/ meltfptr[544]); /*putupl#386 */ melt_assertmsg ("putupl #386 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #386 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V547*/ meltfptr[546]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V549*/ meltfptr[548]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 413 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541])))); ((meltobject_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V549*/ meltfptr[548]); MELT_LOCATION ("warmelt-macro.melt:413:/ initchunk"); #line 413 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 413 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V542*/ meltfptr[541]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V550*/ meltfptr[549])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V550*/ meltfptr[549])))); ((meltobject_ptr_t) ( /*_.VALDATA___V550*/ meltfptr[549]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V551*/ meltfptr[550]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V550*/ meltfptr[549]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V552*/ meltfptr[551])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V552*/ meltfptr[551])))); ((meltobject_ptr_t) ( /*_.VALDATA___V552*/ meltfptr[551]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V553*/ meltfptr[552]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V552*/ meltfptr[551]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V554*/ meltfptr[553])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V554*/ meltfptr[553])))); ((meltobject_ptr_t) ( /*_.VALDATA___V554*/ meltfptr[553]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V555*/ meltfptr[554]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V554*/ meltfptr[553]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V557*/ meltfptr[556]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#387 */ melt_assertmsg ("putupl #387 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #387 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#388 */ melt_assertmsg ("putupl #388 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #388 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#389 */ melt_assertmsg ("putupl #389 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #389 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_7 */ void meltmod__warmelt_macro__initialmeltchunk_8 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#390*/ melt_assertmsg ("putupl #390 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #390 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V558*/ meltfptr[557]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V558*/ meltfptr[557]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558])))); ((meltobject_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V560*/ meltfptr[559]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558])))); ((meltobject_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 424 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V559*/ meltfptr[558]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560])))); ((meltobject_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V562*/ meltfptr[561]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560])))); ((meltobject_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 424 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V561*/ meltfptr[560]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V564*/ meltfptr[563]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562])))); ((meltobject_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 424 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V563*/ meltfptr[562]); /*putupl#391 */ melt_assertmsg ("putupl #391 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #391 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#392 */ melt_assertmsg ("putupl #392 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #392 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#393 */ melt_assertmsg ("putupl #393 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #393 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V559*/ meltfptr[558]); /*putupl#394 */ melt_assertmsg ("putupl #394 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #394 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V561*/ meltfptr[560]); /*putupl#395 */ melt_assertmsg ("putupl #395 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #395 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V563*/ meltfptr[562]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V565*/ meltfptr[564]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 424 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555])))); ((meltobject_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V565*/ meltfptr[564]); MELT_LOCATION ("warmelt-macro.melt:424:/ initchunk"); #line 424 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 424 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V556*/ meltfptr[555]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V566*/ meltfptr[565])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V566*/ meltfptr[565])))); ((meltobject_ptr_t) ( /*_.VALDATA___V566*/ meltfptr[565]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V567*/ meltfptr[566]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V566*/ meltfptr[565]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V568*/ meltfptr[567])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V568*/ meltfptr[567])))); ((meltobject_ptr_t) ( /*_.VALDATA___V568*/ meltfptr[567]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V569*/ meltfptr[568]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V568*/ meltfptr[567]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V570*/ meltfptr[569])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V570*/ meltfptr[569])))); ((meltobject_ptr_t) ( /*_.VALDATA___V570*/ meltfptr[569]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V571*/ meltfptr[570]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V570*/ meltfptr[569]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V572*/ meltfptr[571])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V572*/ meltfptr[571])))); ((meltobject_ptr_t) ( /*_.VALDATA___V572*/ meltfptr[571]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V573*/ meltfptr[572]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V572*/ meltfptr[571]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])))); ((meltobject_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V575*/ meltfptr[574]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])))); ((meltobject_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#396 */ melt_assertmsg ("putupl #396 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #396 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#397 */ melt_assertmsg ("putupl #397 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #397 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#398 */ melt_assertmsg ("putupl #398 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #398 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#399 */ melt_assertmsg ("putupl #399 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #399 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V576*/ meltfptr[575]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])))); ((meltobject_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V576*/ meltfptr[575]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576])))); ((meltobject_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V578*/ meltfptr[577]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576])))); ((meltobject_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 436 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V577*/ meltfptr[576]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578])))); ((meltobject_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V580*/ meltfptr[579]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578])))); ((meltobject_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 436 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V579*/ meltfptr[578]); /*putupl#400 */ melt_assertmsg ("putupl #400 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #400 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#401 */ melt_assertmsg ("putupl #401 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #401 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#402 */ melt_assertmsg ("putupl #402 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #402 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576]); /*putupl#403 */ melt_assertmsg ("putupl #403 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #403 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V581*/ meltfptr[580]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 436 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573])))); ((meltobject_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V581*/ meltfptr[580]); MELT_LOCATION ("warmelt-macro.melt:436:/ initchunk"); #line 436 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 436 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V574*/ meltfptr[573]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V582*/ meltfptr[581])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V582*/ meltfptr[581])))); ((meltobject_ptr_t) ( /*_.VALDATA___V582*/ meltfptr[581]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V583*/ meltfptr[582]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V582*/ meltfptr[581]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])))); ((meltobject_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V585*/ meltfptr[584]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V584*/ meltfptr[583]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V586*/ meltfptr[585])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V586*/ meltfptr[585])))); ((meltobject_ptr_t) ( /*_.VALDATA___V586*/ meltfptr[585]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V587*/ meltfptr[586]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V586*/ meltfptr[585]); MELT_LOCATION ("warmelt-macro.melt:447:/ initchunk"); #line 447 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 447 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])))); ((meltobject_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V589*/ meltfptr[588]); MELT_LOCATION ("warmelt-macro.melt:447:/ initchunk"); #line 447 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 447 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])))); ((meltobject_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); /*putupl#404 */ melt_assertmsg ("putupl #404 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #404 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#405 */ melt_assertmsg ("putupl #405 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #405 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#406 */ melt_assertmsg ("putupl #406 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #406 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#407 */ melt_assertmsg ("putupl #407 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #407 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#408 */ melt_assertmsg ("putupl #408 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #408 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V590*/ meltfptr[589]); MELT_LOCATION ("warmelt-macro.melt:447:/ initchunk"); #line 447 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 447 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])))); ((meltobject_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V590*/ meltfptr[589]); /*putupl#409 */ melt_assertmsg ("putupl #409 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #409 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#410 */ melt_assertmsg ("putupl #410 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #410 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#411 */ melt_assertmsg ("putupl #411 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #411 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V577*/ meltfptr[576]); /*putupl#412 */ melt_assertmsg ("putupl #412 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #412 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V579*/ meltfptr[578]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V591*/ meltfptr[590]); MELT_LOCATION ("warmelt-macro.melt:447:/ initchunk"); #line 447 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 447 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587])))); ((meltobject_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V591*/ meltfptr[590]); MELT_LOCATION ("warmelt-macro.melt:447:/ initchunk"); #line 447 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 447 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V588*/ meltfptr[587]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591])))); ((meltobject_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V593*/ meltfptr[592]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V592*/ meltfptr[591]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])))); ((meltobject_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V595*/ meltfptr[594]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])))); ((meltobject_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#413 */ melt_assertmsg ("putupl #413 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #413 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#414 */ melt_assertmsg ("putupl #414 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #414 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#415 */ melt_assertmsg ("putupl #415 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #415 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#416 */ melt_assertmsg ("putupl #416 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #416 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V596*/ meltfptr[595]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])))); ((meltobject_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V596*/ meltfptr[595]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596])))); ((meltobject_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V598*/ meltfptr[597]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596])))); ((meltobject_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 456 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V597*/ meltfptr[596]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598])))); ((meltobject_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V600*/ meltfptr[599]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598])))); ((meltobject_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 456 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V599*/ meltfptr[598]); /*putupl#417 */ melt_assertmsg ("putupl #417 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #417 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#418 */ melt_assertmsg ("putupl #418 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #418 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#419 */ melt_assertmsg ("putupl #419 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #419 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596]); /*putupl#420 */ melt_assertmsg ("putupl #420 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #420 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V601*/ meltfptr[600]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 456 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593])))); ((meltobject_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V601*/ meltfptr[600]); MELT_LOCATION ("warmelt-macro.melt:456:/ initchunk"); #line 456 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 456 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V594*/ meltfptr[593]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V602*/ meltfptr[601])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V602*/ meltfptr[601])))); ((meltobject_ptr_t) ( /*_.VALDATA___V602*/ meltfptr[601]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V603*/ meltfptr[602]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V602*/ meltfptr[601]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V604*/ meltfptr[603])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V604*/ meltfptr[603])))); ((meltobject_ptr_t) ( /*_.VALDATA___V604*/ meltfptr[603]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V605*/ meltfptr[604]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V604*/ meltfptr[603]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V606*/ meltfptr[605])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V606*/ meltfptr[605])))); ((meltobject_ptr_t) ( /*_.VALDATA___V606*/ meltfptr[605]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V607*/ meltfptr[606]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V606*/ meltfptr[605]); MELT_LOCATION ("warmelt-macro.melt:466:/ initchunk"); #line 466 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 466 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])))); ((meltobject_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V609*/ meltfptr[608]); MELT_LOCATION ("warmelt-macro.melt:466:/ initchunk"); #line 466 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 466 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])))); ((meltobject_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); /*putupl#421 */ melt_assertmsg ("putupl #421 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #421 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#422 */ melt_assertmsg ("putupl #422 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #422 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#423 */ melt_assertmsg ("putupl #423 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #423 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#424 */ melt_assertmsg ("putupl #424 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #424 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#425 */ melt_assertmsg ("putupl #425 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #425 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V610*/ meltfptr[609]); MELT_LOCATION ("warmelt-macro.melt:466:/ initchunk"); #line 466 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 466 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])))); ((meltobject_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V610*/ meltfptr[609]); /*putupl#426 */ melt_assertmsg ("putupl #426 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #426 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#427 */ melt_assertmsg ("putupl #427 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #427 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#428 */ melt_assertmsg ("putupl #428 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #428 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V597*/ meltfptr[596]); /*putupl#429 */ melt_assertmsg ("putupl #429 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #429 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V599*/ meltfptr[598]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V611*/ meltfptr[610]); MELT_LOCATION ("warmelt-macro.melt:466:/ initchunk"); #line 466 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 466 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607])))); ((meltobject_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V611*/ meltfptr[610]); MELT_LOCATION ("warmelt-macro.melt:466:/ initchunk"); #line 466 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 466 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V608*/ meltfptr[607]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V612*/ meltfptr[611])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V612*/ meltfptr[611])))); ((meltobject_ptr_t) ( /*_.VALDATA___V612*/ meltfptr[611]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V613*/ meltfptr[612]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V612*/ meltfptr[611]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])))); ((meltobject_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V615*/ meltfptr[614]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])))); ((meltobject_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#430 */ melt_assertmsg ("putupl #430 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #430 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#431 */ melt_assertmsg ("putupl #431 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #431 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#432 */ melt_assertmsg ("putupl #432 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #432 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#433 */ melt_assertmsg ("putupl #433 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #433 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V616*/ meltfptr[615]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])))); ((meltobject_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V616*/ meltfptr[615]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616])))); ((meltobject_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V618*/ meltfptr[617]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616])))); ((meltobject_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_8 */ void meltmod__warmelt_macro__initialmeltchunk_9 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 475 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V617*/ meltfptr[616]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V620*/ meltfptr[619]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618])))); ((meltobject_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 475 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V619*/ meltfptr[618]); /*putupl#434 */ melt_assertmsg ("putupl #434 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #434 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#435 */ melt_assertmsg ("putupl #435 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #435 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#436 */ melt_assertmsg ("putupl #436 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #436 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616]); /*putupl#437 */ melt_assertmsg ("putupl #437 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #437 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V621*/ meltfptr[620]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 475 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613])))); ((meltobject_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V621*/ meltfptr[620]); MELT_LOCATION ("warmelt-macro.melt:475:/ initchunk"); #line 475 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 475 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V614*/ meltfptr[613]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V622*/ meltfptr[621])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V622*/ meltfptr[621])))); ((meltobject_ptr_t) ( /*_.VALDATA___V622*/ meltfptr[621]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V623*/ meltfptr[622]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V622*/ meltfptr[621]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V624*/ meltfptr[623])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V624*/ meltfptr[623])))); ((meltobject_ptr_t) ( /*_.VALDATA___V624*/ meltfptr[623]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V625*/ meltfptr[624]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V624*/ meltfptr[623]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V626*/ meltfptr[625])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V626*/ meltfptr[625])))); ((meltobject_ptr_t) ( /*_.VALDATA___V626*/ meltfptr[625]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V627*/ meltfptr[626]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V626*/ meltfptr[625]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])))); ((meltobject_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V629*/ meltfptr[628]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])))); ((meltobject_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); /*putupl#438 */ melt_assertmsg ("putupl #438 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #438 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#439 */ melt_assertmsg ("putupl #439 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #439 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#440 */ melt_assertmsg ("putupl #440 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #440 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#441 */ melt_assertmsg ("putupl #441 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #441 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#442 */ melt_assertmsg ("putupl #442 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #442 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V630*/ meltfptr[629]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])))); ((meltobject_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V630*/ meltfptr[629]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V632*/ meltfptr[631]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630])))); ((meltobject_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 484 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V631*/ meltfptr[630]); /*putupl#443 */ melt_assertmsg ("putupl #443 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #443 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#444 */ melt_assertmsg ("putupl #444 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #444 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#445 */ melt_assertmsg ("putupl #445 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #445 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V617*/ meltfptr[616]); /*putupl#446 */ melt_assertmsg ("putupl #446 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #446 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V619*/ meltfptr[618]); /*putupl#447 */ melt_assertmsg ("putupl #447 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #447 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V631*/ meltfptr[630]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V633*/ meltfptr[632]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 484 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627])))); ((meltobject_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V633*/ meltfptr[632]); MELT_LOCATION ("warmelt-macro.melt:484:/ initchunk"); #line 484 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 484 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V628*/ meltfptr[627]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633])))); ((meltobject_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V635*/ meltfptr[634]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V634*/ meltfptr[633]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V636*/ meltfptr[635])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V636*/ meltfptr[635])))); ((meltobject_ptr_t) ( /*_.VALDATA___V636*/ meltfptr[635]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V637*/ meltfptr[636]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V636*/ meltfptr[635]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])))); ((meltobject_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V639*/ meltfptr[638]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])))); ((meltobject_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#448 */ melt_assertmsg ("putupl #448 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #448 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#449 */ melt_assertmsg ("putupl #449 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #449 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#450 */ melt_assertmsg ("putupl #450 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #450 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#451 */ melt_assertmsg ("putupl #451 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #451 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V640*/ meltfptr[639]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])))); ((meltobject_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V640*/ meltfptr[639]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640])))); ((meltobject_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V642*/ meltfptr[641]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640])))); ((meltobject_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 495 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V641*/ meltfptr[640]); /*putupl#452 */ melt_assertmsg ("putupl #452 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #452 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#453 */ melt_assertmsg ("putupl #453 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #453 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#454 */ melt_assertmsg ("putupl #454 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #454 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V641*/ meltfptr[640]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V643*/ meltfptr[642]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 495 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637])))); ((meltobject_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V643*/ meltfptr[642]); MELT_LOCATION ("warmelt-macro.melt:495:/ initchunk"); #line 495 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 495 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V638*/ meltfptr[637]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V644*/ meltfptr[643])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V644*/ meltfptr[643])))); ((meltobject_ptr_t) ( /*_.VALDATA___V644*/ meltfptr[643]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V645*/ meltfptr[644]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V644*/ meltfptr[643]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V646*/ meltfptr[645])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V646*/ meltfptr[645])))); ((meltobject_ptr_t) ( /*_.VALDATA___V646*/ meltfptr[645]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V647*/ meltfptr[646]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V646*/ meltfptr[645]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V649*/ meltfptr[648]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#455 */ melt_assertmsg ("putupl #455 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #455 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#456 */ melt_assertmsg ("putupl #456 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #456 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#457 */ melt_assertmsg ("putupl #457 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #457 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#458 */ melt_assertmsg ("putupl #458 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #458 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V650*/ meltfptr[649]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V650*/ meltfptr[649]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650])))); ((meltobject_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V652*/ meltfptr[651]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650])))); ((meltobject_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 507 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V651*/ meltfptr[650]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652])))); ((meltobject_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V654*/ meltfptr[653]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652])))); ((meltobject_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 507 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V653*/ meltfptr[652]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V656*/ meltfptr[655]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654])))); ((meltobject_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 507 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V655*/ meltfptr[654]); /*putupl#459 */ melt_assertmsg ("putupl #459 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #459 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#460 */ melt_assertmsg ("putupl #460 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #460 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#461 */ melt_assertmsg ("putupl #461 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #461 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V651*/ meltfptr[650]); /*putupl#462 */ melt_assertmsg ("putupl #462 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #462 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V653*/ meltfptr[652]); /*putupl#463 */ melt_assertmsg ("putupl #463 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #463 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V655*/ meltfptr[654]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V657*/ meltfptr[656]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 507 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647])))); ((meltobject_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V657*/ meltfptr[656]); MELT_LOCATION ("warmelt-macro.melt:507:/ initchunk"); #line 507 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 507 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V648*/ meltfptr[647]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V658*/ meltfptr[657])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V658*/ meltfptr[657])))); ((meltobject_ptr_t) ( /*_.VALDATA___V658*/ meltfptr[657]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V659*/ meltfptr[658]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V658*/ meltfptr[657]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V660*/ meltfptr[659])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V660*/ meltfptr[659])))); ((meltobject_ptr_t) ( /*_.VALDATA___V660*/ meltfptr[659]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V661*/ meltfptr[660]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V660*/ meltfptr[659]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V662*/ meltfptr[661])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V662*/ meltfptr[661])))); ((meltobject_ptr_t) ( /*_.VALDATA___V662*/ meltfptr[661]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V663*/ meltfptr[662]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V662*/ meltfptr[661]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V664*/ meltfptr[663])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V664*/ meltfptr[663])))); ((meltobject_ptr_t) ( /*_.VALDATA___V664*/ meltfptr[663]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V665*/ meltfptr[664]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V664*/ meltfptr[663]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])))); ((meltobject_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V667*/ meltfptr[666]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])))); ((meltobject_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#464 */ melt_assertmsg ("putupl #464 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #464 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#465 */ melt_assertmsg ("putupl #465 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #465 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#466 */ melt_assertmsg ("putupl #466 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #466 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#467 */ melt_assertmsg ("putupl #467 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #467 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V668*/ meltfptr[667]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])))); ((meltobject_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V668*/ meltfptr[667]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668])))); ((meltobject_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V670*/ meltfptr[669]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668])))); ((meltobject_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 518 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V669*/ meltfptr[668]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V672*/ meltfptr[671]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670])))); ((meltobject_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 518 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V671*/ meltfptr[670]); /*putupl#468 */ melt_assertmsg ("putupl #468 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #468 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#469 */ melt_assertmsg ("putupl #469 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #469 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#470 */ melt_assertmsg ("putupl #470 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #470 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V669*/ meltfptr[668]); /*putupl#471 */ melt_assertmsg ("putupl #471 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #471 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V671*/ meltfptr[670]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V673*/ meltfptr[672]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 518 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665])))); ((meltobject_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V673*/ meltfptr[672]); MELT_LOCATION ("warmelt-macro.melt:518:/ initchunk"); #line 518 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 518 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V666*/ meltfptr[665]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V674*/ meltfptr[673])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V674*/ meltfptr[673])))); ((meltobject_ptr_t) ( /*_.VALDATA___V674*/ meltfptr[673]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V675*/ meltfptr[674]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V674*/ meltfptr[673]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V676*/ meltfptr[675])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V676*/ meltfptr[675])))); ((meltobject_ptr_t) ( /*_.VALDATA___V676*/ meltfptr[675]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V677*/ meltfptr[676]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V676*/ meltfptr[675]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677])))); ((meltobject_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V679*/ meltfptr[678]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V678*/ meltfptr[677]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])))); ((meltobject_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V681*/ meltfptr[680]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])))); ((meltobject_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#472 */ melt_assertmsg ("putupl #472 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #472 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#473 */ melt_assertmsg ("putupl #473 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #473 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#474 */ melt_assertmsg ("putupl #474 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #474 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#475 */ melt_assertmsg ("putupl #475 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #475 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_9 */ void meltmod__warmelt_macro__initialmeltchunk_10 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:INITUP_*/ meltgc_touch ( /*_.VALTUP___V682*/ meltfptr[681]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])))); ((meltobject_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V682*/ meltfptr[681]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682])))); ((meltobject_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V684*/ meltfptr[683]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682])))); ((meltobject_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 529 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V683*/ meltfptr[682]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684])))); ((meltobject_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V686*/ meltfptr[685]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684])))); ((meltobject_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 529 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V685*/ meltfptr[684]); /*putupl#476 */ melt_assertmsg ("putupl #476 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #476 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#477 */ melt_assertmsg ("putupl #477 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #477 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#478 */ melt_assertmsg ("putupl #478 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #478 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V683*/ meltfptr[682]); /*putupl#479 */ melt_assertmsg ("putupl #479 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #479 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V685*/ meltfptr[684]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V687*/ meltfptr[686]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 529 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679])))); ((meltobject_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V687*/ meltfptr[686]); MELT_LOCATION ("warmelt-macro.melt:529:/ initchunk"); #line 529 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 529 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V680*/ meltfptr[679]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V688*/ meltfptr[687])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V688*/ meltfptr[687])))); ((meltobject_ptr_t) ( /*_.VALDATA___V688*/ meltfptr[687]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V689*/ meltfptr[688]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V688*/ meltfptr[687]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V690*/ meltfptr[689])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V690*/ meltfptr[689])))); ((meltobject_ptr_t) ( /*_.VALDATA___V690*/ meltfptr[689]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V691*/ meltfptr[690]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V690*/ meltfptr[689]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V692*/ meltfptr[691])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V692*/ meltfptr[691])))); ((meltobject_ptr_t) ( /*_.VALDATA___V692*/ meltfptr[691]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V693*/ meltfptr[692]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V692*/ meltfptr[691]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V695*/ meltfptr[694]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#480 */ melt_assertmsg ("putupl #480 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #480 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#481 */ melt_assertmsg ("putupl #481 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #481 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#482 */ melt_assertmsg ("putupl #482 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #482 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#483 */ melt_assertmsg ("putupl #483 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #483 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V696*/ meltfptr[695]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V696*/ meltfptr[695]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696])))); ((meltobject_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V698*/ meltfptr[697]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696])))); ((meltobject_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 539 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V697*/ meltfptr[696]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698])))); ((meltobject_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V700*/ meltfptr[699]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698])))); ((meltobject_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 539 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V699*/ meltfptr[698]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700])))); ((meltobject_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V702*/ meltfptr[701]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700])))); ((meltobject_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 539 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V701*/ meltfptr[700]); /*putupl#484 */ melt_assertmsg ("putupl #484 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #484 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#485 */ melt_assertmsg ("putupl #485 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #485 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#486 */ melt_assertmsg ("putupl #486 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #486 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696]); /*putupl#487 */ melt_assertmsg ("putupl #487 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #487 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698]); /*putupl#488 */ melt_assertmsg ("putupl #488 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #488 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V703*/ meltfptr[702]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 539 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693])))); ((meltobject_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V703*/ meltfptr[702]); MELT_LOCATION ("warmelt-macro.melt:539:/ initchunk"); #line 539 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 539 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V694*/ meltfptr[693]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V704*/ meltfptr[703])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V704*/ meltfptr[703])))); ((meltobject_ptr_t) ( /*_.VALDATA___V704*/ meltfptr[703]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V705*/ meltfptr[704]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V704*/ meltfptr[703]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V706*/ meltfptr[705])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V706*/ meltfptr[705])))); ((meltobject_ptr_t) ( /*_.VALDATA___V706*/ meltfptr[705]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V707*/ meltfptr[706]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V706*/ meltfptr[705]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V708*/ meltfptr[707])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V708*/ meltfptr[707])))); ((meltobject_ptr_t) ( /*_.VALDATA___V708*/ meltfptr[707]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V709*/ meltfptr[708]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V708*/ meltfptr[707]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V710*/ meltfptr[709])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V710*/ meltfptr[709])))); ((meltobject_ptr_t) ( /*_.VALDATA___V710*/ meltfptr[709]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V711*/ meltfptr[710]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V710*/ meltfptr[709]); MELT_LOCATION ("warmelt-macro.melt:550:/ initchunk"); #line 550 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 550 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V713*/ meltfptr[712]); MELT_LOCATION ("warmelt-macro.melt:550:/ initchunk"); #line 550 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 550 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); /*putupl#489 */ melt_assertmsg ("putupl #489 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #489 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#490 */ melt_assertmsg ("putupl #490 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #490 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#491 */ melt_assertmsg ("putupl #491 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #491 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#492 */ melt_assertmsg ("putupl #492 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #492 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#493 */ melt_assertmsg ("putupl #493 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #493 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V714*/ meltfptr[713]); MELT_LOCATION ("warmelt-macro.melt:550:/ initchunk"); #line 550 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 550 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V714*/ meltfptr[713]); /*putupl#494 */ melt_assertmsg ("putupl #494 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #494 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#495 */ melt_assertmsg ("putupl #495 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #495 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#496 */ melt_assertmsg ("putupl #496 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #496 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V697*/ meltfptr[696]); /*putupl#497 */ melt_assertmsg ("putupl #497 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #497 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V699*/ meltfptr[698]); /*putupl#498 */ melt_assertmsg ("putupl #498 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #498 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V701*/ meltfptr[700]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V715*/ meltfptr[714]); MELT_LOCATION ("warmelt-macro.melt:550:/ initchunk"); #line 550 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 550 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711])))); ((meltobject_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V715*/ meltfptr[714]); MELT_LOCATION ("warmelt-macro.melt:550:/ initchunk"); #line 550 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 550 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V712*/ meltfptr[711]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V716*/ meltfptr[715])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V716*/ meltfptr[715])))); ((meltobject_ptr_t) ( /*_.VALDATA___V716*/ meltfptr[715]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V717*/ meltfptr[716]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V716*/ meltfptr[715]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])))); ((meltobject_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V719*/ meltfptr[718]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])))); ((meltobject_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#499 */ melt_assertmsg ("putupl #499 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #499 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#500 */ melt_assertmsg ("putupl #500 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #500 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#501 */ melt_assertmsg ("putupl #501 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #501 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#502 */ melt_assertmsg ("putupl #502 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #502 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V720*/ meltfptr[719]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])))); ((meltobject_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V720*/ meltfptr[719]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720])))); ((meltobject_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V722*/ meltfptr[721]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720])))); ((meltobject_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 556 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V721*/ meltfptr[720]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722])))); ((meltobject_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V724*/ meltfptr[723]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722])))); ((meltobject_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 556 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V723*/ meltfptr[722]); /*putupl#503 */ melt_assertmsg ("putupl #503 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #503 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#504 */ melt_assertmsg ("putupl #504 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #504 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#505 */ melt_assertmsg ("putupl #505 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #505 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720]); /*putupl#506 */ melt_assertmsg ("putupl #506 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #506 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V725*/ meltfptr[724]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 556 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717])))); ((meltobject_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V725*/ meltfptr[724]); MELT_LOCATION ("warmelt-macro.melt:556:/ initchunk"); #line 556 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 556 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V718*/ meltfptr[717]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V726*/ meltfptr[725])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V726*/ meltfptr[725])))); ((meltobject_ptr_t) ( /*_.VALDATA___V726*/ meltfptr[725]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V727*/ meltfptr[726]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V726*/ meltfptr[725]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V728*/ meltfptr[727])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V728*/ meltfptr[727])))); ((meltobject_ptr_t) ( /*_.VALDATA___V728*/ meltfptr[727]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V729*/ meltfptr[728]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V728*/ meltfptr[727]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V730*/ meltfptr[729])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V730*/ meltfptr[729])))); ((meltobject_ptr_t) ( /*_.VALDATA___V730*/ meltfptr[729]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V731*/ meltfptr[730]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V730*/ meltfptr[729]); MELT_LOCATION ("warmelt-macro.melt:566:/ initchunk"); #line 566 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 566 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V733*/ meltfptr[732]); MELT_LOCATION ("warmelt-macro.melt:566:/ initchunk"); #line 566 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 566 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]); /*putupl#507 */ melt_assertmsg ("putupl #507 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #507 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#508 */ melt_assertmsg ("putupl #508 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #508 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#509 */ melt_assertmsg ("putupl #509 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #509 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#510 */ melt_assertmsg ("putupl #510 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #510 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#511 */ melt_assertmsg ("putupl #511 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #511 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V734*/ meltfptr[733]); MELT_LOCATION ("warmelt-macro.melt:566:/ initchunk"); #line 566 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 566 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V734*/ meltfptr[733]); /*putupl#512 */ melt_assertmsg ("putupl #512 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #512 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#513 */ melt_assertmsg ("putupl #513 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #513 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#514 */ melt_assertmsg ("putupl #514 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #514 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V721*/ meltfptr[720]); /*putupl#515 */ melt_assertmsg ("putupl #515 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #515 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V723*/ meltfptr[722]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V735*/ meltfptr[734]); MELT_LOCATION ("warmelt-macro.melt:566:/ initchunk"); #line 566 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 566 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731])))); ((meltobject_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V735*/ meltfptr[734]); MELT_LOCATION ("warmelt-macro.melt:566:/ initchunk"); #line 566 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 566 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V732*/ meltfptr[731]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V736*/ meltfptr[735])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V736*/ meltfptr[735])))); ((meltobject_ptr_t) ( /*_.VALDATA___V736*/ meltfptr[735]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V737*/ meltfptr[736]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V736*/ meltfptr[735]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])))); ((meltobject_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V739*/ meltfptr[738]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])))); ((meltobject_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#516 */ melt_assertmsg ("putupl #516 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #516 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#517 */ melt_assertmsg ("putupl #517 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #517 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#518 */ melt_assertmsg ("putupl #518 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #518 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#519 */ melt_assertmsg ("putupl #519 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #519 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V740*/ meltfptr[739]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])))); ((meltobject_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V740*/ meltfptr[739]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740])))); ((meltobject_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V742*/ meltfptr[741]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740])))); ((meltobject_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_10 */ void meltmod__warmelt_macro__initialmeltchunk_11 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 574 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V741*/ meltfptr[740]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742])))); ((meltobject_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V744*/ meltfptr[743]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742])))); ((meltobject_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 574 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V743*/ meltfptr[742]); /*putupl#520 */ melt_assertmsg ("putupl #520 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #520 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#521 */ melt_assertmsg ("putupl #521 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #521 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#522 */ melt_assertmsg ("putupl #522 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #522 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V741*/ meltfptr[740]); /*putupl#523 */ melt_assertmsg ("putupl #523 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #523 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V743*/ meltfptr[742]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V745*/ meltfptr[744]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 574 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737])))); ((meltobject_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V745*/ meltfptr[744]); MELT_LOCATION ("warmelt-macro.melt:574:/ initchunk"); #line 574 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 574 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V738*/ meltfptr[737]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V746*/ meltfptr[745])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V746*/ meltfptr[745])))); ((meltobject_ptr_t) ( /*_.VALDATA___V746*/ meltfptr[745]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V747*/ meltfptr[746]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V746*/ meltfptr[745]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V748*/ meltfptr[747])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V748*/ meltfptr[747])))); ((meltobject_ptr_t) ( /*_.VALDATA___V748*/ meltfptr[747]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V749*/ meltfptr[748]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V748*/ meltfptr[747]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V750*/ meltfptr[749])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V750*/ meltfptr[749])))); ((meltobject_ptr_t) ( /*_.VALDATA___V750*/ meltfptr[749]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V751*/ meltfptr[750]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V750*/ meltfptr[749]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V753*/ meltfptr[752]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#524 */ melt_assertmsg ("putupl #524 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #524 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#525 */ melt_assertmsg ("putupl #525 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #525 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#526 */ melt_assertmsg ("putupl #526 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #526 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#527 */ melt_assertmsg ("putupl #527 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #527 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V754*/ meltfptr[753]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V754*/ meltfptr[753]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V756*/ meltfptr[755]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754])))); ((meltobject_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 584 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V755*/ meltfptr[754]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756])))); ((meltobject_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V758*/ meltfptr[757]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756])))); ((meltobject_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 584 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V757*/ meltfptr[756]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758])))); ((meltobject_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V760*/ meltfptr[759]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758])))); ((meltobject_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 584 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V759*/ meltfptr[758]); /*putupl#528 */ melt_assertmsg ("putupl #528 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #528 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#529 */ melt_assertmsg ("putupl #529 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #529 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#530 */ melt_assertmsg ("putupl #530 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #530 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V755*/ meltfptr[754]); /*putupl#531 */ melt_assertmsg ("putupl #531 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #531 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V757*/ meltfptr[756]); /*putupl#532 */ melt_assertmsg ("putupl #532 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #532 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V759*/ meltfptr[758]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V761*/ meltfptr[760]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 584 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751])))); ((meltobject_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V761*/ meltfptr[760]); MELT_LOCATION ("warmelt-macro.melt:584:/ initchunk"); #line 584 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 584 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V752*/ meltfptr[751]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V762*/ meltfptr[761])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V762*/ meltfptr[761])))); ((meltobject_ptr_t) ( /*_.VALDATA___V762*/ meltfptr[761]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V763*/ meltfptr[762]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V762*/ meltfptr[761]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V764*/ meltfptr[763])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V764*/ meltfptr[763])))); ((meltobject_ptr_t) ( /*_.VALDATA___V764*/ meltfptr[763]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V765*/ meltfptr[764]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V764*/ meltfptr[763]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765])))); ((meltobject_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V767*/ meltfptr[766]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V766*/ meltfptr[765]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V768*/ meltfptr[767])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V768*/ meltfptr[767])))); ((meltobject_ptr_t) ( /*_.VALDATA___V768*/ meltfptr[767]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V769*/ meltfptr[768]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V768*/ meltfptr[767]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])))); ((meltobject_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V771*/ meltfptr[770]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])))); ((meltobject_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#533 */ melt_assertmsg ("putupl #533 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #533 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#534 */ melt_assertmsg ("putupl #534 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #534 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#535 */ melt_assertmsg ("putupl #535 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #535 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#536 */ melt_assertmsg ("putupl #536 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #536 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V772*/ meltfptr[771]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])))); ((meltobject_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V772*/ meltfptr[771]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772])))); ((meltobject_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V774*/ meltfptr[773]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772])))); ((meltobject_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 596 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V773*/ meltfptr[772]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V776*/ meltfptr[775]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774])))); ((meltobject_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 596 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V775*/ meltfptr[774]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V778*/ meltfptr[777]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776])))); ((meltobject_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 596 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V777*/ meltfptr[776]); /*putupl#537 */ melt_assertmsg ("putupl #537 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #537 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#538 */ melt_assertmsg ("putupl #538 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #538 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#539 */ melt_assertmsg ("putupl #539 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #539 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V773*/ meltfptr[772]); /*putupl#540 */ melt_assertmsg ("putupl #540 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #540 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V775*/ meltfptr[774]); /*putupl#541 */ melt_assertmsg ("putupl #541 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #541 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V777*/ meltfptr[776]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V779*/ meltfptr[778]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 596 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769])))); ((meltobject_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V779*/ meltfptr[778]); MELT_LOCATION ("warmelt-macro.melt:596:/ initchunk"); #line 596 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 596 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V770*/ meltfptr[769]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V780*/ meltfptr[779])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V780*/ meltfptr[779])))); ((meltobject_ptr_t) ( /*_.VALDATA___V780*/ meltfptr[779]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V781*/ meltfptr[780]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V780*/ meltfptr[779]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V782*/ meltfptr[781])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V782*/ meltfptr[781])))); ((meltobject_ptr_t) ( /*_.VALDATA___V782*/ meltfptr[781]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V783*/ meltfptr[782]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V782*/ meltfptr[781]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V784*/ meltfptr[783])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V784*/ meltfptr[783])))); ((meltobject_ptr_t) ( /*_.VALDATA___V784*/ meltfptr[783]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V785*/ meltfptr[784]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V784*/ meltfptr[783]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V786*/ meltfptr[785])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V786*/ meltfptr[785])))); ((meltobject_ptr_t) ( /*_.VALDATA___V786*/ meltfptr[785]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V787*/ meltfptr[786]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V786*/ meltfptr[785]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V789*/ meltfptr[788]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#542 */ melt_assertmsg ("putupl #542 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #542 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#543 */ melt_assertmsg ("putupl #543 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #543 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#544 */ melt_assertmsg ("putupl #544 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #544 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#545 */ melt_assertmsg ("putupl #545 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #545 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V790*/ meltfptr[789]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V790*/ meltfptr[789]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790])))); ((meltobject_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V792*/ meltfptr[791]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790])))); ((meltobject_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 608 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V791*/ meltfptr[790]); /*putupl#546 */ melt_assertmsg ("putupl #546 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #546 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#547 */ melt_assertmsg ("putupl #547 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #547 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#548 */ melt_assertmsg ("putupl #548 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #548 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V793*/ meltfptr[792]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 608 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787])))); ((meltobject_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V793*/ meltfptr[792]); MELT_LOCATION ("warmelt-macro.melt:608:/ initchunk"); #line 608 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 608 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V788*/ meltfptr[787]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V794*/ meltfptr[793])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V794*/ meltfptr[793])))); ((meltobject_ptr_t) ( /*_.VALDATA___V794*/ meltfptr[793]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V795*/ meltfptr[794]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V794*/ meltfptr[793]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V796*/ meltfptr[795])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V796*/ meltfptr[795])))); ((meltobject_ptr_t) ( /*_.VALDATA___V796*/ meltfptr[795]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V797*/ meltfptr[796]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V796*/ meltfptr[795]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])))); ((meltobject_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V799*/ meltfptr[798]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])))); ((meltobject_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*putupl#549 */ melt_assertmsg ("putupl #549 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #549 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#550 */ melt_assertmsg ("putupl #550 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #550 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#551 */ melt_assertmsg ("putupl #551 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #551 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#552 */ melt_assertmsg ("putupl #552 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #552 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#553 */ melt_assertmsg ("putupl #553 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #553 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V800*/ meltfptr[799]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])))); ((meltobject_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V800*/ meltfptr[799]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800])))); ((meltobject_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V802*/ meltfptr[801]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800])))); ((meltobject_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 617 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V801*/ meltfptr[800]); /*putupl#554 */ melt_assertmsg ("putupl #554 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #554 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#555 */ melt_assertmsg ("putupl #555 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #555 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#556 */ melt_assertmsg ("putupl #556 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #556 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]); /*putupl#557 */ melt_assertmsg ("putupl #557 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #557 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V801*/ meltfptr[800]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V803*/ meltfptr[802]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 617 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797])))); ((meltobject_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V803*/ meltfptr[802]); MELT_LOCATION ("warmelt-macro.melt:617:/ initchunk"); #line 617 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 617 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V798*/ meltfptr[797]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V804*/ meltfptr[803])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V804*/ meltfptr[803])))); ((meltobject_ptr_t) ( /*_.VALDATA___V804*/ meltfptr[803]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V805*/ meltfptr[804]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V804*/ meltfptr[803]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V806*/ meltfptr[805])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V806*/ meltfptr[805])))); ((meltobject_ptr_t) ( /*_.VALDATA___V806*/ meltfptr[805]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V807*/ meltfptr[806]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V806*/ meltfptr[805]); MELT_LOCATION ("warmelt-macro.melt:625:/ initchunk"); #line 625 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 625 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])))); ((meltobject_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V809*/ meltfptr[808]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_11 */ void meltmod__warmelt_macro__initialmeltchunk_12 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:625:/ initchunk"); #line 625 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 625 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])))); ((meltobject_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*putupl#558 */ melt_assertmsg ("putupl #558 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #558 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#559 */ melt_assertmsg ("putupl #559 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #559 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#560 */ melt_assertmsg ("putupl #560 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #560 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#561 */ melt_assertmsg ("putupl #561 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #561 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#562 */ melt_assertmsg ("putupl #562 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #562 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V810*/ meltfptr[809]); MELT_LOCATION ("warmelt-macro.melt:625:/ initchunk"); #line 625 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 625 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])))); ((meltobject_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V810*/ meltfptr[809]); /*putupl#563 */ melt_assertmsg ("putupl #563 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #563 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#564 */ melt_assertmsg ("putupl #564 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #564 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#565 */ melt_assertmsg ("putupl #565 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #565 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V811*/ meltfptr[810]); MELT_LOCATION ("warmelt-macro.melt:625:/ initchunk"); #line 625 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 625 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807])))); ((meltobject_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V811*/ meltfptr[810]); MELT_LOCATION ("warmelt-macro.melt:625:/ initchunk"); #line 625 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 625 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V808*/ meltfptr[807]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V812*/ meltfptr[811])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V812*/ meltfptr[811])))); ((meltobject_ptr_t) ( /*_.VALDATA___V812*/ meltfptr[811]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V813*/ meltfptr[812]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V812*/ meltfptr[811]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V815*/ meltfptr[814]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*putupl#566 */ melt_assertmsg ("putupl #566 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #566 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#567 */ melt_assertmsg ("putupl #567 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #567 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#568 */ melt_assertmsg ("putupl #568 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #568 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#569 */ melt_assertmsg ("putupl #569 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #569 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#570 */ melt_assertmsg ("putupl #570 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #570 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V788*/ meltfptr[787]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V816*/ meltfptr[815]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V816*/ meltfptr[815]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816])))); ((meltobject_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V818*/ meltfptr[817]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816])))); ((meltobject_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 632 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V817*/ meltfptr[816]); /*putupl#571 */ melt_assertmsg ("putupl #571 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #571 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#572 */ melt_assertmsg ("putupl #572 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #572 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#573 */ melt_assertmsg ("putupl #573 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #573 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V791*/ meltfptr[790]); /*putupl#574 */ melt_assertmsg ("putupl #574 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #574 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V817*/ meltfptr[816]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V819*/ meltfptr[818]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 632 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813])))); ((meltobject_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V819*/ meltfptr[818]); MELT_LOCATION ("warmelt-macro.melt:632:/ initchunk"); #line 632 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 632 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V814*/ meltfptr[813]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V820*/ meltfptr[819])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V820*/ meltfptr[819])))); ((meltobject_ptr_t) ( /*_.VALDATA___V820*/ meltfptr[819]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V821*/ meltfptr[820]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V820*/ meltfptr[819]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V822*/ meltfptr[821])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V822*/ meltfptr[821])))); ((meltobject_ptr_t) ( /*_.VALDATA___V822*/ meltfptr[821]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V823*/ meltfptr[822]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V822*/ meltfptr[821]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])))); ((meltobject_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V825*/ meltfptr[824]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])))); ((meltobject_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#575 */ melt_assertmsg ("putupl #575 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #575 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#576 */ melt_assertmsg ("putupl #576 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #576 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#577 */ melt_assertmsg ("putupl #577 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #577 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#578 */ melt_assertmsg ("putupl #578 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #578 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V826*/ meltfptr[825]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])))); ((meltobject_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V826*/ meltfptr[825]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826])))); ((meltobject_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V828*/ meltfptr[827]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826])))); ((meltobject_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 641 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V827*/ meltfptr[826]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828])))); ((meltobject_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V830*/ meltfptr[829]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828])))); ((meltobject_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 641 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V829*/ meltfptr[828]); /*putupl#579 */ melt_assertmsg ("putupl #579 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #579 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#580 */ melt_assertmsg ("putupl #580 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #580 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#581 */ melt_assertmsg ("putupl #581 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #581 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V827*/ meltfptr[826]); /*putupl#582 */ melt_assertmsg ("putupl #582 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #582 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V829*/ meltfptr[828]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V831*/ meltfptr[830]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 641 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823])))); ((meltobject_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V831*/ meltfptr[830]); MELT_LOCATION ("warmelt-macro.melt:641:/ initchunk"); #line 641 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 641 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V824*/ meltfptr[823]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V832*/ meltfptr[831])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V832*/ meltfptr[831])))); ((meltobject_ptr_t) ( /*_.VALDATA___V832*/ meltfptr[831]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V833*/ meltfptr[832]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V832*/ meltfptr[831]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V834*/ meltfptr[833])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V834*/ meltfptr[833])))); ((meltobject_ptr_t) ( /*_.VALDATA___V834*/ meltfptr[833]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V835*/ meltfptr[834]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V834*/ meltfptr[833]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V836*/ meltfptr[835])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V836*/ meltfptr[835])))); ((meltobject_ptr_t) ( /*_.VALDATA___V836*/ meltfptr[835]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V837*/ meltfptr[836]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V836*/ meltfptr[835]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V839*/ meltfptr[838]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#583 */ melt_assertmsg ("putupl #583 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #583 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#584 */ melt_assertmsg ("putupl #584 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #584 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#585 */ melt_assertmsg ("putupl #585 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #585 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#586 */ melt_assertmsg ("putupl #586 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #586 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V840*/ meltfptr[839]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V840*/ meltfptr[839]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840])))); ((meltobject_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V842*/ meltfptr[841]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840])))); ((meltobject_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 648 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V841*/ meltfptr[840]); /*putupl#587 */ melt_assertmsg ("putupl #587 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #587 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#588 */ melt_assertmsg ("putupl #588 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #588 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#589 */ melt_assertmsg ("putupl #589 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #589 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V841*/ meltfptr[840]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V843*/ meltfptr[842]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 648 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837])))); ((meltobject_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V843*/ meltfptr[842]); MELT_LOCATION ("warmelt-macro.melt:648:/ initchunk"); #line 648 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 648 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V838*/ meltfptr[837]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V844*/ meltfptr[843])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V844*/ meltfptr[843])))); ((meltobject_ptr_t) ( /*_.VALDATA___V844*/ meltfptr[843]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V845*/ meltfptr[844]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V844*/ meltfptr[843]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V846*/ meltfptr[845])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V846*/ meltfptr[845])))); ((meltobject_ptr_t) ( /*_.VALDATA___V846*/ meltfptr[845]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V847*/ meltfptr[846]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V846*/ meltfptr[845]); MELT_LOCATION ("warmelt-macro.melt:656:/ initchunk"); #line 656 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 656 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])))); ((meltobject_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V849*/ meltfptr[848]); MELT_LOCATION ("warmelt-macro.melt:656:/ initchunk"); #line 656 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 656 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])))); ((meltobject_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#590 */ melt_assertmsg ("putupl #590 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #590 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#591 */ melt_assertmsg ("putupl #591 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #591 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#592 */ melt_assertmsg ("putupl #592 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #592 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#593 */ melt_assertmsg ("putupl #593 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #593 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V850*/ meltfptr[849]); MELT_LOCATION ("warmelt-macro.melt:656:/ initchunk"); #line 656 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 656 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])))); ((meltobject_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V850*/ meltfptr[849]); /*putupl#594 */ melt_assertmsg ("putupl #594 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #594 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#595 */ melt_assertmsg ("putupl #595 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #595 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V851*/ meltfptr[850]); MELT_LOCATION ("warmelt-macro.melt:656:/ initchunk"); #line 656 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 656 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847])))); ((meltobject_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V851*/ meltfptr[850]); MELT_LOCATION ("warmelt-macro.melt:656:/ initchunk"); #line 656 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 656 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V848*/ meltfptr[847]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V852*/ meltfptr[851])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V852*/ meltfptr[851])))); ((meltobject_ptr_t) ( /*_.VALDATA___V852*/ meltfptr[851]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V853*/ meltfptr[852]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V852*/ meltfptr[851]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V855*/ meltfptr[854]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#596 */ melt_assertmsg ("putupl #596 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #596 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#597 */ melt_assertmsg ("putupl #597 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #597 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#598 */ melt_assertmsg ("putupl #598 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #598 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#599 */ melt_assertmsg ("putupl #599 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #599 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V856*/ meltfptr[855]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V856*/ meltfptr[855]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856])))); ((meltobject_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V858*/ meltfptr[857]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856])))); ((meltobject_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 664 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V857*/ meltfptr[856]); /*putupl#600 */ melt_assertmsg ("putupl #600 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #600 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#601 */ melt_assertmsg ("putupl #601 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #601 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#602 */ melt_assertmsg ("putupl #602 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #602 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V857*/ meltfptr[856]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V859*/ meltfptr[858]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 664 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853])))); ((meltobject_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V859*/ meltfptr[858]); MELT_LOCATION ("warmelt-macro.melt:664:/ initchunk"); #line 664 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 664 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V854*/ meltfptr[853]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V860*/ meltfptr[859])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V860*/ meltfptr[859])))); ((meltobject_ptr_t) ( /*_.VALDATA___V860*/ meltfptr[859]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V861*/ meltfptr[860]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V860*/ meltfptr[859]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V862*/ meltfptr[861])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V862*/ meltfptr[861])))); ((meltobject_ptr_t) ( /*_.VALDATA___V862*/ meltfptr[861]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V863*/ meltfptr[862]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V862*/ meltfptr[861]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])))); ((meltobject_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V865*/ meltfptr[864]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])))); ((meltobject_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#603 */ melt_assertmsg ("putupl #603 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #603 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#604 */ melt_assertmsg ("putupl #604 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #604 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#605 */ melt_assertmsg ("putupl #605 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #605 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_12 */ void meltmod__warmelt_macro__initialmeltchunk_13 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#606*/ melt_assertmsg ("putupl #606 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #606 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V866*/ meltfptr[865]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])))); ((meltobject_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V866*/ meltfptr[865]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866])))); ((meltobject_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V868*/ meltfptr[867]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866])))); ((meltobject_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 673 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V867*/ meltfptr[866]); /*putupl#607 */ melt_assertmsg ("putupl #607 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #607 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#608 */ melt_assertmsg ("putupl #608 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #608 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#609 */ melt_assertmsg ("putupl #609 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #609 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V867*/ meltfptr[866]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V869*/ meltfptr[868]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 673 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863])))); ((meltobject_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V869*/ meltfptr[868]); MELT_LOCATION ("warmelt-macro.melt:673:/ initchunk"); #line 673 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 673 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V864*/ meltfptr[863]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V870*/ meltfptr[869])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V870*/ meltfptr[869])))); ((meltobject_ptr_t) ( /*_.VALDATA___V870*/ meltfptr[869]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V871*/ meltfptr[870]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V870*/ meltfptr[869]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V872*/ meltfptr[871])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V872*/ meltfptr[871])))); ((meltobject_ptr_t) ( /*_.VALDATA___V872*/ meltfptr[871]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V873*/ meltfptr[872]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V872*/ meltfptr[871]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])))); ((meltobject_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V875*/ meltfptr[874]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])))); ((meltobject_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#610 */ melt_assertmsg ("putupl #610 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #610 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#611 */ melt_assertmsg ("putupl #611 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #611 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#612 */ melt_assertmsg ("putupl #612 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #612 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#613 */ melt_assertmsg ("putupl #613 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #613 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V876*/ meltfptr[875]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])))); ((meltobject_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V876*/ meltfptr[875]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876])))); ((meltobject_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V878*/ meltfptr[877]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876])))); ((meltobject_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 679 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V877*/ meltfptr[876]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878])))); ((meltobject_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V880*/ meltfptr[879]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878])))); ((meltobject_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 679 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V879*/ meltfptr[878]); /*putupl#614 */ melt_assertmsg ("putupl #614 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #614 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#615 */ melt_assertmsg ("putupl #615 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #615 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#616 */ melt_assertmsg ("putupl #616 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #616 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V877*/ meltfptr[876]); /*putupl#617 */ melt_assertmsg ("putupl #617 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #617 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V879*/ meltfptr[878]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V881*/ meltfptr[880]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 679 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873])))); ((meltobject_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V881*/ meltfptr[880]); MELT_LOCATION ("warmelt-macro.melt:679:/ initchunk"); #line 679 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 679 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V874*/ meltfptr[873]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V882*/ meltfptr[881])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V882*/ meltfptr[881])))); ((meltobject_ptr_t) ( /*_.VALDATA___V882*/ meltfptr[881]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V883*/ meltfptr[882]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V882*/ meltfptr[881]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V884*/ meltfptr[883])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V884*/ meltfptr[883])))); ((meltobject_ptr_t) ( /*_.VALDATA___V884*/ meltfptr[883]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V885*/ meltfptr[884]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V884*/ meltfptr[883]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V886*/ meltfptr[885])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V886*/ meltfptr[885])))); ((meltobject_ptr_t) ( /*_.VALDATA___V886*/ meltfptr[885]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V887*/ meltfptr[886]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V886*/ meltfptr[885]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])))); ((meltobject_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V889*/ meltfptr[888]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])))); ((meltobject_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#618 */ melt_assertmsg ("putupl #618 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #618 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#619 */ melt_assertmsg ("putupl #619 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #619 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#620 */ melt_assertmsg ("putupl #620 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #620 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#621 */ melt_assertmsg ("putupl #621 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #621 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V890*/ meltfptr[889]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])))); ((meltobject_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V890*/ meltfptr[889]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890])))); ((meltobject_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V892*/ meltfptr[891]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890])))); ((meltobject_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 687 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V891*/ meltfptr[890]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892])))); ((meltobject_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V894*/ meltfptr[893]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892])))); ((meltobject_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 687 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V893*/ meltfptr[892]); /*putupl#622 */ melt_assertmsg ("putupl #622 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #622 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#623 */ melt_assertmsg ("putupl #623 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #623 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#624 */ melt_assertmsg ("putupl #624 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #624 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V891*/ meltfptr[890]); /*putupl#625 */ melt_assertmsg ("putupl #625 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #625 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V893*/ meltfptr[892]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V895*/ meltfptr[894]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 687 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887])))); ((meltobject_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V895*/ meltfptr[894]); MELT_LOCATION ("warmelt-macro.melt:687:/ initchunk"); #line 687 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 687 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V888*/ meltfptr[887]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V896*/ meltfptr[895])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V896*/ meltfptr[895])))); ((meltobject_ptr_t) ( /*_.VALDATA___V896*/ meltfptr[895]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V897*/ meltfptr[896]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V896*/ meltfptr[895]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V898*/ meltfptr[897])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V898*/ meltfptr[897])))); ((meltobject_ptr_t) ( /*_.VALDATA___V898*/ meltfptr[897]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V899*/ meltfptr[898]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V898*/ meltfptr[897]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V900*/ meltfptr[899])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V900*/ meltfptr[899])))); ((meltobject_ptr_t) ( /*_.VALDATA___V900*/ meltfptr[899]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V901*/ meltfptr[900]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V900*/ meltfptr[899]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V903*/ meltfptr[902]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]))->obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#626 */ melt_assertmsg ("putupl #626 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #626 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#627 */ melt_assertmsg ("putupl #627 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #627 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#628 */ melt_assertmsg ("putupl #628 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #628 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#629 */ melt_assertmsg ("putupl #629 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #629 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V904*/ meltfptr[903]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V904*/ meltfptr[903]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904])))); ((meltobject_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V906*/ meltfptr[905]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904])))); ((meltobject_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 695 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#630 */ melt_assertmsg ("putupl #630 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #630 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#631 */ melt_assertmsg ("putupl #631 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #631 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#632 */ melt_assertmsg ("putupl #632 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #632 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V907*/ meltfptr[906]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 695 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901])))); ((meltobject_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V907*/ meltfptr[906]); MELT_LOCATION ("warmelt-macro.melt:695:/ initchunk"); #line 695 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 695 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V902*/ meltfptr[901]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V908*/ meltfptr[907])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V908*/ meltfptr[907])))); ((meltobject_ptr_t) ( /*_.VALDATA___V908*/ meltfptr[907]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V909*/ meltfptr[908]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V908*/ meltfptr[907]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V910*/ meltfptr[909])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V910*/ meltfptr[909])))); ((meltobject_ptr_t) ( /*_.VALDATA___V910*/ meltfptr[909]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V911*/ meltfptr[910]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V910*/ meltfptr[909]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V913*/ meltfptr[912]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#633 */ melt_assertmsg ("putupl #633 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #633 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#634 */ melt_assertmsg ("putupl #634 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #634 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#635 */ melt_assertmsg ("putupl #635 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #635 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#636 */ melt_assertmsg ("putupl #636 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #636 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#637 */ melt_assertmsg ("putupl #637 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #637 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V914*/ meltfptr[913]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V914*/ meltfptr[913]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914])))); ((meltobject_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V916*/ meltfptr[915]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914])))); ((meltobject_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 704 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V915*/ meltfptr[914]); /*putupl#638 */ melt_assertmsg ("putupl #638 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #638 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#639 */ melt_assertmsg ("putupl #639 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #639 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#640 */ melt_assertmsg ("putupl #640 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #640 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#641 */ melt_assertmsg ("putupl #641 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #641 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V915*/ meltfptr[914]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V917*/ meltfptr[916]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 704 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911])))); ((meltobject_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V917*/ meltfptr[916]); MELT_LOCATION ("warmelt-macro.melt:704:/ initchunk"); #line 704 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 704 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V912*/ meltfptr[911]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V918*/ meltfptr[917])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V918*/ meltfptr[917])))); ((meltobject_ptr_t) ( /*_.VALDATA___V918*/ meltfptr[917]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V919*/ meltfptr[918]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V918*/ meltfptr[917]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V920*/ meltfptr[919])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V920*/ meltfptr[919])))); ((meltobject_ptr_t) ( /*_.VALDATA___V920*/ meltfptr[919]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V921*/ meltfptr[920]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V920*/ meltfptr[919]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])))); ((meltobject_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V923*/ meltfptr[922]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])))); ((meltobject_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#642 */ melt_assertmsg ("putupl #642 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #642 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#643 */ melt_assertmsg ("putupl #643 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #643 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#644 */ melt_assertmsg ("putupl #644 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #644 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#645 */ melt_assertmsg ("putupl #645 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #645 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#646 */ melt_assertmsg ("putupl #646 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #646 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V924*/ meltfptr[923]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])))); ((meltobject_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V924*/ meltfptr[923]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924])))); ((meltobject_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V926*/ meltfptr[925]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924])))); ((meltobject_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 713 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V925*/ meltfptr[924]); /*putupl#647 */ melt_assertmsg ("putupl #647 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #647 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#648 */ melt_assertmsg ("putupl #648 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #648 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_13 */ void meltmod__warmelt_macro__initialmeltchunk_14 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#649*/ melt_assertmsg ("putupl #649 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #649 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#650 */ melt_assertmsg ("putupl #650 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #650 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V925*/ meltfptr[924]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V927*/ meltfptr[926]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 713 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921])))); ((meltobject_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V927*/ meltfptr[926]); MELT_LOCATION ("warmelt-macro.melt:713:/ initchunk"); #line 713 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 713 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V922*/ meltfptr[921]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V928*/ meltfptr[927])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V928*/ meltfptr[927])))); ((meltobject_ptr_t) ( /*_.VALDATA___V928*/ meltfptr[927]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V929*/ meltfptr[928]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V928*/ meltfptr[927]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V930*/ meltfptr[929])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V930*/ meltfptr[929])))); ((meltobject_ptr_t) ( /*_.VALDATA___V930*/ meltfptr[929]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V931*/ meltfptr[930]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V930*/ meltfptr[929]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V933*/ meltfptr[932]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#651 */ melt_assertmsg ("putupl #651 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #651 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#652 */ melt_assertmsg ("putupl #652 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #652 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#653 */ melt_assertmsg ("putupl #653 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #653 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#654 */ melt_assertmsg ("putupl #654 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #654 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#655 */ melt_assertmsg ("putupl #655 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #655 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V934*/ meltfptr[933]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V934*/ meltfptr[933]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934])))); ((meltobject_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V936*/ meltfptr[935]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934])))); ((meltobject_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 722 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V935*/ meltfptr[934]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936])))); ((meltobject_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V938*/ meltfptr[937]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936])))); ((meltobject_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 722 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V937*/ meltfptr[936]); /*putupl#656 */ melt_assertmsg ("putupl #656 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #656 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#657 */ melt_assertmsg ("putupl #657 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #657 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#658 */ melt_assertmsg ("putupl #658 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #658 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#659 */ melt_assertmsg ("putupl #659 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #659 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V935*/ meltfptr[934]); /*putupl#660 */ melt_assertmsg ("putupl #660 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #660 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V937*/ meltfptr[936]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V939*/ meltfptr[938]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 722 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931])))); ((meltobject_ptr_t) ( /*_.VALDATA___V932*/ meltfptr[931]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V939*/ meltfptr[938]); MELT_LOCATION ("warmelt-macro.melt:722:/ initchunk"); #line 722 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 722 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V932*/ meltfptr[931]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V940*/ meltfptr[939])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V940*/ meltfptr[939])))); ((meltobject_ptr_t) ( /*_.VALDATA___V940*/ meltfptr[939]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V941*/ meltfptr[940]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V940*/ meltfptr[939]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V942*/ meltfptr[941])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V942*/ meltfptr[941])))); ((meltobject_ptr_t) ( /*_.VALDATA___V942*/ meltfptr[941]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V943*/ meltfptr[942]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V942*/ meltfptr[941]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V944*/ meltfptr[943])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V944*/ meltfptr[943])))); ((meltobject_ptr_t) ( /*_.VALDATA___V944*/ meltfptr[943]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V945*/ meltfptr[944]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V944*/ meltfptr[943]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])))); ((meltobject_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V947*/ meltfptr[946]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])))); ((meltobject_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#661 */ melt_assertmsg ("putupl #661 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #661 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#662 */ melt_assertmsg ("putupl #662 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #662 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#663 */ melt_assertmsg ("putupl #663 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #663 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#664 */ melt_assertmsg ("putupl #664 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #664 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#665 */ melt_assertmsg ("putupl #665 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #665 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V948*/ meltfptr[947]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])))); ((meltobject_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V948*/ meltfptr[947]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V950*/ meltfptr[949]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948])))); ((meltobject_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 734 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V949*/ meltfptr[948]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950])))); ((meltobject_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V952*/ meltfptr[951]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950])))); ((meltobject_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 734 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V951*/ meltfptr[950]); /*putupl#666 */ melt_assertmsg ("putupl #666 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #666 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#667 */ melt_assertmsg ("putupl #667 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #667 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#668 */ melt_assertmsg ("putupl #668 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #668 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#669 */ melt_assertmsg ("putupl #669 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #669 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948]); /*putupl#670 */ melt_assertmsg ("putupl #670 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #670 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V953*/ meltfptr[952]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 734 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945])))); ((meltobject_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V953*/ meltfptr[952]); MELT_LOCATION ("warmelt-macro.melt:734:/ initchunk"); #line 734 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 734 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V946*/ meltfptr[945]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V954*/ meltfptr[953])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V954*/ meltfptr[953])))); ((meltobject_ptr_t) ( /*_.VALDATA___V954*/ meltfptr[953]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V955*/ meltfptr[954]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V954*/ meltfptr[953]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V956*/ meltfptr[955])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V956*/ meltfptr[955])))); ((meltobject_ptr_t) ( /*_.VALDATA___V956*/ meltfptr[955]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V957*/ meltfptr[956]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V956*/ meltfptr[955]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V958*/ meltfptr[957])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V958*/ meltfptr[957])))); ((meltobject_ptr_t) ( /*_.VALDATA___V958*/ meltfptr[957]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V959*/ meltfptr[958]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V958*/ meltfptr[957]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V960*/ meltfptr[959])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V960*/ meltfptr[959])))); ((meltobject_ptr_t) ( /*_.VALDATA___V960*/ meltfptr[959]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V961*/ meltfptr[960]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V960*/ meltfptr[959]); MELT_LOCATION ("warmelt-macro.melt:745:/ initchunk"); #line 745 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 745 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V963*/ meltfptr[962]); MELT_LOCATION ("warmelt-macro.melt:745:/ initchunk"); #line 745 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 745 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); /*putupl#671 */ melt_assertmsg ("putupl #671 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #671 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#672 */ melt_assertmsg ("putupl #672 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #672 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#673 */ melt_assertmsg ("putupl #673 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #673 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#674 */ melt_assertmsg ("putupl #674 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #674 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#675 */ melt_assertmsg ("putupl #675 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #675 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#676 */ melt_assertmsg ("putupl #676 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #676 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V964*/ meltfptr[963]); MELT_LOCATION ("warmelt-macro.melt:745:/ initchunk"); #line 745 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 745 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V964*/ meltfptr[963]); /*putupl#677 */ melt_assertmsg ("putupl #677 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #677 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#678 */ melt_assertmsg ("putupl #678 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #678 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#679 */ melt_assertmsg ("putupl #679 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #679 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#680 */ melt_assertmsg ("putupl #680 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #680 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V949*/ meltfptr[948]); /*putupl#681 */ melt_assertmsg ("putupl #681 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #681 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V951*/ meltfptr[950]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V965*/ meltfptr[964]); MELT_LOCATION ("warmelt-macro.melt:745:/ initchunk"); #line 745 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 745 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961])))); ((meltobject_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V965*/ meltfptr[964]); MELT_LOCATION ("warmelt-macro.melt:745:/ initchunk"); #line 745 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 745 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V962*/ meltfptr[961]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V966*/ meltfptr[965])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V966*/ meltfptr[965])))); ((meltobject_ptr_t) ( /*_.VALDATA___V966*/ meltfptr[965]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V967*/ meltfptr[966]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V966*/ meltfptr[965]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])))); ((meltobject_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V969*/ meltfptr[968]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])))); ((meltobject_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#682 */ melt_assertmsg ("putupl #682 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #682 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#683 */ melt_assertmsg ("putupl #683 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #683 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#684 */ melt_assertmsg ("putupl #684 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #684 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#685 */ melt_assertmsg ("putupl #685 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #685 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#686 */ melt_assertmsg ("putupl #686 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #686 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V970*/ meltfptr[969]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])))); ((meltobject_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V970*/ meltfptr[969]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970])))); ((meltobject_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V972*/ meltfptr[971]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970])))); ((meltobject_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 752 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V971*/ meltfptr[970]); /*putupl#687 */ melt_assertmsg ("putupl #687 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #687 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#688 */ melt_assertmsg ("putupl #688 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #688 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#689 */ melt_assertmsg ("putupl #689 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #689 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#690 */ melt_assertmsg ("putupl #690 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #690 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V971*/ meltfptr[970]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V973*/ meltfptr[972]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 752 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967])))); ((meltobject_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V973*/ meltfptr[972]); MELT_LOCATION ("warmelt-macro.melt:752:/ initchunk"); #line 752 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 752 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V968*/ meltfptr[967]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V974*/ meltfptr[973])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V974*/ meltfptr[973])))); ((meltobject_ptr_t) ( /*_.VALDATA___V974*/ meltfptr[973]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V975*/ meltfptr[974]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V974*/ meltfptr[973]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V976*/ meltfptr[975])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V976*/ meltfptr[975])))); ((meltobject_ptr_t) ( /*_.VALDATA___V976*/ meltfptr[975]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V977*/ meltfptr[976]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V976*/ meltfptr[975]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V979*/ meltfptr[978]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#691 */ melt_assertmsg ("putupl #691 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #691 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#692 */ melt_assertmsg ("putupl #692 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #692 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#693 */ melt_assertmsg ("putupl #693 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #693 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#694 */ melt_assertmsg ("putupl #694 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #694 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#695 */ melt_assertmsg ("putupl #695 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #695 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V980*/ meltfptr[979]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V980*/ meltfptr[979]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980])))); ((meltobject_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V982*/ meltfptr[981]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980])))); ((meltobject_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980]))->obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 761 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V981*/ meltfptr[980]); /*putupl#696 */ melt_assertmsg ("putupl #696 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #696 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#697 */ melt_assertmsg ("putupl #697 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #697 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#698 */ melt_assertmsg ("putupl #698 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #698 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#699 */ melt_assertmsg ("putupl #699 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #699 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_14 */ void meltmod__warmelt_macro__initialmeltchunk_15 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:INITUP_*/ meltgc_touch ( /*_.VALTUP___V983*/ meltfptr[982]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 761 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977])))); ((meltobject_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V983*/ meltfptr[982]); MELT_LOCATION ("warmelt-macro.melt:761:/ initchunk"); #line 761 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 761 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V978*/ meltfptr[977]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V984*/ meltfptr[983])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V984*/ meltfptr[983])))); ((meltobject_ptr_t) ( /*_.VALDATA___V984*/ meltfptr[983]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V985*/ meltfptr[984]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V984*/ meltfptr[983]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V986*/ meltfptr[985])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V986*/ meltfptr[985])))); ((meltobject_ptr_t) ( /*_.VALDATA___V986*/ meltfptr[985]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V987*/ meltfptr[986]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V986*/ meltfptr[985]); MELT_LOCATION ("warmelt-macro.melt:770:/ initchunk"); #line 770 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 770 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])))); ((meltobject_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V989*/ meltfptr[988]); MELT_LOCATION ("warmelt-macro.melt:770:/ initchunk"); #line 770 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 770 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])))); ((meltobject_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]); /*putupl#700 */ melt_assertmsg ("putupl #700 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #700 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#701 */ melt_assertmsg ("putupl #701 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #701 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#702 */ melt_assertmsg ("putupl #702 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #702 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#703 */ melt_assertmsg ("putupl #703 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #703 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#704 */ melt_assertmsg ("putupl #704 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #704 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#705 */ melt_assertmsg ("putupl #705 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #705 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V990*/ meltfptr[989]); MELT_LOCATION ("warmelt-macro.melt:770:/ initchunk"); #line 770 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 770 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])))); ((meltobject_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V990*/ meltfptr[989]); /*putupl#706 */ melt_assertmsg ("putupl #706 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #706 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#707 */ melt_assertmsg ("putupl #707 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #707 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#708 */ melt_assertmsg ("putupl #708 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #708 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#709 */ melt_assertmsg ("putupl #709 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #709 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V991*/ meltfptr[990]); MELT_LOCATION ("warmelt-macro.melt:770:/ initchunk"); #line 770 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 770 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987])))); ((meltobject_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V991*/ meltfptr[990]); MELT_LOCATION ("warmelt-macro.melt:770:/ initchunk"); #line 770 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 770 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V988*/ meltfptr[987]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V992*/ meltfptr[991])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V992*/ meltfptr[991])))); ((meltobject_ptr_t) ( /*_.VALDATA___V992*/ meltfptr[991]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V993*/ meltfptr[992]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V992*/ meltfptr[991]); MELT_LOCATION ("warmelt-macro.melt:777:/ initchunk"); #line 777 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 777 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V995*/ meltfptr[994]); MELT_LOCATION ("warmelt-macro.melt:777:/ initchunk"); #line 777 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 777 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]); /*putupl#710 */ melt_assertmsg ("putupl #710 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #710 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#711 */ melt_assertmsg ("putupl #711 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #711 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#712 */ melt_assertmsg ("putupl #712 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #712 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#713 */ melt_assertmsg ("putupl #713 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #713 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#714 */ melt_assertmsg ("putupl #714 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #714 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#715 */ melt_assertmsg ("putupl #715 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #715 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V978*/ meltfptr[977]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V996*/ meltfptr[995]); MELT_LOCATION ("warmelt-macro.melt:777:/ initchunk"); #line 777 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 777 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V996*/ meltfptr[995]); /*putupl#716 */ melt_assertmsg ("putupl #716 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #716 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#717 */ melt_assertmsg ("putupl #717 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #717 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#718 */ melt_assertmsg ("putupl #718 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #718 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#719 */ melt_assertmsg ("putupl #719 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #719 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V981*/ meltfptr[980]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V997*/ meltfptr[996]); MELT_LOCATION ("warmelt-macro.melt:777:/ initchunk"); #line 777 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 777 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993])))); ((meltobject_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V997*/ meltfptr[996]); MELT_LOCATION ("warmelt-macro.melt:777:/ initchunk"); #line 777 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 777 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V994*/ meltfptr[993]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V998*/ meltfptr[997])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V998*/ meltfptr[997])))); ((meltobject_ptr_t) ( /*_.VALDATA___V998*/ meltfptr[997]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V999*/ meltfptr[998]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V998*/ meltfptr[997]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]))->obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1001*/ meltfptr[1000]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]))->obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#720 */ melt_assertmsg ("putupl #720 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #720 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#721 */ melt_assertmsg ("putupl #721 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #721 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#722 */ melt_assertmsg ("putupl #722 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #722 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#723 */ melt_assertmsg ("putupl #723 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #723 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#724 */ melt_assertmsg ("putupl #724 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #724 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1002*/ meltfptr[1001]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]))->obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1002*/ meltfptr[1001]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1004*/ meltfptr[1003]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 785 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1003*/ meltfptr[1002]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1006*/ meltfptr[1005]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 785 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*putupl#725 */ melt_assertmsg ("putupl #725 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #725 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#726 */ melt_assertmsg ("putupl #726 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #726 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#727 */ melt_assertmsg ("putupl #727 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #727 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#728 */ melt_assertmsg ("putupl #728 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #728 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#729 */ melt_assertmsg ("putupl #729 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #729 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1007*/ meltfptr[1006]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 785 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]))->obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1007*/ meltfptr[1006]); MELT_LOCATION ("warmelt-macro.melt:785:/ initchunk"); #line 785 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 785 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1008*/ meltfptr[1007])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1008*/ meltfptr[1007])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1008*/ meltfptr[1007]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1009*/ meltfptr[1008]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1008*/ meltfptr[1007]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1010*/ meltfptr[1009])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1010*/ meltfptr[1009])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1010*/ meltfptr[1009]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1011*/ meltfptr[1010]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1010*/ meltfptr[1009]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1012*/ meltfptr[1011])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1012*/ meltfptr[1011])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1012*/ meltfptr[1011]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1013*/ meltfptr[1012]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1012*/ meltfptr[1011]); MELT_LOCATION ("warmelt-macro.melt:797:/ initchunk"); #line 797 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 797 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1015*/ meltfptr[1014]); MELT_LOCATION ("warmelt-macro.melt:797:/ initchunk"); #line 797 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 797 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putupl#730 */ melt_assertmsg ("putupl #730 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #730 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#731 */ melt_assertmsg ("putupl #731 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #731 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#732 */ melt_assertmsg ("putupl #732 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #732 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#733 */ melt_assertmsg ("putupl #733 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #733 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#734 */ melt_assertmsg ("putupl #734 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #734 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#735 */ melt_assertmsg ("putupl #735 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #735 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1016*/ meltfptr[1015]); MELT_LOCATION ("warmelt-macro.melt:797:/ initchunk"); #line 797 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 797 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1016*/ meltfptr[1015]); /*putupl#736 */ melt_assertmsg ("putupl #736 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #736 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#737 */ melt_assertmsg ("putupl #737 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #737 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#738 */ melt_assertmsg ("putupl #738 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #738 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#739 */ melt_assertmsg ("putupl #739 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #739 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#740 */ melt_assertmsg ("putupl #740 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #740 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1017*/ meltfptr[1016]); MELT_LOCATION ("warmelt-macro.melt:797:/ initchunk"); #line 797 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 797 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1017*/ meltfptr[1016]); MELT_LOCATION ("warmelt-macro.melt:797:/ initchunk"); #line 797 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 797 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1014*/ meltfptr[1013]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1018*/ meltfptr[1017])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1018*/ meltfptr[1017])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1018*/ meltfptr[1017]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1019*/ meltfptr[1018]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1018*/ meltfptr[1017]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1021*/ meltfptr[1020]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#741 */ melt_assertmsg ("putupl #741 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #741 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#742 */ melt_assertmsg ("putupl #742 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #742 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#743 */ melt_assertmsg ("putupl #743 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #743 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#744 */ melt_assertmsg ("putupl #744 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #744 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1022*/ meltfptr[1021]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1022*/ meltfptr[1021]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1024*/ meltfptr[1023]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 805 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1023*/ meltfptr[1022]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1026*/ meltfptr[1025]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 805 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1025*/ meltfptr[1024]); /*putupl#745 */ melt_assertmsg ("putupl #745 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #745 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#746 */ melt_assertmsg ("putupl #746 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #746 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#747 */ melt_assertmsg ("putupl #747 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #747 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1023*/ meltfptr[1022]); /*putupl#748 */ melt_assertmsg ("putupl #748 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #748 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1025*/ meltfptr[1024]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1027*/ meltfptr[1026]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 805 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1027*/ meltfptr[1026]); MELT_LOCATION ("warmelt-macro.melt:805:/ initchunk"); #line 805 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 805 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1020*/ meltfptr[1019]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1028*/ meltfptr[1027])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1028*/ meltfptr[1027])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1028*/ meltfptr[1027]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1029*/ meltfptr[1028]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1028*/ meltfptr[1027]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1030*/ meltfptr[1029])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1030*/ meltfptr[1029])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1030*/ meltfptr[1029]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1031*/ meltfptr[1030]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1030*/ meltfptr[1029]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1032*/ meltfptr[1031])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1032*/ meltfptr[1031])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1032*/ meltfptr[1031]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1033*/ meltfptr[1032]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1032*/ meltfptr[1031]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1035*/ meltfptr[1034]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putupl#749 */ melt_assertmsg ("putupl #749 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #749 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#750 */ melt_assertmsg ("putupl #750 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #750 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#751 */ melt_assertmsg ("putupl #751 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #751 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#752 */ melt_assertmsg ("putupl #752 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #752 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#753 */ melt_assertmsg ("putupl #753 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #753 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_15 */ void meltmod__warmelt_macro__initialmeltchunk_16 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putupl#754*/ melt_assertmsg ("putupl #754 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #754 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1036*/ meltfptr[1035]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1036*/ meltfptr[1035]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1038*/ meltfptr[1037]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 816 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1037*/ meltfptr[1036]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1040*/ meltfptr[1039]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 816 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1039*/ meltfptr[1038]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1042*/ meltfptr[1041]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 816 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1041*/ meltfptr[1040]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1044*/ meltfptr[1043]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 816 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1043*/ meltfptr[1042]); /*putupl#755 */ melt_assertmsg ("putupl #755 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #755 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#756 */ melt_assertmsg ("putupl #756 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #756 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#757 */ melt_assertmsg ("putupl #757 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #757 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#758 */ melt_assertmsg ("putupl #758 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #758 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#759 */ melt_assertmsg ("putupl #759 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #759 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*putupl#760 */ melt_assertmsg ("putupl #760 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #760 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]); /*putupl#761 */ melt_assertmsg ("putupl #761 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #761 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]); /*putupl#762 */ melt_assertmsg ("putupl #762 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #762 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]); /*putupl#763 */ melt_assertmsg ("putupl #763 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #763 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1045*/ meltfptr[1044]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 816 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1045*/ meltfptr[1044]); MELT_LOCATION ("warmelt-macro.melt:816:/ initchunk"); #line 816 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 816 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1034*/ meltfptr[1033]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1046*/ meltfptr[1045])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1046*/ meltfptr[1045])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1046*/ meltfptr[1045]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1047*/ meltfptr[1046]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1046*/ meltfptr[1045]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1048*/ meltfptr[1047])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1048*/ meltfptr[1047])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1048*/ meltfptr[1047]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1049*/ meltfptr[1048]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1048*/ meltfptr[1047]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1050*/ meltfptr[1049])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1050*/ meltfptr[1049])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1050*/ meltfptr[1049]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1051*/ meltfptr[1050]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1050*/ meltfptr[1049]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1052*/ meltfptr[1051])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1052*/ meltfptr[1051])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1052*/ meltfptr[1051]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1053*/ meltfptr[1052]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1052*/ meltfptr[1051]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1054*/ meltfptr[1053])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1054*/ meltfptr[1053])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1054*/ meltfptr[1053]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1055*/ meltfptr[1054]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1054*/ meltfptr[1053]); MELT_LOCATION ("warmelt-macro.melt:833:/ initchunk"); #line 833 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 833 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1057*/ meltfptr[1056]); MELT_LOCATION ("warmelt-macro.melt:833:/ initchunk"); #line 833 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 833 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); /*putupl#764 */ melt_assertmsg ("putupl #764 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #764 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#765 */ melt_assertmsg ("putupl #765 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #765 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#766 */ melt_assertmsg ("putupl #766 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #766 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#767 */ melt_assertmsg ("putupl #767 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #767 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#768 */ melt_assertmsg ("putupl #768 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #768 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#769 */ melt_assertmsg ("putupl #769 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #769 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putupl#770 */ melt_assertmsg ("putupl #770 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #770 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1058*/ meltfptr[1057]); MELT_LOCATION ("warmelt-macro.melt:833:/ initchunk"); #line 833 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 833 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1058*/ meltfptr[1057]); /*putupl#771 */ melt_assertmsg ("putupl #771 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #771 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#772 */ melt_assertmsg ("putupl #772 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #772 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#773 */ melt_assertmsg ("putupl #773 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #773 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#774 */ melt_assertmsg ("putupl #774 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #774 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#775 */ melt_assertmsg ("putupl #775 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #775 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*putupl#776 */ melt_assertmsg ("putupl #776 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #776 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]); /*putupl#777 */ melt_assertmsg ("putupl #777 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #777 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]); /*putupl#778 */ melt_assertmsg ("putupl #778 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #778 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]); /*putupl#779 */ melt_assertmsg ("putupl #779 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #779 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1059*/ meltfptr[1058]); MELT_LOCATION ("warmelt-macro.melt:833:/ initchunk"); #line 833 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 833 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1059*/ meltfptr[1058]); MELT_LOCATION ("warmelt-macro.melt:833:/ initchunk"); #line 833 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 833 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1056*/ meltfptr[1055]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1060*/ meltfptr[1059])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1060*/ meltfptr[1059])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1060*/ meltfptr[1059]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1061*/ meltfptr[1060]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1060*/ meltfptr[1059]); MELT_LOCATION ("warmelt-macro.melt:839:/ initchunk"); #line 839 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 839 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1063*/ meltfptr[1062]); MELT_LOCATION ("warmelt-macro.melt:839:/ initchunk"); #line 839 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 839 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]); /*putupl#780 */ melt_assertmsg ("putupl #780 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #780 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#781 */ melt_assertmsg ("putupl #781 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #781 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#782 */ melt_assertmsg ("putupl #782 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #782 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#783 */ melt_assertmsg ("putupl #783 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #783 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#784 */ melt_assertmsg ("putupl #784 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #784 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#785 */ melt_assertmsg ("putupl #785 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #785 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putupl#786 */ melt_assertmsg ("putupl #786 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #786 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); /*putupl#787 */ melt_assertmsg ("putupl #787 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #787 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1064*/ meltfptr[1063]); MELT_LOCATION ("warmelt-macro.melt:839:/ initchunk"); #line 839 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 839 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1064*/ meltfptr[1063]); /*putupl#788 */ melt_assertmsg ("putupl #788 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #788 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#789 */ melt_assertmsg ("putupl #789 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #789 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#790 */ melt_assertmsg ("putupl #790 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #790 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#791 */ melt_assertmsg ("putupl #791 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #791 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#792 */ melt_assertmsg ("putupl #792 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #792 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*putupl#793 */ melt_assertmsg ("putupl #793 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #793 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]); /*putupl#794 */ melt_assertmsg ("putupl #794 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #794 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]); /*putupl#795 */ melt_assertmsg ("putupl #795 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #795 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]); /*putupl#796 */ melt_assertmsg ("putupl #796 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #796 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1065*/ meltfptr[1064]); MELT_LOCATION ("warmelt-macro.melt:839:/ initchunk"); #line 839 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 839 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1065*/ meltfptr[1064]); MELT_LOCATION ("warmelt-macro.melt:839:/ initchunk"); #line 839 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 839 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1062*/ meltfptr[1061]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1066*/ meltfptr[1065])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1066*/ meltfptr[1065])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1066*/ meltfptr[1065]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1067*/ meltfptr[1066]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1066*/ meltfptr[1065]); MELT_LOCATION ("warmelt-macro.melt:845:/ initchunk"); #line 845 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 845 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1069*/ meltfptr[1068]); MELT_LOCATION ("warmelt-macro.melt:845:/ initchunk"); #line 845 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 845 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]); /*putupl#797 */ melt_assertmsg ("putupl #797 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #797 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (0)))); /*putupl#798 */ melt_assertmsg ("putupl #798 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #798 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (1)))); /*putupl#799 */ melt_assertmsg ("putupl #799 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #799 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[2] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 5))), (2)))); /*putupl#800 */ melt_assertmsg ("putupl #800 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #800 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]); /*putupl#801 */ melt_assertmsg ("putupl #801 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #801 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); /*putupl#802 */ melt_assertmsg ("putupl #802 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #802 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); /*putupl#803 */ melt_assertmsg ("putupl #803 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #803 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1034*/ meltfptr[1033]); /*putupl#804 */ melt_assertmsg ("putupl #804 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #804 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1056*/ meltfptr[1055]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1070*/ meltfptr[1069]); MELT_LOCATION ("warmelt-macro.melt:845:/ initchunk"); #line 845 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 845 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1070*/ meltfptr[1069]); /*putupl#805 */ melt_assertmsg ("putupl #805 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #805 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[0] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (0)))); /*putupl#806 */ melt_assertmsg ("putupl #806 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #806 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[1] = (melt_ptr_t) ( /*multacc */ (melt_multiple_nth (( /*fieldacc */ (melt_field_object ((melt_ptr_t) ( /*_.CLASS_SOURCE__V8*/ meltfptr[7]), 6))), (1)))); /*putupl#807 */ melt_assertmsg ("putupl #807 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #807 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V905*/ meltfptr[904]); /*putupl#808 */ melt_assertmsg ("putupl #808 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #808 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1003*/ meltfptr[1002]); /*putupl#809 */ melt_assertmsg ("putupl #809 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #809 checkoff", (4 >= 0 && 4 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1005*/ meltfptr[1004]); /*putupl#810 */ melt_assertmsg ("putupl #810 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #810 checkoff", (5 >= 0 && 5 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1037*/ meltfptr[1036]); /*putupl#811 */ melt_assertmsg ("putupl #811 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #811 checkoff", (6 >= 0 && 6 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1039*/ meltfptr[1038]); /*putupl#812 */ melt_assertmsg ("putupl #812 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #812 checkoff", (7 >= 0 && 7 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1041*/ meltfptr[1040]); /*putupl#813 */ melt_assertmsg ("putupl #813 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #813 checkoff", (8 >= 0 && 8 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]))->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1043*/ meltfptr[1042]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1071*/ meltfptr[1070]); MELT_LOCATION ("warmelt-macro.melt:845:/ initchunk"); #line 845 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 845 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1071*/ meltfptr[1070]); MELT_LOCATION ("warmelt-macro.melt:845:/ initchunk"); #line 845 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 845 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1068*/ meltfptr[1067]); MELT_LOCATION ("warmelt-macro.melt:855:/ initchunk"); #line 855 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 855 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1072*/ meltfptr[1071])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_997__EXPAND_RESTLIST_AS_LIST#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1072*/ meltfptr[1071])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:855:/ initchunk"); #line 855 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 855 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1072*/ meltfptr[1071]); /*putclosurout#1 */ melt_assertmsg ("putclosrout#1 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1073*/ meltfptr[1072])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#1 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1072*/ meltfptr[1071])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1073*/ meltfptr[1072])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1072*/ meltfptr[1071]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1073*/ meltfptr[1072]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1074*/ meltfptr[1073])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1074*/ meltfptr[1073])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1074*/ meltfptr[1073]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1075*/ meltfptr[1074]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1074*/ meltfptr[1073]); MELT_LOCATION ("warmelt-macro.melt:899:/ initchunk"); #line 899 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 899 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1001__EXPAND_RESTLIST_AS_TUPLE#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1076*/ meltfptr[1075])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:899:/ initchunk"); #line 899 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 899 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1073*/ meltfptr[1072]); ((meltroutine_ptr_t) /*_.VALROUT___V1076*/ meltfptr[1075])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1073*/ meltfptr[1072]); MELT_LOCATION ("warmelt-macro.melt:899:/ initchunk"); #line 899 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 899 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1001__EXPAND_RESTLIST_AS_TUPLE#2", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1076*/ meltfptr[1075])->tabval[2] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:899:/ initchunk"); #line 899 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 899 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1001__EXPAND_RESTLIST_AS_TUPLE#3", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1076*/ meltfptr[1075])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:899:/ initchunk"); #line 899 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 899 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1076*/ meltfptr[1075]); /*putclosurout#2 */ melt_assertmsg ("putclosrout#2 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#2 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1077*/ meltfptr[1076])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1076*/ meltfptr[1075]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1077*/ meltfptr[1076]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1078*/ meltfptr[1077])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1078*/ meltfptr[1077])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1078*/ meltfptr[1077]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1079*/ meltfptr[1078]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1078*/ meltfptr[1077]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1080*/ meltfptr[1079])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1080*/ meltfptr[1079])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1080*/ meltfptr[1079]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1081*/ meltfptr[1080]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_16 */ void meltmod__warmelt_macro__initialmeltchunk_17 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:VALUEDATA_*/ meltgc_touch ( /*_.VALDATA___V1080*/ meltfptr[1079]); MELT_LOCATION ("warmelt-macro.melt:911:/ initchunk"); #line 911 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 911 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1082*/ meltfptr[1081])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1007__EXPAND_PAIRLIST_AS_LIST#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1082*/ meltfptr[1081])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:911:/ initchunk"); #line 911 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 911 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1082*/ meltfptr[1081]); /*putclosurout#3 */ melt_assertmsg ("putclosrout#3 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1083*/ meltfptr[1082])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#3 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1082*/ meltfptr[1081])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1083*/ meltfptr[1082])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1082*/ meltfptr[1081]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1083*/ meltfptr[1082]); MELT_LOCATION ("warmelt-macro.melt:950:/ initchunk"); #line 950 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 950 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1009__EXPAND_PAIRLIST_AS_TUPLE#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1084*/ meltfptr[1083])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:950:/ initchunk"); #line 950 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 950 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1083*/ meltfptr[1082]); ((meltroutine_ptr_t) /*_.VALROUT___V1084*/ meltfptr[1083])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1083*/ meltfptr[1082]); MELT_LOCATION ("warmelt-macro.melt:950:/ initchunk"); #line 950 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 950 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1009__EXPAND_PAIRLIST_AS_TUPLE#2", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1084*/ meltfptr[1083])->tabval[2] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:950:/ initchunk"); #line 950 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 950 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1009__EXPAND_PAIRLIST_AS_TUPLE#3", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1084*/ meltfptr[1083])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:950:/ initchunk"); #line 950 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 950 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1084*/ meltfptr[1083]); /*putclosurout#4 */ melt_assertmsg ("putclosrout#4 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#4 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1085*/ meltfptr[1084])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1084*/ meltfptr[1083]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 961 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1011__REGISTER_GENERATOR_DEVICE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1086*/ meltfptr[1085])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 961 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V354*/ meltfptr[353]); ((meltroutine_ptr_t) /*_.VALROUT___V1086*/ meltfptr[1085])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V354*/ meltfptr[353]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 961 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1011__REGISTER_GENERATOR_DEVICE#2", NULL != ( /*_.CLASS_MODULE_CONTEXT__V13*/ meltfptr[12])); ((meltroutine_ptr_t) /*_.VALROUT___V1086*/ meltfptr[1085])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_MODULE_CONTEXT__V13*/ meltfptr[12]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 961 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1011__REGISTER_GENERATOR_DEVICE#3", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1086*/ meltfptr[1085])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 961 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V90*/ meltfptr[89]); ((meltroutine_ptr_t) /*_.VALROUT___V1086*/ meltfptr[1085])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V90*/ meltfptr[89]); MELT_LOCATION ("warmelt-macro.melt:961:/ initchunk"); #line 961 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 961 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1086*/ meltfptr[1085]); /*putclosurout#5 */ melt_assertmsg ("putclosrout#5 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#5 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1087*/ meltfptr[1086])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1086*/ meltfptr[1085]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1087*/ meltfptr[1086]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1089*/ meltfptr[1088]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1088*/ meltfptr[1087]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1090*/ meltfptr[1089])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1090*/ meltfptr[1089])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1090*/ meltfptr[1089]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1091*/ meltfptr[1090]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1090*/ meltfptr[1089]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1092*/ meltfptr[1091])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1092*/ meltfptr[1091])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1092*/ meltfptr[1091]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1093*/ meltfptr[1092]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1092*/ meltfptr[1091]); MELT_LOCATION ("warmelt-macro.melt:986:/ initchunk"); #line 986 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 986 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1019__EXPAND_APPLY#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1094*/ meltfptr[1093])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:986:/ initchunk"); #line 986 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 986 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1019__EXPAND_APPLY#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1094*/ meltfptr[1093])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:986:/ initchunk"); #line 986 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 986 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1094*/ meltfptr[1093])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:986:/ initchunk"); #line 986 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 986 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V128*/ meltfptr[127]); ((meltroutine_ptr_t) /*_.VALROUT___V1094*/ meltfptr[1093])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-macro.melt:986:/ initchunk"); #line 986 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 986 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1094*/ meltfptr[1093]); /*putclosurout#6 */ melt_assertmsg ("putclosrout#6 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#6 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1095*/ meltfptr[1094])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1094*/ meltfptr[1093]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1095*/ meltfptr[1094]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1096*/ meltfptr[1095])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1096*/ meltfptr[1095])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1096*/ meltfptr[1095]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1097*/ meltfptr[1096]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1096*/ meltfptr[1095]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1006 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1023__EXPAND_MSEND#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1006 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1023__EXPAND_MSEND#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1006 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1023__EXPAND_MSEND#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#2", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#4", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1234 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1054__EXPAND_KEYWORDFUN#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1102*/ meltfptr[1101])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1234 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1054__EXPAND_KEYWORDFUN#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1102*/ meltfptr[1101])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1234 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1054__EXPAND_KEYWORDFUN#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1102*/ meltfptr[1101])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1234 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1054__EXPAND_KEYWORDFUN#3", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1102*/ meltfptr[1101])->tabval[3] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1234 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1054__EXPAND_KEYWORDFUN#4", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1102*/ meltfptr[1101])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:1234:/ initchunk"); #line 1234 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1234 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1102*/ meltfptr[1101]); /*putclosurout#7 */ melt_assertmsg ("putclosrout#7 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1101*/ meltfptr[1100])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#7 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1101*/ meltfptr[1100])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1102*/ meltfptr[1101]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1101*/ meltfptr[1100]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1101*/ meltfptr[1100]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1101*/ meltfptr[1100]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#6", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#7", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[7] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#8", NULL != ( /*_.CLASS_MACRO_BINDING__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#9", NULL != ( /*_.CLASS_SELECTOR_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V28*/ meltfptr[27]); /*putclosurout#8 */ melt_assertmsg ("putclosrout#8 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1103*/ meltfptr[1102])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#8 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1103*/ meltfptr[1102])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1103*/ meltfptr[1102]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1103*/ meltfptr[1102]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1103*/ meltfptr[1102]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#11", NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1412 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1083__EXPAND_PRIMITIVE#0", NULL != ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1105*/ meltfptr[1104])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1412 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1083__EXPAND_PRIMITIVE#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1105*/ meltfptr[1104])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1412 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1083__EXPAND_PRIMITIVE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1105*/ meltfptr[1104])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1412 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1105*/ meltfptr[1104])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1412 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V152*/ meltfptr[151]); ((meltroutine_ptr_t) /*_.VALROUT___V1105*/ meltfptr[1104])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION ("warmelt-macro.melt:1412:/ initchunk"); #line 1412 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1412 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1105*/ meltfptr[1104]); /*putclosurout#9 */ melt_assertmsg ("putclosrout#9 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1104*/ meltfptr[1103])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#9 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1104*/ meltfptr[1103])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1105*/ meltfptr[1104]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1104*/ meltfptr[1103]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1104*/ meltfptr[1103]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1104*/ meltfptr[1103]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#13", NULL != ( /*_.CLASS_CITERATOR_BINDING__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#3", NULL != ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#4", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[4] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1096 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#0", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#2", NULL != ( /*_.CTYPE_VALUE__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[2] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#3", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#4", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#5", NULL != ( /*_.DISCR_FORMAL_SEQUENCE__V49*/ meltfptr[48])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_FORMAL_SEQUENCE__V49*/ meltfptr[48]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1110*/ meltfptr[1109])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1110*/ meltfptr[1109])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1110*/ meltfptr[1109]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1111*/ meltfptr[1110]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1110*/ meltfptr[1109]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#6", NULL != ( /*_.VALDATA___V1110*/ meltfptr[1109])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1110*/ meltfptr[1109]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#7", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#8", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#9", NULL != ( /*_.CLASS_CTYPE__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#10", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#11", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#12", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#13", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1852 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1149__LAMBDA_ARG_BINDINGS#14", NULL != ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V1109*/ meltfptr[1108])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-macro.melt:1852:/ initchunk"); #line 1852 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1852 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1109*/ meltfptr[1108]); /*putclosurout#10 */ melt_assertmsg ("putclosrout#10 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#10 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1108*/ meltfptr[1107])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1109*/ meltfptr[1108]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1096 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#7", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[7] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#8", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[8] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:1141:/ initchunk"); #line 1141 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1141 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1112*/ meltfptr[1111])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1043__LAMBDA_#0", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1112*/ meltfptr[1111])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:1141:/ initchunk"); #line 1141 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1141 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1112*/ meltfptr[1111]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1096 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1035__EXPAND_CITERATION#9", NULL != ( /*_.VALROUT___V1112*/ meltfptr[1111])); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1112*/ meltfptr[1111]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1096 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V162*/ meltfptr[161]); ((meltroutine_ptr_t) /*_.VALROUT___V1107*/ meltfptr[1106])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V162*/ meltfptr[161]); MELT_LOCATION ("warmelt-macro.melt:1096:/ initchunk"); #line 1096 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1096 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1107*/ meltfptr[1106]); /*putclosurout#11 */ melt_assertmsg ("putclosrout#11 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1106*/ meltfptr[1105])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#11 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1106*/ meltfptr[1105])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1107*/ meltfptr[1106]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1106*/ meltfptr[1105]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1106*/ meltfptr[1105]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V1106*/ meltfptr[1105]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#15", NULL != ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1159 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1046__EXPAND_CMATCHEXPR#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1159 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1046__EXPAND_CMATCHEXPR#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1159 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1046__EXPAND_CMATCHEXPR#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1159 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1046__EXPAND_CMATCHEXPR#3", NULL != ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1159 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1159 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V180*/ meltfptr[179]); ((meltroutine_ptr_t) /*_.VALROUT___V1114*/ meltfptr[1113])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V180*/ meltfptr[179]); MELT_LOCATION ("warmelt-macro.melt:1159:/ initchunk"); #line 1159 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1159 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1114*/ meltfptr[1113]); /*putclosurout#12 */ melt_assertmsg ("putclosrout#12 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1113*/ meltfptr[1112])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#12 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1113*/ meltfptr[1112])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1114*/ meltfptr[1113]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1113*/ meltfptr[1112]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1113*/ meltfptr[1112]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1113*/ meltfptr[1112]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#17", NULL != ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1202 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1050__EXPAND_FUNMATCHEXPR#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1202 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1050__EXPAND_FUNMATCHEXPR#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1202 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1050__EXPAND_FUNMATCHEXPR#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1202 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1050__EXPAND_FUNMATCHEXPR#3", NULL != ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1202 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1202 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V190*/ meltfptr[189]); ((meltroutine_ptr_t) /*_.VALROUT___V1116*/ meltfptr[1115])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V190*/ meltfptr[189]); MELT_LOCATION ("warmelt-macro.melt:1202:/ initchunk"); #line 1202 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1202 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1116*/ meltfptr[1115]); /*putclosurout#13 */ melt_assertmsg ("putclosrout#13 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1115*/ meltfptr[1114])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#13 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1115*/ meltfptr[1114])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1116*/ meltfptr[1115]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1115*/ meltfptr[1114]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_17 */ void meltmod__warmelt_macro__initialmeltchunk_18 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1115*/ meltfptr[1114]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1115*/ meltfptr[1114]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#19", NULL != ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[19] = (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#2", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#4", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[4] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#6", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1038 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1027__EXPAND_FIELDEXPR#7", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1038 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V574*/ meltfptr[573]); ((meltroutine_ptr_t) /*_.VALROUT___V1118*/ meltfptr[1117])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-macro.melt:1038:/ initchunk"); #line 1038 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1038 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1118*/ meltfptr[1117]); /*putclosurout#14 */ melt_assertmsg ("putclosrout#14 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1117*/ meltfptr[1116])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#14 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1117*/ meltfptr[1116])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1118*/ meltfptr[1117]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1117*/ meltfptr[1116]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1117*/ meltfptr[1116]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V1117*/ meltfptr[1116]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#21", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[21] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1095*/ meltfptr[1094]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[22] = (melt_ptr_t) ( /*_.VALCLO___V1095*/ meltfptr[1094]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#23", NULL != ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[23] = (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#24", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[24] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#25", NULL != ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[25] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#26", NULL != ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[26] = (melt_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#27", NULL != ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[27] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#28", NULL != ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[28] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#29", NULL != ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[29] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#30", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[30] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#31", NULL != ( /*_.VALROUT___V1119*/ meltfptr[1118])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[31] = (melt_ptr_t) ( /*_.VALROUT___V1119*/ meltfptr[1118]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1252 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V104*/ meltfptr[103]); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[32] = (melt_ptr_t) ( /*_.VALDATA___V104*/ meltfptr[103]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1252 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1056__MACROEXPAND_1#33", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1100*/ meltfptr[1099])->tabval[33] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1252:/ initchunk"); #line 1252 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1252 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1100*/ meltfptr[1099]); /*putclosurout#15 */ melt_assertmsg ("putclosrout#15 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#15 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1099*/ meltfptr[1098])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1100*/ meltfptr[1099]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1006 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1006 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1023__EXPAND_MSEND#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1006 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1006 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1098*/ meltfptr[1097])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V138*/ meltfptr[137]); ((meltroutine_ptr_t) /*_.VALROUT___V1098*/ meltfptr[1097])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-macro.melt:1006:/ initchunk"); #line 1006 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1006 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1098*/ meltfptr[1097]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1120*/ meltfptr[1119])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1120*/ meltfptr[1119])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1120*/ meltfptr[1119]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1121*/ meltfptr[1120]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1120*/ meltfptr[1119]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1122*/ meltfptr[1121])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1122*/ meltfptr[1121])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1122*/ meltfptr[1121]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1123*/ meltfptr[1122]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1122*/ meltfptr[1121]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1124*/ meltfptr[1123])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1124*/ meltfptr[1123])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1124*/ meltfptr[1123]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1125*/ meltfptr[1124]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1124*/ meltfptr[1123]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1126*/ meltfptr[1125])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1126*/ meltfptr[1125])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1126*/ meltfptr[1125]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1127*/ meltfptr[1126]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1126*/ meltfptr[1125]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1128*/ meltfptr[1127])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1128*/ meltfptr[1127])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1128*/ meltfptr[1127]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1129*/ meltfptr[1128]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1128*/ meltfptr[1127]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1130*/ meltfptr[1129])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1130*/ meltfptr[1129])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1130*/ meltfptr[1129]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1131*/ meltfptr[1130]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1130*/ meltfptr[1129]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1132*/ meltfptr[1131])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1132*/ meltfptr[1131])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1132*/ meltfptr[1131]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1133*/ meltfptr[1132]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1132*/ meltfptr[1131]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1134*/ meltfptr[1133])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1134*/ meltfptr[1133])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1134*/ meltfptr[1133]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1135*/ meltfptr[1134]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1134*/ meltfptr[1133]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1136*/ meltfptr[1135])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1136*/ meltfptr[1135])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1136*/ meltfptr[1135]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1137*/ meltfptr[1136]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1136*/ meltfptr[1135]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1138*/ meltfptr[1137])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1138*/ meltfptr[1137])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1138*/ meltfptr[1137]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1139*/ meltfptr[1138]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1138*/ meltfptr[1137]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1140*/ meltfptr[1139])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1140*/ meltfptr[1139])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1140*/ meltfptr[1139]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1141*/ meltfptr[1140]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1140*/ meltfptr[1139]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1142*/ meltfptr[1141])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1142*/ meltfptr[1141])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1142*/ meltfptr[1141]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1143*/ meltfptr[1142]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1142*/ meltfptr[1141]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1145*/ meltfptr[1144]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1144*/ meltfptr[1143]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1147*/ meltfptr[1146]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1146*/ meltfptr[1145]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1149*/ meltfptr[1148]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1148*/ meltfptr[1147]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1151*/ meltfptr[1150]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1150*/ meltfptr[1149]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1153*/ meltfptr[1152]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1152*/ meltfptr[1151]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1155*/ meltfptr[1154]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1154*/ meltfptr[1153]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1157*/ meltfptr[1156]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1156*/ meltfptr[1155]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1159*/ meltfptr[1158]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1158*/ meltfptr[1157]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1161*/ meltfptr[1160]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1160*/ meltfptr[1159]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1163*/ meltfptr[1162]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1162*/ meltfptr[1161]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1165*/ meltfptr[1164]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1164*/ meltfptr[1163]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1167*/ meltfptr[1166]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1166*/ meltfptr[1165]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1169*/ meltfptr[1168]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.CLASS_ROOT__V38*/ meltfptr[37]); /*putupl#814 */ melt_assertmsg ("putupl #814 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1170*/ meltfptr[1169])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #814 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1170*/ meltfptr[1169])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1170*/ meltfptr[1169]))->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ROOT__V38*/ meltfptr[37]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1170*/ meltfptr[1169]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (5 >= 0 && 5 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]))-> obj_vartab[5] = (melt_ptr_t) ( /*_.VALTUP___V1170*/ meltfptr[1169]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1172*/ meltfptr[1171]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1430 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1171*/ meltfptr[1170]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1174*/ meltfptr[1173]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1430 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1173*/ meltfptr[1172]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1176*/ meltfptr[1175]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1430 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1175*/ meltfptr[1174]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1178*/ meltfptr[1177]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1430 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1177*/ meltfptr[1176]); /*putupl#815 */ melt_assertmsg ("putupl #815 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #815 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178]))->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V1171*/ meltfptr[1170]); /*putupl#816 */ melt_assertmsg ("putupl #816 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #816 checkoff", (1 >= 0 && 1 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178]))->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V1173*/ meltfptr[1172]); /*putupl#817 */ melt_assertmsg ("putupl #817 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #817 checkoff", (2 >= 0 && 2 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178]))->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1175*/ meltfptr[1174]); /*putupl#818 */ melt_assertmsg ("putupl #818 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #818 checkoff", (3 >= 0 && 3 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178]))->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1177*/ meltfptr[1176]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1179*/ meltfptr[1178]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1430 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (6 >= 0 && 6 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]))-> obj_vartab[6] = (melt_ptr_t) ( /*_.VALTUP___V1179*/ meltfptr[1178]); MELT_LOCATION ("warmelt-macro.melt:1430:/ initchunk"); #line 1430 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1430 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1168*/ meltfptr[1167]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1180*/ meltfptr[1179])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1180*/ meltfptr[1179])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1180*/ meltfptr[1179]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1181*/ meltfptr[1180]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1180*/ meltfptr[1179]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1182*/ meltfptr[1181])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1182*/ meltfptr[1181])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1182*/ meltfptr[1181]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1183*/ meltfptr[1182]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1182*/ meltfptr[1181]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1184*/ meltfptr[1183])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1184*/ meltfptr[1183])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1184*/ meltfptr[1183]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1185*/ meltfptr[1184]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1184*/ meltfptr[1183]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1186*/ meltfptr[1185])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1186*/ meltfptr[1185])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1186*/ meltfptr[1185]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1187*/ meltfptr[1186]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1186*/ meltfptr[1185]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1443 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1188*/ meltfptr[1187])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1443 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE#1", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1188*/ meltfptr[1187])->tabval[1] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1443 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE#2", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1188*/ meltfptr[1187])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1688 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#2", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1191*/ meltfptr[1190])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1191*/ meltfptr[1190])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1191*/ meltfptr[1190]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1192*/ meltfptr[1191]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#4", NULL != ( /*_.VALDATA___V1191*/ meltfptr[1190])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1191*/ meltfptr[1190]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1688 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V968*/ meltfptr[967]); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V968*/ meltfptr[967]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#6", NULL != ( /*_.VALBXINT___V1193*/ meltfptr[1192])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[6] = (melt_ptr_t) ( /*_.VALBXINT___V1193*/ meltfptr[1192]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_18 */ void meltmod__warmelt_macro__initialmeltchunk_19 (struct frame_start_module_melt_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___V1194*/ meltfptr[1193])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1195*/ meltfptr[1194]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1194*/ meltfptr[1193]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#7", NULL != ( /*_.VALDATA___V1194*/ meltfptr[1193])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1688 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V962*/ meltfptr[961]); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#9", NULL != ( /*_.VALBXINT___V1196*/ meltfptr[1195])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[9] = (melt_ptr_t) ( /*_.VALBXINT___V1196*/ meltfptr[1195]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#10", NULL != ( /*_.DISCR_INTEGER__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#11", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1688 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V946*/ meltfptr[945]); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#13", NULL != ( /*_.VALBXINT___V1197*/ meltfptr[1196])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[13] = (melt_ptr_t) ( /*_.VALBXINT___V1197*/ meltfptr[1196]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1535 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#5", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#6", NULL != ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#7", NULL != ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#8", NULL != ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#0", NULL != ( /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1457 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#3", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#4", NULL != ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#5", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#6", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#7", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1470:/ initchunk"); #line 1470 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1470 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1202*/ meltfptr[1201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1122__LAMBDA_#0", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1202*/ meltfptr[1201])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:1470:/ initchunk"); #line 1470 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1470 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1202*/ meltfptr[1201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1122__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1202*/ meltfptr[1201])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:1470:/ initchunk"); #line 1470 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1470 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1202*/ meltfptr[1201])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1122__LAMBDA_#2", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1202*/ meltfptr[1201])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1470:/ initchunk"); #line 1470 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1470 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1202*/ meltfptr[1201]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#8", NULL != ( /*_.VALROUT___V1202*/ meltfptr[1201])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1202*/ meltfptr[1201]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#9", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1457 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#11", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1482:/ initchunk"); #line 1482 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1482 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1203*/ meltfptr[1202])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1123__LAMBDA_#0", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1203*/ meltfptr[1202])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:1482:/ initchunk"); #line 1482 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1482 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1203*/ meltfptr[1202])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1203*/ meltfptr[1202])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:1482:/ initchunk"); #line 1482 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1482 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1203*/ meltfptr[1202])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1123__LAMBDA_#2", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1203*/ meltfptr[1202])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1482:/ initchunk"); #line 1482 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1482 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1203*/ meltfptr[1202]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#12", NULL != ( /*_.VALROUT___V1203*/ meltfptr[1202])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V1203*/ meltfptr[1202]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#13", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[13] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1457 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1114__PATMACEXPAND_FOR_MATCHER#14", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1201*/ meltfptr[1200])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1457:/ initchunk"); #line 1457 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1457 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1201*/ meltfptr[1200]); /*putclosurout#16 */ melt_assertmsg ("putclosrout#16 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1200*/ meltfptr[1199])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#16 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1200*/ meltfptr[1199])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1201*/ meltfptr[1200]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1200*/ meltfptr[1199]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1535 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1200*/ meltfptr[1199]); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V1200*/ meltfptr[1199]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1501 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1124__PATTERN_WEIGHT_TUPLE#0", NULL != ( /*_.DISCR_INTEGER__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V1205*/ meltfptr[1204])->tabval[0] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1501 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1124__PATTERN_WEIGHT_TUPLE#1", NULL != ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V1205*/ meltfptr[1204])->tabval[1] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1501 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V902*/ meltfptr[901]); ((meltroutine_ptr_t) /*_.VALROUT___V1205*/ meltfptr[1204])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1501 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1124__PATTERN_WEIGHT_TUPLE#3", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1205*/ meltfptr[1204])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:1514:/ initchunk"); #line 1514 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1514 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1206*/ meltfptr[1205])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V902*/ meltfptr[901]); ((meltroutine_ptr_t) /*_.VALROUT___V1206*/ meltfptr[1205])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); MELT_LOCATION ("warmelt-macro.melt:1514:/ initchunk"); #line 1514 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1514 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1206*/ meltfptr[1205])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1128__LAMBDA_#1", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1206*/ meltfptr[1205])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:1514:/ initchunk"); #line 1514 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1514 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1206*/ meltfptr[1205]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1501 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1124__PATTERN_WEIGHT_TUPLE#4", NULL != ( /*_.VALROUT___V1206*/ meltfptr[1205])); ((meltroutine_ptr_t) /*_.VALROUT___V1205*/ meltfptr[1204])->tabval[4] = (melt_ptr_t) ( /*_.VALROUT___V1206*/ meltfptr[1205]); MELT_LOCATION ("warmelt-macro.melt:1501:/ initchunk"); #line 1501 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1501 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1205*/ meltfptr[1204]); /*putclosurout#17 */ melt_assertmsg ("putclosrout#17 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#17 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1204*/ meltfptr[1203])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1205*/ meltfptr[1204]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1535 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1204*/ meltfptr[1203]); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1535 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1062*/ meltfptr[1061]); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1062*/ meltfptr[1061]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#12", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#13", NULL != ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#14", NULL != ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1535 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1068*/ meltfptr[1067]); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1068*/ meltfptr[1067]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#16", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#17", NULL != ( /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_ANY_MATCHER__V40*/ meltfptr[39]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1535 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1131__PATTERNEXPAND_EXPR#18", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1199*/ meltfptr[1198])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:1535:/ initchunk"); #line 1535 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1535 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1199*/ meltfptr[1198]); /*putclosurout#18 */ melt_assertmsg ("putclosrout#18 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1198*/ meltfptr[1197])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#18 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1198*/ meltfptr[1197])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1199*/ meltfptr[1198]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1198*/ meltfptr[1197]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1688 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1198*/ meltfptr[1197]); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V1198*/ meltfptr[1197]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1688 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1135__PATTERNEXPAND_1#15", NULL != ( /*_.VALBXINT___V1207*/ meltfptr[1206])); ((meltroutine_ptr_t) /*_.VALROUT___V1190*/ meltfptr[1189])->tabval[15] = (melt_ptr_t) ( /*_.VALBXINT___V1207*/ meltfptr[1206]); MELT_LOCATION ("warmelt-macro.melt:1688:/ initchunk"); #line 1688 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1688 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1190*/ meltfptr[1189]); /*putclosurout#19 */ melt_assertmsg ("putclosrout#19 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#19 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1189*/ meltfptr[1188])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1190*/ meltfptr[1189]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1443 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1188*/ meltfptr[1187])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:1447:/ initchunk"); #line 1447 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1447 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1208*/ meltfptr[1207])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1208*/ meltfptr[1207])->tabval[0] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:1447:/ initchunk"); #line 1447 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1447 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1208*/ meltfptr[1207]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1443 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1109__PATTERNEXPAND_PAIRLIST_AS_TUPLE#4", NULL != ( /*_.VALROUT___V1208*/ meltfptr[1207])); ((meltroutine_ptr_t) /*_.VALROUT___V1188*/ meltfptr[1187])->tabval[4] = (melt_ptr_t) ( /*_.VALROUT___V1208*/ meltfptr[1207]); MELT_LOCATION ("warmelt-macro.melt:1443:/ initchunk"); #line 1443 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1443 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1188*/ meltfptr[1187]); /*putclosurout#20 */ melt_assertmsg ("putclosrout#20 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#20 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1209*/ meltfptr[1208])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1188*/ meltfptr[1187]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1209*/ meltfptr[1208]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1210*/ meltfptr[1209])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1210*/ meltfptr[1209])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1210*/ meltfptr[1209]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1211*/ meltfptr[1210]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1210*/ meltfptr[1209]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1212*/ meltfptr[1211])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1212*/ meltfptr[1211])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1212*/ meltfptr[1211]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1213*/ meltfptr[1212]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1212*/ meltfptr[1211]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1215*/ meltfptr[1214]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1214*/ meltfptr[1213]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1216*/ meltfptr[1215])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1216*/ meltfptr[1215])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1216*/ meltfptr[1215]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1217*/ meltfptr[1216]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1216*/ meltfptr[1215]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1219*/ meltfptr[1218]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1218*/ meltfptr[1217]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1221*/ meltfptr[1220]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1220*/ meltfptr[1219]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1223*/ meltfptr[1222]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1222*/ meltfptr[1221]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1779 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1145__MACROEXPAND_TOPLEVEL_LIST#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1224*/ meltfptr[1223])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 1779 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1224*/ meltfptr[1223])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1779 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1145__MACROEXPAND_TOPLEVEL_LIST#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1224*/ meltfptr[1223])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1779 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1145__MACROEXPAND_TOPLEVEL_LIST#3", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1224*/ meltfptr[1223])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1779 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1145__MACROEXPAND_TOPLEVEL_LIST#4", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1224*/ meltfptr[1223])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:1779:/ initchunk"); #line 1779 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1779 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1224*/ meltfptr[1223]); /*putclosurout#21 */ melt_assertmsg ("putclosrout#21 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1225*/ meltfptr[1224])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#21 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1225*/ meltfptr[1224])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1224*/ meltfptr[1223]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1225*/ meltfptr[1224]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1226*/ meltfptr[1225])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1226*/ meltfptr[1225])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1226*/ meltfptr[1225]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1227*/ meltfptr[1226]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1226*/ meltfptr[1225]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1228*/ meltfptr[1227])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1228*/ meltfptr[1227])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1228*/ meltfptr[1227]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1229*/ meltfptr[1228]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1228*/ meltfptr[1227]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1230*/ meltfptr[1229])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1230*/ meltfptr[1229])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1230*/ meltfptr[1229]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1231*/ meltfptr[1230]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1230*/ meltfptr[1229]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1232*/ meltfptr[1231])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1232*/ meltfptr[1231])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1232*/ meltfptr[1231]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1233*/ meltfptr[1232]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1232*/ meltfptr[1231]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1234*/ meltfptr[1233])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1234*/ meltfptr[1233])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1234*/ meltfptr[1233]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1235*/ meltfptr[1234]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1234*/ meltfptr[1233]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1236*/ meltfptr[1235])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1236*/ meltfptr[1235])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1236*/ meltfptr[1235]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1237*/ meltfptr[1236]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1236*/ meltfptr[1235]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1238*/ meltfptr[1237])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1238*/ meltfptr[1237])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1238*/ meltfptr[1237]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1239*/ meltfptr[1238]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1238*/ meltfptr[1237]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1165__INSTALL_INITIAL_MACRO#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1240*/ meltfptr[1239])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1165__INSTALL_INITIAL_MACRO#1", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1240*/ meltfptr[1239])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1165__INSTALL_INITIAL_MACRO#2", NULL != ( /*_.CLASS_MACRO_BINDING__V27*/ meltfptr[26])); ((meltroutine_ptr_t) /*_.VALROUT___V1240*/ meltfptr[1239])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_MACRO_BINDING__V27*/ meltfptr[26]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1165__INSTALL_INITIAL_MACRO#3", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1240*/ meltfptr[1239])->tabval[3] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1165__INSTALL_INITIAL_MACRO#4", NULL != ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V1240*/ meltfptr[1239])->tabval[4] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-macro.melt:1956:/ initchunk"); #line 1956 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1956 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1240*/ meltfptr[1239]); /*putclosurout#22 */ melt_assertmsg ("putclosrout#22 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#22 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1241*/ meltfptr[1240])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1240*/ meltfptr[1239]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1241*/ meltfptr[1240]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1242*/ meltfptr[1241])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1242*/ meltfptr[1241])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1242*/ meltfptr[1241]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1243*/ meltfptr[1242]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1242*/ meltfptr[1241]); MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1969 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1169__INSTALL_INITIAL_PATMACRO#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1244*/ meltfptr[1243])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1969 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1169__INSTALL_INITIAL_PATMACRO#1", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1244*/ meltfptr[1243])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_19 */ void meltmod__warmelt_macro__initialmeltchunk_20 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1969 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1169__INSTALL_INITIAL_PATMACRO#2", NULL != ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44])); ((meltroutine_ptr_t) /*_.VALROUT___V1244*/ meltfptr[1243])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_PATMACRO_BINDING__V45*/ meltfptr[44]); MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1969 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1169__INSTALL_INITIAL_PATMACRO#3", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1244*/ meltfptr[1243])->tabval[3] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1969 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1169__INSTALL_INITIAL_PATMACRO#4", NULL != ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52])); ((meltroutine_ptr_t) /*_.VALROUT___V1244*/ meltfptr[1243])->tabval[4] = (melt_ptr_t) ( /*_.INITIAL_ENVIRONMENT__V53*/ meltfptr[52]); MELT_LOCATION ("warmelt-macro.melt:1969:/ initchunk"); #line 1969 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1969 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1244*/ meltfptr[1243]); /*putclosurout#23 */ melt_assertmsg ("putclosrout#23 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#23 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1245*/ meltfptr[1244])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1244*/ meltfptr[1243]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1245*/ meltfptr[1244]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1246*/ meltfptr[1245])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1246*/ meltfptr[1245])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1246*/ meltfptr[1245]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1247*/ meltfptr[1246]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1246*/ meltfptr[1245]); MELT_LOCATION ("warmelt-macro.melt:1987:/ initchunk"); #line 1987 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1987 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1249*/ meltfptr[1248]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1250*/ meltfptr[1249]); MELT_LOCATION ("warmelt-macro.melt:1987:/ initchunk"); #line 1987 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1987 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (2 >= 0 && 2 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247]))-> obj_vartab[2] = (melt_ptr_t) ( /*_.VALTUP___V1250*/ meltfptr[1249]); MELT_LOCATION ("warmelt-macro.melt:1987:/ initchunk"); #line 1987 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1987 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (3 >= 0 && 3 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247]))-> obj_vartab[3] = (melt_ptr_t) ( ((melt_ptr_t) (MELT_PREDEF (CTYPE_LONG)))); /*putupl#819 */ melt_assertmsg ("putupl #819 checktup", melt_magic_discr ((melt_ptr_t) ( /*_.VALTUP___V1252*/ meltfptr[1251])) == MELTOBMAG_MULTIPLE); melt_assertmsg ("putupl #819 checkoff", (0 >= 0 && 0 < melt_multiple_length ((melt_ptr_t) ( /*_.VALTUP___V1252*/ meltfptr[1251])))); ((meltmultiple_ptr_t) ( /*_.VALTUP___V1252*/ meltfptr[1251]))->tabval[0] = (melt_ptr_t) ( /*_.VALSTR___V1251*/ meltfptr[1250]); /*touch:INITUP_ */ meltgc_touch ( /*_.VALTUP___V1252*/ meltfptr[1251]); MELT_LOCATION ("warmelt-macro.melt:1987:/ initchunk"); #line 1987 "warmelt-macro.melt" /**::initchunk::**/ /*^putslot */ #line 1987 /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (4 >= 0 && 4 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1248*/ meltfptr[1247]))-> obj_vartab[4] = (melt_ptr_t) ( /*_.VALTUP___V1252*/ meltfptr[1251]); MELT_LOCATION ("warmelt-macro.melt:1987:/ initchunk"); #line 1987 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1987 /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1248*/ meltfptr[1247]); MELT_LOCATION ("warmelt-macro.melt:1991:/ initchunk"); #line 1991 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1991 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1253*/ meltfptr[1252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1178__WARN_IF_REDEFINED#0", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1253*/ meltfptr[1252])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:1991:/ initchunk"); #line 1991 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1991 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1253*/ meltfptr[1252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1178__WARN_IF_REDEFINED#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1253*/ meltfptr[1252])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:1991:/ initchunk"); #line 1991 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 1991 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1253*/ meltfptr[1252])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1178__WARN_IF_REDEFINED#2", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1253*/ meltfptr[1252])->tabval[2] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:1991:/ initchunk"); #line 1991 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 1991 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1253*/ meltfptr[1252]); /*putclosurout#24 */ melt_assertmsg ("putclosrout#24 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#24 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1253*/ meltfptr[1252])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1254*/ meltfptr[1253])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1253*/ meltfptr[1252]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1180__FLATTEN_FOR_C_CODE_EXPANSION#0", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1180__FLATTEN_FOR_C_CODE_EXPANSION#1", NULL != ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); /*putclosurout#25 */ melt_assertmsg ("putclosrout#25 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1256*/ meltfptr[1255])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#25 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1256*/ meltfptr[1255])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1256*/ meltfptr[1255]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2004 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1256*/ meltfptr[1255]); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1256*/ meltfptr[1255]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1180__FLATTEN_FOR_C_CODE_EXPANSION#3", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1180__FLATTEN_FOR_C_CODE_EXPANSION#4", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1255*/ meltfptr[1254])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1180__FLATTEN_FOR_C_CODE_EXPANSION#5", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1255*/ meltfptr[1254])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:2004:/ initchunk"); #line 2004 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2004 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1255*/ meltfptr[1254]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1257*/ meltfptr[1256])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1257*/ meltfptr[1256])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1257*/ meltfptr[1256]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1258*/ meltfptr[1257]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1257*/ meltfptr[1256]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION#1", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[1] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2050 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1256*/ meltfptr[1255]); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1256*/ meltfptr[1255]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION#3", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[3] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1184__PARSE_PAIRLIST_C_CODE_EXPANSION#4", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1259*/ meltfptr[1258])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:2050:/ initchunk"); #line 2050 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2050 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1259*/ meltfptr[1258]); /*putclosurout#26 */ melt_assertmsg ("putclosrout#26 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#26 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1260*/ meltfptr[1259])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1259*/ meltfptr[1258]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1260*/ meltfptr[1259]); MELT_LOCATION ("warmelt-macro.melt:2071:/ initchunk"); #line 2071 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2071 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1186__CHECK_C_EXPANSION#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2071:/ initchunk"); #line 2071 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2071 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1186__CHECK_C_EXPANSION#1", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:2071:/ initchunk"); #line 2071 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2071 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1186__CHECK_C_EXPANSION#2", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2071:/ initchunk"); #line 2071 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2071 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1186__CHECK_C_EXPANSION#3", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1261*/ meltfptr[1260])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:2071:/ initchunk"); #line 2071 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2071 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1261*/ meltfptr[1260]); /*putclosurout#27 */ melt_assertmsg ("putclosrout#27 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#27 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1262*/ meltfptr[1261])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1261*/ meltfptr[1260]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1262*/ meltfptr[1261]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#5", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#6", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#7", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#8", NULL != ( /*_.CLASS_CTYPE__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V51*/ meltfptr[50]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1265*/ meltfptr[1264]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#9", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#10", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1260*/ meltfptr[1259]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#12", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V398*/ meltfptr[397]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V398*/ meltfptr[397]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#14", NULL != ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#15", NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#16", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#17", NULL != ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1262*/ meltfptr[1261]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[19] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2106 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1188__MEXPAND_DEFPRIMITIVE#20", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[20] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2106 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1087*/ meltfptr[1086]); ((meltroutine_ptr_t) /*_.VALROUT___V1263*/ meltfptr[1262])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); MELT_LOCATION ("warmelt-macro.melt:2106:/ initchunk"); #line 2106 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2106 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1263*/ meltfptr[1262]); /*putclosurout#28 */ melt_assertmsg ("putclosrout#28 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1266*/ meltfptr[1265])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#28 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1266*/ meltfptr[1265])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1263*/ meltfptr[1262]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1266*/ meltfptr[1265]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1268*/ meltfptr[1267]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1267*/ meltfptr[1266]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2229 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#5", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#6", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#7", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2229 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1260*/ meltfptr[1259]); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#9", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#10", NULL != ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CITERATOR__V20*/ meltfptr[19]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#11", NULL != ( /*_.CLASS_CITERATOR_BINDING__V30*/ meltfptr[29])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CITERATOR_BINDING__V30*/ meltfptr[29]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2229 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V416*/ meltfptr[415]); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V416*/ meltfptr[415]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#13", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#14", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#15", NULL != ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2229 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1262*/ meltfptr[1261]); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2229 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1194__MEXPAND_DEFCITERATOR#17", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[17] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2229 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1087*/ meltfptr[1086]); ((meltroutine_ptr_t) /*_.VALROUT___V1269*/ meltfptr[1268])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); MELT_LOCATION ("warmelt-macro.melt:2229:/ initchunk"); #line 2229 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2229 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1269*/ meltfptr[1268]); /*putclosurout#29 */ melt_assertmsg ("putclosrout#29 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1270*/ meltfptr[1269])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#29 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1270*/ meltfptr[1269])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1269*/ meltfptr[1268]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1270*/ meltfptr[1269]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1272*/ meltfptr[1271]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1271*/ meltfptr[1270]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2382 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#5", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#6", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#8", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#9", NULL != ( /*_.VALROUT___V1274*/ meltfptr[1273])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1274*/ meltfptr[1273]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#10", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#11", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2382 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1260*/ meltfptr[1259]); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1260*/ meltfptr[1259]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#13", NULL != ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_CMATCHER__V24*/ meltfptr[23]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2382 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V434*/ meltfptr[433]); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V434*/ meltfptr[433]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#15", NULL != ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_CMATCHER_BINDING__V31*/ meltfptr[30]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#16", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[16] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#17", NULL != ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[17] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2382 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1262*/ meltfptr[1261]); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1262*/ meltfptr[1261]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2382 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1198__MEXPAND_DEFCMATCHER#19", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[19] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2382 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1087*/ meltfptr[1086]); ((meltroutine_ptr_t) /*_.VALROUT___V1273*/ meltfptr[1272])->tabval[20] = (melt_ptr_t) ( /*_.VALCLO___V1087*/ meltfptr[1086]); MELT_LOCATION ("warmelt-macro.melt:2382:/ initchunk"); #line 2382 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2382 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1273*/ meltfptr[1272]); /*putclosurout#30 */ melt_assertmsg ("putclosrout#30 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1275*/ meltfptr[1274])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#30 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1275*/ meltfptr[1274])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1273*/ meltfptr[1272]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1275*/ meltfptr[1274]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1277*/ meltfptr[1276]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1276*/ meltfptr[1275]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_20 */ void meltmod__warmelt_macro__initialmeltchunk_21 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2578 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#5", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#6", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#8", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#9", NULL != ( /*_.VALROUT___V1279*/ meltfptr[1278])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1279*/ meltfptr[1278]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#10", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2578 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V456*/ meltfptr[455]); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V456*/ meltfptr[455]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#12", NULL != ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER__V25*/ meltfptr[24]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#13", NULL != ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FUNMATCHER_BINDING__V32*/ meltfptr[31]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2578 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1203__MEXPAND_DEFUNMATCHER#14", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1278*/ meltfptr[1277])->tabval[14] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2578:/ initchunk"); #line 2578 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2578 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1278*/ meltfptr[1277]); /*putclosurout#31 */ melt_assertmsg ("putclosrout#31 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1280*/ meltfptr[1279])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#31 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1280*/ meltfptr[1279])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1278*/ meltfptr[1277]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1280*/ meltfptr[1279]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1282*/ meltfptr[1281]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1281*/ meltfptr[1280]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#3", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[3] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#4", NULL != ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#5", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2724 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#7", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[7] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#8", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2724 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[9] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#10", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[10] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#11", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[11] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); #line 2763 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2763 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1284*/ meltfptr[1283])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1212__LAMBDA_#0", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1284*/ meltfptr[1283])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2763:/ initchunk"); #line 2763 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2763 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1284*/ meltfptr[1283]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#12", NULL != ( /*_.VALROUT___V1284*/ meltfptr[1283])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[12] = (melt_ptr_t) ( /*_.VALROUT___V1284*/ meltfptr[1283]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2724 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1208__MEXPAND_DEFUN#13", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2724 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[14] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2724 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V388*/ meltfptr[387]); ((meltroutine_ptr_t) /*_.VALROUT___V1283*/ meltfptr[1282])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]); MELT_LOCATION ("warmelt-macro.melt:2724:/ initchunk"); #line 2724 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2724 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1283*/ meltfptr[1282]); /*putclosurout#32 */ melt_assertmsg ("putclosrout#32 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1285*/ meltfptr[1284])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#32 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1285*/ meltfptr[1284])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1283*/ meltfptr[1282]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1285*/ meltfptr[1284]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1286*/ meltfptr[1285])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1286*/ meltfptr[1285])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1286*/ meltfptr[1285]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1287*/ meltfptr[1286]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1286*/ meltfptr[1285]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1289*/ meltfptr[1288]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1288*/ meltfptr[1287]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#4", NULL != ( /*_.CLASS_DEFINED_VALUE_BINDING__V56*/ meltfptr[55])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_DEFINED_VALUE_BINDING__V56*/ meltfptr[55]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2809 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#6", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[6] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#7", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2809 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2809 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V368*/ meltfptr[367]); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V368*/ meltfptr[367]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2809 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1292*/ meltfptr[1291]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1291*/ meltfptr[1290]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#11", NULL != ( /*_.VALDATA___V1291*/ meltfptr[1290])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#12", NULL != ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#13", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#14", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[14] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2809 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V388*/ meltfptr[387]); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V388*/ meltfptr[387]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#16", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#17", NULL != ( /*_.CTYPE_VALUE__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[17] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#18", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#19", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[19] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#20", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[20] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2904:/ initchunk"); #line 2904 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2904 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1293*/ meltfptr[1292])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1221__LAMBDA_#0", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1293*/ meltfptr[1292])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:2904:/ initchunk"); #line 2904 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2904 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1293*/ meltfptr[1292]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2809 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1215__MEXPAND_DEFINE#21", NULL != ( /*_.VALROUT___V1293*/ meltfptr[1292])); ((meltroutine_ptr_t) /*_.VALROUT___V1290*/ meltfptr[1289])->tabval[21] = (melt_ptr_t) ( /*_.VALROUT___V1293*/ meltfptr[1292]); MELT_LOCATION ("warmelt-macro.melt:2809:/ initchunk"); #line 2809 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2809 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1290*/ meltfptr[1289]); /*putclosurout#33 */ melt_assertmsg ("putclosrout#33 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1294*/ meltfptr[1293])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#33 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1294*/ meltfptr[1293])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1290*/ meltfptr[1289]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1294*/ meltfptr[1293]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1295*/ meltfptr[1294])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1295*/ meltfptr[1294])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1295*/ meltfptr[1294]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1296*/ meltfptr[1295]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1295*/ meltfptr[1294]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1298*/ meltfptr[1297]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1297*/ meltfptr[1296]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#1", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#2", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1300*/ meltfptr[1299])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1300*/ meltfptr[1299])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1300*/ meltfptr[1299]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1301*/ meltfptr[1300]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1300*/ meltfptr[1299]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#3", NULL != ( /*_.VALDATA___V1300*/ meltfptr[1299])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1300*/ meltfptr[1299]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#4", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[4] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#5", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#6", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#7", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1302*/ meltfptr[1301])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1302*/ meltfptr[1301])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1302*/ meltfptr[1301]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1303*/ meltfptr[1302]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1302*/ meltfptr[1301]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#8", NULL != ( /*_.VALDATA___V1302*/ meltfptr[1301])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1302*/ meltfptr[1301]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#9", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#10", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1305*/ meltfptr[1304]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1304*/ meltfptr[1303]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#11", NULL != ( /*_.VALDATA___V1304*/ meltfptr[1303])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 2930 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1224__SCAN_DEFCLASS#12", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 2930 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1299*/ meltfptr[1298])->tabval[13] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:2930:/ initchunk"); #line 2930 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 2930 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1299*/ meltfptr[1298]); /*putclosurout#34 */ melt_assertmsg ("putclosrout#34 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1306*/ meltfptr[1305])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#34 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1306*/ meltfptr[1305])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1299*/ meltfptr[1298]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1306*/ meltfptr[1305]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1307*/ meltfptr[1306])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1307*/ meltfptr[1306])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1307*/ meltfptr[1306]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1308*/ meltfptr[1307]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1307*/ meltfptr[1306]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1309*/ meltfptr[1308])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1309*/ meltfptr[1308])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1309*/ meltfptr[1308]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1310*/ meltfptr[1309]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1309*/ meltfptr[1308]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3050 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1306*/ meltfptr[1305]); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1306*/ meltfptr[1305]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#5", NULL != ( /*_.DISCR_CLASS_SEQUENCE__V59*/ meltfptr[58])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_CLASS_SEQUENCE__V59*/ meltfptr[58]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#6", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#7", NULL != ( /*_.DISCR_INTEGER__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#8", NULL != ( /*_.DISCR_MAP_STRINGS__V60*/ meltfptr[59])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MAP_STRINGS__V60*/ meltfptr[59]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#9", NULL != ( /*_.DISCR_FIELD_SEQUENCE__V61*/ meltfptr[60])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_FIELD_SEQUENCE__V61*/ meltfptr[60]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#10", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#11", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#12", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[12] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#13", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[13] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#14", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[14] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3112:/ initchunk"); #line 3112 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3112 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1312*/ meltfptr[1311])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1244__LAMBDA_#0", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1312*/ meltfptr[1311])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3112:/ initchunk"); #line 3112 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3112 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1312*/ meltfptr[1311]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#15", NULL != ( /*_.VALROUT___V1312*/ meltfptr[1311])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[15] = (melt_ptr_t) ( /*_.VALROUT___V1312*/ meltfptr[1311]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#16", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#17", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[17] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#18", NULL != ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#19", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[19] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#20", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[20] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#21", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[21] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_21 */ void meltmod__warmelt_macro__initialmeltchunk_22 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#22", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[22] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3050 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[23] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#24", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[24] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#1", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[1] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#2", NULL != ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#4", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#5", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#6", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3121 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[7] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3121 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1245__LAMBDA_#8", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1313*/ meltfptr[1312])->tabval[8] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:3121:/ initchunk"); #line 3121 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3121 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1313*/ meltfptr[1312]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3050 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1236__MEXPAND_DEFCLASS#25", NULL != ( /*_.VALROUT___V1313*/ meltfptr[1312])); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[25] = (melt_ptr_t) ( /*_.VALROUT___V1313*/ meltfptr[1312]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3050 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V492*/ meltfptr[491]); ((meltroutine_ptr_t) /*_.VALROUT___V1311*/ meltfptr[1310])->tabval[26] = (melt_ptr_t) ( /*_.VALDATA___V492*/ meltfptr[491]); MELT_LOCATION ("warmelt-macro.melt:3050:/ initchunk"); #line 3050 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3050 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1311*/ meltfptr[1310]); /*putclosurout#35 */ melt_assertmsg ("putclosrout#35 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1314*/ meltfptr[1313])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#35 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1314*/ meltfptr[1313])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1311*/ meltfptr[1310]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1314*/ meltfptr[1313]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1315*/ meltfptr[1314])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1315*/ meltfptr[1314])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1315*/ meltfptr[1314]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1316*/ meltfptr[1315]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1315*/ meltfptr[1314]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1317*/ meltfptr[1316])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1317*/ meltfptr[1316])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1317*/ meltfptr[1316]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1318*/ meltfptr[1317]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1317*/ meltfptr[1316]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1319*/ meltfptr[1318])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1319*/ meltfptr[1318])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1319*/ meltfptr[1318]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1320*/ meltfptr[1319]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1319*/ meltfptr[1318]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1322*/ meltfptr[1321]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1321*/ meltfptr[1320]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#1", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#3", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#4", NULL != ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[4] = (melt_ptr_t) ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#5", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#6", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3223:/ initchunk"); #line 3223 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3223 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1324*/ meltfptr[1323])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1252__LAMBDA_#0", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1324*/ meltfptr[1323])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3223:/ initchunk"); #line 3223 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3223 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1324*/ meltfptr[1323])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1252__LAMBDA_#1", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1324*/ meltfptr[1323])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3223:/ initchunk"); #line 3223 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3223 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1324*/ meltfptr[1323])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1252__LAMBDA_#2", NULL != ( /*_.VALDATA___V1291*/ meltfptr[1290])); ((meltroutine_ptr_t) /*_.VALROUT___V1324*/ meltfptr[1323])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290]); MELT_LOCATION ("warmelt-macro.melt:3223:/ initchunk"); #line 3223 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3223 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1324*/ meltfptr[1323]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#7", NULL != ( /*_.VALROUT___V1324*/ meltfptr[1323])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1324*/ meltfptr[1323]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#8", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#9", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[9] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#10", NULL != ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_FIELD_BINDING__V33*/ meltfptr[32]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#11", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3199 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1248__PARSE_FIELD_ASSIGNMENT#12", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3199 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V542*/ meltfptr[541]); ((meltroutine_ptr_t) /*_.VALROUT___V1323*/ meltfptr[1322])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:3199:/ initchunk"); #line 3199 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3199 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1323*/ meltfptr[1322]); /*putclosurout#36 */ melt_assertmsg ("putclosrout#36 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#36 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1325*/ meltfptr[1324])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1323*/ meltfptr[1322]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1325*/ meltfptr[1324]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1326*/ meltfptr[1325])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1326*/ meltfptr[1325])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1326*/ meltfptr[1325]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1327*/ meltfptr[1326]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1326*/ meltfptr[1325]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#4", NULL != ( /*_.CLASS_INSTANCE_BINDING__V63*/ meltfptr[62])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_INSTANCE_BINDING__V63*/ meltfptr[62]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3296 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#6", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[6] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#7", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[7] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#8", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#9", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#10", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#11", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#12", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1330*/ meltfptr[1329]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1329*/ meltfptr[1328]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#13", NULL != ( /*_.VALDATA___V1329*/ meltfptr[1328])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#14", NULL != ( /*_.VALDATA___V1304*/ meltfptr[1303])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#15", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3296 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[16] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#17", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[17] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3296 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1253__MEXPAND_DEFINSTANCE#18", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[18] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3296 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V510*/ meltfptr[509]); ((meltroutine_ptr_t) /*_.VALROUT___V1328*/ meltfptr[1327])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V510*/ meltfptr[509]); MELT_LOCATION ("warmelt-macro.melt:3296:/ initchunk"); #line 3296 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3296 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1328*/ meltfptr[1327]); /*putclosurout#37 */ melt_assertmsg ("putclosrout#37 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1331*/ meltfptr[1330])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#37 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1331*/ meltfptr[1330])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1328*/ meltfptr[1327]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1331*/ meltfptr[1330]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1332*/ meltfptr[1331])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1332*/ meltfptr[1331])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1332*/ meltfptr[1331]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1333*/ meltfptr[1332]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1332*/ meltfptr[1331]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1335*/ meltfptr[1334]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1334*/ meltfptr[1333]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3410 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#5", NULL != ( /*_.CLASS_SELECTOR_BINDING__V28*/ meltfptr[27])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SELECTOR_BINDING__V28*/ meltfptr[27]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3410 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#7", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[7] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#8", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[8] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#9", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#10", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#11", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#12", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#13", NULL != ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_SELECTOR__V7*/ meltfptr[6]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#14", NULL != ( /*_.MELT_MODE_REFERENCE__V64*/ meltfptr[63])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[14] = (melt_ptr_t) ( /*_.MELT_MODE_REFERENCE__V64*/ meltfptr[63]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#15", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#16", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#17", NULL != ( /*_.VALDATA___V1329*/ meltfptr[1328])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#18", NULL != ( /*_.VALDATA___V1304*/ meltfptr[1303])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[18] = (melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#19", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1337*/ meltfptr[1336])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1337*/ meltfptr[1336])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1337*/ meltfptr[1336]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1338*/ meltfptr[1337]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1337*/ meltfptr[1336]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#20", NULL != ( /*_.VALDATA___V1337*/ meltfptr[1336])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[20] = (melt_ptr_t) ( /*_.VALDATA___V1337*/ meltfptr[1336]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3410 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[21] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#22", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[22] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#23", NULL != ( /*_.CTYPE_VALUE__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[23] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3410 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[24] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#25", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[25] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3410 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1261__MEXPAND_DEFSELECTOR#26", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[26] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3410 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V532*/ meltfptr[531]); ((meltroutine_ptr_t) /*_.VALROUT___V1336*/ meltfptr[1335])->tabval[27] = (melt_ptr_t) ( /*_.VALDATA___V532*/ meltfptr[531]); MELT_LOCATION ("warmelt-macro.melt:3410:/ initchunk"); #line 3410 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3410 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1336*/ meltfptr[1335]); /*putclosurout#38 */ melt_assertmsg ("putclosrout#38 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1339*/ meltfptr[1338])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#38 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1339*/ meltfptr[1338])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1336*/ meltfptr[1335]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1339*/ meltfptr[1338]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1340*/ meltfptr[1339])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1340*/ meltfptr[1339])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1340*/ meltfptr[1339]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1341*/ meltfptr[1340]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1340*/ meltfptr[1339]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1343*/ meltfptr[1342]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1342*/ meltfptr[1341]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#4", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[4] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#5", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#6", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#7", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#8", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#9", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3557 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#11", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[11] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3557 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1269__MEXPAND_INSTANCE#12", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_22 */ void meltmod__warmelt_macro__initialmeltchunk_23 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3557 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V556*/ meltfptr[555]); ((meltroutine_ptr_t) /*_.VALROUT___V1344*/ meltfptr[1343])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]); MELT_LOCATION ("warmelt-macro.melt:3557:/ initchunk"); #line 3557 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3557 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1344*/ meltfptr[1343]); /*putclosurout#39 */ melt_assertmsg ("putclosrout#39 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1345*/ meltfptr[1344])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#39 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1345*/ meltfptr[1344])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1344*/ meltfptr[1343]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1345*/ meltfptr[1344]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1347*/ meltfptr[1346]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1346*/ meltfptr[1345]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3625 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#4", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3625 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1225*/ meltfptr[1224]); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1225*/ meltfptr[1224]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#6", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3625 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1273__MEXPAND_LOAD#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1348*/ meltfptr[1347])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3625:/ initchunk"); #line 3625 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3625 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1348*/ meltfptr[1347]); /*putclosurout#40 */ melt_assertmsg ("putclosrout#40 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1349*/ meltfptr[1348])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#40 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1349*/ meltfptr[1348])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1348*/ meltfptr[1347]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1349*/ meltfptr[1348]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1351*/ meltfptr[1350]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1350*/ meltfptr[1349]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#1", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3666 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#4", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#5", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3666 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#7", NULL != ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[7] = (melt_ptr_t) ( /*_.MULTIPLE_ITERATE_TEST__V62*/ meltfptr[61]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#8", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#9", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:3681:/ initchunk"); #line 3681 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3681 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1279__LAMBDA_#0", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1353*/ meltfptr[1352])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3681:/ initchunk"); #line 3681 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3681 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1353*/ meltfptr[1352])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1279__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1353*/ meltfptr[1352])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:3681:/ initchunk"); #line 3681 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3681 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1353*/ meltfptr[1352]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#10", NULL != ( /*_.VALROUT___V1353*/ meltfptr[1352])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V1353*/ meltfptr[1352]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3666 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1277__PARSE_FIELD_PATTERN#11", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3666 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1020*/ meltfptr[1019]); ((meltroutine_ptr_t) /*_.VALROUT___V1352*/ meltfptr[1351])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:3666:/ initchunk"); #line 3666 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3666 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1352*/ meltfptr[1351]); /*putclosurout#41 */ melt_assertmsg ("putclosrout#41 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1354*/ meltfptr[1353])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#41 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1354*/ meltfptr[1353])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1352*/ meltfptr[1351]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1354*/ meltfptr[1353]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#5", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#6", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#7", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#8", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#9", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#10", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1354*/ meltfptr[1353]); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1354*/ meltfptr[1353]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#12", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[12] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#13", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#14", NULL != ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[14] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1020*/ meltfptr[1019]); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:3768:/ initchunk"); #line 3768 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3768 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1356*/ meltfptr[1355])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1020*/ meltfptr[1019]); ((meltroutine_ptr_t) /*_.VALROUT___V1356*/ meltfptr[1355])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:3768:/ initchunk"); #line 3768 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3768 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1356*/ meltfptr[1355]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#16", NULL != ( /*_.VALROUT___V1356*/ meltfptr[1355])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V1356*/ meltfptr[1355]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1014*/ meltfptr[1013]); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1204*/ meltfptr[1203]); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1280__PATEXPAND_INSTANCE#19", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1355*/ meltfptr[1354])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:3710:/ initchunk"); #line 3710 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3710 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1355*/ meltfptr[1354]); /*putclosurout#42 */ melt_assertmsg ("putclosrout#42 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1357*/ meltfptr[1356])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#42 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1357*/ meltfptr[1356])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1355*/ meltfptr[1354]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1357*/ meltfptr[1356]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3805 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#5", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#6", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#7", NULL != ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_CLASS_BINDING__V57*/ meltfptr[56]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#8", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#9", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#10", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3805 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1354*/ meltfptr[1353]); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1354*/ meltfptr[1353]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#12", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[12] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#13", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#14", NULL != ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[14] = (melt_ptr_t) ( /*_.MULTIPLE_MAP__V42*/ meltfptr[41]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3805 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1020*/ meltfptr[1019]); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:3863:/ initchunk"); #line 3863 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3863 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1359*/ meltfptr[1358])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1020*/ meltfptr[1019]); ((meltroutine_ptr_t) /*_.VALROUT___V1359*/ meltfptr[1358])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V1020*/ meltfptr[1019]); MELT_LOCATION ("warmelt-macro.melt:3863:/ initchunk"); #line 3863 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3863 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1359*/ meltfptr[1358]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#16", NULL != ( /*_.VALROUT___V1359*/ meltfptr[1358])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[16] = (melt_ptr_t) ( /*_.VALROUT___V1359*/ meltfptr[1358]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3805 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1000*/ meltfptr[999]); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1000*/ meltfptr[999]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3805 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1204*/ meltfptr[1203]); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[18] = (melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3805 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1283__PATEXPAND_OBJECT#19", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1358*/ meltfptr[1357])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:3805:/ initchunk"); #line 3805 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3805 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1358*/ meltfptr[1357]); /*putclosurout#43 */ melt_assertmsg ("putclosrout#43 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1360*/ meltfptr[1359])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#43 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1360*/ meltfptr[1359])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1358*/ meltfptr[1357]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1360*/ meltfptr[1359]); MELT_LOCATION ("warmelt-macro.melt:3882:/ initchunk"); #line 3882 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3882 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1361*/ meltfptr[1360])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1286__MEXPAND_OBJECT#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1361*/ meltfptr[1360])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3882:/ initchunk"); #line 3882 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3882 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1361*/ meltfptr[1360])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1286__MEXPAND_OBJECT#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1361*/ meltfptr[1360])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3882:/ initchunk"); #line 3882 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3882 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1361*/ meltfptr[1360])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1286__MEXPAND_OBJECT#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1361*/ meltfptr[1360])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3882:/ initchunk"); #line 3882 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3882 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1361*/ meltfptr[1360]); /*putclosurout#44 */ melt_assertmsg ("putclosrout#44 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1362*/ meltfptr[1361])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#44 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1361*/ meltfptr[1360])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1362*/ meltfptr[1361])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1361*/ meltfptr[1360]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1362*/ meltfptr[1361]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1364*/ meltfptr[1363]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1363*/ meltfptr[1362]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#2", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#4", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#5", NULL != ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3905 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V888*/ meltfptr[887]); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V888*/ meltfptr[887]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#7", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[7] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#8", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3905 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1290__MEXPAND_CODE_CHUNK#9", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1365*/ meltfptr[1364])->tabval[9] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:3905:/ initchunk"); #line 3905 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3905 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1365*/ meltfptr[1364]); /*putclosurout#45 */ melt_assertmsg ("putclosrout#45 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1366*/ meltfptr[1365])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#45 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1366*/ meltfptr[1365])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1365*/ meltfptr[1364]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1366*/ meltfptr[1365]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1368*/ meltfptr[1367]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1367*/ meltfptr[1366]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3956 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#3", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#4", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3956 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#6", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 3956 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1294__MEXPAND_UNSAFE_PUT_FIELDS#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 3956 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V608*/ meltfptr[607]); ((meltroutine_ptr_t) /*_.VALROUT___V1369*/ meltfptr[1368])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V608*/ meltfptr[607]); MELT_LOCATION ("warmelt-macro.melt:3956:/ initchunk"); #line 3956 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 3956 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1369*/ meltfptr[1368]); /*putclosurout#46 */ melt_assertmsg ("putclosrout#46 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1370*/ meltfptr[1369])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#46 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1370*/ meltfptr[1369])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1369*/ meltfptr[1368]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1370*/ meltfptr[1369]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1372*/ meltfptr[1371]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1371*/ meltfptr[1370]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4004 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_23 */ void meltmod__warmelt_macro__initialmeltchunk_24 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#3", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#4", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4004 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#6", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[6] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4004 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1298__MEXPAND_PUT_FIELDS#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4004 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V594*/ meltfptr[593]); ((meltroutine_ptr_t) /*_.VALROUT___V1373*/ meltfptr[1372])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); MELT_LOCATION ("warmelt-macro.melt:4004:/ initchunk"); #line 4004 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4004 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1373*/ meltfptr[1372]); /*putclosurout#47 */ melt_assertmsg ("putclosrout#47 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1374*/ meltfptr[1373])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#47 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1374*/ meltfptr[1373])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1373*/ meltfptr[1372]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1374*/ meltfptr[1373]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1376*/ meltfptr[1375]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1375*/ meltfptr[1374]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4051 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1302__MEXPAND_UNSAFE_GET_FIELD#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4051 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1302__MEXPAND_UNSAFE_GET_FIELD#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4051 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1302__MEXPAND_UNSAFE_GET_FIELD#2", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4051 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4051 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V542*/ meltfptr[541]); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4051 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V588*/ meltfptr[587]); ((meltroutine_ptr_t) /*_.VALROUT___V1377*/ meltfptr[1376])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V588*/ meltfptr[587]); MELT_LOCATION ("warmelt-macro.melt:4051:/ initchunk"); #line 4051 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4051 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1377*/ meltfptr[1376]); /*putclosurout#48 */ melt_assertmsg ("putclosrout#48 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1378*/ meltfptr[1377])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#48 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1378*/ meltfptr[1377])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1377*/ meltfptr[1376]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1378*/ meltfptr[1377]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1380*/ meltfptr[1379]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1379*/ meltfptr[1378]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4092 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1306__MEXPAND_GET_FIELD#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4092 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1306__MEXPAND_GET_FIELD#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4092 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1306__MEXPAND_GET_FIELD#2", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4092 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4092 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V542*/ meltfptr[541]); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4092 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V574*/ meltfptr[573]); ((meltroutine_ptr_t) /*_.VALROUT___V1381*/ meltfptr[1380])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-macro.melt:4092:/ initchunk"); #line 4092 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4092 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1381*/ meltfptr[1380]); /*putclosurout#49 */ melt_assertmsg ("putclosrout#49 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1382*/ meltfptr[1381])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#49 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1382*/ meltfptr[1381])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1381*/ meltfptr[1380]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1382*/ meltfptr[1381]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1384*/ meltfptr[1383]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1383*/ meltfptr[1382]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4133 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1310__PAIRLIST_TO_PROGN#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4133 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1310__PAIRLIST_TO_PROGN#1", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4133 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1310__PAIRLIST_TO_PROGN#2", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[2] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4133 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1310__PAIRLIST_TO_PROGN#3", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4133 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1310__PAIRLIST_TO_PROGN#4", NULL != ( /*_.VALROUT___V1386*/ meltfptr[1385])); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[4] = (melt_ptr_t) ( /*_.VALROUT___V1386*/ meltfptr[1385]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4133 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ meltfptr[215]); ((meltroutine_ptr_t) /*_.VALROUT___V1385*/ meltfptr[1384])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]); MELT_LOCATION ("warmelt-macro.melt:4133:/ initchunk"); #line 4133 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4133 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1385*/ meltfptr[1384]); /*putclosurout#50 */ melt_assertmsg ("putclosrout#50 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#50 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1387*/ meltfptr[1386])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1385*/ meltfptr[1384]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1387*/ meltfptr[1386]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4152 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1313__MEXPAND_SETQ#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1388*/ meltfptr[1387])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4152 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1313__MEXPAND_SETQ#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1388*/ meltfptr[1387])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4152 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1388*/ meltfptr[1387])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4152 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1313__MEXPAND_SETQ#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1388*/ meltfptr[1387])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4152 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V232*/ meltfptr[231]); ((meltroutine_ptr_t) /*_.VALROUT___V1388*/ meltfptr[1387])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V232*/ meltfptr[231]); MELT_LOCATION ("warmelt-macro.melt:4152:/ initchunk"); #line 4152 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4152 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1388*/ meltfptr[1387]); /*putclosurout#51 */ melt_assertmsg ("putclosrout#51 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1389*/ meltfptr[1388])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#51 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1389*/ meltfptr[1388])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1388*/ meltfptr[1387]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1389*/ meltfptr[1388]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1391*/ meltfptr[1390]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1390*/ meltfptr[1389]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4183 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1317__MEXPAND_IF#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4183 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1317__MEXPAND_IF#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4183 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1317__MEXPAND_IF#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4183 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4183 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V628*/ meltfptr[627]); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4183 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); ((meltroutine_ptr_t) /*_.VALROUT___V1392*/ meltfptr[1391])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); MELT_LOCATION ("warmelt-macro.melt:4183:/ initchunk"); #line 4183 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4183 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1392*/ meltfptr[1391]); /*putclosurout#52 */ melt_assertmsg ("putclosrout#52 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1393*/ meltfptr[1392])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#52 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1393*/ meltfptr[1392])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1392*/ meltfptr[1391]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1393*/ meltfptr[1392]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1395*/ meltfptr[1394]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1394*/ meltfptr[1393]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4237 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1321__MEXPAND_WHEN#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4237 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1321__MEXPAND_WHEN#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4237 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1321__MEXPAND_WHEN#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4237 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4237 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1387*/ meltfptr[1386]); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4237 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); ((meltroutine_ptr_t) /*_.VALROUT___V1396*/ meltfptr[1395])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); MELT_LOCATION ("warmelt-macro.melt:4237:/ initchunk"); #line 4237 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4237 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1396*/ meltfptr[1395]); /*putclosurout#53 */ melt_assertmsg ("putclosrout#53 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1397*/ meltfptr[1396])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#53 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1397*/ meltfptr[1396])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1396*/ meltfptr[1395]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1397*/ meltfptr[1396]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1399*/ meltfptr[1398]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1398*/ meltfptr[1397]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1325__MEXPAND_UNLESS#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1325__MEXPAND_UNLESS#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1325__MEXPAND_UNLESS#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1387*/ meltfptr[1386]); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V628*/ meltfptr[627]); ((meltroutine_ptr_t) /*_.VALROUT___V1400*/ meltfptr[1399])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); MELT_LOCATION ("warmelt-macro.melt:4273:/ initchunk"); #line 4273 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4273 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1400*/ meltfptr[1399]); /*putclosurout#54 */ melt_assertmsg ("putclosrout#54 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1401*/ meltfptr[1400])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#54 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1401*/ meltfptr[1400])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1400*/ meltfptr[1399]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1401*/ meltfptr[1400]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1403*/ meltfptr[1402]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1402*/ meltfptr[1401]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4309 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1329__MEXPAND_CPPIF#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4309 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1329__MEXPAND_CPPIF#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4309 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4309 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1329__MEXPAND_CPPIF#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4309 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1329__MEXPAND_CPPIF#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4309 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V648*/ meltfptr[647]); ((meltroutine_ptr_t) /*_.VALROUT___V1404*/ meltfptr[1403])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:4309:/ initchunk"); #line 4309 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4309 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1404*/ meltfptr[1403]); /*putclosurout#55 */ melt_assertmsg ("putclosrout#55 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1405*/ meltfptr[1404])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#55 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1405*/ meltfptr[1404])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1404*/ meltfptr[1403]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1405*/ meltfptr[1404]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1407*/ meltfptr[1406]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1406*/ meltfptr[1405]); /*putclosurout#56 */ melt_assertmsg ("putclosrout#56 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1409*/ meltfptr[1408])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#56 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1408*/ meltfptr[1407])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1409*/ meltfptr[1408])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1408*/ meltfptr[1407]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1409*/ meltfptr[1408]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4381 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1335__MEXPAND_GCCIF#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4381 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1335__MEXPAND_GCCIF#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4381 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1335__MEXPAND_GCCIF#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4381 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1409*/ meltfptr[1408]); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1409*/ meltfptr[1408]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4381 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4381 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1335__MEXPAND_GCCIF#5", NULL != ( /*_.VALDATA___V1291*/ meltfptr[1290])); ((meltroutine_ptr_t) /*_.VALROUT___V1410*/ meltfptr[1409])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290]); MELT_LOCATION ("warmelt-macro.melt:4381:/ initchunk"); #line 4381 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4381 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1410*/ meltfptr[1409]); /*putclosurout#57 */ melt_assertmsg ("putclosrout#57 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1411*/ meltfptr[1410])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#57 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1411*/ meltfptr[1410])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1410*/ meltfptr[1409]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1411*/ meltfptr[1410]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1413*/ meltfptr[1412]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1412*/ meltfptr[1411]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#3", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[3] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#4", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#5", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4454:/ initchunk"); #line 4454 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4454 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1415*/ meltfptr[1414])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1341__LAMBDA_#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1415*/ meltfptr[1414])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4454:/ initchunk"); #line 4454 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4454 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1415*/ meltfptr[1414]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#6", NULL != ( /*_.VALROUT___V1415*/ meltfptr[1414])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1415*/ meltfptr[1414]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1417*/ meltfptr[1416]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1416*/ meltfptr[1415]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4444 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1339__MEXPAND_COND#7", NULL != ( /*_.VALDATA___V1416*/ meltfptr[1415])); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4444 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1387*/ meltfptr[1386]); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4444 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V638*/ meltfptr[637]); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4444 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V628*/ meltfptr[627]); ((meltroutine_ptr_t) /*_.VALROUT___V1414*/ meltfptr[1413])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); MELT_LOCATION ("warmelt-macro.melt:4444:/ initchunk"); #line 4444 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4444 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1414*/ meltfptr[1413]); /*putclosurout#58 */ melt_assertmsg ("putclosrout#58 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1418*/ meltfptr[1417])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#58 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1418*/ meltfptr[1417])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1414*/ meltfptr[1413]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1418*/ meltfptr[1417]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1420*/ meltfptr[1419]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_24 */ void meltmod__warmelt_macro__initialmeltchunk_25 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*touch:VALUEDATA_*/ meltgc_touch ( /*_.VALDATA___V1419*/ meltfptr[1418]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4549 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#4", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1346__MEXPAND_AND#6", NULL != ( /*_.VALROUT___V1422*/ meltfptr[1421])); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1422*/ meltfptr[1421]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4549 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); ((meltroutine_ptr_t) /*_.VALROUT___V1421*/ meltfptr[1420])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); MELT_LOCATION ("warmelt-macro.melt:4549:/ initchunk"); #line 4549 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4549 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1421*/ meltfptr[1420]); /*putclosurout#59 */ melt_assertmsg ("putclosrout#59 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1423*/ meltfptr[1422])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#59 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1423*/ meltfptr[1422])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1421*/ meltfptr[1420]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1423*/ meltfptr[1422]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4590 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1349__PATEXPAND_AS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4590 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1349__PATEXPAND_AS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4590 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1349__PATEXPAND_AS#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V962*/ meltfptr[961]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V946*/ meltfptr[945]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V946*/ meltfptr[945]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V902*/ meltfptr[901]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V902*/ meltfptr[901]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4590 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V922*/ meltfptr[921]); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4590 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1349__PATEXPAND_AS#9", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1424*/ meltfptr[1423])->tabval[9] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:4590:/ initchunk"); #line 4590 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4590 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1424*/ meltfptr[1423]); /*putclosurout#60 */ melt_assertmsg ("putclosrout#60 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1425*/ meltfptr[1424])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#60 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1425*/ meltfptr[1424])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1424*/ meltfptr[1423]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1425*/ meltfptr[1424]); MELT_LOCATION ("warmelt-macro.melt:4628:/ initchunk"); #line 4628 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4628 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1351__MEXPAND_AS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1426*/ meltfptr[1425])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4628:/ initchunk"); #line 4628 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4628 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1351__MEXPAND_AS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1426*/ meltfptr[1425])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4628:/ initchunk"); #line 4628 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4628 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1351__MEXPAND_AS#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1426*/ meltfptr[1425])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4628:/ initchunk"); #line 4628 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4628 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1426*/ meltfptr[1425]); /*putclosurout#61 */ melt_assertmsg ("putclosrout#61 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1427*/ meltfptr[1426])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#61 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1427*/ meltfptr[1426])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1426*/ meltfptr[1425]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1427*/ meltfptr[1426]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1429*/ meltfptr[1428]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1428*/ meltfptr[1427]); MELT_LOCATION ("warmelt-macro.melt:4642:/ initchunk"); #line 4642 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4642 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1355__PATEXPAND_WHEN#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4642:/ initchunk"); #line 4642 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4642 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1355__PATEXPAND_WHEN#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4642:/ initchunk"); #line 4642 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4642 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:4642:/ initchunk"); #line 4642 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4642 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1355__PATEXPAND_WHEN#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1430*/ meltfptr[1429])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4642:/ initchunk"); #line 4642 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4642 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1430*/ meltfptr[1429]); /*putclosurout#62 */ melt_assertmsg ("putclosrout#62 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1431*/ meltfptr[1430])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#62 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1431*/ meltfptr[1430])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1430*/ meltfptr[1429]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1431*/ meltfptr[1430]); MELT_LOCATION ("warmelt-macro.melt:4657:/ initchunk"); #line 4657 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4657 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1432*/ meltfptr[1431])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1357__MEXPAND_WHEN#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1432*/ meltfptr[1431])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4657:/ initchunk"); #line 4657 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4657 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1432*/ meltfptr[1431])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1357__MEXPAND_WHEN#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1432*/ meltfptr[1431])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4657:/ initchunk"); #line 4657 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4657 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1432*/ meltfptr[1431])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1357__MEXPAND_WHEN#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1432*/ meltfptr[1431])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4657:/ initchunk"); #line 4657 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4657 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1432*/ meltfptr[1431]); /*putclosurout#63 */ melt_assertmsg ("putclosrout#63 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1433*/ meltfptr[1432])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#63 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1432*/ meltfptr[1431])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1433*/ meltfptr[1432])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1432*/ meltfptr[1431]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1433*/ meltfptr[1432]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4672 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1359__PATEXPAND_AND#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4672 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1359__PATEXPAND_AND#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4672 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4672 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1359__PATEXPAND_AND#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4672 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4672 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V922*/ meltfptr[921]); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V922*/ meltfptr[921]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4672 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1204*/ meltfptr[1203]); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4672 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1359__PATEXPAND_AND#7", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1434*/ meltfptr[1433])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:4672:/ initchunk"); #line 4672 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4672 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1434*/ meltfptr[1433]); /*putclosurout#64 */ melt_assertmsg ("putclosrout#64 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1435*/ meltfptr[1434])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#64 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1435*/ meltfptr[1434])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1434*/ meltfptr[1433]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1435*/ meltfptr[1434]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1437*/ meltfptr[1436]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1436*/ meltfptr[1435]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4709 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#4", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4709 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1363__MEXPAND_OR#6", NULL != ( /*_.VALROUT___V1439*/ meltfptr[1438])); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1439*/ meltfptr[1438]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4709 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V638*/ meltfptr[637]); ((meltroutine_ptr_t) /*_.VALROUT___V1438*/ meltfptr[1437])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V638*/ meltfptr[637]); MELT_LOCATION ("warmelt-macro.melt:4709:/ initchunk"); #line 4709 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4709 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1438*/ meltfptr[1437]); /*putclosurout#65 */ melt_assertmsg ("putclosrout#65 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1440*/ meltfptr[1439])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#65 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1440*/ meltfptr[1439])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1438*/ meltfptr[1437]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1440*/ meltfptr[1439]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1366__PATEXPAND_OR#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1366__PATEXPAND_OR#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1366__PATEXPAND_OR#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V912*/ meltfptr[911]); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V912*/ meltfptr[911]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1204*/ meltfptr[1203]); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1204*/ meltfptr[1203]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1366__PATEXPAND_OR#7", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1441*/ meltfptr[1440])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:4739:/ initchunk"); #line 4739 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4739 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1441*/ meltfptr[1440]); /*putclosurout#66 */ melt_assertmsg ("putclosrout#66 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1442*/ meltfptr[1441])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#66 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1442*/ meltfptr[1441])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1441*/ meltfptr[1440]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1442*/ meltfptr[1441]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1444*/ meltfptr[1443]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1443*/ meltfptr[1442]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4777 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#4", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#5", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4777 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[6] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4777 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V864*/ meltfptr[863]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#8", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#9", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[9] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#10", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4777 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1325*/ meltfptr[1324]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[11] = (melt_ptr_t) ( /*_.VALCLO___V1325*/ meltfptr[1324]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1447*/ meltfptr[1446]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1446*/ meltfptr[1445]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4777 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1370__MEXPAND_REFERENCE#12", NULL != ( /*_.VALDATA___V1446*/ meltfptr[1445])); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4777 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V556*/ meltfptr[555]); ((meltroutine_ptr_t) /*_.VALROUT___V1445*/ meltfptr[1444])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]); MELT_LOCATION ("warmelt-macro.melt:4777:/ initchunk"); #line 4777 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4777 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1445*/ meltfptr[1444]); /*putclosurout#67 */ melt_assertmsg ("putclosrout#67 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1448*/ meltfptr[1447])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#67 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1448*/ meltfptr[1447])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1445*/ meltfptr[1444]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1448*/ meltfptr[1447]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4819 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4819 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4819 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1354*/ meltfptr[1353]); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1354*/ meltfptr[1353]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#6", NULL != ( /*_.VALDATA___V1446*/ meltfptr[1445])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#7", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4819 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1014*/ meltfptr[1013]); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1014*/ meltfptr[1013]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4819 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1374__PATEXPAND_REFERENCE#9", NULL != ( /*_.VALBXINT___V1450*/ meltfptr[1449])); ((meltroutine_ptr_t) /*_.VALROUT___V1449*/ meltfptr[1448])->tabval[9] = (melt_ptr_t) ( /*_.VALBXINT___V1450*/ meltfptr[1449]); MELT_LOCATION ("warmelt-macro.melt:4819:/ initchunk"); #line 4819 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4819 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1449*/ meltfptr[1448]); /*putclosurout#68 */ melt_assertmsg ("putclosrout#68 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1451*/ meltfptr[1450])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#68 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1451*/ meltfptr[1450])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1449*/ meltfptr[1448]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1451*/ meltfptr[1450]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1453*/ meltfptr[1452]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1452*/ meltfptr[1451]); MELT_LOCATION ("warmelt-macro.melt:4859:/ initchunk"); #line 4859 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4859 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1379__MEXPANDOBSOLETE_CONTAINER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1454*/ meltfptr[1453])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4859:/ initchunk"); #line 4859 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4859 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1379__MEXPANDOBSOLETE_CONTAINER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1454*/ meltfptr[1453])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4859:/ initchunk"); #line 4859 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4859 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1379__MEXPANDOBSOLETE_CONTAINER#2", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1454*/ meltfptr[1453])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:4859:/ initchunk"); #line 4859 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4859 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1448*/ meltfptr[1447]); ((meltroutine_ptr_t) /*_.VALROUT___V1454*/ meltfptr[1453])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1448*/ meltfptr[1447]); MELT_LOCATION ("warmelt-macro.melt:4859:/ initchunk"); #line 4859 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4859 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1454*/ meltfptr[1453]); /*putclosurout#69 */ melt_assertmsg ("putclosrout#69 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1455*/ meltfptr[1454])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#69 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1455*/ meltfptr[1454])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1454*/ meltfptr[1453]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1455*/ meltfptr[1454]); MELT_LOCATION ("warmelt-macro.melt:4866:/ initchunk"); #line 4866 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4866 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1456*/ meltfptr[1455])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1381__PATEXPANDOBSOLETE_CONTAINER#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1456*/ meltfptr[1455])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4866:/ initchunk"); #line 4866 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4866 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1456*/ meltfptr[1455])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1381__PATEXPANDOBSOLETE_CONTAINER#1", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1456*/ meltfptr[1455])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:4866:/ initchunk"); #line 4866 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4866 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1456*/ meltfptr[1455])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1451*/ meltfptr[1450]); ((meltroutine_ptr_t) /*_.VALROUT___V1456*/ meltfptr[1455])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1451*/ meltfptr[1450]); MELT_LOCATION ("warmelt-macro.melt:4866:/ initchunk"); #line 4866 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4866 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1456*/ meltfptr[1455]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_25 */ void meltmod__warmelt_macro__initialmeltchunk_26 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*putclosurout#70*/ melt_assertmsg ("putclosrout#70 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1457*/ meltfptr[1456])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#70 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1456*/ meltfptr[1455])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1457*/ meltfptr[1456])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1456*/ meltfptr[1455]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1457*/ meltfptr[1456]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1459*/ meltfptr[1458]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1458*/ meltfptr[1457]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#3", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#4", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4880 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4880 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V864*/ meltfptr[863]); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#7", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#8", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[8] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#9", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4880 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V574*/ meltfptr[573]); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V574*/ meltfptr[573]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#11", NULL != ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[11] = (melt_ptr_t) ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4880 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1385__MEXPAND_DEREF#12", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1460*/ meltfptr[1459])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:4880:/ initchunk"); #line 4880 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4880 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1460*/ meltfptr[1459]); /*putclosurout#71 */ melt_assertmsg ("putclosrout#71 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1461*/ meltfptr[1460])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#71 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1461*/ meltfptr[1460])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1460*/ meltfptr[1459]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1461*/ meltfptr[1460]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1462*/ meltfptr[1461])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1462*/ meltfptr[1461])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1462*/ meltfptr[1461]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1463*/ meltfptr[1462]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1462*/ meltfptr[1461]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1465*/ meltfptr[1464]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1464*/ meltfptr[1463]); MELT_LOCATION ("warmelt-macro.melt:4924:/ initchunk"); #line 4924 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4924 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1391__MEXPANDOBSOLETE_CONTENT#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1466*/ meltfptr[1465])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4924:/ initchunk"); #line 4924 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4924 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1391__MEXPANDOBSOLETE_CONTENT#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1466*/ meltfptr[1465])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4924:/ initchunk"); #line 4924 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4924 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1391__MEXPANDOBSOLETE_CONTENT#2", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1466*/ meltfptr[1465])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:4924:/ initchunk"); #line 4924 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4924 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1461*/ meltfptr[1460]); ((meltroutine_ptr_t) /*_.VALROUT___V1466*/ meltfptr[1465])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1461*/ meltfptr[1460]); MELT_LOCATION ("warmelt-macro.melt:4924:/ initchunk"); #line 4924 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4924 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1466*/ meltfptr[1465]); /*putclosurout#72 */ melt_assertmsg ("putclosrout#72 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1467*/ meltfptr[1466])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#72 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1467*/ meltfptr[1466])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1466*/ meltfptr[1465]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1467*/ meltfptr[1466]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1469*/ meltfptr[1468]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1468*/ meltfptr[1467]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1471*/ meltfptr[1470]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1470*/ meltfptr[1469]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#3", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#4", NULL != ( /*_.CLASS_CLASS__V58*/ meltfptr[57])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_CLASS__V58*/ meltfptr[57]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4946 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4946 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V864*/ meltfptr[863]); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#7", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#8", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[8] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#9", NULL != ( /*_.VALDATA___V1214*/ meltfptr[1213])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4946 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V542*/ meltfptr[541]); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V542*/ meltfptr[541]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#11", NULL != ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[11] = (melt_ptr_t) ( /*_.REFERENCED_VALUE__V65*/ meltfptr[64]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4946 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V594*/ meltfptr[593]); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V594*/ meltfptr[593]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4946 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1397__MEXPAND_SET_REF#13", NULL != ( /*_.CLASS_FIELD__V17*/ meltfptr[16])); ((meltroutine_ptr_t) /*_.VALROUT___V1472*/ meltfptr[1471])->tabval[13] = (melt_ptr_t) ( /*_.CLASS_FIELD__V17*/ meltfptr[16]); MELT_LOCATION ("warmelt-macro.melt:4946:/ initchunk"); #line 4946 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4946 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1472*/ meltfptr[1471]); /*putclosurout#73 */ melt_assertmsg ("putclosrout#73 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1473*/ meltfptr[1472])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#73 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1473*/ meltfptr[1472])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1472*/ meltfptr[1471]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1473*/ meltfptr[1472]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1475*/ meltfptr[1474]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1474*/ meltfptr[1473]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4998 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1401__MEXPAND_TUPLE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4998 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1401__MEXPAND_TUPLE#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 4998 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1401__MEXPAND_TUPLE#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4998 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 4998 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V204*/ meltfptr[203]); ((meltroutine_ptr_t) /*_.VALROUT___V1476*/ meltfptr[1475])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]); MELT_LOCATION ("warmelt-macro.melt:4998:/ initchunk"); #line 4998 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 4998 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1476*/ meltfptr[1475]); /*putclosurout#74 */ melt_assertmsg ("putclosrout#74 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1477*/ meltfptr[1476])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#74 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1477*/ meltfptr[1476])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1476*/ meltfptr[1475]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1477*/ meltfptr[1476]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5015 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1403__PATEXPAND_TUPLE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5015 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1403__PATEXPAND_TUPLE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5015 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5015 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1403__PATEXPAND_TUPLE#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5015 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5015 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V988*/ meltfptr[987]); ((meltroutine_ptr_t) /*_.VALROUT___V1478*/ meltfptr[1477])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V988*/ meltfptr[987]); MELT_LOCATION ("warmelt-macro.melt:5015:/ initchunk"); #line 5015 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5015 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1478*/ meltfptr[1477]); /*putclosurout#75 */ melt_assertmsg ("putclosrout#75 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1479*/ meltfptr[1478])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#75 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1479*/ meltfptr[1478])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1478*/ meltfptr[1477]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1479*/ meltfptr[1478]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1481*/ meltfptr[1480]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1480*/ meltfptr[1479]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5045 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1407__MEXPAND_LIST#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5045 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1407__MEXPAND_LIST#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5045 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1407__MEXPAND_LIST#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5045 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5045 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V210*/ meltfptr[209]); ((meltroutine_ptr_t) /*_.VALROUT___V1482*/ meltfptr[1481])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]); MELT_LOCATION ("warmelt-macro.melt:5045:/ initchunk"); #line 5045 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5045 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1482*/ meltfptr[1481]); /*putclosurout#76 */ melt_assertmsg ("putclosrout#76 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1483*/ meltfptr[1482])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#76 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1483*/ meltfptr[1482])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1482*/ meltfptr[1481]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1483*/ meltfptr[1482]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5062 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1409__PATEXPAND_LIST#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5062 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1409__PATEXPAND_LIST#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5062 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5062 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1409__PATEXPAND_LIST#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5062 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1209*/ meltfptr[1208]); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[4] = (melt_ptr_t) ( /*_.VALCLO___V1209*/ meltfptr[1208]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5062 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V994*/ meltfptr[993]); ((meltroutine_ptr_t) /*_.VALROUT___V1484*/ meltfptr[1483])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V994*/ meltfptr[993]); MELT_LOCATION ("warmelt-macro.melt:5062:/ initchunk"); #line 5062 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5062 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1484*/ meltfptr[1483]); /*putclosurout#77 */ melt_assertmsg ("putclosrout#77 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1485*/ meltfptr[1484])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#77 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1485*/ meltfptr[1484])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1484*/ meltfptr[1483]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1485*/ meltfptr[1484]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1487*/ meltfptr[1486]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1486*/ meltfptr[1485]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#4", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#6", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5107:/ initchunk"); #line 5107 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5107 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1489*/ meltfptr[1488])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1415__LAMBDA_#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1489*/ meltfptr[1488])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5107:/ initchunk"); #line 5107 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5107 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1489*/ meltfptr[1488]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#7", NULL != ( /*_.VALROUT___V1489*/ meltfptr[1488])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1489*/ meltfptr[1488]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#8", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1168*/ meltfptr[1167]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V1168*/ meltfptr[1167]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1189*/ meltfptr[1188]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[10] = (melt_ptr_t) ( /*_.VALCLO___V1189*/ meltfptr[1188]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#11", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1085*/ meltfptr[1084]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1085*/ meltfptr[1084]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V680*/ meltfptr[679]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V680*/ meltfptr[679]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5093 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1413__MEXPAND_MATCH#14", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[14] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V666*/ meltfptr[665]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V666*/ meltfptr[665]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5093 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V962*/ meltfptr[961]); ((meltroutine_ptr_t) /*_.VALROUT___V1488*/ meltfptr[1487])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V962*/ meltfptr[961]); MELT_LOCATION ("warmelt-macro.melt:5093:/ initchunk"); #line 5093 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5093 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1488*/ meltfptr[1487]); /*putclosurout#78 */ melt_assertmsg ("putclosrout#78 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1490*/ meltfptr[1489])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#78 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1490*/ meltfptr[1489])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1488*/ meltfptr[1487]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1490*/ meltfptr[1489]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1492*/ meltfptr[1491]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1491*/ meltfptr[1490]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5185 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#4", NULL != ( /*_.CTYPE_VALUE__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[4] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#5", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#6", NULL != ( /*_.CLASS_CTYPE__V51*/ meltfptr[50])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_CTYPE__V51*/ meltfptr[50]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#7", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#8", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#9", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[9] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#10", NULL != ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5185 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1418__MEXPAND_LETBINDING#11", NULL != ( /*_.CLASS_FIXED_BINDING__V66*/ meltfptr[65])); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_FIXED_BINDING__V66*/ meltfptr[65]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_26 */ void meltmod__warmelt_macro__initialmeltchunk_27 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5185 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V694*/ meltfptr[693]); ((meltroutine_ptr_t) /*_.VALROUT___V1493*/ meltfptr[1492])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:5185:/ initchunk"); #line 5185 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5185 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1493*/ meltfptr[1492]); /*putclosurout#79 */ melt_assertmsg ("putclosrout#79 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1494*/ meltfptr[1493])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#79 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1494*/ meltfptr[1493])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1493*/ meltfptr[1492]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1494*/ meltfptr[1493]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1495*/ meltfptr[1494])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1495*/ meltfptr[1494])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1495*/ meltfptr[1494]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1496*/ meltfptr[1495]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1495*/ meltfptr[1494]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5269 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#4", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[4] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#5", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[5] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#6", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#7", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5269 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1494*/ meltfptr[1493]); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1494*/ meltfptr[1493]); MELT_LOCATION ("warmelt-macro.melt:5291:/ initchunk"); #line 5291 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5291 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1498*/ meltfptr[1497])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1424__LAMBDA_#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1498*/ meltfptr[1497])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5291:/ initchunk"); #line 5291 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5291 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1498*/ meltfptr[1497])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1494*/ meltfptr[1493]); ((meltroutine_ptr_t) /*_.VALROUT___V1498*/ meltfptr[1497])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1494*/ meltfptr[1493]); MELT_LOCATION ("warmelt-macro.melt:5291:/ initchunk"); #line 5291 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5291 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1498*/ meltfptr[1497]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#9", NULL != ( /*_.VALROUT___V1498*/ meltfptr[1497])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[9] = (melt_ptr_t) ( /*_.VALROUT___V1498*/ meltfptr[1497]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#10", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[10] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5269 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V694*/ meltfptr[693]); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[11] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#12", NULL != ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#13", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[13] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5299:/ initchunk"); #line 5299 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5299 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1499*/ meltfptr[1498])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V694*/ meltfptr[693]); ((meltroutine_ptr_t) /*_.VALROUT___V1499*/ meltfptr[1498])->tabval[0] = (melt_ptr_t) ( /*_.VALDATA___V694*/ meltfptr[693]); MELT_LOCATION ("warmelt-macro.melt:5299:/ initchunk"); #line 5299 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5299 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1499*/ meltfptr[1498])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1425__LAMBDA_#1", NULL != ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1499*/ meltfptr[1498])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:5299:/ initchunk"); #line 5299 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5299 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1499*/ meltfptr[1498])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1425__LAMBDA_#2", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1499*/ meltfptr[1498])->tabval[2] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5299:/ initchunk"); #line 5299 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5299 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1499*/ meltfptr[1498]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#14", NULL != ( /*_.VALROUT___V1499*/ meltfptr[1498])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[14] = (melt_ptr_t) ( /*_.VALROUT___V1499*/ meltfptr[1498]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5269 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1422__MEXPAND_LET#15", NULL != ( /*_.VALROUT___V1500*/ meltfptr[1499])); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[15] = (melt_ptr_t) ( /*_.VALROUT___V1500*/ meltfptr[1499]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5269 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V718*/ meltfptr[717]); ((meltroutine_ptr_t) /*_.VALROUT___V1497*/ meltfptr[1496])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V718*/ meltfptr[717]); MELT_LOCATION ("warmelt-macro.melt:5269:/ initchunk"); #line 5269 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5269 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1497*/ meltfptr[1496]); /*putclosurout#80 */ melt_assertmsg ("putclosrout#80 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1501*/ meltfptr[1500])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#80 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1501*/ meltfptr[1500])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1497*/ meltfptr[1496]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1501*/ meltfptr[1500]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1503*/ meltfptr[1502]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1502*/ meltfptr[1501]); MELT_LOCATION ("warmelt-macro.melt:5336:/ initchunk"); #line 5336 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5336 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1504*/ meltfptr[1503])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1429__YES_RECURSIVELY_CONSTRUCTIBLE#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1504*/ meltfptr[1503])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5336:/ initchunk"); #line 5336 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5336 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1504*/ meltfptr[1503]); /*putclosurout#81 */ melt_assertmsg ("putclosrout#81 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1505*/ meltfptr[1504])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#81 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1504*/ meltfptr[1503])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1505*/ meltfptr[1504])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1504*/ meltfptr[1503]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1505*/ meltfptr[1504]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1506*/ meltfptr[1505])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1506*/ meltfptr[1505])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1506*/ meltfptr[1505]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1507*/ meltfptr[1506]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1506*/ meltfptr[1505]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#3", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[3] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#4", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#6", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5376:/ initchunk"); #line 5376 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5376 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1509*/ meltfptr[1508])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1435__LAMBDA_#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1509*/ meltfptr[1508])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5376:/ initchunk"); #line 5376 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5376 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1509*/ meltfptr[1508]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#7", NULL != ( /*_.VALROUT___V1509*/ meltfptr[1508])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1509*/ meltfptr[1508]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#8", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#9", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#10", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#11", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#12", NULL != ( /*_.CLASS_LETREC_BINDING__V68*/ meltfptr[67])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[12] = (melt_ptr_t) ( /*_.CLASS_LETREC_BINDING__V68*/ meltfptr[67]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#13", NULL != ( /*_.CTYPE_VALUE__V47*/ meltfptr[46])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[13] = (melt_ptr_t) ( /*_.CTYPE_VALUE__V47*/ meltfptr[46]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#14", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[14] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5349 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V84*/ meltfptr[83]); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[15] = (melt_ptr_t) ( /*_.VALDATA___V84*/ meltfptr[83]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#16", NULL != ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_LET_BINDING__V35*/ meltfptr[34]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5349 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V712*/ meltfptr[711]); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V712*/ meltfptr[711]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5349 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1433__MEXPAND_LETREC#18", NULL != ( /*_.VALROUT___V1510*/ meltfptr[1509])); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[18] = (melt_ptr_t) ( /*_.VALROUT___V1510*/ meltfptr[1509]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5349 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V732*/ meltfptr[731]); ((meltroutine_ptr_t) /*_.VALROUT___V1508*/ meltfptr[1507])->tabval[19] = (melt_ptr_t) ( /*_.VALDATA___V732*/ meltfptr[731]); MELT_LOCATION ("warmelt-macro.melt:5349:/ initchunk"); #line 5349 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5349 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1508*/ meltfptr[1507]); /*putclosurout#82 */ melt_assertmsg ("putclosrout#82 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1511*/ meltfptr[1510])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#82 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1511*/ meltfptr[1510])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1508*/ meltfptr[1507]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1511*/ meltfptr[1510]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1512*/ meltfptr[1511])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1512*/ meltfptr[1511])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1512*/ meltfptr[1511]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1513*/ meltfptr[1512]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1512*/ meltfptr[1511]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1515*/ meltfptr[1514]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1514*/ meltfptr[1513]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#2", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5504 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#4", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#5", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[5] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#6", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[6] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5504 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1441__MEXPAND_LAMBDA#8", NULL != ( /*_.VALROUT___V1517*/ meltfptr[1516])); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1517*/ meltfptr[1516]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5504 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V738*/ meltfptr[737]); ((meltroutine_ptr_t) /*_.VALROUT___V1516*/ meltfptr[1515])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]); MELT_LOCATION ("warmelt-macro.melt:5504:/ initchunk"); #line 5504 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5504 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1516*/ meltfptr[1515]); /*putclosurout#83 */ melt_assertmsg ("putclosrout#83 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1518*/ meltfptr[1517])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#83 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1518*/ meltfptr[1517])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1516*/ meltfptr[1515]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1518*/ meltfptr[1517]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1520*/ meltfptr[1519]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1519*/ meltfptr[1518]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#2", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#3", NULL != ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_MAP_OBJECTS__V48*/ meltfptr[47]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#4", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[4] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#5", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:5564:/ initchunk"); #line 5564 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5564 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1522*/ meltfptr[1521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1448__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1522*/ meltfptr[1521])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5564:/ initchunk"); #line 5564 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5564 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1522*/ meltfptr[1521])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1448__LAMBDA_#1", NULL != ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40])); ((meltroutine_ptr_t) /*_.VALROUT___V1522*/ meltfptr[1521])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_REFERENCE__V41*/ meltfptr[40]); MELT_LOCATION ("warmelt-macro.melt:5564:/ initchunk"); #line 5564 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5564 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1522*/ meltfptr[1521]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#6", NULL != ( /*_.VALROUT___V1522*/ meltfptr[1521])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[6] = (melt_ptr_t) ( /*_.VALROUT___V1522*/ meltfptr[1521]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#7", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#8", NULL != ( /*_.VALDATA___V1416*/ meltfptr[1415])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#9", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[9] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#10", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[10] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#11", NULL != ( /*_.VALROUT___V1523*/ meltfptr[1522])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[11] = (melt_ptr_t) ( /*_.VALROUT___V1523*/ meltfptr[1522]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5555 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[12] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#13", NULL != ( /*_.VALDATA___V1291*/ meltfptr[1290])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#14", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[14] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#15", NULL != ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[15] = (melt_ptr_t) ( /*_.CLASS_FORMAL_BINDING__V34*/ meltfptr[33]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#16", NULL != ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[16] = (melt_ptr_t) ( /*_.CLASS_ANY_BINDING__V52*/ meltfptr[51]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5555 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1254*/ meltfptr[1253]); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[17] = (melt_ptr_t) ( /*_.VALCLO___V1254*/ meltfptr[1253]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#18", NULL != ( /*_.CLASS_NAMED__V19*/ meltfptr[18])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[18] = (melt_ptr_t) ( /*_.CLASS_NAMED__V19*/ meltfptr[18]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#19", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[19] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#20", NULL != ( /*_.VALROUT___V1524*/ meltfptr[1523])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[20] = (melt_ptr_t) ( /*_.VALROUT___V1524*/ meltfptr[1523]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5555 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V752*/ meltfptr[751]); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[21] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#22", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[22] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5555 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V752*/ meltfptr[751]); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[23] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:5636:/ initchunk"); #line 5636 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5636 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1525*/ meltfptr[1524])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1451__LAMBDA_#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5636:/ initchunk"); #line 5636 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5636 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1525*/ meltfptr[1524])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V752*/ meltfptr[751]); ((meltroutine_ptr_t) /*_.VALROUT___V1525*/ meltfptr[1524])->tabval[1] = (melt_ptr_t) ( /*_.VALDATA___V752*/ meltfptr[751]); MELT_LOCATION ("warmelt-macro.melt:5636:/ initchunk"); #line 5636 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5636 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1525*/ meltfptr[1524]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5555 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1446__MEXPAND_VARIADIC#24", NULL != ( /*_.VALROUT___V1525*/ meltfptr[1524])); ((meltroutine_ptr_t) /*_.VALROUT___V1521*/ meltfptr[1520])->tabval[24] = (melt_ptr_t) ( /*_.VALROUT___V1525*/ meltfptr[1524]); MELT_LOCATION ("warmelt-macro.melt:5555:/ initchunk"); #line 5555 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5555 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1521*/ meltfptr[1520]); /*putclosurout#84 */ melt_assertmsg ("putclosrout#84 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1526*/ meltfptr[1525])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#84 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1526*/ meltfptr[1525])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1521*/ meltfptr[1520]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1526*/ meltfptr[1525]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1528*/ meltfptr[1527]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1527*/ meltfptr[1526]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#2", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5678 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1108*/ meltfptr[1107]); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1108*/ meltfptr[1107]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#4", NULL != ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_VARIADIC_FORMAL_SEQUENCE__V50*/ meltfptr[49]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5678 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V138*/ meltfptr[137]); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V138*/ meltfptr[137]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5678 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V128*/ meltfptr[127]); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_27 */ void meltmod__warmelt_macro__initialmeltchunk_28 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#7", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[7] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#8", NULL != ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[8] = (melt_ptr_t) ( /*_.MULTIPLE_EVERY__V22*/ meltfptr[21]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#9", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[9] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5711:/ initchunk"); #line 5711 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5711 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1530*/ meltfptr[1529])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1456__LAMBDA_#0", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1530*/ meltfptr[1529])->tabval[0] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:5711:/ initchunk"); #line 5711 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5711 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1530*/ meltfptr[1529]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#10", NULL != ( /*_.VALROUT___V1530*/ meltfptr[1529])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[10] = (melt_ptr_t) ( /*_.VALROUT___V1530*/ meltfptr[1529]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#11", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[11] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#12", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[12] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5678 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1454__MEXPAND_MULTICALL#13", NULL != ( /*_.VALROUT___V1531*/ meltfptr[1530])); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[13] = (melt_ptr_t) ( /*_.VALROUT___V1531*/ meltfptr[1530]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5678 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V770*/ meltfptr[769]); ((meltroutine_ptr_t) /*_.VALROUT___V1529*/ meltfptr[1528])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V770*/ meltfptr[769]); MELT_LOCATION ("warmelt-macro.melt:5678:/ initchunk"); #line 5678 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5678 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1529*/ meltfptr[1528]); /*putclosurout#85 */ melt_assertmsg ("putclosrout#85 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1532*/ meltfptr[1531])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#85 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1532*/ meltfptr[1531])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1529*/ meltfptr[1528]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1532*/ meltfptr[1531]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1534*/ meltfptr[1533]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1533*/ meltfptr[1532]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1460__MEXPAND_QUOTE#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1535*/ meltfptr[1534])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1460__MEXPAND_QUOTE#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1535*/ meltfptr[1534])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1460__MEXPAND_QUOTE#2", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1535*/ meltfptr[1534])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1460__MEXPAND_QUOTE#3", NULL != ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17])); ((meltroutine_ptr_t) /*_.VALROUT___V1535*/ meltfptr[1534])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_KEYWORD__V18*/ meltfptr[17]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V276*/ meltfptr[275]); ((meltroutine_ptr_t) /*_.VALROUT___V1535*/ meltfptr[1534])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V276*/ meltfptr[275]); MELT_LOCATION ("warmelt-macro.melt:5739:/ initchunk"); #line 5739 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5739 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1535*/ meltfptr[1534]); /*putclosurout#86 */ melt_assertmsg ("putclosrout#86 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1536*/ meltfptr[1535])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#86 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1536*/ meltfptr[1535])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1535*/ meltfptr[1534]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1536*/ meltfptr[1535]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1538*/ meltfptr[1537]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1537*/ meltfptr[1536]); MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); #line 5778 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5778 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1539*/ meltfptr[1538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1464__MEXPAND_COMMENT#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); #line 5778 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5778 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1539*/ meltfptr[1538])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1464__MEXPAND_COMMENT#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); #line 5778 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5778 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1539*/ meltfptr[1538])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V246*/ meltfptr[245]); ((meltroutine_ptr_t) /*_.VALROUT___V1539*/ meltfptr[1538])->tabval[2] = (melt_ptr_t) ( /*_.VALDATA___V246*/ meltfptr[245]); MELT_LOCATION ("warmelt-macro.melt:5778:/ initchunk"); #line 5778 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5778 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1539*/ meltfptr[1538]); /*putclosurout#87 */ melt_assertmsg ("putclosrout#87 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1540*/ meltfptr[1539])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#87 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1539*/ meltfptr[1538])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1540*/ meltfptr[1539])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1539*/ meltfptr[1538]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1540*/ meltfptr[1539]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1542*/ meltfptr[1541]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1541*/ meltfptr[1540]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#3", NULL != ( /*_.CLASS_SEXPR_MACROSTRING__V69*/ meltfptr[68])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SEXPR_MACROSTRING__V69*/ meltfptr[68]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#4", NULL != ( /*_.DISCR_STRBUF__V70*/ meltfptr[69])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#5", NULL != ( /*_.CLASS_LOCATED__V14*/ meltfptr[13])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_LOCATED__V14*/ meltfptr[13]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#6", NULL != ( /*_.ADD2OUT__V71*/ meltfptr[70])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[6] = (melt_ptr_t) ( /*_.ADD2OUT__V71*/ meltfptr[70]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5808 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1468__MEXPAND_CHEADER#7", NULL != ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53])); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_VERBATIM_STRING__V54*/ meltfptr[53]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5808 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V256*/ meltfptr[255]); ((meltroutine_ptr_t) /*_.VALROUT___V1543*/ meltfptr[1542])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V256*/ meltfptr[255]); MELT_LOCATION ("warmelt-macro.melt:5808:/ initchunk"); #line 5808 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5808 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1543*/ meltfptr[1542]); /*putclosurout#88 */ melt_assertmsg ("putclosrout#88 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1544*/ meltfptr[1543])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#88 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1544*/ meltfptr[1543])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1543*/ meltfptr[1542]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1544*/ meltfptr[1543]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1545*/ meltfptr[1544])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1545*/ meltfptr[1544])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1545*/ meltfptr[1544]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1546*/ meltfptr[1545]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1545*/ meltfptr[1544]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1547*/ meltfptr[1546])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1547*/ meltfptr[1546])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1547*/ meltfptr[1546]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1548*/ meltfptr[1547]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1547*/ meltfptr[1546]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1549*/ meltfptr[1548])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1549*/ meltfptr[1548])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1549*/ meltfptr[1548]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1550*/ meltfptr[1549]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1549*/ meltfptr[1548]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1552*/ meltfptr[1551]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1551*/ meltfptr[1550]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5857 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1077*/ meltfptr[1076]); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1077*/ meltfptr[1076]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#4", NULL != ( /*_.DISCR_STRBUF__V70*/ meltfptr[69])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_STRBUF__V70*/ meltfptr[69]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#5", NULL != ( /*_.ADD2OUT__V71*/ meltfptr[70])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[5] = (melt_ptr_t) ( /*_.ADD2OUT__V71*/ meltfptr[70]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5857 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1478__MEXPAND_USE_PACKAGE_FROM_PKG_CONFIG#6", NULL != ( /*_.DISCR_STRING__V72*/ meltfptr[71])); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[6] = (melt_ptr_t) ( /*_.DISCR_STRING__V72*/ meltfptr[71]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5857 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V266*/ meltfptr[265]); ((meltroutine_ptr_t) /*_.VALROUT___V1553*/ meltfptr[1552])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V266*/ meltfptr[265]); MELT_LOCATION ("warmelt-macro.melt:5857:/ initchunk"); #line 5857 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5857 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1553*/ meltfptr[1552]); /*putclosurout#89 */ melt_assertmsg ("putclosrout#89 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1554*/ meltfptr[1553])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#89 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1554*/ meltfptr[1553])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1553*/ meltfptr[1552]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1554*/ meltfptr[1553]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1555*/ meltfptr[1554])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1555*/ meltfptr[1554])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1555*/ meltfptr[1554]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1556*/ meltfptr[1555]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1555*/ meltfptr[1554]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1558*/ meltfptr[1557]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1557*/ meltfptr[1556]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1559*/ meltfptr[1558])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1559*/ meltfptr[1558])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1559*/ meltfptr[1558]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1560*/ meltfptr[1559]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1559*/ meltfptr[1558]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5947 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1486__PAIRLIST_TO_RETURN#0", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5947 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1486__PAIRLIST_TO_RETURN#1", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[1] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5947 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1486__PAIRLIST_TO_RETURN#2", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[2] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5947 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1486__PAIRLIST_TO_RETURN#3", NULL != ( /*_.VALROUT___V1562*/ meltfptr[1561])); ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[3] = (melt_ptr_t) ( /*_.VALROUT___V1562*/ meltfptr[1561]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5947 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V226*/ meltfptr[225]); ((meltroutine_ptr_t) /*_.VALROUT___V1561*/ meltfptr[1560])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V226*/ meltfptr[225]); MELT_LOCATION ("warmelt-macro.melt:5947:/ initchunk"); #line 5947 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5947 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1561*/ meltfptr[1560]); /*putclosurout#90 */ melt_assertmsg ("putclosrout#90 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1563*/ meltfptr[1562])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#90 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1563*/ meltfptr[1562])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1561*/ meltfptr[1560]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1563*/ meltfptr[1562]); MELT_LOCATION ("warmelt-macro.melt:5963:/ initchunk"); #line 5963 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5963 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1564*/ meltfptr[1563])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1489__MEXPAND_PROGN#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1564*/ meltfptr[1563])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5963:/ initchunk"); #line 5963 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5963 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1564*/ meltfptr[1563])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1387*/ meltfptr[1386]); ((meltroutine_ptr_t) /*_.VALROUT___V1564*/ meltfptr[1563])->tabval[1] = (melt_ptr_t) ( /*_.VALCLO___V1387*/ meltfptr[1386]); MELT_LOCATION ("warmelt-macro.melt:5963:/ initchunk"); #line 5963 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5963 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1564*/ meltfptr[1563]); /*putclosurout#91 */ melt_assertmsg ("putclosrout#91 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1565*/ meltfptr[1564])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#91 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1564*/ meltfptr[1563])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1565*/ meltfptr[1564])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1564*/ meltfptr[1563]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1565*/ meltfptr[1564]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1567*/ meltfptr[1566]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1566*/ meltfptr[1565]); MELT_LOCATION ("warmelt-macro.melt:5988:/ initchunk"); #line 5988 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5988 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1568*/ meltfptr[1567])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1493__MEXPAND_RETURN#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:5988:/ initchunk"); #line 5988 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 5988 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1568*/ meltfptr[1567])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1493__MEXPAND_RETURN#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:5988:/ initchunk"); #line 5988 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 5988 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1568*/ meltfptr[1567])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1563*/ meltfptr[1562]); ((meltroutine_ptr_t) /*_.VALROUT___V1568*/ meltfptr[1567])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1563*/ meltfptr[1562]); MELT_LOCATION ("warmelt-macro.melt:5988:/ initchunk"); #line 5988 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 5988 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1568*/ meltfptr[1567]); /*putclosurout#92 */ melt_assertmsg ("putclosrout#92 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1569*/ meltfptr[1568])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#92 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1568*/ meltfptr[1567])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1569*/ meltfptr[1568])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1568*/ meltfptr[1567]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1569*/ meltfptr[1568]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1571*/ meltfptr[1570]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1570*/ meltfptr[1569]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#2", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#4", NULL != ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#5", NULL != ( /*_.PUT_ENV__V23*/ meltfptr[22])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[5] = (melt_ptr_t) ( /*_.PUT_ENV__V23*/ meltfptr[22]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#6", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[6] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6011 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1497__MEXPAND_FOREVER#8", NULL != ( /*_.VALROUT___V1573*/ meltfptr[1572])); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1573*/ meltfptr[1572]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6011 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V798*/ meltfptr[797]); ((meltroutine_ptr_t) /*_.VALROUT___V1572*/ meltfptr[1571])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V798*/ meltfptr[797]); MELT_LOCATION ("warmelt-macro.melt:6011:/ initchunk"); #line 6011 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6011 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1572*/ meltfptr[1571]); /*putclosurout#93 */ melt_assertmsg ("putclosrout#93 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1574*/ meltfptr[1573])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#93 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1574*/ meltfptr[1573])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1572*/ meltfptr[1571]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1574*/ meltfptr[1573]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1575*/ meltfptr[1574])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1575*/ meltfptr[1574])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1575*/ meltfptr[1574]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1576*/ meltfptr[1575]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1575*/ meltfptr[1574]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1578*/ meltfptr[1577]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1577*/ meltfptr[1576]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#2", NULL != ( /*_.FRESH_ENV__V21*/ meltfptr[20])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[2] = (melt_ptr_t) ( /*_.FRESH_ENV__V21*/ meltfptr[20]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#4", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[4] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#5", NULL != ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#6", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[6] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#7", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[7] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6054 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1504__MEXPAND_EXIT#8", NULL != ( /*_.VALROUT___V1580*/ meltfptr[1579])); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[8] = (melt_ptr_t) ( /*_.VALROUT___V1580*/ meltfptr[1579]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6054 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V814*/ meltfptr[813]); ((meltroutine_ptr_t) /*_.VALROUT___V1579*/ meltfptr[1578])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V814*/ meltfptr[813]); MELT_LOCATION ("warmelt-macro.melt:6054:/ initchunk"); #line 6054 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6054 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1579*/ meltfptr[1578]); /*putclosurout#94 */ melt_assertmsg ("putclosrout#94 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1581*/ meltfptr[1580])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#94 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1581*/ meltfptr[1580])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1579*/ meltfptr[1578]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1581*/ meltfptr[1580]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1583*/ meltfptr[1582]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1582*/ meltfptr[1581]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6097 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1509__MEXPAND_AGAIN#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6097 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1509__MEXPAND_AGAIN#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6097 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1509__MEXPAND_AGAIN#2", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_28 */ void meltmod__warmelt_macro__initialmeltchunk_29 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6097 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1509__MEXPAND_AGAIN#3", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[3] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6097 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1509__MEXPAND_AGAIN#4", NULL != ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72])); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_LABEL_BINDING__V73*/ meltfptr[72]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6097 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V808*/ meltfptr[807]); ((meltroutine_ptr_t) /*_.VALROUT___V1584*/ meltfptr[1583])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V808*/ meltfptr[807]); MELT_LOCATION ("warmelt-macro.melt:6097:/ initchunk"); #line 6097 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6097 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1584*/ meltfptr[1583]); /*putclosurout#95 */ melt_assertmsg ("putclosrout#95 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1585*/ meltfptr[1584])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#95 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1585*/ meltfptr[1584])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1584*/ meltfptr[1583]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1585*/ meltfptr[1584]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1587*/ meltfptr[1586]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1586*/ meltfptr[1585]); MELT_LOCATION ("warmelt-macro.melt:6141:/ initchunk"); #line 6141 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6141 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1513__MEXPAND_COMPILE_WARNING#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6141:/ initchunk"); #line 6141 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6141 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1513__MEXPAND_COMPILE_WARNING#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6141:/ initchunk"); #line 6141 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6141 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6141:/ initchunk"); #line 6141 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6141 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V824*/ meltfptr[823]); ((meltroutine_ptr_t) /*_.VALROUT___V1588*/ meltfptr[1587])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V824*/ meltfptr[823]); MELT_LOCATION ("warmelt-macro.melt:6141:/ initchunk"); #line 6141 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6141 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1588*/ meltfptr[1587]); /*putclosurout#96 */ melt_assertmsg ("putclosrout#96 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1589*/ meltfptr[1588])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#96 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1589*/ meltfptr[1588])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1588*/ meltfptr[1587]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1589*/ meltfptr[1588]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1591*/ meltfptr[1590]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1590*/ meltfptr[1589]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6184 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1594*/ meltfptr[1593]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1593*/ meltfptr[1592]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#4", NULL != ( /*_.VALDATA___V1593*/ meltfptr[1592])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#5", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[5] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#6", NULL != ( /*_.FIND_ENV_DEBUG__V74*/ meltfptr[73])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[6] = (melt_ptr_t) ( /*_.FIND_ENV_DEBUG__V74*/ meltfptr[73]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#7", NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[7] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#8", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[8] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#9", NULL != ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE__V37*/ meltfptr[36]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6184 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V152*/ meltfptr[151]); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#11", NULL != ( /*_.DISCR_INTEGER__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[11] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6184 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V628*/ meltfptr[627]); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V628*/ meltfptr[627]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6184 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V648*/ meltfptr[647]); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[13] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1596*/ meltfptr[1595]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1595*/ meltfptr[1594]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6184 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1517__MEXPAND_ASSERT_MSG#14", NULL != ( /*_.VALDATA___V1595*/ meltfptr[1594])); ((meltroutine_ptr_t) /*_.VALROUT___V1592*/ meltfptr[1591])->tabval[14] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); MELT_LOCATION ("warmelt-macro.melt:6184:/ initchunk"); #line 6184 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6184 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1592*/ meltfptr[1591]); /*putclosurout#97 */ melt_assertmsg ("putclosrout#97 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1597*/ meltfptr[1596])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#97 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1597*/ meltfptr[1596])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1592*/ meltfptr[1591]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1597*/ meltfptr[1596]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1598*/ meltfptr[1597])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1598*/ meltfptr[1597])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1598*/ meltfptr[1597]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1599*/ meltfptr[1598]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1598*/ meltfptr[1597]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1601*/ meltfptr[1600]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1600*/ meltfptr[1599]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#3", NULL != ( /*_.DISCR_LIST__V46*/ meltfptr[45])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[3] = (melt_ptr_t) ( /*_.DISCR_LIST__V46*/ meltfptr[45]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1604*/ meltfptr[1603]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1603*/ meltfptr[1602]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#4", NULL != ( /*_.VALDATA___V1603*/ meltfptr[1602])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[5] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V128*/ meltfptr[127]); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1606*/ meltfptr[1605]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1605*/ meltfptr[1604]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#7", NULL != ( /*_.VALDATA___V1605*/ meltfptr[1604])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#8", NULL != ( /*_.DISCR_INTEGER__V43*/ meltfptr[42])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[8] = (melt_ptr_t) ( /*_.DISCR_INTEGER__V43*/ meltfptr[42]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6273 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V648*/ meltfptr[647]); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[9] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6273 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1527__MEXPAND_DEBUG_MSG#10", NULL != ( /*_.VALDATA___V1595*/ meltfptr[1594])); ((meltroutine_ptr_t) /*_.VALROUT___V1602*/ meltfptr[1601])->tabval[10] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); MELT_LOCATION ("warmelt-macro.melt:6273:/ initchunk"); #line 6273 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6273 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1602*/ meltfptr[1601]); /*putclosurout#98 */ melt_assertmsg ("putclosrout#98 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1607*/ meltfptr[1606])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#98 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1607*/ meltfptr[1606])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1602*/ meltfptr[1601]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1607*/ meltfptr[1606]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1609*/ meltfptr[1608]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1608*/ meltfptr[1607]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#3", NULL != ( /*_.FIND_ENV__V26*/ meltfptr[25])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[3] = (melt_ptr_t) ( /*_.FIND_ENV__V26*/ meltfptr[25]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#4", NULL != ( /*_.VALDATA___V1088*/ meltfptr[1087])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#5", NULL != ( /*_.VALDATA___V1603*/ meltfptr[1602])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1611*/ meltfptr[1610])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1611*/ meltfptr[1610])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1611*/ meltfptr[1610]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1612*/ meltfptr[1611]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1611*/ meltfptr[1610]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#6", NULL != ( /*_.VALDATA___V1611*/ meltfptr[1610])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V1611*/ meltfptr[1610]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1614*/ meltfptr[1613]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1613*/ meltfptr[1612]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#7", NULL != ( /*_.VALDATA___V1613*/ meltfptr[1612])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[7] = (melt_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1083*/ meltfptr[1082]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[8] = (melt_ptr_t) ( /*_.VALCLO___V1083*/ meltfptr[1082]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#9", NULL != ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[9] = (melt_ptr_t) ( /*_.CLASS_VALUE_BINDING__V36*/ meltfptr[35]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#10", NULL != ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[10] = (melt_ptr_t) ( /*_.CLASS_FUNCTION_BINDING__V55*/ meltfptr[54]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#11", NULL != ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[11] = (melt_ptr_t) ( /*_.CLASS_PRIMITIVE_BINDING__V29*/ meltfptr[28]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V152*/ meltfptr[151]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[12] = (melt_ptr_t) ( /*_.VALDATA___V152*/ meltfptr[151]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#13", NULL != ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[13] = (melt_ptr_t) ( /*_.DISCR_CONSTANT_INTEGER__V44*/ meltfptr[43]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#14", NULL != ( /*_.LIST_APPEND2LIST__V75*/ meltfptr[74])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[14] = (melt_ptr_t) ( /*_.LIST_APPEND2LIST__V75*/ meltfptr[74]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#15", NULL != ( /*_.VALBXINT___V1615*/ meltfptr[1614])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[15] = (melt_ptr_t) ( /*_.VALBXINT___V1615*/ meltfptr[1614]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V128*/ meltfptr[127]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[16] = (melt_ptr_t) ( /*_.VALDATA___V128*/ meltfptr[127]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#17", NULL != ( /*_.VALDATA___V1088*/ meltfptr[1087])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[17] = (melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#18", NULL != ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[18] = (melt_ptr_t) ( /*_.LIST_TO_MULTIPLE__V10*/ meltfptr[9]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#19", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[19] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V614*/ meltfptr[613]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[20] = (melt_ptr_t) ( /*_.VALDATA___V614*/ meltfptr[613]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V216*/ meltfptr[215]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[21] = (melt_ptr_t) ( /*_.VALDATA___V216*/ meltfptr[215]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6346 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V648*/ meltfptr[647]); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[22] = (melt_ptr_t) ( /*_.VALDATA___V648*/ meltfptr[647]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6346 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1535__MEXPAND_DEBUG#23", NULL != ( /*_.VALDATA___V1595*/ meltfptr[1594])); ((meltroutine_ptr_t) /*_.VALROUT___V1610*/ meltfptr[1609])->tabval[23] = (melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594]); MELT_LOCATION ("warmelt-macro.melt:6346:/ initchunk"); #line 6346 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6346 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1610*/ meltfptr[1609]); /*putclosurout#99 */ melt_assertmsg ("putclosrout#99 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1616*/ meltfptr[1615])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#99 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1616*/ meltfptr[1615])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1610*/ meltfptr[1609]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1616*/ meltfptr[1615]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1618*/ meltfptr[1617]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1617*/ meltfptr[1616]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1620*/ meltfptr[1619]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1619*/ meltfptr[1618]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#3", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[3] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#4", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[4] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#5", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[5] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#6", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[6] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); #line 6479 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6479 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1622*/ meltfptr[1621])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1548__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1622*/ meltfptr[1621])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); #line 6479 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6479 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1622*/ meltfptr[1621])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1548__LAMBDA_#1", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1622*/ meltfptr[1621])->tabval[1] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6479:/ initchunk"); #line 6479 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6479 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1622*/ meltfptr[1621]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6467 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1546__MEXPAND_EXPORT_VALUES#7", NULL != ( /*_.VALROUT___V1622*/ meltfptr[1621])); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1622*/ meltfptr[1621]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6467 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V296*/ meltfptr[295]); ((meltroutine_ptr_t) /*_.VALROUT___V1621*/ meltfptr[1620])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V296*/ meltfptr[295]); MELT_LOCATION ("warmelt-macro.melt:6467:/ initchunk"); #line 6467 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6467 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1621*/ meltfptr[1620]); /*putclosurout#100 */ melt_assertmsg ("putclosrout#100 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1623*/ meltfptr[1622])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#100 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1623*/ meltfptr[1622])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1621*/ meltfptr[1620]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1623*/ meltfptr[1622]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1625*/ meltfptr[1624]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1624*/ meltfptr[1623]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6505 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_MACRO#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6505 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_MACRO#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6505 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_MACRO#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6505 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_MACRO#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6505 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1551__MEXPAND_EXPORT_MACRO#4", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6505 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V308*/ meltfptr[307]); ((meltroutine_ptr_t) /*_.VALROUT___V1626*/ meltfptr[1625])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V308*/ meltfptr[307]); MELT_LOCATION ("warmelt-macro.melt:6505:/ initchunk"); #line 6505 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6505 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1626*/ meltfptr[1625]); /*putclosurout#101 */ melt_assertmsg ("putclosrout#101 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1627*/ meltfptr[1626])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#101 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1627*/ meltfptr[1626])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1626*/ meltfptr[1625]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1627*/ meltfptr[1626]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1629*/ meltfptr[1628]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1628*/ meltfptr[1627]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1555__MEXPAND_EXPORT_PATMACRO#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1555__MEXPAND_EXPORT_PATMACRO#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_29 */ void meltmod__warmelt_macro__initialmeltchunk_30 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1555__MEXPAND_EXPORT_PATMACRO#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1555__MEXPAND_EXPORT_PATMACRO#3", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[3] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6549 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1555__MEXPAND_EXPORT_PATMACRO#4", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6549 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V326*/ meltfptr[325]); ((meltroutine_ptr_t) /*_.VALROUT___V1630*/ meltfptr[1629])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V326*/ meltfptr[325]); MELT_LOCATION ("warmelt-macro.melt:6549:/ initchunk"); #line 6549 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6549 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1630*/ meltfptr[1629]); /*putclosurout#102 */ melt_assertmsg ("putclosrout#102 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1631*/ meltfptr[1630])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#102 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1631*/ meltfptr[1630])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1630*/ meltfptr[1629]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1631*/ meltfptr[1630]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1633*/ meltfptr[1632]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1632*/ meltfptr[1631]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6599 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#4", NULL != ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[4] = (melt_ptr_t) ( /*_.PAIRLIST_TO_MULTIPLE__V39*/ meltfptr[38]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#5", NULL != ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[5] = (melt_ptr_t) ( /*_.DISCR_MULTIPLE__V11*/ meltfptr[10]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#6", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[6] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6611:/ initchunk"); #line 6611 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6611 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1635*/ meltfptr[1634])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1561__LAMBDA_#0", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1635*/ meltfptr[1634])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6611:/ initchunk"); #line 6611 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6611 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1635*/ meltfptr[1634]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6599 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1559__MEXPAND_EXPORT_CLASS#7", NULL != ( /*_.VALROUT___V1635*/ meltfptr[1634])); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[7] = (melt_ptr_t) ( /*_.VALROUT___V1635*/ meltfptr[1634]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6599 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V302*/ meltfptr[301]); ((meltroutine_ptr_t) /*_.VALROUT___V1634*/ meltfptr[1633])->tabval[8] = (melt_ptr_t) ( /*_.VALDATA___V302*/ meltfptr[301]); MELT_LOCATION ("warmelt-macro.melt:6599:/ initchunk"); #line 6599 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6599 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1634*/ meltfptr[1633]); /*putclosurout#103 */ melt_assertmsg ("putclosrout#103 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1636*/ meltfptr[1635])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#103 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1636*/ meltfptr[1635])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1634*/ meltfptr[1633]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1636*/ meltfptr[1635]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1638*/ meltfptr[1637]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1637*/ meltfptr[1636]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6631 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_SYNONYM#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6631 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_SYNONYM#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6631 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_SYNONYM#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6631 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6631 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_SYNONYM#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6631 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1564__MEXPAND_EXPORT_SYNONYM#5", NULL != ( /*_.VALDATA___V1264*/ meltfptr[1263])); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6631 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V336*/ meltfptr[335]); ((meltroutine_ptr_t) /*_.VALROUT___V1639*/ meltfptr[1638])->tabval[6] = (melt_ptr_t) ( /*_.VALDATA___V336*/ meltfptr[335]); MELT_LOCATION ("warmelt-macro.melt:6631:/ initchunk"); #line 6631 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6631 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1639*/ meltfptr[1638]); /*putclosurout#104 */ melt_assertmsg ("putclosrout#104 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1640*/ meltfptr[1639])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#104 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1640*/ meltfptr[1639])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1639*/ meltfptr[1638]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1640*/ meltfptr[1639]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1642*/ meltfptr[1641]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1641*/ meltfptr[1640]); MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); #line 6683 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6683 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); #line 6683 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6683 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); #line 6683 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6683 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1568__MEXPAND_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[2] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); #line 6683 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6683 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V838*/ meltfptr[837]); ((meltroutine_ptr_t) /*_.VALROUT___V1643*/ meltfptr[1642])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V838*/ meltfptr[837]); MELT_LOCATION ("warmelt-macro.melt:6683:/ initchunk"); #line 6683 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6683 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1643*/ meltfptr[1642]); /*putclosurout#105 */ melt_assertmsg ("putclosrout#105 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1644*/ meltfptr[1643])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#105 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1644*/ meltfptr[1643])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1643*/ meltfptr[1642]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1644*/ meltfptr[1643]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1646*/ meltfptr[1645]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1645*/ meltfptr[1644]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT#0", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[0] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT#1", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[2] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6710 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1572__MEXPAND_PARENT_MODULE_ENVIRONMENT#3", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[3] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6710 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V848*/ meltfptr[847]); ((meltroutine_ptr_t) /*_.VALROUT___V1647*/ meltfptr[1646])->tabval[4] = (melt_ptr_t) ( /*_.VALDATA___V848*/ meltfptr[847]); MELT_LOCATION ("warmelt-macro.melt:6710:/ initchunk"); #line 6710 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6710 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1647*/ meltfptr[1646]); /*putclosurout#106 */ melt_assertmsg ("putclosrout#106 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1648*/ meltfptr[1647])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#106 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1648*/ meltfptr[1647])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1647*/ meltfptr[1646]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1648*/ meltfptr[1647]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1650*/ meltfptr[1649]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1649*/ meltfptr[1648]); MELT_LOCATION ("warmelt-macro.melt:6739:/ initchunk"); #line 6739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6739:/ initchunk"); #line 6739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6739:/ initchunk"); #line 6739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6739 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1576__MEXPAND_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6739:/ initchunk"); #line 6739 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6739 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V854*/ meltfptr[853]); ((meltroutine_ptr_t) /*_.VALROUT___V1651*/ meltfptr[1650])->tabval[3] = (melt_ptr_t) ( /*_.VALDATA___V854*/ meltfptr[853]); MELT_LOCATION ("warmelt-macro.melt:6739:/ initchunk"); #line 6739 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6739 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1651*/ meltfptr[1650]); /*putclosurout#107 */ melt_assertmsg ("putclosrout#107 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1652*/ meltfptr[1651])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#107 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1652*/ meltfptr[1651])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1651*/ meltfptr[1650]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1652*/ meltfptr[1651]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1654*/ meltfptr[1653]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1653*/ meltfptr[1652]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6769 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1580__MEXPAND_FETCH_PREDEFINED#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6769 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1580__MEXPAND_FETCH_PREDEFINED#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6769 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1580__MEXPAND_FETCH_PREDEFINED#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6769 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6769 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1580__MEXPAND_FETCH_PREDEFINED#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6769 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V864*/ meltfptr[863]); ((meltroutine_ptr_t) /*_.VALROUT___V1655*/ meltfptr[1654])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V864*/ meltfptr[863]); MELT_LOCATION ("warmelt-macro.melt:6769:/ initchunk"); #line 6769 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6769 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1655*/ meltfptr[1654]); /*putclosurout#108 */ melt_assertmsg ("putclosrout#108 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1656*/ meltfptr[1655])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#108 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1656*/ meltfptr[1655])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1655*/ meltfptr[1654]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1656*/ meltfptr[1655]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1658*/ meltfptr[1657]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1657*/ meltfptr[1656]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6798 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1584__MEXPAND_STORE_PREDEFINED#0", NULL != ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11])); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[0] = (melt_ptr_t) ( /*_.MELT_DEBUG_FUN__V12*/ meltfptr[11]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6798 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1584__MEXPAND_STORE_PREDEFINED#1", NULL != ( /*_.CLASS_SEXPR__V15*/ meltfptr[14])); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[1] = (melt_ptr_t) ( /*_.CLASS_SEXPR__V15*/ meltfptr[14]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6798 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1584__MEXPAND_STORE_PREDEFINED#2", NULL != ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8])); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[2] = (melt_ptr_t) ( /*_.CLASS_ENVIRONMENT__V9*/ meltfptr[8]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6798 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1099*/ meltfptr[1098]); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[3] = (melt_ptr_t) ( /*_.VALCLO___V1099*/ meltfptr[1098]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconst */ #line 6798 /*putroutconst */ if (MELT_HAS_INITIAL_ENVIRONMENT) melt_assertmsg ("putroutconst checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); if (MELT_HAS_INITIAL_ENVIRONMENT) melt_checkmsg ("putroutconst constnull.drout_1584__MEXPAND_STORE_PREDEFINED#4", NULL != ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15])); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[4] = (melt_ptr_t) ( /*_.CLASS_SYMBOL__V16*/ meltfptr[15]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^putroutconstnotnull */ #line 6798 /*putroutconstnotnull */ melt_assertmsg ("putroutconstnotnull checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); melt_assertmsg ("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V874*/ meltfptr[873]); ((meltroutine_ptr_t) /*_.VALROUT___V1659*/ meltfptr[1658])->tabval[5] = (melt_ptr_t) ( /*_.VALDATA___V874*/ meltfptr[873]); MELT_LOCATION ("warmelt-macro.melt:6798:/ initchunk"); #line 6798 "warmelt-macro.melt" /**::initchunk::**/ /*^touch */ #line 6798 /*touch:IROUTVAL_ */ meltgc_touch ( /*_.VALROUT___V1659*/ meltfptr[1658]); /*putclosurout#109 */ melt_assertmsg ("putclosrout#109 checkclo", melt_magic_discr ((melt_ptr_t) ( /*_.VALCLO___V1660*/ meltfptr[1659])) == MELTOBMAG_CLOSURE); melt_assertmsg ("putclosrout#109 checkrout", melt_magic_discr ((melt_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658])) == MELTOBMAG_ROUTINE); ((meltclosure_ptr_t) /*_.VALCLO___V1660*/ meltfptr[1659])->rout = (meltroutine_ptr_t) ( /*_.VALROUT___V1659*/ meltfptr[1658]); /*touch:DATACLOSURE_ */ meltgc_touch ( /*_.VALCLO___V1660*/ meltfptr[1659]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1662*/ meltfptr[1661]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1661*/ meltfptr[1660]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1663*/ meltfptr[1662])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1663*/ meltfptr[1662])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1663*/ meltfptr[1662]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1664*/ meltfptr[1663]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1663*/ meltfptr[1662]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1665*/ meltfptr[1664])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1665*/ meltfptr[1664])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1665*/ meltfptr[1664]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1666*/ meltfptr[1665]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1665*/ meltfptr[1664]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1667*/ meltfptr[1666])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1667*/ meltfptr[1666])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1667*/ meltfptr[1666]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1668*/ meltfptr[1667]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1667*/ meltfptr[1666]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1669*/ meltfptr[1668])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1669*/ meltfptr[1668])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1669*/ meltfptr[1668]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1670*/ meltfptr[1669]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1669*/ meltfptr[1668]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1671*/ meltfptr[1670])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1671*/ meltfptr[1670])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1671*/ meltfptr[1670]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1672*/ meltfptr[1671]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1671*/ meltfptr[1670]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1673*/ meltfptr[1672])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1673*/ meltfptr[1672])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1673*/ meltfptr[1672]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1674*/ meltfptr[1673]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1673*/ meltfptr[1672]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1675*/ meltfptr[1674])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1675*/ meltfptr[1674])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1675*/ meltfptr[1674]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1676*/ meltfptr[1675]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1675*/ meltfptr[1674]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1677*/ meltfptr[1676])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1677*/ meltfptr[1676])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1677*/ meltfptr[1676]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1678*/ meltfptr[1677]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1677*/ meltfptr[1676]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1679*/ meltfptr[1678])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1679*/ meltfptr[1678])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1679*/ meltfptr[1678]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1680*/ meltfptr[1679]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1679*/ meltfptr[1678]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1681*/ meltfptr[1680])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1681*/ meltfptr[1680])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1681*/ meltfptr[1680]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1682*/ meltfptr[1681]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1681*/ meltfptr[1680]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1683*/ meltfptr[1682])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1683*/ meltfptr[1682])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1683*/ meltfptr[1682]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1684*/ meltfptr[1683]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1683*/ meltfptr[1682]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1685*/ meltfptr[1684])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1685*/ meltfptr[1684])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1685*/ meltfptr[1684]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1686*/ meltfptr[1685]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1685*/ meltfptr[1684]); /*putslot */ melt_assertmsg ("putslot checkobj", melt_magic_discr ((melt_ptr_t) ( /*_.VALDATA___V1687*/ meltfptr[1686])) == MELTOBMAG_OBJECT); melt_assertmsg ("putslot checkoff", (1 >= 0 && 1 < melt_object_length ((melt_ptr_t) ( /*_.VALDATA___V1687*/ meltfptr[1686])))); ((meltobject_ptr_t) ( /*_.VALDATA___V1687*/ meltfptr[1686]))-> obj_vartab[1] = (melt_ptr_t) ( /*_.VALSTR___V1688*/ meltfptr[1687]); /*touch:VALUEDATA_ */ meltgc_touch ( /*_.VALDATA___V1687*/ meltfptr[1686]); /**COMMENT: before toplevel body **/ ; MELT_LOCATION ("warmelt-macro.melt:3:/ initchunk"); #line 3 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3 /*anyblock */ { /*^cond */ #line 3 /*cond */ if ( #line 3 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1]) /*then */ { /*^cond.then */ #line 3 /*_.OR___V1689*/ meltfptr[1688] = #line 3 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont cur.mod.env.cont : at very start */ /*_.CONTENV___V2*/ meltfptr[1];; } else { MELT_LOCATION ("warmelt-macro.melt:3:/ cond.else"); #line 3 "warmelt-macro.melt" /**::cond.else::**/ /*^block */ #line 3 /*anyblock */ { /*^getslot */ #line 3 { 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__V1690*/ meltfptr[1689] = slot; }; ; /*^checksignal */ #line 3 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3 argtab[0].meltbp_cstring = "warmelt-macro"; /*_.FUN___V1691*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.SYSDATA_CONT_FRESH_ENV__V1690*/ meltfptr[1689]), (melt_ptr_t) ( /*_.PREVENV___V4*/ meltfptr[3]), (MELTBPARSTR_CSTRING ""), argtab, "", (union meltparam_un *) 0); } ; /*_.OR___V1689*/ meltfptr[1688] = /*_.FUN___V1691*/ meltfptr[1690];; /*epilog */ MELT_LOCATION ("warmelt-macro.melt:3:/ clear"); #line 3 "warmelt-macro.melt" /**::clear::**/ /*clear *//*_.SYSDATA_CONT_FRESH_ENV__V1690*/ meltfptr[1689] = 0; /*^clear */ #line 3 /*clear *//*_.FUN___V1691*/ meltfptr[1690] = 0; } ; } ; /*^block */ #line 3 /*com.block:upd.cur.mod.env.cont : at very start */ { } /*com.end block:upd.cur.mod.env.cont : at very start */ ; /*epilog */ /*^clear */ #line 3 /*clear *//*_.OR___V1689*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:742:/ initchunk"); #line 742 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 742 /*anyblock */ { /*^getslot */ #line 742 { 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___V1692*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 742 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 742 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V949*/ meltfptr[948]; /*^apply.arg */ #line 742 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 742 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAT_VAR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1692*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V958*/ meltfptr[957]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 742 /*clear *//*_.VALUEXPORTER___V1692*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:2212:/ initchunk"); #line 2212 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2212 /*anyblock */ { /*^checksignal */ #line 2212 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2212 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2212 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1266*/ meltfptr[1265]; /*_.INSTALL_INITIAL_MACRO__V1693*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2212 /*clear *//*_.INSTALL_INITIAL_MACRO__V1693*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:2213:/ initchunk"); #line 2213 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2213 /*anyblock */ { /*^getslot */ #line 2213 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1694*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 2213 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2213 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1266*/ meltfptr[1265]; /*^apply.arg */ #line 2213 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2213 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFPRIMITIVE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1694*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2213 /*clear *//*_.MACROXPORTER___V1694*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:2366:/ initchunk"); #line 2366 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2366 /*anyblock */ { /*^checksignal */ #line 2366 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2366 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2366 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1270*/ meltfptr[1269]; /*_.INSTALL_INITIAL_MACRO__V1695*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2366 /*clear *//*_.INSTALL_INITIAL_MACRO__V1695*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:2367:/ initchunk"); #line 2367 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2367 /*anyblock */ { /*^getslot */ #line 2367 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1696*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 2367 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2367 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1270*/ meltfptr[1269]; /*^apply.arg */ #line 2367 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2367 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFCITERATOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1696*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2367 /*clear *//*_.MACROXPORTER___V1696*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:2567:/ initchunk"); #line 2567 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2567 /*anyblock */ { /*^checksignal */ #line 2567 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2567 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2567 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1275*/ meltfptr[1274]; /*_.INSTALL_INITIAL_MACRO__V1697*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2567 /*clear *//*_.INSTALL_INITIAL_MACRO__V1697*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:2568:/ initchunk"); #line 2568 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2568 /*anyblock */ { /*^getslot */ #line 2568 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1698*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 2568 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2568 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1275*/ meltfptr[1274]; /*^apply.arg */ #line 2568 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2568 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFCMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1698*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2568 /*clear *//*_.MACROXPORTER___V1698*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:2716:/ initchunk"); #line 2716 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2716 /*anyblock */ { /*^checksignal */ #line 2716 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2716 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2716 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1280*/ meltfptr[1279]; /*_.INSTALL_INITIAL_MACRO__V1699*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2716 /*clear *//*_.INSTALL_INITIAL_MACRO__V1699*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:2717:/ initchunk"); #line 2717 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2717 /*anyblock */ { /*^getslot */ #line 2717 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1700*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 2717 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2717 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1280*/ meltfptr[1279]; /*^apply.arg */ #line 2717 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2717 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFUNMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1700*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2717 /*clear *//*_.MACROXPORTER___V1700*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:2789:/ initchunk"); #line 2789 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2789 /*anyblock */ { /*^checksignal */ #line 2789 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2789 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2789 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1285*/ meltfptr[1284]; /*_.INSTALL_INITIAL_MACRO__V1701*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2789 /*clear *//*_.INSTALL_INITIAL_MACRO__V1701*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:2790:/ initchunk"); #line 2790 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2790 /*anyblock */ { /*^getslot */ #line 2790 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1702*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 2790 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2790 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1285*/ meltfptr[1284]; /*^apply.arg */ #line 2790 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2790 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1702*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2790 /*clear *//*_.MACROXPORTER___V1702*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:2919:/ initchunk"); #line 2919 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2919 /*anyblock */ { /*^checksignal */ #line 2919 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 2919 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2919 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1294*/ meltfptr[1293]; /*_.INSTALL_INITIAL_MACRO__V1703*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2919 /*clear *//*_.INSTALL_INITIAL_MACRO__V1703*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:2920:/ initchunk"); #line 2920 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 2920 /*anyblock */ { /*^getslot */ #line 2920 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1704*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 2920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 2920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1294*/ meltfptr[1293]; /*^apply.arg */ #line 2920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 2920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFINE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1704*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 2920 /*clear *//*_.MACROXPORTER___V1704*/ meltfptr[1689] = 0; } #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_30 */ void meltmod__warmelt_macro__initialmeltchunk_31 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; MELT_LOCATION ("warmelt-macro.melt:3187:/ initchunk"); #line 3187 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3187 /*anyblock */ { /*^checksignal */ #line 3187 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3187 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3187 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1314*/ meltfptr[1313]; /*_.INSTALL_INITIAL_MACRO__V1705*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3187 /*clear *//*_.INSTALL_INITIAL_MACRO__V1705*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3188:/ initchunk"); #line 3188 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3188 /*anyblock */ { /*^getslot */ #line 3188 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1706*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 3188 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3188 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1314*/ meltfptr[1313]; /*^apply.arg */ #line 3188 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3188 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFCLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1706*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3188 /*clear *//*_.MACROXPORTER___V1706*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3398:/ initchunk"); #line 3398 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3398 /*anyblock */ { /*^checksignal */ #line 3398 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3398 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3398 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1331*/ meltfptr[1330]; /*_.INSTALL_INITIAL_MACRO__V1707*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3398 /*clear *//*_.INSTALL_INITIAL_MACRO__V1707*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:3399:/ initchunk"); #line 3399 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3399 /*anyblock */ { /*^getslot */ #line 3399 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1708*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 3399 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3399 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1331*/ meltfptr[1330]; /*^apply.arg */ #line 3399 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3399 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFINSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1708*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3399 /*clear *//*_.MACROXPORTER___V1708*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3547:/ initchunk"); #line 3547 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3547 /*anyblock */ { /*^checksignal */ #line 3547 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3547 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3547 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1339*/ meltfptr[1338]; /*_.INSTALL_INITIAL_MACRO__V1709*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3547 /*clear *//*_.INSTALL_INITIAL_MACRO__V1709*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3548:/ initchunk"); #line 3548 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3548 /*anyblock */ { /*^getslot */ #line 3548 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1710*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 3548 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3548 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1339*/ meltfptr[1338]; /*^apply.arg */ #line 3548 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3548 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEFSELECTOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1710*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3548 /*clear *//*_.MACROXPORTER___V1710*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:3617:/ initchunk"); #line 3617 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3617 /*anyblock */ { /*^checksignal */ #line 3617 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3617 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3617 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1345*/ meltfptr[1344]; /*_.INSTALL_INITIAL_MACRO__V1711*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3617 /*clear *//*_.INSTALL_INITIAL_MACRO__V1711*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3618:/ initchunk"); #line 3618 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3618 /*anyblock */ { /*^getslot */ #line 3618 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1712*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 3618 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3618 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1345*/ meltfptr[1344]; /*^apply.arg */ #line 3618 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3618 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : INSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1712*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3618 /*clear *//*_.MACROXPORTER___V1712*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3659:/ initchunk"); #line 3659 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3659 /*anyblock */ { /*^checksignal */ #line 3659 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3659 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3659 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1349*/ meltfptr[1348]; /*_.INSTALL_INITIAL_MACRO__V1713*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3659 /*clear *//*_.INSTALL_INITIAL_MACRO__V1713*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:3660:/ initchunk"); #line 3660 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3660 /*anyblock */ { /*^getslot */ #line 3660 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1714*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 3660 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3660 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1349*/ meltfptr[1348]; /*^apply.arg */ #line 3660 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3660 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : LOAD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1714*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3660 /*clear *//*_.MACROXPORTER___V1714*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3788:/ initchunk"); #line 3788 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3788 /*anyblock */ { /*^checksignal */ #line 3788 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3788 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3788 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1357*/ meltfptr[1356]; /*^apply.arg */ #line 3788 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1345*/ meltfptr[1344]; /*_.INSTALL_INITIAL_PATMACRO__V1715*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3788 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1715*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3789:/ initchunk"); #line 3789 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3789 /*anyblock */ { /*^getslot */ #line 3789 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1716*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 3789 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3789 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1345*/ meltfptr[1344]; /*^apply.arg */ #line 3789 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1357*/ meltfptr[1356]; /*^apply.arg */ #line 3789 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 3789 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : INSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1716*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3789 /*clear *//*_.PATMACROXPORTER___V1716*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:3893:/ initchunk"); #line 3893 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3893 /*anyblock */ { /*^checksignal */ #line 3893 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3893 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3893 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1360*/ meltfptr[1359]; /*^apply.arg */ #line 3893 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1362*/ meltfptr[1361]; /*_.INSTALL_INITIAL_PATMACRO__V1717*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3893 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1717*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3894:/ initchunk"); #line 3894 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3894 /*anyblock */ { /*^getslot */ #line 3894 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1718*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 3894 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3894 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1362*/ meltfptr[1361]; /*^apply.arg */ #line 3894 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1360*/ meltfptr[1359]; /*^apply.arg */ #line 3894 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 3894 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : OBJECT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1718*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3894 /*clear *//*_.PATMACROXPORTER___V1718*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3949:/ initchunk"); #line 3949 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3949 /*anyblock */ { /*^checksignal */ #line 3949 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3949 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3949 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1366*/ meltfptr[1365]; /*_.INSTALL_INITIAL_MACRO__V1719*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3949 /*clear *//*_.INSTALL_INITIAL_MACRO__V1719*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:3950:/ initchunk"); #line 3950 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3950 /*anyblock */ { /*^getslot */ #line 3950 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1720*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 3950 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3950 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1366*/ meltfptr[1365]; /*^apply.arg */ #line 3950 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3950 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CODE_CHUNK */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1720*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3950 /*clear *//*_.MACROXPORTER___V1720*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:3995:/ initchunk"); #line 3995 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3995 /*anyblock */ { /*^checksignal */ #line 3995 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 3995 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3995 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1370*/ meltfptr[1369]; /*_.INSTALL_INITIAL_MACRO__V1721*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3995 /*clear *//*_.INSTALL_INITIAL_MACRO__V1721*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:3996:/ initchunk"); #line 3996 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 3996 /*anyblock */ { /*^getslot */ #line 3996 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1722*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 3996 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 3996 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1370*/ meltfptr[1369]; /*^apply.arg */ #line 3996 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 3996 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_PUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1722*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 3996 /*clear *//*_.MACROXPORTER___V1722*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4042:/ initchunk"); #line 4042 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4042 /*anyblock */ { /*^checksignal */ #line 4042 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4042 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4042 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1374*/ meltfptr[1373]; /*_.INSTALL_INITIAL_MACRO__V1723*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4042 /*clear *//*_.INSTALL_INITIAL_MACRO__V1723*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4043:/ initchunk"); #line 4043 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4043 /*anyblock */ { /*^getslot */ #line 4043 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1724*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4043 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4043 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1374*/ meltfptr[1373]; /*^apply.arg */ #line 4043 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4043 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1724*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4043 /*clear *//*_.MACROXPORTER___V1724*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4083:/ initchunk"); #line 4083 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4083 /*anyblock */ { /*^checksignal */ #line 4083 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4083 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4083 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1378*/ meltfptr[1377]; /*_.INSTALL_INITIAL_MACRO__V1725*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4083 /*clear *//*_.INSTALL_INITIAL_MACRO__V1725*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4084:/ initchunk"); #line 4084 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4084 /*anyblock */ { /*^getslot */ #line 4084 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1726*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4084 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4084 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1378*/ meltfptr[1377]; /*^apply.arg */ #line 4084 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4084 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : UNSAFE_GET_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1726*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4084 /*clear *//*_.MACROXPORTER___V1726*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4124:/ initchunk"); #line 4124 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4124 /*anyblock */ { /*^checksignal */ #line 4124 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4124 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4124 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1382*/ meltfptr[1381]; /*_.INSTALL_INITIAL_MACRO__V1727*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4124 /*clear *//*_.INSTALL_INITIAL_MACRO__V1727*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4125:/ initchunk"); #line 4125 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4125 /*anyblock */ { /*^getslot */ #line 4125 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1728*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4125 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4125 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1382*/ meltfptr[1381]; /*^apply.arg */ #line 4125 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4125 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : GET_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1728*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4125 /*clear *//*_.MACROXPORTER___V1728*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4176:/ initchunk"); #line 4176 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4176 /*anyblock */ { /*^checksignal */ #line 4176 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4176 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4176 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1389*/ meltfptr[1388]; /*_.INSTALL_INITIAL_MACRO__V1729*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4176 /*clear *//*_.INSTALL_INITIAL_MACRO__V1729*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4177:/ initchunk"); #line 4177 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4177 /*anyblock */ { /*^getslot */ #line 4177 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1730*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4177 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4177 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1389*/ meltfptr[1388]; /*^apply.arg */ #line 4177 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4177 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SETQ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1730*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4177 /*clear *//*_.MACROXPORTER___V1730*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4229:/ initchunk"); #line 4229 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4229 /*anyblock */ { /*^checksignal */ #line 4229 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4229 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4229 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1393*/ meltfptr[1392]; /*_.INSTALL_INITIAL_MACRO__V1731*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4229 /*clear *//*_.INSTALL_INITIAL_MACRO__V1731*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4230:/ initchunk"); #line 4230 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4230 /*anyblock */ { /*^getslot */ #line 4230 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1732*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4230 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4230 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1393*/ meltfptr[1392]; /*^apply.arg */ #line 4230 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4230 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : IF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1732*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4230 /*clear *//*_.MACROXPORTER___V1732*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4265:/ initchunk"); #line 4265 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4265 /*anyblock */ { /*^checksignal */ #line 4265 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4265 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4265 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1397*/ meltfptr[1396]; /*_.INSTALL_INITIAL_MACRO__V1733*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4265 /*clear *//*_.INSTALL_INITIAL_MACRO__V1733*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4266:/ initchunk"); #line 4266 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4266 /*anyblock */ { /*^getslot */ #line 4266 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1734*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4266 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4266 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1397*/ meltfptr[1396]; /*^apply.arg */ #line 4266 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4266 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : WHEN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1734*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4266 /*clear *//*_.MACROXPORTER___V1734*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4302:/ initchunk"); #line 4302 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4302 /*anyblock */ { /*^checksignal */ #line 4302 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4302 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4302 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1401*/ meltfptr[1400]; /*_.INSTALL_INITIAL_MACRO__V1735*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4302 /*clear *//*_.INSTALL_INITIAL_MACRO__V1735*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4303:/ initchunk"); #line 4303 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4303 /*anyblock */ { /*^getslot */ #line 4303 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1736*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4303 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4303 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1401*/ meltfptr[1400]; /*^apply.arg */ #line 4303 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4303 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : UNLESS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1736*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4303 /*clear *//*_.MACROXPORTER___V1736*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4358:/ initchunk"); #line 4358 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4358 /*anyblock */ { /*^checksignal */ #line 4358 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4358 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4358 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1405*/ meltfptr[1404]; /*_.INSTALL_INITIAL_MACRO__V1737*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4358 /*clear *//*_.INSTALL_INITIAL_MACRO__V1737*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4359:/ initchunk"); #line 4359 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4359 /*anyblock */ { /*^getslot */ #line 4359 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1738*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4359 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4359 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1405*/ meltfptr[1404]; /*^apply.arg */ #line 4359 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4359 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CPPIF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1738*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4359 /*clear *//*_.MACROXPORTER___V1738*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4435:/ initchunk"); #line 4435 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4435 /*anyblock */ { /*^checksignal */ #line 4435 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4435 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4435 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1411*/ meltfptr[1410]; /*_.INSTALL_INITIAL_MACRO__V1739*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4435 /*clear *//*_.INSTALL_INITIAL_MACRO__V1739*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4436:/ initchunk"); #line 4436 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4436 /*anyblock */ { /*^getslot */ #line 4436 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1740*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4436 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4436 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1411*/ meltfptr[1410]; /*^apply.arg */ #line 4436 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4436 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : GCCIF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1740*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4436 /*clear *//*_.MACROXPORTER___V1740*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4535:/ initchunk"); #line 4535 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4535 /*anyblock */ { /*^checksignal */ #line 4535 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4535 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4535 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1418*/ meltfptr[1417]; /*_.INSTALL_INITIAL_MACRO__V1741*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4535 /*clear *//*_.INSTALL_INITIAL_MACRO__V1741*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4536:/ initchunk"); #line 4536 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4536 /*anyblock */ { /*^getslot */ #line 4536 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1742*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4536 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4536 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1418*/ meltfptr[1417]; /*^apply.arg */ #line 4536 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4536 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : COND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1742*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4536 /*clear *//*_.MACROXPORTER___V1742*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4638:/ initchunk"); #line 4638 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4638 /*anyblock */ { /*^checksignal */ #line 4638 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4638 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4638 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1425*/ meltfptr[1424]; /*^apply.arg */ #line 4638 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1427*/ meltfptr[1426]; /*_.INSTALL_INITIAL_PATMACRO__V1743*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4638 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1743*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4639:/ initchunk"); #line 4639 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4639 /*anyblock */ { /*^getslot */ #line 4639 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1744*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4639 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4639 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1427*/ meltfptr[1426]; /*^apply.arg */ #line 4639 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1425*/ meltfptr[1424]; /*^apply.arg */ #line 4639 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4639 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : AS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1744*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4639 /*clear *//*_.PATMACROXPORTER___V1744*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4667:/ initchunk"); #line 4667 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4667 /*anyblock */ { /*^checksignal */ #line 4667 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4667 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4667 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1431*/ meltfptr[1430]; /*^apply.arg */ #line 4667 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1397*/ meltfptr[1396]; /*_.INSTALL_INITIAL_PATMACRO__V1745*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4667 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1745*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4668:/ initchunk"); #line 4668 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4668 /*anyblock */ { /*^getslot */ #line 4668 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1746*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4668 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4668 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1397*/ meltfptr[1396]; /*^apply.arg */ #line 4668 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1431*/ meltfptr[1430]; /*^apply.arg */ #line 4668 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4668 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : WHEN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1746*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4668 /*clear *//*_.PATMACROXPORTER___V1746*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4696:/ initchunk"); #line 4696 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4696 /*anyblock */ { /*^checksignal */ #line 4696 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4696 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4696 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1435*/ meltfptr[1434]; /*^apply.arg */ #line 4696 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1423*/ meltfptr[1422]; /*_.INSTALL_INITIAL_PATMACRO__V1747*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4696 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1747*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4697:/ initchunk"); #line 4697 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4697 /*anyblock */ { /*^getslot */ #line 4697 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1748*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4697 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4697 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1423*/ meltfptr[1422]; /*^apply.arg */ #line 4697 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1435*/ meltfptr[1434]; /*^apply.arg */ #line 4697 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4697 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : AND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1748*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4697 /*clear *//*_.PATMACROXPORTER___V1748*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4762:/ initchunk"); #line 4762 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4762 /*anyblock */ { /*^checksignal */ #line 4762 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4762 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4762 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1442*/ meltfptr[1441]; /*^apply.arg */ #line 4762 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1440*/ meltfptr[1439]; /*_.INSTALL_INITIAL_PATMACRO__V1749*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4762 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1749*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4763:/ initchunk"); #line 4763 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4763 /*anyblock */ { /*^getslot */ #line 4763 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1750*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4763 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4763 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1440*/ meltfptr[1439]; /*^apply.arg */ #line 4763 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1442*/ meltfptr[1441]; /*^apply.arg */ #line 4763 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4763 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : OR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1750*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4763 /*clear *//*_.PATMACROXPORTER___V1750*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4844:/ initchunk"); #line 4844 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4844 /*anyblock */ { /*^checksignal */ #line 4844 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4844 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4844 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1451*/ meltfptr[1450]; /*^apply.arg */ #line 4844 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1448*/ meltfptr[1447]; /*_.INSTALL_INITIAL_PATMACRO__V1751*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4844 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1751*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4845:/ initchunk"); #line 4845 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4845 /*anyblock */ { /*^getslot */ #line 4845 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1752*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4845 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4845 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1448*/ meltfptr[1447]; /*^apply.arg */ #line 4845 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1451*/ meltfptr[1450]; /*^apply.arg */ #line 4845 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4845 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : REFERENCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1752*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4845 /*clear *//*_.PATMACROXPORTER___V1752*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4872:/ initchunk"); #line 4872 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4872 /*anyblock */ { /*^checksignal */ #line 4872 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4872 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4872 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1457*/ meltfptr[1456]; /*^apply.arg */ #line 4872 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1455*/ meltfptr[1454]; /*_.INSTALL_INITIAL_PATMACRO__V1753*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4872 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1753*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4873:/ initchunk"); #line 4873 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4873 /*anyblock */ { /*^getslot */ #line 4873 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1754*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4873 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4873 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1455*/ meltfptr[1454]; /*^apply.arg */ #line 4873 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1457*/ meltfptr[1456]; /*^apply.arg */ #line 4873 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 4873 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : CONTAINER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1754*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4873 /*clear *//*_.PATMACROXPORTER___V1754*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4916:/ initchunk"); #line 4916 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4916 /*anyblock */ { /*^checksignal */ #line 4916 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4916 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4916 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1461*/ meltfptr[1460]; /*_.INSTALL_INITIAL_MACRO__V1755*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4916 /*clear *//*_.INSTALL_INITIAL_MACRO__V1755*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4917:/ initchunk"); #line 4917 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4917 /*anyblock */ { /*^getslot */ #line 4917 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1756*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4917 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4917 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1461*/ meltfptr[1460]; /*^apply.arg */ #line 4917 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4917 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEREF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1756*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4917 /*clear *//*_.MACROXPORTER___V1756*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4930:/ initchunk"); #line 4930 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4930 /*anyblock */ { /*^checksignal */ #line 4930 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4930 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4930 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1467*/ meltfptr[1466]; /*_.INSTALL_INITIAL_MACRO__V1757*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4930 /*clear *//*_.INSTALL_INITIAL_MACRO__V1757*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4931:/ initchunk"); #line 4931 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4931 /*anyblock */ { /*^getslot */ #line 4931 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1758*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 4931 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4931 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1467*/ meltfptr[1466]; /*^apply.arg */ #line 4931 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4931 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CONTENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1758*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4931 /*clear *//*_.MACROXPORTER___V1758*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4936:/ initchunk"); #line 4936 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4936 /*anyblock */ { /*^checksignal */ #line 4936 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4936 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4936 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1461*/ meltfptr[1460]; /*_.INSTALL_INITIAL_MACRO__V1759*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4936 /*clear *//*_.INSTALL_INITIAL_MACRO__V1759*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:4937:/ initchunk"); #line 4937 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4937 /*anyblock */ { /*^getslot */ #line 4937 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1760*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 4937 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4937 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1461*/ meltfptr[1460]; /*^apply.arg */ #line 4937 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4937 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXCLAIM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1760*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4937 /*clear *//*_.MACROXPORTER___V1760*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:4989:/ initchunk"); #line 4989 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4989 /*anyblock */ { /*^checksignal */ #line 4989 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 4989 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4989 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1473*/ meltfptr[1472]; /*_.INSTALL_INITIAL_MACRO__V1761*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4989 /*clear *//*_.INSTALL_INITIAL_MACRO__V1761*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:4990:/ initchunk"); #line 4990 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 4990 /*anyblock */ { /*^getslot */ #line 4990 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1762*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 4990 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 4990 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1473*/ meltfptr[1472]; /*^apply.arg */ #line 4990 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 4990 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SET_REF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1762*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 4990 /*clear *//*_.MACROXPORTER___V1762*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5032:/ initchunk"); #line 5032 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5032 /*anyblock */ { /*^checksignal */ #line 5032 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5032 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5032 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1479*/ meltfptr[1478]; /*^apply.arg */ #line 5032 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1477*/ meltfptr[1476]; /*_.INSTALL_INITIAL_PATMACRO__V1763*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5032 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1763*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5033:/ initchunk"); #line 5033 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5033 /*anyblock */ { /*^getslot */ #line 5033 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1764*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5033 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5033 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1477*/ meltfptr[1476]; /*^apply.arg */ #line 5033 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1479*/ meltfptr[1478]; /*^apply.arg */ #line 5033 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 5033 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1764*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5033 /*clear *//*_.PATMACROXPORTER___V1764*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5079:/ initchunk"); #line 5079 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5079 /*anyblock */ { /*^checksignal */ #line 5079 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5079 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5079 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1485*/ meltfptr[1484]; /*^apply.arg */ #line 5079 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1483*/ meltfptr[1482]; /*_.INSTALL_INITIAL_PATMACRO__V1765*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1245*/ meltfptr[1244]), (melt_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5079 /*clear *//*_.INSTALL_INITIAL_PATMACRO__V1765*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5080:/ initchunk"); #line 5080 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5080 /*anyblock */ { /*^getslot */ #line 5080 { 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, 16, "SYSDATA_PATMACRO_EXPORTER"); /*_.PATMACROXPORTER___V1766*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 5080 /*apply */ { union meltparam_un argtab[3]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5080 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1483*/ meltfptr[1482]; /*^apply.arg */ #line 5080 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1485*/ meltfptr[1484]; /*^apply.arg */ #line 5080 argtab[2].meltbp_aptr = (melt_ptr_t *) & #line 5080 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.pat : LIST */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.PATMACROXPORTER___V1766*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485]), (MELTBPARSTR_PTR MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5080 /*clear *//*_.PATMACROXPORTER___V1766*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5175:/ initchunk"); #line 5175 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5175 /*anyblock */ { /*^checksignal */ #line 5175 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5175 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5175 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1490*/ meltfptr[1489]; /*_.INSTALL_INITIAL_MACRO__V1767*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5175 /*clear *//*_.INSTALL_INITIAL_MACRO__V1767*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5176:/ initchunk"); #line 5176 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5176 /*anyblock */ { /*^getslot */ #line 5176 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1768*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 5176 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5176 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1490*/ meltfptr[1489]; /*^apply.arg */ #line 5176 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5176 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MATCH */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1768*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5176 /*clear *//*_.MACROXPORTER___V1768*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5320:/ initchunk"); #line 5320 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5320 /*anyblock */ { /*^checksignal */ #line 5320 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5320 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5320 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1501*/ meltfptr[1500]; /*_.INSTALL_INITIAL_MACRO__V1769*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5320 /*clear *//*_.INSTALL_INITIAL_MACRO__V1769*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5321:/ initchunk"); #line 5321 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5321 /*anyblock */ { /*^getslot */ #line 5321 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1770*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5321 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5321 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1501*/ meltfptr[1500]; /*^apply.arg */ #line 5321 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5321 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : LET */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1770*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5321 /*clear *//*_.MACROXPORTER___V1770*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5339:/ initchunk"); #line 5339 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5339 /*anyblock */ { /*^checksignal */ #line 5339 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5339 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5339 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V84*/ meltfptr[83]; /*^apply.arg */ #line 5339 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1505*/ meltfptr[1504]; /*_.INSTALL_METHOD__V1771*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V67*/ meltfptr[66]), (melt_ptr_t) ( /*_.VALDATA___V738*/ meltfptr[737]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5339 /*clear *//*_.INSTALL_METHOD__V1771*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5340:/ initchunk"); #line 5340 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5340 /*anyblock */ { /*^checksignal */ #line 5340 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5340 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5340 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V84*/ meltfptr[83]; /*^apply.arg */ #line 5340 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1505*/ meltfptr[1504]; /*_.INSTALL_METHOD__V1772*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V67*/ meltfptr[66]), (melt_ptr_t) ( /*_.VALDATA___V556*/ meltfptr[555]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5340 /*clear *//*_.INSTALL_METHOD__V1772*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5341:/ initchunk"); #line 5341 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5341 /*anyblock */ { /*^checksignal */ #line 5341 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5341 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5341 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V84*/ meltfptr[83]; /*^apply.arg */ #line 5341 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1505*/ meltfptr[1504]; /*_.INSTALL_METHOD__V1773*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V67*/ meltfptr[66]), (melt_ptr_t) ( /*_.VALDATA___V204*/ meltfptr[203]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5341 /*clear *//*_.INSTALL_METHOD__V1773*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5342:/ initchunk"); #line 5342 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5342 /*anyblock */ { /*^checksignal */ #line 5342 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5342 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5342 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V84*/ meltfptr[83]; /*^apply.arg */ #line 5342 argtab[1].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1505*/ meltfptr[1504]; /*_.INSTALL_METHOD__V1774*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.INSTALL_METHOD__V67*/ meltfptr[66]), (melt_ptr_t) ( /*_.VALDATA___V210*/ meltfptr[209]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5342 /*clear *//*_.INSTALL_METHOD__V1774*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5493:/ initchunk"); #line 5493 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5493 /*anyblock */ { /*^checksignal */ #line 5493 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5493 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5493 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1511*/ meltfptr[1510]; /*_.INSTALL_INITIAL_MACRO__V1775*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5493 /*clear *//*_.INSTALL_INITIAL_MACRO__V1775*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5494:/ initchunk"); #line 5494 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5494 /*anyblock */ { /*^getslot */ #line 5494 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1776*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5494 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5494 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1511*/ meltfptr[1510]; /*^apply.arg */ #line 5494 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5494 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : LETREC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1776*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5494 /*clear *//*_.MACROXPORTER___V1776*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5536:/ initchunk"); #line 5536 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5536 /*anyblock */ { /*^checksignal */ #line 5536 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5536 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5536 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1518*/ meltfptr[1517]; /*_.INSTALL_INITIAL_MACRO__V1777*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5536 /*clear *//*_.INSTALL_INITIAL_MACRO__V1777*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5537:/ initchunk"); #line 5537 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5537 /*anyblock */ { /*^getslot */ #line 5537 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1778*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 5537 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5537 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1518*/ meltfptr[1517]; /*^apply.arg */ #line 5537 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5537 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1778*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5537 /*clear *//*_.MACROXPORTER___V1778*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5660:/ initchunk"); #line 5660 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5660 /*anyblock */ { /*^checksignal */ #line 5660 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5660 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5660 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1526*/ meltfptr[1525]; /*_.INSTALL_INITIAL_MACRO__V1779*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5660 /*clear *//*_.INSTALL_INITIAL_MACRO__V1779*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5661:/ initchunk"); #line 5661 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5661 /*anyblock */ { /*^getslot */ #line 5661 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1780*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 5661 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5661 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1526*/ meltfptr[1525]; /*^apply.arg */ #line 5661 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5661 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : VARIADIC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1780*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5661 /*clear *//*_.MACROXPORTER___V1780*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5726:/ initchunk"); #line 5726 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5726 /*anyblock */ { /*^checksignal */ #line 5726 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5726 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5726 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1532*/ meltfptr[1531]; /*_.INSTALL_INITIAL_MACRO__V1781*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5726 /*clear *//*_.INSTALL_INITIAL_MACRO__V1781*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5727:/ initchunk"); #line 5727 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5727 /*anyblock */ { /*^getslot */ #line 5727 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1782*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5727 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5727 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1532*/ meltfptr[1531]; /*^apply.arg */ #line 5727 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5727 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MULTICALL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1782*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5727 /*clear *//*_.MACROXPORTER___V1782*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5769:/ initchunk"); #line 5769 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5769 /*anyblock */ { /*^checksignal */ #line 5769 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5769 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5769 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1536*/ meltfptr[1535]; /*_.INSTALL_INITIAL_MACRO__V1783*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5769 /*clear *//*_.INSTALL_INITIAL_MACRO__V1783*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5770:/ initchunk"); #line 5770 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5770 /*anyblock */ { /*^getslot */ #line 5770 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1784*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 5770 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5770 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1536*/ meltfptr[1535]; /*^apply.arg */ #line 5770 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5770 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : QUOTE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1784*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5770 /*clear *//*_.MACROXPORTER___V1784*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5800:/ initchunk"); #line 5800 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5800 /*anyblock */ { /*^checksignal */ #line 5800 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5800 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5800 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1540*/ meltfptr[1539]; /*_.INSTALL_INITIAL_MACRO__V1785*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5800 /*clear *//*_.INSTALL_INITIAL_MACRO__V1785*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5801:/ initchunk"); #line 5801 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5801 /*anyblock */ { /*^getslot */ #line 5801 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1786*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 5801 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5801 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1540*/ meltfptr[1539]; /*^apply.arg */ #line 5801 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5801 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : COMMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1786*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5801 /*clear *//*_.MACROXPORTER___V1786*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5849:/ initchunk"); #line 5849 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5849 /*anyblock */ { /*^checksignal */ #line 5849 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5849 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5849 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1544*/ meltfptr[1543]; /*_.INSTALL_INITIAL_MACRO__V1787*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5849 /*clear *//*_.INSTALL_INITIAL_MACRO__V1787*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5850:/ initchunk"); #line 5850 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5850 /*anyblock */ { /*^getslot */ #line 5850 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1788*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5850 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5850 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1544*/ meltfptr[1543]; /*^apply.arg */ #line 5850 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5850 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CHEADER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1788*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5850 /*clear *//*_.MACROXPORTER___V1788*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5929:/ initchunk"); #line 5929 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5929 /*anyblock */ { /*^checksignal */ #line 5929 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5929 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5929 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1554*/ meltfptr[1553]; /*_.INSTALL_INITIAL_MACRO__V1789*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5929 /*clear *//*_.INSTALL_INITIAL_MACRO__V1789*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5930:/ initchunk"); #line 5930 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5930 /*anyblock */ { /*^getslot */ #line 5930 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1790*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 5930 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5930 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1554*/ meltfptr[1553]; /*^apply.arg */ #line 5930 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5930 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : USE_PACKAGE_FROM_PKG_CONFIG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1790*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5930 /*clear *//*_.MACROXPORTER___V1790*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:5936:/ initchunk"); #line 5936 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5936 /*anyblock */ { /*^getslot */ #line 5936 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1791*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 5936 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5936 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1554*/ meltfptr[1553]; /*^apply.arg */ #line 5936 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5936 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : USE-PACKAGE-FROM-PKG-CONFIG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1791*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1559*/ meltfptr[1558]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5936 /*clear *//*_.MACROXPORTER___V1791*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:5981:/ initchunk"); #line 5981 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5981 /*anyblock */ { /*^checksignal */ #line 5981 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 5981 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5981 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1565*/ meltfptr[1564]; /*_.INSTALL_INITIAL_MACRO__V1792*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5981 /*clear *//*_.INSTALL_INITIAL_MACRO__V1792*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:5982:/ initchunk"); #line 5982 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 5982 /*anyblock */ { /*^getslot */ #line 5982 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1793*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 5982 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 5982 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1565*/ meltfptr[1564]; /*^apply.arg */ #line 5982 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 5982 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PROGN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1793*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 5982 /*clear *//*_.MACROXPORTER___V1793*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6002:/ initchunk"); #line 6002 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6002 /*anyblock */ { /*^checksignal */ #line 6002 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6002 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6002 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1569*/ meltfptr[1568]; /*_.INSTALL_INITIAL_MACRO__V1794*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6002 /*clear *//*_.INSTALL_INITIAL_MACRO__V1794*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6003:/ initchunk"); #line 6003 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6003 /*anyblock */ { /*^getslot */ #line 6003 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1795*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6003 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6003 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1569*/ meltfptr[1568]; /*^apply.arg */ #line 6003 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6003 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : RETURN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1795*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6003 /*clear *//*_.MACROXPORTER___V1795*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6044:/ initchunk"); #line 6044 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6044 /*anyblock */ { /*^checksignal */ #line 6044 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6044 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6044 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1574*/ meltfptr[1573]; /*_.INSTALL_INITIAL_MACRO__V1796*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6044 /*clear *//*_.INSTALL_INITIAL_MACRO__V1796*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6045:/ initchunk"); #line 6045 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6045 /*anyblock */ { /*^getslot */ #line 6045 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1797*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6045 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6045 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1574*/ meltfptr[1573]; /*^apply.arg */ #line 6045 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6045 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : FOREVER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1797*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6045 /*clear *//*_.MACROXPORTER___V1797*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6089:/ initchunk"); #line 6089 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6089 /*anyblock */ { /*^checksignal */ #line 6089 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6089 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6089 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1581*/ meltfptr[1580]; /*_.INSTALL_INITIAL_MACRO__V1798*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6089 /*clear *//*_.INSTALL_INITIAL_MACRO__V1798*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6090:/ initchunk"); #line 6090 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6090 /*anyblock */ { /*^getslot */ #line 6090 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1799*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6090 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6090 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1581*/ meltfptr[1580]; /*^apply.arg */ #line 6090 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6090 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXIT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1799*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6090 /*clear *//*_.MACROXPORTER___V1799*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6132:/ initchunk"); #line 6132 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6132 /*anyblock */ { /*^checksignal */ #line 6132 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6132 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6132 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1585*/ meltfptr[1584]; /*_.INSTALL_INITIAL_MACRO__V1800*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6132 /*clear *//*_.INSTALL_INITIAL_MACRO__V1800*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6133:/ initchunk"); #line 6133 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6133 /*anyblock */ { /*^getslot */ #line 6133 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1801*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6133 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6133 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1585*/ meltfptr[1584]; /*^apply.arg */ #line 6133 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6133 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : AGAIN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1801*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6133 /*clear *//*_.MACROXPORTER___V1801*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6172:/ initchunk"); #line 6172 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6172 /*anyblock */ { /*^checksignal */ #line 6172 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6172 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6172 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1589*/ meltfptr[1588]; /*_.INSTALL_INITIAL_MACRO__V1802*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6172 /*clear *//*_.INSTALL_INITIAL_MACRO__V1802*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6173:/ initchunk"); #line 6173 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6173 /*anyblock */ { /*^getslot */ #line 6173 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1803*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6173 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6173 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1589*/ meltfptr[1588]; /*^apply.arg */ #line 6173 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6173 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_WARNING */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1803*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6173 /*clear *//*_.MACROXPORTER___V1803*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6259:/ initchunk"); #line 6259 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6259 /*anyblock */ { /*^checksignal */ #line 6259 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6259 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6259 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1597*/ meltfptr[1596]; /*_.INSTALL_INITIAL_MACRO__V1804*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6259 /*clear *//*_.INSTALL_INITIAL_MACRO__V1804*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6260:/ initchunk"); #line 6260 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6260 /*anyblock */ { /*^getslot */ #line 6260 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1805*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6260 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6260 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1597*/ meltfptr[1596]; /*^apply.arg */ #line 6260 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6260 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : ASSERT_MSG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1805*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6260 /*clear *//*_.MACROXPORTER___V1805*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6332:/ initchunk"); #line 6332 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6332 /*anyblock */ { /*^checksignal */ #line 6332 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6332 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6332 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1607*/ meltfptr[1606]; /*_.INSTALL_INITIAL_MACRO__V1806*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6332 /*clear *//*_.INSTALL_INITIAL_MACRO__V1806*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6333:/ initchunk"); #line 6333 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6333 /*anyblock */ { /*^getslot */ #line 6333 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1807*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6333 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6333 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1607*/ meltfptr[1606]; /*^apply.arg */ #line 6333 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6333 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEBUG_MSG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1807*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6333 /*clear *//*_.MACROXPORTER___V1807*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6451:/ initchunk"); #line 6451 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6451 /*anyblock */ { /*^checksignal */ #line 6451 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6451 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6451 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1616*/ meltfptr[1615]; /*_.INSTALL_INITIAL_MACRO__V1808*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6451 /*clear *//*_.INSTALL_INITIAL_MACRO__V1808*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6452:/ initchunk"); #line 6452 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6452 /*anyblock */ { /*^getslot */ #line 6452 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1809*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6452 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6452 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1616*/ meltfptr[1615]; /*^apply.arg */ #line 6452 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6452 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : DEBUG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1809*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6452 /*clear *//*_.MACROXPORTER___V1809*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6494:/ initchunk"); #line 6494 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6494 /*anyblock */ { /*^checksignal */ #line 6494 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6494 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6494 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1623*/ meltfptr[1622]; /*_.INSTALL_INITIAL_MACRO__V1810*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6494 /*clear *//*_.INSTALL_INITIAL_MACRO__V1810*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6495:/ initchunk"); #line 6495 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6495 /*anyblock */ { /*^getslot */ #line 6495 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1811*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6495 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6495 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1623*/ meltfptr[1622]; /*^apply.arg */ #line 6495 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6495 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_VALUES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1811*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6495 /*clear *//*_.MACROXPORTER___V1811*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6540:/ initchunk"); #line 6540 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6540 /*anyblock */ { /*^checksignal */ #line 6540 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6540 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6540 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1627*/ meltfptr[1626]; /*_.INSTALL_INITIAL_MACRO__V1812*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6540 /*clear *//*_.INSTALL_INITIAL_MACRO__V1812*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6541:/ initchunk"); #line 6541 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6541 /*anyblock */ { /*^getslot */ #line 6541 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1813*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6541 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6541 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1627*/ meltfptr[1626]; /*^apply.arg */ #line 6541 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6541 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_MACRO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1813*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6541 /*clear *//*_.MACROXPORTER___V1813*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6592:/ initchunk"); #line 6592 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6592 /*anyblock */ { /*^checksignal */ #line 6592 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6592 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6592 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1631*/ meltfptr[1630]; /*_.INSTALL_INITIAL_MACRO__V1814*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6592 /*clear *//*_.INSTALL_INITIAL_MACRO__V1814*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6593:/ initchunk"); #line 6593 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6593 /*anyblock */ { /*^getslot */ #line 6593 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1815*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6593 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6593 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1631*/ meltfptr[1630]; /*^apply.arg */ #line 6593 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6593 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_PATMACRO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1815*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6593 /*clear *//*_.MACROXPORTER___V1815*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6624:/ initchunk"); #line 6624 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6624 /*anyblock */ { /*^checksignal */ #line 6624 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6624 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6624 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1636*/ meltfptr[1635]; /*_.INSTALL_INITIAL_MACRO__V1816*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6624 /*clear *//*_.INSTALL_INITIAL_MACRO__V1816*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6625:/ initchunk"); #line 6625 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6625 /*anyblock */ { /*^getslot */ #line 6625 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1817*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6625 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6625 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1636*/ meltfptr[1635]; /*^apply.arg */ #line 6625 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6625 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_CLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1817*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6625 /*clear *//*_.MACROXPORTER___V1817*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6673:/ initchunk"); #line 6673 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6673 /*anyblock */ { /*^checksignal */ #line 6673 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6673 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6673 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1640*/ meltfptr[1639]; /*_.INSTALL_INITIAL_MACRO__V1818*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6673 /*clear *//*_.INSTALL_INITIAL_MACRO__V1818*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6674:/ initchunk"); #line 6674 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6674 /*anyblock */ { /*^getslot */ #line 6674 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1819*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6674 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6674 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1640*/ meltfptr[1639]; /*^apply.arg */ #line 6674 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6674 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPORT_SYNONYM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1819*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6674 /*clear *//*_.MACROXPORTER___V1819*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6701:/ initchunk"); #line 6701 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6701 /*anyblock */ { /*^checksignal */ #line 6701 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6701 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6701 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1644*/ meltfptr[1643]; /*_.INSTALL_INITIAL_MACRO__V1820*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6701 /*clear *//*_.INSTALL_INITIAL_MACRO__V1820*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6702:/ initchunk"); #line 6702 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6702 /*anyblock */ { /*^getslot */ #line 6702 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1821*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6702 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6702 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1644*/ meltfptr[1643]; /*^apply.arg */ #line 6702 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6702 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1821*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6702 /*clear *//*_.MACROXPORTER___V1821*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6728:/ initchunk"); #line 6728 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6728 /*anyblock */ { /*^checksignal */ #line 6728 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6728 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6728 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1648*/ meltfptr[1647]; /*_.INSTALL_INITIAL_MACRO__V1822*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6728 /*clear *//*_.INSTALL_INITIAL_MACRO__V1822*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6729:/ initchunk"); #line 6729 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6729 /*anyblock */ { /*^getslot */ #line 6729 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1823*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6729 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6729 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1648*/ meltfptr[1647]; /*^apply.arg */ #line 6729 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6729 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PARENT_MODULE_ENVIRONMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1823*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6729 /*clear *//*_.MACROXPORTER___V1823*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6757:/ initchunk"); #line 6757 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6757 /*anyblock */ { /*^checksignal */ #line 6757 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6757 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6757 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1652*/ meltfptr[1651]; /*_.INSTALL_INITIAL_MACRO__V1824*/ meltfptr[1689] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6757 /*clear *//*_.INSTALL_INITIAL_MACRO__V1824*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6758:/ initchunk"); #line 6758 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6758 /*anyblock */ { /*^getslot */ #line 6758 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1825*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6758 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6758 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1652*/ meltfptr[1651]; /*^apply.arg */ #line 6758 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6758 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1825*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6758 /*clear *//*_.MACROXPORTER___V1825*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6793:/ initchunk"); #line 6793 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6793 /*anyblock */ { /*^checksignal */ #line 6793 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6793 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6793 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1656*/ meltfptr[1655]; /*_.INSTALL_INITIAL_MACRO__V1826*/ meltfptr[1688] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6793 /*clear *//*_.INSTALL_INITIAL_MACRO__V1826*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6794:/ initchunk"); #line 6794 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6794 /*anyblock */ { /*^getslot */ #line 6794 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1827*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6794 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6794 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1656*/ meltfptr[1655]; /*^apply.arg */ #line 6794 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6794 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : FETCH_PREDEFINED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1827*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6794 /*clear *//*_.MACROXPORTER___V1827*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6829:/ initchunk"); #line 6829 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6829 /*anyblock */ { /*^checksignal */ #line 6829 MELT_CHECK_SIGNAL (); ; /*^apply */ #line 6829 /*apply */ { union meltparam_un argtab[1]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6829 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1660*/ meltfptr[1659]; /*_.INSTALL_INITIAL_MACRO__V1828*/ meltfptr[1690] = melt_apply ((meltclosure_ptr_t) ( /*_.VALCLO___V1241*/ meltfptr[1240]), (melt_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660]), (MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6829 /*clear *//*_.INSTALL_INITIAL_MACRO__V1828*/ meltfptr[1690] = 0; } MELT_LOCATION ("warmelt-macro.melt:6830:/ initchunk"); #line 6830 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6830 /*anyblock */ { /*^getslot */ #line 6830 { 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, 5, "SYSDATA_MACRO_EXPORTER"); /*_.MACROXPORTER___V1829*/ meltfptr[1688] = slot; }; ; /*^apply */ #line 6830 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6830 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1660*/ meltfptr[1659]; /*^apply.arg */ #line 6830 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6830 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : STORE_PREDEFINED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.MACROXPORTER___V1829*/ meltfptr[1688]), (melt_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6830 /*clear *//*_.MACROXPORTER___V1829*/ meltfptr[1688] = 0; } MELT_LOCATION ("warmelt-macro.melt:6835:/ initchunk"); #line 6835 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6835 /*anyblock */ { /*^getslot */ #line 6835 { 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___V1830*/ meltfptr[1689] = slot; }; ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1168*/ meltfptr[1167]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_PATTERN_EXPANSION_CONTEXT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1171*/ meltfptr[1170]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MEXPANDER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1180*/ meltfptr[1179]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1173*/ meltfptr[1172]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PCTX_PEXPANDER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1182*/ meltfptr[1181]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1175*/ meltfptr[1174]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PCTX_VARMAP */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1184*/ meltfptr[1183]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1177*/ meltfptr[1176]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PCTX_MODCTX */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1186*/ meltfptr[1185]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V808*/ meltfptr[807]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_AGAIN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V806*/ meltfptr[805]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V128*/ meltfptr[127]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_APPLY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V131*/ meltfptr[130]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SAPP_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V118*/ meltfptr[117]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_ARGUMENTED_OPERATOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V121*/ meltfptr[120]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SARGOP_ARGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V162*/ meltfptr[161]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CITERATION */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V160*/ meltfptr[159]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V165*/ meltfptr[164]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITER_OPER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V167*/ meltfptr[166]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITER_VARBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V174*/ meltfptr[173]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V169*/ meltfptr[168]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITER_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V180*/ meltfptr[179]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CMATCHEXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V183*/ meltfptr[182]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCMATX_CMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V888*/ meltfptr[887]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CODECHUNK */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V886*/ meltfptr[885]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V891*/ meltfptr[890]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCH_GENSYM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V896*/ meltfptr[895]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V893*/ meltfptr[892]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCH_CHUNKS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V898*/ meltfptr[897]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V246*/ meltfptr[245]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_COMMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V249*/ meltfptr[248]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCOMM_STR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V252*/ meltfptr[251]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V824*/ meltfptr[823]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_COMPILEWARNING */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V822*/ meltfptr[821]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V827*/ meltfptr[826]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_MSG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V832*/ meltfptr[831]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V829*/ meltfptr[828]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCWARN_EXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V834*/ meltfptr[833]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V648*/ meltfptr[647]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CPPIF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V646*/ meltfptr[645]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V651*/ meltfptr[650]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFP_COND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V658*/ meltfptr[657]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V653*/ meltfptr[652]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFP_THEN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V660*/ meltfptr[659]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V655*/ meltfptr[654]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFP_ELSE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V662*/ meltfptr[661]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V838*/ meltfptr[837]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V836*/ meltfptr[835]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V841*/ meltfptr[840]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CMEC_COMMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V844*/ meltfptr[843]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V256*/ meltfptr[255]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_CHEADER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V254*/ meltfptr[253]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V259*/ meltfptr[258]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCHEADER_CODESTRING */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V262*/ meltfptr[261]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V416*/ meltfptr[415]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCITERATOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V414*/ meltfptr[413]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V419*/ meltfptr[418]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITERDEF_CITERATOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V426*/ meltfptr[425]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V421*/ meltfptr[420]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITERDEF_BEFORELOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V428*/ meltfptr[427]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V423*/ meltfptr[422]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCITERDEF_AFTERLOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V430*/ meltfptr[429]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V492*/ meltfptr[491]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V495*/ meltfptr[494]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_CLABIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V502*/ meltfptr[501]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V497*/ meltfptr[496]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_SUPERBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V499*/ meltfptr[498]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCLASS_FLDBINDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V506*/ meltfptr[505]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V434*/ meltfptr[433]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFCMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V432*/ meltfptr[431]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V437*/ meltfptr[436]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_CMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V439*/ meltfptr[438]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_TESTLOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V441*/ meltfptr[440]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_FILLLOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V450*/ meltfptr[449]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V443*/ meltfptr[442]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCMATDEF_OPERLOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V452*/ meltfptr[451]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V354*/ meltfptr[353]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINITION */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V352*/ meltfptr[351]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V357*/ meltfptr[356]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SDEF_NAME */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V362*/ meltfptr[361]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V359*/ meltfptr[358]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SDEF_DOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V378*/ meltfptr[377]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINITION_FORMAL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V376*/ meltfptr[375]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V381*/ meltfptr[380]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFORMAL_ARGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V384*/ meltfptr[383]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V510*/ meltfptr[509]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V513*/ meltfptr[512]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V522*/ meltfptr[521]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V515*/ meltfptr[514]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SINST_CLABIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V517*/ meltfptr[516]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SINST_OBJNUM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V519*/ meltfptr[518]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SINST_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V528*/ meltfptr[527]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V482*/ meltfptr[481]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFOBJCOMMON */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V480*/ meltfptr[479]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V485*/ meltfptr[484]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SOBJ_PREDEF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V488*/ meltfptr[487]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V398*/ meltfptr[397]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFPRIMITIVE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V396*/ meltfptr[395]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V401*/ meltfptr[400]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_TYPE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V408*/ meltfptr[407]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V403*/ meltfptr[402]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_EXPANSION */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V405*/ meltfptr[404]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_EXPLOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V532*/ meltfptr[531]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFSELECTOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V530*/ meltfptr[529]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V535*/ meltfptr[534]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SDEFSEL_FORMALS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V538*/ meltfptr[537]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V368*/ meltfptr[367]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFINE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V366*/ meltfptr[365]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V371*/ meltfptr[370]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SDEFINE_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V388*/ meltfptr[387]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V391*/ meltfptr[390]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUN_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V394*/ meltfptr[393]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V456*/ meltfptr[455]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_DEFUNMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V454*/ meltfptr[453]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V459*/ meltfptr[458]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_INS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V470*/ meltfptr[469]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V461*/ meltfptr[460]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_OUTS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V472*/ meltfptr[471]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V463*/ meltfptr[462]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_MATCHF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V474*/ meltfptr[473]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V465*/ meltfptr[464]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_APPLYF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V476*/ meltfptr[475]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V467*/ meltfptr[466]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFUMATDEF_DATA */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V478*/ meltfptr[477]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V814*/ meltfptr[813]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXIT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V812*/ meltfptr[811]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V817*/ meltfptr[816]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXI_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V820*/ meltfptr[819]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V302*/ meltfptr[301]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_CLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V300*/ meltfptr[299]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V308*/ meltfptr[307]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_MACRO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V306*/ meltfptr[305]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V311*/ meltfptr[310]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MNAME */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V313*/ meltfptr[312]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_MVAL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V320*/ meltfptr[319]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V315*/ meltfptr[314]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPMAC_DOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V326*/ meltfptr[325]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_PATMACRO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V329*/ meltfptr[328]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPPAT_PVAL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V332*/ meltfptr[331]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V336*/ meltfptr[335]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_SYNONYM */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V334*/ meltfptr[333]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V339*/ meltfptr[338]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_NEWNAME */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V346*/ meltfptr[345]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V341*/ meltfptr[340]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_OLDNAME */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V343*/ meltfptr[342]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPSYN_DOC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V350*/ meltfptr[349]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V296*/ meltfptr[295]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORT_VALUES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V294*/ meltfptr[293]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V286*/ meltfptr[285]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_EXPORTCOMMON */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V284*/ meltfptr[283]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V289*/ meltfptr[288]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SEXPORT_NAMES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V864*/ meltfptr[863]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FETCH_PREDEFINED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V862*/ meltfptr[861]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V867*/ meltfptr[866]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFEPD_PREDEF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V870*/ meltfptr[869]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1020*/ meltfptr[1019]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FIELD_PATTERN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1018*/ meltfptr[1017]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1023*/ meltfptr[1022]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAF_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1028*/ meltfptr[1027]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1025*/ meltfptr[1024]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAF_PATTERN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1030*/ meltfptr[1029]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V542*/ meltfptr[541]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FIELDASSIGN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V540*/ meltfptr[539]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V545*/ meltfptr[544]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFLA_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V550*/ meltfptr[549]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V547*/ meltfptr[546]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFLA_EXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V552*/ meltfptr[551]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V798*/ meltfptr[797]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FOREVER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V796*/ meltfptr[795]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V801*/ meltfptr[800]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFRV_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V804*/ meltfptr[803]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V190*/ meltfptr[189]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_FUNMATCHEXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V193*/ meltfptr[192]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_FMATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V198*/ meltfptr[197]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V195*/ meltfptr[194]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SFMATX_FMATBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V574*/ meltfptr[573]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_GET_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V572*/ meltfptr[571]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V577*/ meltfptr[576]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUGET_OBJ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V582*/ meltfptr[581]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V579*/ meltfptr[578]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUGET_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V90*/ meltfptr[89]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_GENERATOR_DEVICE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V93*/ meltfptr[92]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SRCGEN_DEFIN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V95*/ meltfptr[94]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SRCGEN_REPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V614*/ meltfptr[613]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_IF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V612*/ meltfptr[611]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V617*/ meltfptr[616]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIF_TEST */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V622*/ meltfptr[621]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V619*/ meltfptr[618]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIF_THEN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V624*/ meltfptr[623]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V628*/ meltfptr[627]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_IFELSE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V626*/ meltfptr[625]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V631*/ meltfptr[630]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIF_ELSE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V752*/ meltfptr[751]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_IFVARIADIC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V750*/ meltfptr[749]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V755*/ meltfptr[754]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFVARIADIC_ARGBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V762*/ meltfptr[761]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V757*/ meltfptr[756]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFVARIADIC_THEN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V764*/ meltfptr[763]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V759*/ meltfptr[758]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SIFVARIADIC_ELSE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V556*/ meltfptr[555]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_INSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V554*/ meltfptr[553]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V559*/ meltfptr[558]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V566*/ meltfptr[565]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V561*/ meltfptr[560]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMINS_CLABIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V568*/ meltfptr[567]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V563*/ meltfptr[562]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMINS_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V570*/ meltfptr[569]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V788*/ meltfptr[787]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LABELLED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V786*/ meltfptr[785]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V791*/ meltfptr[790]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLABEL_BIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V794*/ meltfptr[793]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V738*/ meltfptr[737]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LAMBDA */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V736*/ meltfptr[735]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V741*/ meltfptr[740]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLAM_ARGBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V746*/ meltfptr[745]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V743*/ meltfptr[742]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLAM_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V748*/ meltfptr[747]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V104*/ meltfptr[103]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LAZY_MACRO_EXPANSION */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V107*/ meltfptr[106]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLAZYMACRO_FUN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V112*/ meltfptr[111]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V109*/ meltfptr[108]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLAZYMACRO_OPER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V718*/ meltfptr[717]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LET */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V716*/ meltfptr[715]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V721*/ meltfptr[720]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLET_BINDINGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V726*/ meltfptr[725]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V723*/ meltfptr[722]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLET_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V728*/ meltfptr[727]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V694*/ meltfptr[693]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LET_BINDING */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V692*/ meltfptr[691]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V697*/ meltfptr[696]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLETB_TYPE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V704*/ meltfptr[703]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V699*/ meltfptr[698]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLETB_BINDER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V706*/ meltfptr[705]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V701*/ meltfptr[700]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SLETB_EXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V708*/ meltfptr[707]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V732*/ meltfptr[731]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LETREC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V730*/ meltfptr[729]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V712*/ meltfptr[711]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LETREC_BINDING */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V710*/ meltfptr[709]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V210*/ meltfptr[209]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_LIST */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V666*/ meltfptr[665]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MATCH */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V664*/ meltfptr[663]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V669*/ meltfptr[668]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMAT_MATCHEDX */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V674*/ meltfptr[673]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V671*/ meltfptr[670]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMAT_CASES */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V676*/ meltfptr[675]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V680*/ meltfptr[679]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MATCH_CASE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V683*/ meltfptr[682]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCAM_PATT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V688*/ meltfptr[687]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V685*/ meltfptr[684]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SCAM_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V690*/ meltfptr[689]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V138*/ meltfptr[137]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MSEND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V141*/ meltfptr[140]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MSEND_SELSYMB */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V143*/ meltfptr[142]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MSEND_RECV */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V770*/ meltfptr[769]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_MULTICALL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V768*/ meltfptr[767]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V773*/ meltfptr[772]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMULC_RESBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V780*/ meltfptr[779]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V775*/ meltfptr[774]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMULC_CALL */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V782*/ meltfptr[781]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V777*/ meltfptr[776]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SMULC_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V784*/ meltfptr[783]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V638*/ meltfptr[637]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_OR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V636*/ meltfptr[635]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V641*/ meltfptr[640]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SOR_DISJ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V644*/ meltfptr[643]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V848*/ meltfptr[847]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V846*/ meltfptr[845]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V902*/ meltfptr[901]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V900*/ meltfptr[899]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V905*/ meltfptr[904]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PAT_WEIGHT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V908*/ meltfptr[907]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V922*/ meltfptr[921]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_AND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V920*/ meltfptr[919]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V925*/ meltfptr[924]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : ANDPAT_CONJ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V928*/ meltfptr[927]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1062*/ meltfptr[1061]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_C_MATCH */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1060*/ meltfptr[1059]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1034*/ meltfptr[1033]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_COMPOSITE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1032*/ meltfptr[1031]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1037*/ meltfptr[1036]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERATOR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1046*/ meltfptr[1045]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1039*/ meltfptr[1038]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OPERBIND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1048*/ meltfptr[1047]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1041*/ meltfptr[1040]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAC_INARGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1050*/ meltfptr[1049]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1043*/ meltfptr[1042]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAC_OUTARGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1052*/ meltfptr[1051]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V968*/ meltfptr[967]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_CONSTANT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V966*/ meltfptr[965]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V971*/ meltfptr[970]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CONSTX */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V974*/ meltfptr[973]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V978*/ meltfptr[977]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_CONSTRUCT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V976*/ meltfptr[975]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V981*/ meltfptr[980]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CTPAT_SUBPA */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V984*/ meltfptr[983]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1014*/ meltfptr[1013]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_INSTANCE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1012*/ meltfptr[1011]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V962*/ meltfptr[961]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V960*/ meltfptr[959]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V994*/ meltfptr[993]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_LIST */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V992*/ meltfptr[991]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1056*/ meltfptr[1055]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_MATCHER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1054*/ meltfptr[1053]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1000*/ meltfptr[999]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_OBJECT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V998*/ meltfptr[997]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1003*/ meltfptr[1002]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAT_CLASS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1008*/ meltfptr[1007]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V1005*/ meltfptr[1004]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPAT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V1010*/ meltfptr[1009]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V912*/ meltfptr[911]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_OR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V910*/ meltfptr[909]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V915*/ meltfptr[914]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : ORPAT_DISJ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V918*/ meltfptr[917]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V988*/ meltfptr[987]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V986*/ meltfptr[985]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V946*/ meltfptr[945]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PATTERN_VARIABLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V944*/ meltfptr[943]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V949*/ meltfptr[948]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPATVAR_SYMB */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V954*/ meltfptr[953]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V951*/ meltfptr[950]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPATVAR_NBOCC */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V956*/ meltfptr[955]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V152*/ meltfptr[151]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PRIMITIVE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V155*/ meltfptr[154]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPRIM_OPER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V216*/ meltfptr[215]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PROGN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V219*/ meltfptr[218]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SPROGN_BODY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V594*/ meltfptr[593]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_PUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V597*/ meltfptr[596]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_OBJ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V602*/ meltfptr[601]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V599*/ meltfptr[598]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUPUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V604*/ meltfptr[603]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V276*/ meltfptr[275]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_QUOTE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V274*/ meltfptr[273]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V279*/ meltfptr[278]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SQUOTED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V282*/ meltfptr[281]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V226*/ meltfptr[225]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_RETURN */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V232*/ meltfptr[231]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_SETQ */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V235*/ meltfptr[234]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_VAR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V237*/ meltfptr[236]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SSTQ_EXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V874*/ meltfptr[873]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_STORE_PREDEFINED */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V872*/ meltfptr[871]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V877*/ meltfptr[876]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_PREDEF */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V882*/ meltfptr[881]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V879*/ meltfptr[878]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SSTPD_VALUE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V884*/ meltfptr[883]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V204*/ meltfptr[203]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V588*/ meltfptr[587]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_GET_FIELD */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V586*/ meltfptr[585]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V608*/ meltfptr[607]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UNSAFE_PUT_FIELDS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V606*/ meltfptr[605]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V854*/ meltfptr[853]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V852*/ meltfptr[851]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V857*/ meltfptr[856]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUCME_COMMENT */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V860*/ meltfptr[859]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V266*/ meltfptr[265]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V264*/ meltfptr[263]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6835 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6835 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V269*/ meltfptr[268]; /*^apply.arg */ #line 6835 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6835 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : SUSEPACKAGE_PKGTUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1830*/ meltfptr[1689]), (melt_ptr_t) ( /*_.VALDATA___V272*/ meltfptr[271]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6835 /*clear *//*_.VALUEXPORTER___V1830*/ meltfptr[1689] = 0; } MELT_LOCATION ("warmelt-macro.melt:6920:/ initchunk"); #line 6920 "warmelt-macro.melt" /**::initchunk::**/ /*^block */ #line 6920 /*anyblock */ { /*^getslot */ #line 6920 { 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___V1831*/ meltfptr[1690] = slot; }; ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1095*/ meltfptr[1094]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_APPLY */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1663*/ meltfptr[1662]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1103*/ meltfptr[1102]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_MSEND */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1665*/ meltfptr[1664]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1085*/ meltfptr[1084]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PAIRLIST_AS_TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1667*/ meltfptr[1666]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1104*/ meltfptr[1103]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : EXPAND_PRIMITIVE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1669*/ meltfptr[1668]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1241*/ meltfptr[1240]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_INITIAL_MACRO */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1671*/ meltfptr[1670]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALDATA___V84*/ meltfptr[83]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : IS_RECURSIVELY_CONSTRUCTIBLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1108*/ meltfptr[1107]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : LAMBDA_ARG_BINDINGS */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1673*/ meltfptr[1672]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1099*/ meltfptr[1098]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_1 */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1675*/ meltfptr[1674]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1225*/ meltfptr[1224]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : MACROEXPAND_TOPLEVEL_LIST */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1677*/ meltfptr[1676]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1189*/ meltfptr[1188]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_1 */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1679*/ meltfptr[1678]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1198*/ meltfptr[1197]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_EXPR */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1681*/ meltfptr[1680]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1209*/ meltfptr[1208]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PATTERNEXPAND_PAIRLIST_AS_TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1683*/ meltfptr[1682]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1204*/ meltfptr[1203]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : PATTERN_WEIGHT_TUPLE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1685*/ meltfptr[1684]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*^apply */ #line 6920 /*apply */ { union meltparam_un argtab[2]; memset (&argtab, 0, sizeof (argtab)); /*^apply.arg */ #line 6920 argtab[0].meltbp_aptr = (melt_ptr_t *) & /*_.VALCLO___V1087*/ meltfptr[1086]; /*^apply.arg */ #line 6920 argtab[1].meltbp_aptr = (melt_ptr_t *) & #line 6920 "warmelt-macro.melt" /**::expr::**/ /*quasi.cur.mod.env.cont norm.exp.val : REGISTER_GENERATOR_DEVICE */ /*_.CONTENV___V2*/ meltfptr[1]; melt_apply ((meltclosure_ptr_t) ( /*_.VALUEXPORTER___V1831*/ meltfptr[1690]), (melt_ptr_t) ( /*_.VALDATA___V1687*/ meltfptr[1686]), (MELTBPARSTR_PTR MELTBPARSTR_PTR ""), argtab, "", (union meltparam_un *) 0); } ; /*epilog */ /*^clear */ #line 6920 /*clear *//*_.VALUEXPORTER___V1831*/ meltfptr[1690] = 0; } /**COMMENT: after toplevel body **/ ; #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_31 */ void meltmod__warmelt_macro__initialmeltchunk_32 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /**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:IS_RECURSIVELY_CONSTRUCTIBLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V76*/ meltfptr[75])); /*internsym:CLASS_SELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V78*/ meltfptr[77])); /*internsym:RECV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V80*/ meltfptr[79])); /*internsym:CLASS_SOURCE_GENERATOR_DEVICE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V86*/ meltfptr[85])); /*internsym:CLASS_SOURCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V88*/ meltfptr[87])); /*internsym:SRCGEN_DEFIN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V98*/ meltfptr[97])); /*internsym:SRCGEN_REPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V100*/ meltfptr[99])); /*internsym:CLASS_SOURCE_LAZY_MACRO_EXPANSION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V102*/ meltfptr[101])); /*internsym:SLAZYMACRO_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V112*/ meltfptr[111])); /*internsym:SLAZYMACRO_OPER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V114*/ meltfptr[113])); /*internsym:CLASS_SOURCE_ARGUMENTED_OPERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V116*/ meltfptr[115])); /*internsym:SARGOP_ARGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V124*/ meltfptr[123])); /*internsym:CLASS_SOURCE_APPLY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V126*/ meltfptr[125])); /*internsym:SAPP_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V134*/ meltfptr[133])); /*internsym:CLASS_SOURCE_MSEND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V136*/ meltfptr[135])); /*internsym:MSEND_SELSYMB */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V146*/ meltfptr[145])); /*internsym:MSEND_RECV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V148*/ meltfptr[147])); /*internsym:CLASS_SOURCE_PRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V150*/ meltfptr[149])); /*internsym:SPRIM_OPER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V158*/ meltfptr[157])); /*internsym:CLASS_SOURCE_CITERATION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V160*/ meltfptr[159])); /*internsym:SCITER_OPER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V172*/ meltfptr[171])); /*internsym:SCITER_VARBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V174*/ meltfptr[173])); /*internsym:SCITER_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V176*/ meltfptr[175])); /*internsym:CLASS_SOURCE_CMATCHEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V178*/ meltfptr[177])); /*internsym:SCMATX_CMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V186*/ meltfptr[185])); /*internsym:CLASS_SOURCE_FUNMATCHEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V188*/ meltfptr[187])); /*internsym:SFMATX_FMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V198*/ meltfptr[197])); /*internsym:SFMATX_FMATBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V200*/ meltfptr[199])); /*internsym:CLASS_SOURCE_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V202*/ meltfptr[201])); /*internsym:CLASS_SOURCE_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V208*/ meltfptr[207])); /*internsym:CLASS_SOURCE_PROGN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V214*/ meltfptr[213])); /*internsym:SPROGN_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V222*/ meltfptr[221])); /*internsym:CLASS_SOURCE_RETURN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V224*/ meltfptr[223])); /*internsym:CLASS_SOURCE_SETQ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V230*/ meltfptr[229])); /*internsym:SSTQ_VAR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V240*/ meltfptr[239])); /*internsym:SSTQ_EXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V242*/ meltfptr[241])); /*internsym:CLASS_SOURCE_COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V244*/ meltfptr[243])); /*internsym:SCOMM_STR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V252*/ meltfptr[251])); /*internsym:CLASS_SOURCE_CHEADER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V254*/ meltfptr[253])); /*internsym:SCHEADER_CODESTRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V262*/ meltfptr[261])); /*internsym:CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V264*/ meltfptr[263])); /*internsym:SUSEPACKAGE_PKGTUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V272*/ meltfptr[271])); /*internsym:CLASS_SOURCE_QUOTE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V274*/ meltfptr[273])); /*internsym:SQUOTED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V282*/ meltfptr[281])); /*internsym:CLASS_SOURCE_EXPORTCOMMON */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V284*/ meltfptr[283])); /*internsym:SEXPORT_NAMES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V292*/ meltfptr[291])); /*internsym:CLASS_SOURCE_EXPORT_VALUES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V294*/ meltfptr[293])); /*internsym:CLASS_SOURCE_EXPORT_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V300*/ meltfptr[299])); /*internsym:CLASS_SOURCE_EXPORT_MACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V306*/ meltfptr[305])); /*internsym:SEXPMAC_MNAME */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V318*/ meltfptr[317])); /*internsym:SEXPMAC_MVAL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V320*/ meltfptr[319])); /*internsym:SEXPMAC_DOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V322*/ meltfptr[321])); /*internsym:CLASS_SOURCE_EXPORT_PATMACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V324*/ meltfptr[323])); /*internsym:SEXPPAT_PVAL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V332*/ meltfptr[331])); /*internsym:CLASS_SOURCE_EXPORT_SYNONYM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V334*/ meltfptr[333])); /*internsym:SEXPSYN_NEWNAME */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V346*/ meltfptr[345])); /*internsym:SEXPSYN_OLDNAME */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V348*/ meltfptr[347])); /*internsym:SEXPSYN_DOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V350*/ meltfptr[349])); /*internsym:CLASS_SOURCE_DEFINITION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V352*/ meltfptr[351])); /*internsym:SDEF_NAME */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V362*/ meltfptr[361])); /*internsym:SDEF_DOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V364*/ meltfptr[363])); /*internsym:CLASS_SOURCE_DEFINE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V366*/ meltfptr[365])); /*internsym:SDEFINE_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V374*/ meltfptr[373])); /*internsym:CLASS_SOURCE_DEFINITION_FORMAL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V376*/ meltfptr[375])); /*internsym:SFORMAL_ARGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V384*/ meltfptr[383])); /*internsym:CLASS_SOURCE_DEFUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V386*/ meltfptr[385])); /*internsym:SFUN_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V394*/ meltfptr[393])); /*internsym:CLASS_SOURCE_DEFPRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V396*/ meltfptr[395])); /*internsym:SPRIM_TYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V408*/ meltfptr[407])); /*internsym:SPRIM_EXPANSION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V410*/ meltfptr[409])); /*internsym:SPRIM_EXPLOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V412*/ meltfptr[411])); /*internsym:CLASS_SOURCE_DEFCITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V414*/ meltfptr[413])); /*internsym:SCITERDEF_CITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V426*/ meltfptr[425])); /*internsym:SCITERDEF_BEFORELOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V428*/ meltfptr[427])); /*internsym:SCITERDEF_AFTERLOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V430*/ meltfptr[429])); /*internsym:CLASS_SOURCE_DEFCMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V432*/ meltfptr[431])); /*internsym:SCMATDEF_CMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V446*/ meltfptr[445])); /*internsym:SCMATDEF_TESTLOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V448*/ meltfptr[447])); /*internsym:SCMATDEF_FILLLOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V450*/ meltfptr[449])); /*internsym:SCMATDEF_OPERLOC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V452*/ meltfptr[451])); /*internsym:CLASS_SOURCE_DEFUNMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V454*/ meltfptr[453])); /*internsym:SFUMATDEF_INS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V470*/ meltfptr[469])); /*internsym:SFUMATDEF_OUTS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V472*/ meltfptr[471])); /*internsym:SFUMATDEF_MATCHF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V474*/ meltfptr[473])); /*internsym:SFUMATDEF_APPLYF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V476*/ meltfptr[475])); /*internsym:SFUMATDEF_DATA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V478*/ meltfptr[477])); /*internsym:CLASS_SOURCE_DEFOBJCOMMON */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V480*/ meltfptr[479])); /*internsym:SOBJ_PREDEF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V488*/ meltfptr[487])); /*internsym:CLASS_SOURCE_DEFCLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V490*/ meltfptr[489])); /*internsym:SCLASS_CLABIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V502*/ meltfptr[501])); /*internsym:SCLASS_SUPERBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V504*/ meltfptr[503])); /*internsym:SCLASS_FLDBINDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V506*/ meltfptr[505])); /*internsym:CLASS_SOURCE_DEFINSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V508*/ meltfptr[507])); /*internsym:SINST_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V522*/ meltfptr[521])); /*internsym:SINST_CLABIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V524*/ meltfptr[523])); /*internsym:SINST_OBJNUM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V526*/ meltfptr[525])); /*internsym:SINST_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V528*/ meltfptr[527])); /*internsym:CLASS_SOURCE_DEFSELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V530*/ meltfptr[529])); /*internsym:SDEFSEL_FORMALS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V538*/ meltfptr[537])); /*internsym:CLASS_SOURCE_FIELDASSIGN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V540*/ meltfptr[539])); /*internsym:SFLA_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V550*/ meltfptr[549])); /*internsym:SFLA_EXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V552*/ meltfptr[551])); /*internsym:CLASS_SOURCE_INSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V554*/ meltfptr[553])); /*internsym:SMINS_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V566*/ meltfptr[565])); /*internsym:SMINS_CLABIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V568*/ meltfptr[567])); /*internsym:SMINS_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V570*/ meltfptr[569])); /*internsym:CLASS_SOURCE_GET_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V572*/ meltfptr[571])); /*internsym:SUGET_OBJ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V582*/ meltfptr[581])); /*internsym:SUGET_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V584*/ meltfptr[583])); /*internsym:CLASS_SOURCE_UNSAFE_GET_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V586*/ meltfptr[585])); /*internsym:CLASS_SOURCE_PUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V592*/ meltfptr[591])); /*internsym:SUPUT_OBJ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V602*/ meltfptr[601])); /*internsym:SUPUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V604*/ meltfptr[603])); /*internsym:CLASS_SOURCE_UNSAFE_PUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V606*/ meltfptr[605])); /*internsym:CLASS_SOURCE_IF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V612*/ meltfptr[611])); /*internsym:SIF_TEST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V622*/ meltfptr[621])); /*internsym:SIF_THEN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V624*/ meltfptr[623])); /*internsym:CLASS_SOURCE_IFELSE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V626*/ meltfptr[625])); /*internsym:SIF_ELSE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V634*/ meltfptr[633])); /*internsym:CLASS_SOURCE_OR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V636*/ meltfptr[635])); /*internsym:SOR_DISJ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V644*/ meltfptr[643])); /*internsym:CLASS_SOURCE_CPPIF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V646*/ meltfptr[645])); /*internsym:SIFP_COND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V658*/ meltfptr[657])); /*internsym:SIFP_THEN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V660*/ meltfptr[659])); /*internsym:SIFP_ELSE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V662*/ meltfptr[661])); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_32 */ void meltmod__warmelt_macro__initialmeltchunk_33 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:CLASS_SOURCE_MATCH*/ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V664*/ meltfptr[663])); /*internsym:SMAT_MATCHEDX */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V674*/ meltfptr[673])); /*internsym:SMAT_CASES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V676*/ meltfptr[675])); /*internsym:CLASS_SOURCE_MATCH_CASE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V678*/ meltfptr[677])); /*internsym:SCAM_PATT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V688*/ meltfptr[687])); /*internsym:SCAM_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V690*/ meltfptr[689])); /*internsym:CLASS_SOURCE_LET_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V692*/ meltfptr[691])); /*internsym:SLETB_TYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V704*/ meltfptr[703])); /*internsym:SLETB_BINDER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V706*/ meltfptr[705])); /*internsym:SLETB_EXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V708*/ meltfptr[707])); /*internsym:CLASS_SOURCE_LETREC_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V710*/ meltfptr[709])); /*internsym:CLASS_SOURCE_LET */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V716*/ meltfptr[715])); /*internsym:SLET_BINDINGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V726*/ meltfptr[725])); /*internsym:SLET_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V728*/ meltfptr[727])); /*internsym:CLASS_SOURCE_LETREC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V730*/ meltfptr[729])); /*internsym:CLASS_SOURCE_LAMBDA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V736*/ meltfptr[735])); /*internsym:SLAM_ARGBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V746*/ meltfptr[745])); /*internsym:SLAM_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V748*/ meltfptr[747])); /*internsym:CLASS_SOURCE_IFVARIADIC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V750*/ meltfptr[749])); /*internsym:SIFVARIADIC_ARGBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V762*/ meltfptr[761])); /*internsym:SIFVARIADIC_THEN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V764*/ meltfptr[763])); /*internsym:SIFVARIADIC_ELSE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V766*/ meltfptr[765])); /*internsym:CLASS_SOURCE_MULTICALL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V768*/ meltfptr[767])); /*internsym:SMULC_RESBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V780*/ meltfptr[779])); /*internsym:SMULC_CALL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V782*/ meltfptr[781])); /*internsym:SMULC_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V784*/ meltfptr[783])); /*internsym:CLASS_SOURCE_LABELLED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V786*/ meltfptr[785])); /*internsym:SLABEL_BIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V794*/ meltfptr[793])); /*internsym:CLASS_SOURCE_FOREVER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V796*/ meltfptr[795])); /*internsym:SFRV_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V804*/ meltfptr[803])); /*internsym:CLASS_SOURCE_AGAIN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V806*/ meltfptr[805])); /*internsym:CLASS_SOURCE_EXIT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V812*/ meltfptr[811])); /*internsym:SEXI_BODY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V820*/ meltfptr[819])); /*internsym:CLASS_SOURCE_COMPILEWARNING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V822*/ meltfptr[821])); /*internsym:SCWARN_MSG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V832*/ meltfptr[831])); /*internsym:SCWARN_EXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V834*/ meltfptr[833])); /*internsym:CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V836*/ meltfptr[835])); /*internsym:CMEC_COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V844*/ meltfptr[843])); /*internsym:CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V846*/ meltfptr[845])); /*internsym:CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V852*/ meltfptr[851])); /*internsym:SUCME_COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V860*/ meltfptr[859])); /*internsym:CLASS_SOURCE_FETCH_PREDEFINED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V862*/ meltfptr[861])); /*internsym:SFEPD_PREDEF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V870*/ meltfptr[869])); /*internsym:CLASS_SOURCE_STORE_PREDEFINED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V872*/ meltfptr[871])); /*internsym:SSTPD_PREDEF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V882*/ meltfptr[881])); /*internsym:SSTPD_VALUE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V884*/ meltfptr[883])); /*internsym:CLASS_SOURCE_CODECHUNK */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V886*/ meltfptr[885])); /*internsym:SCH_GENSYM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V896*/ meltfptr[895])); /*internsym:SCH_CHUNKS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V898*/ meltfptr[897])); /*internsym:CLASS_SOURCE_PATTERN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V900*/ meltfptr[899])); /*internsym:PAT_WEIGHT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V908*/ meltfptr[907])); /*internsym:CLASS_SOURCE_PATTERN_OR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V910*/ meltfptr[909])); /*internsym:ORPAT_DISJ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V918*/ meltfptr[917])); /*internsym:CLASS_SOURCE_PATTERN_AND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V920*/ meltfptr[919])); /*internsym:ANDPAT_CONJ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V928*/ meltfptr[927])); /*internsym:CLASS_SOURCE_PATTERN_WHEN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V930*/ meltfptr[929])); /*internsym:WHENPAT_SUBPAT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V940*/ meltfptr[939])); /*internsym:WHENPAT_COND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V942*/ meltfptr[941])); /*internsym:CLASS_SOURCE_PATTERN_VARIABLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V944*/ meltfptr[943])); /*internsym:SPATVAR_SYMB */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V954*/ meltfptr[953])); /*internsym:SPATVAR_NBOCC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V956*/ meltfptr[955])); /*internsym:SPAT_VAR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V958*/ meltfptr[957])); /*internsym:CLASS_SOURCE_PATTERN_JOKER_VARIABLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V960*/ meltfptr[959])); /*internsym:CLASS_SOURCE_PATTERN_CONSTANT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V966*/ meltfptr[965])); /*internsym:SPAT_CONSTX */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V974*/ meltfptr[973])); /*internsym:CLASS_SOURCE_PATTERN_CONSTRUCT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V976*/ meltfptr[975])); /*internsym:CTPAT_SUBPA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V984*/ meltfptr[983])); /*internsym:CLASS_SOURCE_PATTERN_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V986*/ meltfptr[985])); /*internsym:CLASS_SOURCE_PATTERN_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V992*/ meltfptr[991])); /*internsym:CLASS_SOURCE_PATTERN_OBJECT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V998*/ meltfptr[997])); /*internsym:SPAT_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1008*/ meltfptr[1007])); /*internsym:SPAT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1010*/ meltfptr[1009])); /*internsym:CLASS_SOURCE_PATTERN_INSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1012*/ meltfptr[1011])); /*internsym:CLASS_SOURCE_FIELD_PATTERN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1018*/ meltfptr[1017])); /*internsym:SPAF_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1028*/ meltfptr[1027])); /*internsym:SPAF_PATTERN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1030*/ meltfptr[1029])); /*internsym:CLASS_SOURCE_PATTERN_COMPOSITE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1032*/ meltfptr[1031])); /*internsym:SPAC_OPERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1046*/ meltfptr[1045])); /*internsym:SPAC_OPERBIND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1048*/ meltfptr[1047])); /*internsym:SPAC_INARGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1050*/ meltfptr[1049])); /*internsym:SPAC_OUTARGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1052*/ meltfptr[1051])); /*internsym:CLASS_SOURCE_PATTERN_MATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1054*/ meltfptr[1053])); /*internsym:CLASS_SOURCE_PATTERN_C_MATCH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1060*/ meltfptr[1059])); /*internsym:CLASS_SOURCE_PATTERN_FUN_MATCH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1066*/ meltfptr[1065])); /*internsym:CLASS_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1074*/ meltfptr[1073])); /*internsym:LIST_TO_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1078*/ meltfptr[1077])); /*internsym:DISCR_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1080*/ meltfptr[1079])); /*internsym:MELT_DEBUG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1088*/ meltfptr[1087])); /*internsym:CLASS_MODULE_CONTEXT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1090*/ meltfptr[1089])); /*internsym:CLASS_LOCATED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1092*/ meltfptr[1091])); /*internsym:CLASS_SEXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1096*/ meltfptr[1095])); /*internsym:CLASS_SYMBOL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1120*/ meltfptr[1119])); /*internsym:CLASS_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1122*/ meltfptr[1121])); /*internsym:CLASS_KEYWORD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1124*/ meltfptr[1123])); /*internsym:CLASS_NAMED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1126*/ meltfptr[1125])); /*internsym:CLASS_CITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1128*/ meltfptr[1127])); /*internsym:FRESH_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1130*/ meltfptr[1129])); /*internsym:MULTIPLE_EVERY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1132*/ meltfptr[1131])); /*internsym:PUT_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1134*/ meltfptr[1133])); /*internsym:CLASS_CMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1136*/ meltfptr[1135])); /*internsym:CLASS_FUNMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1138*/ meltfptr[1137])); /*internsym:FIND_ENV */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1140*/ meltfptr[1139])); /*internsym:CLASS_MACRO_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1142*/ meltfptr[1141])); /*internsym:CLASS_SELECTOR_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1144*/ meltfptr[1143])); /*internsym:CLASS_PRIMITIVE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1146*/ meltfptr[1145])); /*internsym:CLASS_CITERATOR_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1148*/ meltfptr[1147])); /*internsym:CLASS_CMATCHER_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1150*/ meltfptr[1149])); /*internsym:CLASS_FUNMATCHER_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1152*/ meltfptr[1151])); /*internsym:CLASS_FIELD_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1154*/ meltfptr[1153])); /*internsym:CLASS_FORMAL_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1156*/ meltfptr[1155])); /*internsym:CLASS_LET_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1158*/ meltfptr[1157])); /*internsym:CLASS_VALUE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1160*/ meltfptr[1159])); /*internsym:CLASS_PRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1162*/ meltfptr[1161])); /*internsym:CLASS_PATTERN_EXPANSION_CONTEXT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1164*/ meltfptr[1163])); /*internsym:CLASS_ROOT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1166*/ meltfptr[1165])); /*internsym:PCTX_MEXPANDER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1180*/ meltfptr[1179])); /*internsym:PCTX_PEXPANDER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1182*/ meltfptr[1181])); /*internsym:PCTX_VARMAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1184*/ meltfptr[1183])); /*internsym:PCTX_MODCTX */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1186*/ meltfptr[1185])); /*internsym:PAIRLIST_TO_MULTIPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1210*/ meltfptr[1209])); /*internsym:CLASS_ANY_MATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1212*/ meltfptr[1211])); /*internsym:CLASS_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1214*/ meltfptr[1213])); /*internsym:MULTIPLE_MAP */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1216*/ meltfptr[1215])); /*internsym:DISCR_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1218*/ meltfptr[1217])); /*internsym:DISCR_CONSTANT_INTEGER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1220*/ meltfptr[1219])); /*internsym:CLASS_PATMACRO_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1222*/ meltfptr[1221])); /*internsym:QUESTION */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1191*/ meltfptr[1190])); /*internsym:_ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1194*/ meltfptr[1193])); #undef meltfram__ } /*end of meltmod__warmelt_macro__initialmeltchunk_33 */ void meltmod__warmelt_macro__initialmeltchunk_34 (struct frame_start_module_melt_st *meltmeltframptr__, char meltpredefinited[]) { #define meltfram__ (*meltmeltframptr__) #undef meltcallcount #define meltcallcount 0L (void) meltpredefinited; /*internsym:DISCR_LIST*/ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1226*/ meltfptr[1225])); /*internsym:CTYPE_VALUE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1228*/ meltfptr[1227])); /*internsym:DISCR_MAP_OBJECTS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1230*/ meltfptr[1229])); /*internsym:DISCR_FORMAL_SEQUENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1232*/ meltfptr[1231])); /*internkeyw:REST */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1110*/ meltfptr[1109])); /*internsym:DISCR_VARIADIC_FORMAL_SEQUENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1234*/ meltfptr[1233])); /*internsym:CLASS_CTYPE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1236*/ meltfptr[1235])); /*internsym:CLASS_ANY_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1238*/ meltfptr[1237])); /*internsym:INITIAL_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1242*/ meltfptr[1241])); /*internsym:WARN_SHADOW */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1246*/ meltfptr[1245])); /*internsym:DISCR_VERBATIM_STRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1257*/ meltfptr[1256])); /*internkeyw:DOC */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1264*/ meltfptr[1263])); /*internsym:DEFPRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1267*/ meltfptr[1266])); /*internsym:DEFCITERATOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1271*/ meltfptr[1270])); /*internsym:DEFCMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1276*/ meltfptr[1275])); /*internsym:DEFUNMATCHER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1281*/ meltfptr[1280])); /*internsym:CLASS_FUNCTION_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1286*/ meltfptr[1285])); /*internsym:DEFUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1288*/ meltfptr[1287])); /*internsym:CLASS_DEFINED_VALUE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1295*/ meltfptr[1294])); /*internkeyw:TRUE */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1291*/ meltfptr[1290])); /*internsym:DEFINE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1297*/ meltfptr[1296])); /*internkeyw:SUPER */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1300*/ meltfptr[1299])); /*internsym:CLASS_CLASS_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1307*/ meltfptr[1306])); /*internsym:CLASS_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1309*/ meltfptr[1308])); /*internkeyw:FIELDS */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1302*/ meltfptr[1301])); /*internkeyw:PREDEF */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1304*/ meltfptr[1303])); /*internsym:DISCR_CLASS_SEQUENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1315*/ meltfptr[1314])); /*internsym:DISCR_MAP_STRINGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1317*/ meltfptr[1316])); /*internsym:DISCR_FIELD_SEQUENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1319*/ meltfptr[1318])); /*internsym:DEFCLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1321*/ meltfptr[1320])); /*internsym:MULTIPLE_ITERATE_TEST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1326*/ meltfptr[1325])); /*internsym:CLASS_INSTANCE_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1332*/ meltfptr[1331])); /*internkeyw:OBJ_NUM */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1329*/ meltfptr[1328])); /*internsym:DEFINSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1334*/ meltfptr[1333])); /*internsym:MELT_MODE_REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1340*/ meltfptr[1339])); /*internkeyw:FORMALS */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1337*/ meltfptr[1336])); /*internsym:DEFSELECTOR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1342*/ meltfptr[1341])); /*internsym:INSTANCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1346*/ meltfptr[1345])); /*internsym:LOAD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1350*/ meltfptr[1349])); /*internsym:OBJECT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1363*/ meltfptr[1362])); /*internsym:CODE_CHUNK */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1367*/ meltfptr[1366])); /*internsym:UNSAFE_PUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1371*/ meltfptr[1370])); /*internsym:PUT_FIELDS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1375*/ meltfptr[1374])); /*internsym:UNSAFE_GET_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1379*/ meltfptr[1378])); /*internsym:GET_FIELD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1383*/ meltfptr[1382])); /*internsym:SETQ */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1390*/ meltfptr[1389])); /*internsym:IF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1394*/ meltfptr[1393])); /*internsym:WHEN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1398*/ meltfptr[1397])); /*internsym:UNLESS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1402*/ meltfptr[1401])); /*internsym:CPPIF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1406*/ meltfptr[1405])); /*internsym:GCCIF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1412*/ meltfptr[1411])); /*internkeyw:ELSE */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1416*/ meltfptr[1415])); /*internsym:COND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1419*/ meltfptr[1418])); /*internsym:AS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1428*/ meltfptr[1427])); /*internsym:AND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1436*/ meltfptr[1435])); /*internsym:OR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1443*/ meltfptr[1442])); /*internkeyw:REFERENCED_VALUE */ (void) meltgc_intern_keyword ((melt_ptr_t) ( /*_.VALDATA___V1446*/ meltfptr[1445])); /*internsym:REFERENCE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1452*/ meltfptr[1451])); /*internsym:CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1458*/ meltfptr[1457])); /*internsym:REFERENCED_VALUE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1462*/ meltfptr[1461])); /*internsym:DEREF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1464*/ meltfptr[1463])); /*internsym:CONTENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1468*/ meltfptr[1467])); /*internsym:EXCLAIM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1470*/ meltfptr[1469])); /*internsym:SET_REF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1474*/ meltfptr[1473])); /*internsym:TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1480*/ meltfptr[1479])); /*internsym:LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1486*/ meltfptr[1485])); /*internsym:MATCH */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1491*/ meltfptr[1490])); /*internsym:CLASS_FIXED_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1495*/ meltfptr[1494])); /*internsym:LET */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1502*/ meltfptr[1501])); /*internsym:INSTALL_METHOD */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1506*/ meltfptr[1505])); /*internsym:CLASS_LETREC_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1512*/ meltfptr[1511])); /*internsym:LETREC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1514*/ meltfptr[1513])); /*internsym:LAMBDA */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1519*/ meltfptr[1518])); /*internsym:VARIADIC */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1527*/ meltfptr[1526])); /*internsym:MULTICALL */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1533*/ meltfptr[1532])); /*internsym:QUOTE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1537*/ meltfptr[1536])); /*internsym:COMMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1541*/ meltfptr[1540])); /*internsym:CLASS_SEXPR_MACROSTRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1545*/ meltfptr[1544])); /*internsym:DISCR_STRBUF */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1547*/ meltfptr[1546])); /*internsym:ADD2OUT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1549*/ meltfptr[1548])); /*internsym:CHEADER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1551*/ meltfptr[1550])); /*internsym:DISCR_STRING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1555*/ meltfptr[1554])); /*internsym:USE_PACKAGE_FROM_PKG_CONFIG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1557*/ meltfptr[1556])); /*internsym:USE-PACKAGE-FROM-PKG-CONFIG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1559*/ meltfptr[1558])); /*internsym:PROGN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1566*/ meltfptr[1565])); /*internsym:RETURN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1570*/ meltfptr[1569])); /*internsym:CLASS_LABEL_BINDING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1575*/ meltfptr[1574])); /*internsym:FOREVER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1577*/ meltfptr[1576])); /*internsym:EXIT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1582*/ meltfptr[1581])); /*internsym:AGAIN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1586*/ meltfptr[1585])); /*internsym:COMPILE_WARNING */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1590*/ meltfptr[1589])); /*internsym:ASSERT_FAILED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1593*/ meltfptr[1592])); /*internsym:FIND_ENV_DEBUG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1598*/ meltfptr[1597])); /*internsym:MELT_HAVE_DEBUG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1595*/ meltfptr[1594])); /*internsym:ASSERT_MSG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1600*/ meltfptr[1599])); /*internsym:THE_MELTCALLCOUNT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1603*/ meltfptr[1602])); /*internsym:DEBUG_MSG_FUN */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1605*/ meltfptr[1604])); /*internsym:DEBUG_MSG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1608*/ meltfptr[1607])); /*internsym:MELT_NEED_DBG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1611*/ meltfptr[1610])); /*internsym:MELT_INCREMENT_DBGCOUNTER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1613*/ meltfptr[1612])); /*internsym:LIST_APPEND2LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1617*/ meltfptr[1616])); /*internsym:DEBUG */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1619*/ meltfptr[1618])); /*internsym:EXPORT_VALUES */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1624*/ meltfptr[1623])); /*internsym:EXPORT_MACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1628*/ meltfptr[1627])); /*internsym:EXPORT_PATMACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1632*/ meltfptr[1631])); /*internsym:EXPORT_CLASS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1637*/ meltfptr[1636])); /*internsym:EXPORT_SYNONYM */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1641*/ meltfptr[1640])); /*internsym:CURRENT_MODULE_ENVIRONMENT_CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1645*/ meltfptr[1644])); /*internsym:PARENT_MODULE_ENVIRONMENT */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1649*/ meltfptr[1648])); /*internsym:UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1653*/ meltfptr[1652])); /*internsym:FETCH_PREDEFINED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1657*/ meltfptr[1656])); /*internsym:STORE_PREDEFINED */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1661*/ meltfptr[1660])); /*internsym:EXPAND_APPLY */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1663*/ meltfptr[1662])); /*internsym:EXPAND_MSEND */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1665*/ meltfptr[1664])); /*internsym:EXPAND_PAIRLIST_AS_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1667*/ meltfptr[1666])); /*internsym:EXPAND_PRIMITIVE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1669*/ meltfptr[1668])); /*internsym:INSTALL_INITIAL_MACRO */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1671*/ meltfptr[1670])); /*internsym:LAMBDA_ARG_BINDINGS */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1673*/ meltfptr[1672])); /*internsym:MACROEXPAND_1 */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1675*/ meltfptr[1674])); /*internsym:MACROEXPAND_TOPLEVEL_LIST */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1677*/ meltfptr[1676])); /*internsym:PATTERNEXPAND_1 */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1679*/ meltfptr[1678])); /*internsym:PATTERNEXPAND_EXPR */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1681*/ meltfptr[1680])); /*internsym:PATTERNEXPAND_PAIRLIST_AS_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1683*/ meltfptr[1682])); /*internsym:PATTERN_WEIGHT_TUPLE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1685*/ meltfptr[1684])); /*internsym:REGISTER_GENERATOR_DEVICE */ (void) meltgc_intern_symbol ((melt_ptr_t) ( /*_.VALDATA___V1687*/ meltfptr[1686])); /**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_macro__initialmeltchunk_34 */ void meltmod__warmelt_macro__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 */ -2457); if (!marking && melt_is_forwarding) { dbgprintf ("forward_or_mark_module_start_frame_warmelt_macro forwarding %d pointers in frame %p", 1831, (void *) meltframptr_); for (ix = 0; ix < 1831; ix++) MELT_FORWARDED (meltframptr_->mcfr_varptr[ix]); return; } /*end forwarding */ dbgprintf ("forward_or_mark_module_start_frame_warmelt_macro marking in frame %p", (void *) meltframptr_); for (ix = 0; ix < 1831; ix++) if (meltframptr_->mcfr_varptr[ix]) gt_ggc_mx_melt_un (meltframptr_->mcfr_varptr[ix]); } /* end meltmod__warmelt_macro__forward_or_mark_module_start_frame */ /* exported 123 field offsets */ MELT_EXTERN const int meltfieldoff__ANDPAT_CONJ; const int meltfieldoff__ANDPAT_CONJ = 3; /* in CLASS_SOURCE_PATTERN_AND */ MELT_EXTERN const int meltfieldoff__CMEC_COMMENT; const int meltfieldoff__CMEC_COMMENT = 2; /* in CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ MELT_EXTERN const int meltfieldoff__CTPAT_SUBPA; const int meltfieldoff__CTPAT_SUBPA = 3; /* in CLASS_SOURCE_PATTERN_CONSTRUCT */ MELT_EXTERN const int meltfieldoff__MSEND_RECV; const int meltfieldoff__MSEND_RECV = 4; /* in CLASS_SOURCE_MSEND */ MELT_EXTERN const int meltfieldoff__MSEND_SELSYMB; const int meltfieldoff__MSEND_SELSYMB = 3; /* in CLASS_SOURCE_MSEND */ MELT_EXTERN const int meltfieldoff__ORPAT_DISJ; const int meltfieldoff__ORPAT_DISJ = 3; /* in CLASS_SOURCE_PATTERN_OR */ MELT_EXTERN const int meltfieldoff__PAT_WEIGHT; const int meltfieldoff__PAT_WEIGHT = 2; /* in CLASS_SOURCE_PATTERN */ MELT_EXTERN const int meltfieldoff__PCTX_MEXPANDER; const int meltfieldoff__PCTX_MEXPANDER = 0; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_MODCTX; const int meltfieldoff__PCTX_MODCTX = 3; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_PEXPANDER; const int meltfieldoff__PCTX_PEXPANDER = 1; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__PCTX_VARMAP; const int meltfieldoff__PCTX_VARMAP = 2; /* in CLASS_PATTERN_EXPANSION_CONTEXT */ MELT_EXTERN const int meltfieldoff__SAPP_FUN; const int meltfieldoff__SAPP_FUN = 3; /* in CLASS_SOURCE_APPLY */ MELT_EXTERN const int meltfieldoff__SARGOP_ARGS; const int meltfieldoff__SARGOP_ARGS = 2; /* in CLASS_SOURCE_ARGUMENTED_OPERATOR */ MELT_EXTERN const int meltfieldoff__SCAM_BODY; const int meltfieldoff__SCAM_BODY = 3; /* in CLASS_SOURCE_MATCH_CASE */ MELT_EXTERN const int meltfieldoff__SCAM_PATT; const int meltfieldoff__SCAM_PATT = 2; /* in CLASS_SOURCE_MATCH_CASE */ MELT_EXTERN const int meltfieldoff__SCHEADER_CODESTRING; const int meltfieldoff__SCHEADER_CODESTRING = 2; /* in CLASS_SOURCE_CHEADER */ MELT_EXTERN const int meltfieldoff__SCH_CHUNKS; const int meltfieldoff__SCH_CHUNKS = 3; /* in CLASS_SOURCE_CODECHUNK */ MELT_EXTERN const int meltfieldoff__SCH_GENSYM; const int meltfieldoff__SCH_GENSYM = 2; /* in CLASS_SOURCE_CODECHUNK */ MELT_EXTERN const int meltfieldoff__SCITERDEF_AFTERLOC; const int meltfieldoff__SCITERDEF_AFTERLOC = 7; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITERDEF_BEFORELOC; const int meltfieldoff__SCITERDEF_BEFORELOC = 6; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITERDEF_CITERATOR; const int meltfieldoff__SCITERDEF_CITERATOR = 5; /* in CLASS_SOURCE_DEFCITERATOR */ MELT_EXTERN const int meltfieldoff__SCITER_BODY; const int meltfieldoff__SCITER_BODY = 5; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCITER_OPER; const int meltfieldoff__SCITER_OPER = 3; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCITER_VARBIND; const int meltfieldoff__SCITER_VARBIND = 4; /* in CLASS_SOURCE_CITERATION */ MELT_EXTERN const int meltfieldoff__SCLASS_CLABIND; const int meltfieldoff__SCLASS_CLABIND = 5; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCLASS_FLDBINDS; const int meltfieldoff__SCLASS_FLDBINDS = 7; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCLASS_SUPERBIND; const int meltfieldoff__SCLASS_SUPERBIND = 6; /* in CLASS_SOURCE_DEFCLASS */ MELT_EXTERN const int meltfieldoff__SCMATDEF_CMATCHER; const int meltfieldoff__SCMATDEF_CMATCHER = 5; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_FILLLOC; const int meltfieldoff__SCMATDEF_FILLLOC = 7; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_OPERLOC; const int meltfieldoff__SCMATDEF_OPERLOC = 8; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATDEF_TESTLOC; const int meltfieldoff__SCMATDEF_TESTLOC = 6; /* in CLASS_SOURCE_DEFCMATCHER */ MELT_EXTERN const int meltfieldoff__SCMATX_CMATCHER; const int meltfieldoff__SCMATX_CMATCHER = 3; /* in CLASS_SOURCE_CMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SCOMM_STR; const int meltfieldoff__SCOMM_STR = 2; /* in CLASS_SOURCE_COMMENT */ MELT_EXTERN const int meltfieldoff__SCWARN_EXPR; const int meltfieldoff__SCWARN_EXPR = 3; /* in CLASS_SOURCE_COMPILEWARNING */ MELT_EXTERN const int meltfieldoff__SCWARN_MSG; const int meltfieldoff__SCWARN_MSG = 2; /* in CLASS_SOURCE_COMPILEWARNING */ MELT_EXTERN const int meltfieldoff__SDEFINE_BODY; const int meltfieldoff__SDEFINE_BODY = 4; /* in CLASS_SOURCE_DEFINE */ MELT_EXTERN const int meltfieldoff__SDEFSEL_FORMALS; const int meltfieldoff__SDEFSEL_FORMALS = 9; /* in CLASS_SOURCE_DEFSELECTOR */ MELT_EXTERN const int meltfieldoff__SDEF_DOC; const int meltfieldoff__SDEF_DOC = 3; /* in CLASS_SOURCE_DEFINITION */ MELT_EXTERN const int meltfieldoff__SDEF_NAME; const int meltfieldoff__SDEF_NAME = 2; /* in CLASS_SOURCE_DEFINITION */ MELT_EXTERN const int meltfieldoff__SEXI_BODY; const int meltfieldoff__SEXI_BODY = 3; /* in CLASS_SOURCE_EXIT */ MELT_EXTERN const int meltfieldoff__SEXPMAC_DOC; const int meltfieldoff__SEXPMAC_DOC = 4; /* in CLASS_SOURCE_EXPORT_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPMAC_MNAME; const int meltfieldoff__SEXPMAC_MNAME = 2; /* in CLASS_SOURCE_EXPORT_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPMAC_MVAL; const int meltfieldoff__SEXPMAC_MVAL = 3; /* in CLASS_SOURCE_EXPORT_MACRO */ MELT_EXTERN const int meltfieldoff__SEXPORT_NAMES; const int meltfieldoff__SEXPORT_NAMES = 2; /* in CLASS_SOURCE_EXPORTCOMMON */ MELT_EXTERN const int meltfieldoff__SEXPPAT_PVAL; const int meltfieldoff__SEXPPAT_PVAL = 5; /* in CLASS_SOURCE_EXPORT_PATMACRO */ MELT_EXTERN const int meltfieldoff__SEXPSYN_DOC; const int meltfieldoff__SEXPSYN_DOC = 4; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SEXPSYN_NEWNAME; const int meltfieldoff__SEXPSYN_NEWNAME = 2; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SEXPSYN_OLDNAME; const int meltfieldoff__SEXPSYN_OLDNAME = 3; /* in CLASS_SOURCE_EXPORT_SYNONYM */ MELT_EXTERN const int meltfieldoff__SFEPD_PREDEF; const int meltfieldoff__SFEPD_PREDEF = 2; /* in CLASS_SOURCE_FETCH_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SFLA_EXPR; const int meltfieldoff__SFLA_EXPR = 3; /* in CLASS_SOURCE_FIELDASSIGN */ MELT_EXTERN const int meltfieldoff__SFLA_FIELD; const int meltfieldoff__SFLA_FIELD = 2; /* in CLASS_SOURCE_FIELDASSIGN */ MELT_EXTERN const int meltfieldoff__SFMATX_FMATBIND; const int meltfieldoff__SFMATX_FMATBIND = 4; /* in CLASS_SOURCE_FUNMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SFMATX_FMATCHER; const int meltfieldoff__SFMATX_FMATCHER = 3; /* in CLASS_SOURCE_FUNMATCHEXPR */ MELT_EXTERN const int meltfieldoff__SFORMAL_ARGS; const int meltfieldoff__SFORMAL_ARGS = 4; /* in CLASS_SOURCE_DEFINITION_FORMAL */ MELT_EXTERN const int meltfieldoff__SFRV_BODY; const int meltfieldoff__SFRV_BODY = 3; /* in CLASS_SOURCE_FOREVER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_APPLYF; const int meltfieldoff__SFUMATDEF_APPLYF = 8; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_DATA; const int meltfieldoff__SFUMATDEF_DATA = 9; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_INS; const int meltfieldoff__SFUMATDEF_INS = 5; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_MATCHF; const int meltfieldoff__SFUMATDEF_MATCHF = 7; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUMATDEF_OUTS; const int meltfieldoff__SFUMATDEF_OUTS = 6; /* in CLASS_SOURCE_DEFUNMATCHER */ MELT_EXTERN const int meltfieldoff__SFUN_BODY; const int meltfieldoff__SFUN_BODY = 5; /* in CLASS_SOURCE_DEFUN */ MELT_EXTERN const int meltfieldoff__SIFP_COND; const int meltfieldoff__SIFP_COND = 2; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFP_ELSE; const int meltfieldoff__SIFP_ELSE = 4; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFP_THEN; const int meltfieldoff__SIFP_THEN = 3; /* in CLASS_SOURCE_CPPIF */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_ARGBIND; const int meltfieldoff__SIFVARIADIC_ARGBIND = 2; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_ELSE; const int meltfieldoff__SIFVARIADIC_ELSE = 4; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIFVARIADIC_THEN; const int meltfieldoff__SIFVARIADIC_THEN = 3; /* in CLASS_SOURCE_IFVARIADIC */ MELT_EXTERN const int meltfieldoff__SIF_ELSE; const int meltfieldoff__SIF_ELSE = 4; /* in CLASS_SOURCE_IFELSE */ MELT_EXTERN const int meltfieldoff__SIF_TEST; const int meltfieldoff__SIF_TEST = 2; /* in CLASS_SOURCE_IF */ MELT_EXTERN const int meltfieldoff__SIF_THEN; const int meltfieldoff__SIF_THEN = 3; /* in CLASS_SOURCE_IF */ MELT_EXTERN const int meltfieldoff__SINST_CLABIND; const int meltfieldoff__SINST_CLABIND = 6; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_CLASS; const int meltfieldoff__SINST_CLASS = 5; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_FIELDS; const int meltfieldoff__SINST_FIELDS = 8; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SINST_OBJNUM; const int meltfieldoff__SINST_OBJNUM = 7; /* in CLASS_SOURCE_DEFINSTANCE */ MELT_EXTERN const int meltfieldoff__SLABEL_BIND; const int meltfieldoff__SLABEL_BIND = 2; /* in CLASS_SOURCE_LABELLED */ MELT_EXTERN const int meltfieldoff__SLAM_ARGBIND; const int meltfieldoff__SLAM_ARGBIND = 2; /* in CLASS_SOURCE_LAMBDA */ MELT_EXTERN const int meltfieldoff__SLAM_BODY; const int meltfieldoff__SLAM_BODY = 3; /* in CLASS_SOURCE_LAMBDA */ MELT_EXTERN const int meltfieldoff__SLAZYMACRO_FUN; const int meltfieldoff__SLAZYMACRO_FUN = 2; /* in CLASS_SOURCE_LAZY_MACRO_EXPANSION */ MELT_EXTERN const int meltfieldoff__SLAZYMACRO_OPER; const int meltfieldoff__SLAZYMACRO_OPER = 3; /* in CLASS_SOURCE_LAZY_MACRO_EXPANSION */ MELT_EXTERN const int meltfieldoff__SLETB_BINDER; const int meltfieldoff__SLETB_BINDER = 3; /* in CLASS_SOURCE_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETB_EXPR; const int meltfieldoff__SLETB_EXPR = 4; /* in CLASS_SOURCE_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLETB_TYPE; const int meltfieldoff__SLETB_TYPE = 2; /* in CLASS_SOURCE_LET_BINDING */ MELT_EXTERN const int meltfieldoff__SLET_BINDINGS; const int meltfieldoff__SLET_BINDINGS = 2; /* in CLASS_SOURCE_LET */ MELT_EXTERN const int meltfieldoff__SLET_BODY; const int meltfieldoff__SLET_BODY = 3; /* in CLASS_SOURCE_LET */ MELT_EXTERN const int meltfieldoff__SMAT_CASES; const int meltfieldoff__SMAT_CASES = 3; /* in CLASS_SOURCE_MATCH */ MELT_EXTERN const int meltfieldoff__SMAT_MATCHEDX; const int meltfieldoff__SMAT_MATCHEDX = 2; /* in CLASS_SOURCE_MATCH */ MELT_EXTERN const int meltfieldoff__SMINS_CLABIND; const int meltfieldoff__SMINS_CLABIND = 3; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMINS_CLASS; const int meltfieldoff__SMINS_CLASS = 2; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMINS_FIELDS; const int meltfieldoff__SMINS_FIELDS = 4; /* in CLASS_SOURCE_INSTANCE */ MELT_EXTERN const int meltfieldoff__SMULC_BODY; const int meltfieldoff__SMULC_BODY = 4; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SMULC_CALL; const int meltfieldoff__SMULC_CALL = 3; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SMULC_RESBIND; const int meltfieldoff__SMULC_RESBIND = 2; /* in CLASS_SOURCE_MULTICALL */ MELT_EXTERN const int meltfieldoff__SOBJ_PREDEF; const int meltfieldoff__SOBJ_PREDEF = 4; /* in CLASS_SOURCE_DEFOBJCOMMON */ MELT_EXTERN const int meltfieldoff__SOR_DISJ; const int meltfieldoff__SOR_DISJ = 2; /* in CLASS_SOURCE_OR */ MELT_EXTERN const int meltfieldoff__SPAC_INARGS; const int meltfieldoff__SPAC_INARGS = 7; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OPERATOR; const int meltfieldoff__SPAC_OPERATOR = 5; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OPERBIND; const int meltfieldoff__SPAC_OPERBIND = 6; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAC_OUTARGS; const int meltfieldoff__SPAC_OUTARGS = 8; /* in CLASS_SOURCE_PATTERN_COMPOSITE */ MELT_EXTERN const int meltfieldoff__SPAF_FIELD; const int meltfieldoff__SPAF_FIELD = 2; /* in CLASS_SOURCE_FIELD_PATTERN */ MELT_EXTERN const int meltfieldoff__SPAF_PATTERN; const int meltfieldoff__SPAF_PATTERN = 3; /* in CLASS_SOURCE_FIELD_PATTERN */ MELT_EXTERN const int meltfieldoff__SPATVAR_NBOCC; const int meltfieldoff__SPATVAR_NBOCC = 4; /* in CLASS_SOURCE_PATTERN_VARIABLE */ MELT_EXTERN const int meltfieldoff__SPATVAR_SYMB; const int meltfieldoff__SPATVAR_SYMB = 3; /* in CLASS_SOURCE_PATTERN_VARIABLE */ MELT_EXTERN const int meltfieldoff__SPAT_CLASS; const int meltfieldoff__SPAT_CLASS = 3; /* in CLASS_SOURCE_PATTERN_OBJECT */ MELT_EXTERN const int meltfieldoff__SPAT_CONSTX; const int meltfieldoff__SPAT_CONSTX = 3; /* in CLASS_SOURCE_PATTERN_CONSTANT */ MELT_EXTERN const int meltfieldoff__SPAT_FIELDS; const int meltfieldoff__SPAT_FIELDS = 4; /* in CLASS_SOURCE_PATTERN_OBJECT */ MELT_EXTERN const int meltfieldoff__SPRIM_EXPANSION; const int meltfieldoff__SPRIM_EXPANSION = 6; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_EXPLOC; const int meltfieldoff__SPRIM_EXPLOC = 7; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_OPER; const int meltfieldoff__SPRIM_OPER = 3; /* in CLASS_SOURCE_PRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPRIM_TYPE; const int meltfieldoff__SPRIM_TYPE = 5; /* in CLASS_SOURCE_DEFPRIMITIVE */ MELT_EXTERN const int meltfieldoff__SPROGN_BODY; const int meltfieldoff__SPROGN_BODY = 2; /* in CLASS_SOURCE_PROGN */ MELT_EXTERN const int meltfieldoff__SQUOTED; const int meltfieldoff__SQUOTED = 2; /* in CLASS_SOURCE_QUOTE */ MELT_EXTERN const int meltfieldoff__SRCGEN_DEFIN; const int meltfieldoff__SRCGEN_DEFIN = 2; /* in CLASS_SOURCE_GENERATOR_DEVICE */ MELT_EXTERN const int meltfieldoff__SRCGEN_REPR; const int meltfieldoff__SRCGEN_REPR = 3; /* in CLASS_SOURCE_GENERATOR_DEVICE */ MELT_EXTERN const int meltfieldoff__SSTPD_PREDEF; const int meltfieldoff__SSTPD_PREDEF = 2; /* in CLASS_SOURCE_STORE_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SSTPD_VALUE; const int meltfieldoff__SSTPD_VALUE = 3; /* in CLASS_SOURCE_STORE_PREDEFINED */ MELT_EXTERN const int meltfieldoff__SSTQ_EXPR; const int meltfieldoff__SSTQ_EXPR = 3; /* in CLASS_SOURCE_SETQ */ MELT_EXTERN const int meltfieldoff__SSTQ_VAR; const int meltfieldoff__SSTQ_VAR = 2; /* in CLASS_SOURCE_SETQ */ MELT_EXTERN const int meltfieldoff__SUCME_COMMENT; const int meltfieldoff__SUCME_COMMENT = 2; /* in CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER */ MELT_EXTERN const int meltfieldoff__SUGET_FIELD; const int meltfieldoff__SUGET_FIELD = 3; /* in CLASS_SOURCE_GET_FIELD */ MELT_EXTERN const int meltfieldoff__SUGET_OBJ; const int meltfieldoff__SUGET_OBJ = 2; /* in CLASS_SOURCE_GET_FIELD */ MELT_EXTERN const int meltfieldoff__SUPUT_FIELDS; const int meltfieldoff__SUPUT_FIELDS = 3; /* in CLASS_SOURCE_PUT_FIELDS */ MELT_EXTERN const int meltfieldoff__SUPUT_OBJ; const int meltfieldoff__SUPUT_OBJ = 2; /* in CLASS_SOURCE_PUT_FIELDS */ MELT_EXTERN const int meltfieldoff__SUSEPACKAGE_PKGTUPLE; const int meltfieldoff__SUSEPACKAGE_PKGTUPLE = 2; /* in CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG */ /* exported 82 class lengths */ MELT_EXTERN const int meltclasslen__CLASS_PATTERN_EXPANSION_CONTEXT; const int meltclasslen__CLASS_PATTERN_EXPANSION_CONTEXT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_AGAIN; const int meltclasslen__CLASS_SOURCE_AGAIN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_APPLY; const int meltclasslen__CLASS_SOURCE_APPLY = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_ARGUMENTED_OPERATOR; const int meltclasslen__CLASS_SOURCE_ARGUMENTED_OPERATOR = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CHEADER; const int meltclasslen__CLASS_SOURCE_CHEADER = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CITERATION; const int meltclasslen__CLASS_SOURCE_CITERATION = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CMATCHEXPR; const int meltclasslen__CLASS_SOURCE_CMATCHEXPR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CODECHUNK; const int meltclasslen__CLASS_SOURCE_CODECHUNK = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMMENT; const int meltclasslen__CLASS_SOURCE_COMMENT = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_COMPILEWARNING; const int meltclasslen__CLASS_SOURCE_COMPILEWARNING = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CPPIF; const int meltclasslen__CLASS_SOURCE_CPPIF = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; const int meltclasslen__CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCITERATOR; const int meltclasslen__CLASS_SOURCE_DEFCITERATOR = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCLASS; const int meltclasslen__CLASS_SOURCE_DEFCLASS = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFCMATCHER; const int meltclasslen__CLASS_SOURCE_DEFCMATCHER = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINE; const int meltclasslen__CLASS_SOURCE_DEFINE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINITION; const int meltclasslen__CLASS_SOURCE_DEFINITION = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINITION_FORMAL; const int meltclasslen__CLASS_SOURCE_DEFINITION_FORMAL = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFINSTANCE; const int meltclasslen__CLASS_SOURCE_DEFINSTANCE = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFOBJCOMMON; const int meltclasslen__CLASS_SOURCE_DEFOBJCOMMON = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFPRIMITIVE; const int meltclasslen__CLASS_SOURCE_DEFPRIMITIVE = 8; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFSELECTOR; const int meltclasslen__CLASS_SOURCE_DEFSELECTOR = 10; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFUN; const int meltclasslen__CLASS_SOURCE_DEFUN = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_DEFUNMATCHER; const int meltclasslen__CLASS_SOURCE_DEFUNMATCHER = 10; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXIT; const int meltclasslen__CLASS_SOURCE_EXIT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORTCOMMON; const int meltclasslen__CLASS_SOURCE_EXPORTCOMMON = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_CLASS; const int meltclasslen__CLASS_SOURCE_EXPORT_CLASS = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_MACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_MACRO = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_PATMACRO; const int meltclasslen__CLASS_SOURCE_EXPORT_PATMACRO = 6; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_SYNONYM; const int meltclasslen__CLASS_SOURCE_EXPORT_SYNONYM = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_EXPORT_VALUES; const int meltclasslen__CLASS_SOURCE_EXPORT_VALUES = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FETCH_PREDEFINED; const int meltclasslen__CLASS_SOURCE_FETCH_PREDEFINED = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FIELDASSIGN; const int meltclasslen__CLASS_SOURCE_FIELDASSIGN = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FIELD_PATTERN; const int meltclasslen__CLASS_SOURCE_FIELD_PATTERN = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FOREVER; const int meltclasslen__CLASS_SOURCE_FOREVER = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_FUNMATCHEXPR; const int meltclasslen__CLASS_SOURCE_FUNMATCHEXPR = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_GENERATOR_DEVICE; const int meltclasslen__CLASS_SOURCE_GENERATOR_DEVICE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_GET_FIELD; const int meltclasslen__CLASS_SOURCE_GET_FIELD = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IF; const int meltclasslen__CLASS_SOURCE_IF = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IFELSE; const int meltclasslen__CLASS_SOURCE_IFELSE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_IFVARIADIC; const int meltclasslen__CLASS_SOURCE_IFVARIADIC = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_INSTANCE; const int meltclasslen__CLASS_SOURCE_INSTANCE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LABELLED; const int meltclasslen__CLASS_SOURCE_LABELLED = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LAMBDA; const int meltclasslen__CLASS_SOURCE_LAMBDA = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LAZY_MACRO_EXPANSION; const int meltclasslen__CLASS_SOURCE_LAZY_MACRO_EXPANSION = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LET; const int meltclasslen__CLASS_SOURCE_LET = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LETREC; const int meltclasslen__CLASS_SOURCE_LETREC = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LETREC_BINDING; const int meltclasslen__CLASS_SOURCE_LETREC_BINDING = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LET_BINDING; const int meltclasslen__CLASS_SOURCE_LET_BINDING = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_LIST; const int meltclasslen__CLASS_SOURCE_LIST = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MATCH; const int meltclasslen__CLASS_SOURCE_MATCH = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MATCH_CASE; const int meltclasslen__CLASS_SOURCE_MATCH_CASE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MSEND; const int meltclasslen__CLASS_SOURCE_MSEND = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_MULTICALL; const int meltclasslen__CLASS_SOURCE_MULTICALL = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_OR; const int meltclasslen__CLASS_SOURCE_OR = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT; const int meltclasslen__CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT = 2; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN; const int meltclasslen__CLASS_SOURCE_PATTERN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_AND; const int meltclasslen__CLASS_SOURCE_PATTERN_AND = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_COMPOSITE; const int meltclasslen__CLASS_SOURCE_PATTERN_COMPOSITE = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTANT; const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTANT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTRUCT; const int meltclasslen__CLASS_SOURCE_PATTERN_CONSTRUCT = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_C_MATCH; const int meltclasslen__CLASS_SOURCE_PATTERN_C_MATCH = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_INSTANCE; const int meltclasslen__CLASS_SOURCE_PATTERN_INSTANCE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_JOKER_VARIABLE; const int meltclasslen__CLASS_SOURCE_PATTERN_JOKER_VARIABLE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_LIST; const int meltclasslen__CLASS_SOURCE_PATTERN_LIST = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_MATCHER; const int meltclasslen__CLASS_SOURCE_PATTERN_MATCHER = 9; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_OBJECT; const int meltclasslen__CLASS_SOURCE_PATTERN_OBJECT = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_OR; const int meltclasslen__CLASS_SOURCE_PATTERN_OR = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_TUPLE; const int meltclasslen__CLASS_SOURCE_PATTERN_TUPLE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PATTERN_VARIABLE; const int meltclasslen__CLASS_SOURCE_PATTERN_VARIABLE = 5; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PRIMITIVE; const int meltclasslen__CLASS_SOURCE_PRIMITIVE = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PROGN; const int meltclasslen__CLASS_SOURCE_PROGN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_PUT_FIELDS; const int meltclasslen__CLASS_SOURCE_PUT_FIELDS = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_QUOTE; const int meltclasslen__CLASS_SOURCE_QUOTE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_RETURN; const int meltclasslen__CLASS_SOURCE_RETURN = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_SETQ; const int meltclasslen__CLASS_SOURCE_SETQ = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_STORE_PREDEFINED; const int meltclasslen__CLASS_SOURCE_STORE_PREDEFINED = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_TUPLE; const int meltclasslen__CLASS_SOURCE_TUPLE = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UNSAFE_GET_FIELD; const int meltclasslen__CLASS_SOURCE_UNSAFE_GET_FIELD = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS; const int meltclasslen__CLASS_SOURCE_UNSAFE_PUT_FIELDS = 4; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; const int meltclasslen__CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3; MELT_EXTERN const int meltclasslen__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG; const int meltclasslen__CLASS_SOURCE_USE_PACKAGE_FROM_PKG_CONFIG = 3; /**** end of warmelt-macro ****/