/* GCC MELT GENERATED FILE warmelt-normal.0+03.c - DO NOT EDIT */ /* secondary MELT generated C file of rank #3 */ #include "run-melt.h" /**** warmelt-normal.0+03.c declarations ****/ #define MELT_HAS_INITIAL_ENVIRONMENT 1 /**!!** *** Copyright 2008, 2009, 2010 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 . *****!!**/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_1_warmelt_normal_ADD_NCTX_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_2_warmelt_normal_FILL_INITIAL_PREDEFMAP(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_3_warmelt_normal_CREATE_NORMCONTEXT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_4_warmelt_normal_NORMEXP_IDENTICAL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_5_warmelt_normal_NORMEXP_NULL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_6_warmelt_normal_NORMEXP_SRC_CATCHALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_7_warmelt_normal_GECTYP_ANYRECV(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_8_warmelt_normal_GECTYP_ROOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_9_warmelt_normal_GECTYP_INTEGER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_10_warmelt_normal_GECTYP_STRING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_11_warmelt_normal_NORMALIZE_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_12_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_13_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_14_warmelt_normal_WRAP_NORMAL_LETSEQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_15_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_16_warmelt_normal_WRAP_NORMAL_LET1(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_17_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_18_warmelt_normal_CHECK_CTYPE_NARGS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_19_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_20_warmelt_normal_NORMBIND_FAILANY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_21_warmelt_normal_NORMBIND_ANYBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_22_warmelt_normal_NORMBIND_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_23_warmelt_normal_NORMBIND_LETBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_24_warmelt_normal_NORMBIND_FIXBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_25_warmelt_normal_NORMBIND_CONSTRUCTBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_26_warmelt_normal_NORMEXP_SYMBOL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_27_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_28_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_29_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_30_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_31_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_32_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_33_warmelt_normal_GECTYP_SYMOCC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_34_warmelt_normal_NORMEXP_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_35_warmelt_normal_NORMEXP_PRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_36_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_37_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_38_warmelt_normal_NORMEXP_CODE_CHUNK(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_39_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_40_warmelt_normal_NORMEXP_CMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_41_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_42_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_43_warmelt_normal_NORMEXP_FUNMATCHEXPR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_44_warmelt_normal_NORMEXP_APPLY(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_45_warmelt_normal_NORMEXP_MSEND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_46_warmelt_normal_NORMEXP_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_47_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_48_warmelt_normal_NORMEXP_IF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_49_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_50_warmelt_normal_NORMEXP_IFELSE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_51_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_52_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_53_warmelt_normal_NORMEXP_CPPIF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_54_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_55_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_56_warmelt_normal_NORMEXP_OR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_57_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_58_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_59_warmelt_normal_NORMEXP_PROGN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_60_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_61_warmelt_normal_NORMEXP_LET(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_62_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_63_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_64_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_65_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_66_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_67_warmelt_normal_NORMEXP_UNSAFE_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_68_warmelt_normal_NORMEXP_GET_FIELD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_69_warmelt_normal_NORMEXP_UNSAFE_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_70_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_71_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_72_warmelt_normal_NORMEXP_PUT_FIELDS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_73_warmelt_normal_NORMEXP_SETQ(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_74_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_75_warmelt_normal_NORMEXP_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_76_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_77_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_78_warmelt_normal_NORMEXP_FOREVER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_79_warmelt_normal_NORMEXP_EXIT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_80_warmelt_normal_NORMEXP_COMPILEWARNING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_81_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_82_warmelt_normal_REPLACE_LAST_BY_RETURN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_83_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_84_warmelt_normal_NORMEXP_DEFUN(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_85_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_86_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_87_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_88_warmelt_normal_NORMALIZE_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_89_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_90_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_91_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_92_warmelt_normal_NORMEXP_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_93_warmelt_normal_NORMEXP_MULTICALL(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_94_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_95_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_96_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_97_warmelt_normal_NORMEXP_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_98_warmelt_normal_NORMEXP_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_99_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_100_warmelt_normal_BADMETH_PREPARE_CONSTRUCTOR_BINDING(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_101_warmelt_normal_BADMETH_NORMAL_LETREC_CONSTRUCTIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_102_warmelt_normal_PREPCONS_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_103_warmelt_normal_NORMLETREC_LAMBDA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_104_warmelt_normal_PREPCONS_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_105_warmelt_normal_NORMLETREC_TUPLE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_106_warmelt_normal_PREPCONS_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_107_warmelt_normal_NRECLIST_FIND_LOCSYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_108_warmelt_normal_NORMLETREC_LIST(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_109_warmelt_normal_PREPCONS_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_110_warmelt_normal_NORMLETREC_INSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_111_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_112_warmelt_normal_NORMEXP_LETREC(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_113_warmelt_normal_NORMAL_PREDEF(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_114_warmelt_normal_NORMAL_SYMBOL_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_115_warmelt_normal_NORMAL_KEYWORD_DATA(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_116_warmelt_normal_CREATE_DATA_SLOTS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_117_warmelt_normal_FILL_DATA_SLOT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_118_warmelt_normal_NORMEXP_QUOTE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_119_warmelt_normal_NORMEXP_COMMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_120_warmelt_normal_NORMEXP_KEYWORD(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_121_warmelt_normal_FILL_NORMAL_FORMALBIND(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_122_warmelt_normal_FILL_NORMAL_FORMALS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_123_warmelt_normal_FILL_NORMAL_EXPANSION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_124_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_125_warmelt_normal_NORMEXP_DEFPRIMITIVE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_126_warmelt_normal_NORMEXP_DEFCITERATOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_127_warmelt_normal_NORMEXP_CITERATION(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_128_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_129_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_130_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_131_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_132_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_133_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_134_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_135_warmelt_normal_NORMEXP_DEFCMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_136_warmelt_normal_NORMEXP_DEFUNMATCHER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_137_warmelt_normal_NORMEXP_DEFCLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_138_warmelt_normal_NORMEXP_DEFINSTANCE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_139_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_140_warmelt_normal_NORMEXP_DEFSELECTOR(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_); void* start_module_melt(void*); void mark_module_melt(void*); void* initial_frame_melt; struct frame_start_module_melt_st; void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_0 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_1 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_2 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_3 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_4 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_5 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_6 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_7 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_8 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_9 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_10 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_11 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_12 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_13 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_14 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_15 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_16 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_17 (struct frame_start_module_melt_st*, char*); void MELT_MODULE_VISIBILITY warmelt_normal_initialmeltchunk_18 (struct frame_start_module_melt_st*, char*); /**** warmelt-normal.0+03.c implementations ****/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_141_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_141_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 17 void* varptr[17]; #define MELTFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 17; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5461:/ getarg"); /*_.FLDA__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5462:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.FLDA__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FIELDASSIGN*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5462:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5462:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check flda"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5462)?(5462):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5462:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5463:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ meltfptr[1]), 2, "SFLA_FIELD");/*_.CURFLD__V5*/ meltfptr[3] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5464:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDA__V2*/ meltfptr[1]), 3, "SFLA_EXPR");/*_.CUREXP__V6*/ meltfptr[5] = slot; }; ; /*_#CUROFF__L3*/ meltfnum[1] = (melt_obj_num((melt_ptr_t)(/*_.CURFLD__V5*/ meltfptr[3])));; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5467:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V5*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5467:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V8*/ meltfptr[7] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5467:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5467)?(5467):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V7*/ meltfptr[6] = /*_.IFELSE___V8*/ meltfptr[7];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5467:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V8*/ meltfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V7*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5468:/ cppif.then"); /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5469:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~SINSTCLASS*/ meltfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V10*/ meltfptr[9] = slot; }; ; /*_.MULTIPLE_NTH__V11*/ meltfptr[10] = (melt_multiple_nth((melt_ptr_t)(/*_.CLASS_FIELDS__V10*/ meltfptr[9]), (/*_#CUROFF__L3*/ meltfnum[1])));; /*^compute*/ /*_#__L5*/ meltfnum[3] = ((/*_.MULTIPLE_NTH__V11*/ meltfptr[10]) == (/*_.CURFLD__V5*/ meltfptr[3]));; MELT_LOCATION("warmelt-normal.melt:5468:/ cond"); /*cond*/ if (/*_#__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V12*/ meltfptr[11] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5468:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "good curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5468)?(5468):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V9*/ meltfptr[7] = /*_.IFELSE___V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5468:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_NTH__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_#__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V12*/ meltfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5471:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[1]);/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[2]);/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[3]); /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ meltfptr[10];/*^multimsend.send*/ /*_.NCUR__V13*/ meltfptr[9] = meltgc_send ((melt_ptr_t)(/*_.CUREXP__V6*/ meltfptr[5]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ { MELT_LOCATION("warmelt-normal.melt:5474:/ locexp"); meltgc_multiple_put_nth((melt_ptr_t)((/*~SLOTUP*/ meltfclos->tabval[4])), (/*_#CUROFF__L3*/ meltfnum[1]), (melt_ptr_t)(/*_.NCUR__V13*/ meltfptr[9]));} ; /*_#IS_LIST__L6*/ meltfnum[3] = (melt_magic_discr((melt_ptr_t)(/*_.NBINDCUR__V14*/ meltfptr[10])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5475:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5476:/ quasiblock"); /*_.THEBINDLIST__V15*/ meltfptr[11] = melt_box_content((meltbox_ptr_t)((/*~NBINDBOX*/ meltfclos->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:5477:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDCUR__V14*/ meltfptr[10]; /*_.LIST_APPEND2LIST__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ meltfptr[11]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*^compute*/ /*_.THEBINDLIST__V15*/ meltfptr[11] = /*_.SETQ___V17*/ meltfptr[16] = /*_.LIST_APPEND2LIST__V16*/ meltfptr[15];; { MELT_LOCATION("warmelt-normal.melt:5478:/ locexp"); meltgc_box_put((melt_ptr_t)((/*~NBINDBOX*/ meltfclos->tabval[5])), (melt_ptr_t)(/*_.THEBINDLIST__V15*/ meltfptr[11]));} ; MELT_LOCATION("warmelt-normal.melt:5476:/ clear"); /*clear*/ /*_.THEBINDLIST__V15*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V17*/ meltfptr[16] = 0 ; /*epilog*/ } ; } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:5471:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.NBINDCUR__V14*/ meltfptr[10] = 0 ; MELT_LOCATION("warmelt-normal.melt:5463:/ clear"); /*clear*/ /*_.CURFLD__V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.CUREXP__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_#CUROFF__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[7] = 0 ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5461:/ clear"); /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_141_warmelt_normal_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_142_warmelt_normal_NORMAL_VALUE_EXPORTER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 22 void* varptr[22]; #define MELTFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 22; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_VALUE_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5513:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5514:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5514:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5514:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5514)?(5514):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5514:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5515:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5515:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5515:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5515)?(5515):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5515:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5516:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5516:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5516:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5516)?(5516):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5516:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5517:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMVALEXP__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[2])), (melt_ptr_t)((/*!konst_3_VALUEXPORTER_*/ meltfrout->tabval[3])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5518:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ meltfrout->tabval[4])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ meltfptr[14] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ meltfptr[14])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V15*/ meltfptr[14])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V15*/ meltfptr[14]), (1), ((/*!konst_5_INITIAL_SYSTEM_DATA*/ meltfrout->tabval[5])), "NRPREDEF"); ; /*_.NSYSDAT__V14*/ meltfptr[13] = /*_.INST__V15*/ meltfptr[14];; MELT_LOCATION("warmelt-normal.melt:5525:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V17*/ meltfptr[16] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (1), (/*_.NSYSDAT__V14*/ meltfptr[13]), "NUGET_OBJ"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (2), ((/*!SYSDATA_VALUE_EXPORTER*/ meltfrout->tabval[9])), "NUGET_FIELD"); ; /*_.INST___V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normal.melt:5521:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[6])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V19*/ meltfptr[18] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (3), (/*_.PSLOC__V4*/ meltfptr[3]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (0), (/*_.CSYMVALEXP__V13*/ meltfptr[12]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[7])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (2), (/*_.INST___V16*/ meltfptr[15]), "LETBIND_EXPR"); ; /*_.CBIND__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normal.melt:5529:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[7])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (1), (/*_.CSYMVALEXP__V13*/ meltfptr[12]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (3), (/*_.CBIND__V18*/ meltfptr[17]), "NOCC_BIND"); ; /*_.LOCSYM__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; { MELT_LOCATION("warmelt-normal.melt:5535:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4]), (melt_ptr_t)(/*_.CBIND__V18*/ meltfptr[17]));} ; MELT_LOCATION("warmelt-normal.melt:5536:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LOCSYM__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5536:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V12*/ meltfptr[10] = /*_.RETURN___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:5517:/ clear"); /*clear*/ /*_.CSYMVALEXP__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.NSYSDAT__V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LOCSYM__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V22*/ meltfptr[21] = 0 ; MELT_LOCATION("warmelt-normal.melt:5513:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V12*/ meltfptr[10];; MELT_LOCATION("warmelt-normal.melt:5513:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V12*/ meltfptr[10] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_VALUE_EXPORTER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_142_warmelt_normal_NORMAL_VALUE_EXPORTER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_143_warmelt_normal_NORMAL_EXPORTED_VALUE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 61 void* varptr[61]; #define MELTFRAM_NBVARNUM 14 long varnum[14]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<61; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 61; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_EXPORTED_VALUE", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5548:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NVALUEXP__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NVALUEXP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ meltfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ meltfptr[6])) != NULL); /*getarg#6*/ /*^getarg*/ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V8*/ meltfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5549:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5549:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value start sym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5549; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5549:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5550:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5550:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value start nexp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5550; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5550:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5551:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5551:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value start nvaluexp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5551; /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NVALUEXP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V13*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5551:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5552:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5552:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5552:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5552)?(5552):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5552:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5553:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5553:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5553:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5553)?(5553):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5553:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5554:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NVALUEXP__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5554:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5554:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nvaluexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5554)?(5554):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5554:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V19*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5555:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5555:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5555:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5555)?(5555):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V21*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5555:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5556:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5556:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5556:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5556)?(5556):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V23*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5556:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5557:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L9*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5557:/ cond"); /*cond*/ if (/*_#IS_LIST__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5557:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5557)?(5557):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V25*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5557:/ clear"); /*clear*/ /*_#IS_LIST__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V25*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5558:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMEXPO__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTED_*/ meltfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5559:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ meltfptr[6]; /*_.SYMDATA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5560:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5]), 0, "NCTX_INITPROC");/*_.INIPROC__V30*/ meltfptr[29] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5561:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5]), 10, "NCTX_CURPROC");/*_.CURPROC__V31*/ meltfptr[30] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5562:/ quasiblock"); /*_.SB__V33*/ meltfptr[32] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (char*)0);; { MELT_LOCATION("warmelt-normal.melt:5563:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ meltfptr[32]), ( "norm.exp.val : "));} ; MELT_LOCATION("warmelt-normal.melt:5564:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ meltfptr[33] = slot; }; ; { /*^locexp*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V33*/ meltfptr[32]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ meltfptr[33])));} ; /*_.LET___V32*/ meltfptr[31] = /*_.SB__V33*/ meltfptr[32];; MELT_LOCATION("warmelt-normal.melt:5562:/ clear"); /*clear*/ /*_.SB__V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[33] = 0 ; /*_.CSBUF__V35*/ meltfptr[32] = /*_.LET___V32*/ meltfptr[31];; /*^compute*/ /*_.STRBUF2STRING__V36*/ meltfptr[33] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ meltfptr[32]))));; MELT_LOCATION("warmelt-normal.melt:5566:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ meltfptr[37] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (1), (/*_.PSLOC__V7*/ meltfptr[6]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ meltfptr[33]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5570:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5570:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value scurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5570; /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V37*/ meltfptr[36]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V39*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5570:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5571:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ meltfptr[4];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ meltfptr[5];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ meltfptr[6]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ meltfptr[42];/*^multimsend.send*/ /*_.NCURENVBOX__V42*/ meltfptr[41] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V37*/ meltfptr[36]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5574:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5574:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value ncurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5574; /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V42*/ meltfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V44*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5574:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V44*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5575:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5575:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value curenvbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5575; /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V43*/ meltfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V46*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5575:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5577:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V43*/ meltfptr[42]; /*_.LIST_APPEND2LIST__V48*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5578:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5579:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x5; 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*/ /*inimult rtup_0__TUPLREC__x5*/ /*_.TUPLREC___V51*/ meltfptr[50] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x5; meltletrec_1_ptr->rtup_0__TUPLREC__x5.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x5.nbval = 3; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[0] = (melt_ptr_t)(/*_.SYMDATA__V29*/ meltfptr[28]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[1] = (melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V51*/ meltfptr[50]))->tabval[2] = (melt_ptr_t)(/*_.NCURENVBOX__V42*/ meltfptr[41]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V51*/ meltfptr[50]); ; /*_.ARGTUP__V50*/ meltfptr[49] = /*_.TUPLREC___V51*/ meltfptr[50];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5579:/ clear"); /*clear*/ /*_.TUPLREC___V51*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V51*/ meltfptr[50] = 0 ;} /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:5584:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[15])), (4), "CLASS_NREP_APPLY");/*_.INST__V53*/ meltfptr[52] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (0), (/*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[16])), "NEXPR_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (3), (/*_.NVALUEXP__V4*/ meltfptr[3]), "NAPP_FUN"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V53*/ meltfptr[52])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V53*/ meltfptr[52]), (2), (/*_.ARGTUP__V50*/ meltfptr[49]), "NEXPR_ARGS"); ; /*_.INST___V52*/ meltfptr[50] = /*_.INST__V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:5580:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V55*/ meltfptr[54] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (3), (/*_.PSLOC__V7*/ meltfptr[6]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (0), (/*_.CSYMEXPO__V28*/ meltfptr[27]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (2), (/*_.INST___V52*/ meltfptr[50]), "LETBIND_EXPR"); ; /*_.CBIND__V54*/ meltfptr[53] = /*_.INST__V55*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:5590:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V57*/ meltfptr[56] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (0), (/*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (2), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (1), (/*_.CSYMEXPO__V28*/ meltfptr[27]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (3), (/*_.CBIND__V54*/ meltfptr[53]), "NOCC_BIND"); ; /*_.SYOCC__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5596:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5596:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value cbind"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5596; /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V54*/ meltfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V58*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5596:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V58*/ meltfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5597:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5597:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_value return syocc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5597; /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V56*/ meltfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V60*/ meltfptr[58] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5597:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V60*/ meltfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-normal.melt:5598:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7]), (melt_ptr_t)(/*_.CBIND__V54*/ meltfptr[53]));} ; /*_.LET___V49*/ meltfptr[48] = /*_.SYOCC__V56*/ meltfptr[55];; MELT_LOCATION("warmelt-normal.melt:5578:/ clear"); /*clear*/ /*_.ARGTUP__V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V52*/ meltfptr[50] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V54*/ meltfptr[53] = 0 ; /*^clear*/ /*clear*/ /*_.SYOCC__V56*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V60*/ meltfptr[58] = 0 ; /*_.MULTI___V41*/ meltfptr[39] = /*_.LET___V49*/ meltfptr[48];; MELT_LOCATION("warmelt-normal.melt:5571:/ clear"); /*clear*/ /*_.IFCPP___V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V48*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.CURENVBINDS__V43*/ meltfptr[42] = 0 ; /*_.LET___V27*/ meltfptr[25] = /*_.MULTI___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:5558:/ clear"); /*clear*/ /*_.CSYMEXPO__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.SYMDATA__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.INIPROC__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.CURPROC__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V35*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V36*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.SCURENVBOX__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V41*/ meltfptr[39] = 0 ; MELT_LOCATION("warmelt-normal.melt:5548:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:5548:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_EXPORTED_VALUE", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_143_warmelt_normal_NORMAL_EXPORTED_VALUE*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_144_warmelt_normal_NORMEXP_EXPORT_VALUES_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 30 void* varptr[30]; #define MELTFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<30; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 30; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_EXPORT_VALUES", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5605:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5612:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_VALUES*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5612:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5612:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check exportval recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5612)?(5612):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5612:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5613:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5613:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5613:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5613)?(5613):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5613:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5614:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5614:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5614:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5614)?(5614):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5614:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5615:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5615:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5615; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5615:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5616:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5617:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5618:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ meltfptr[15] = slot; }; ; /*_.BINDSLIST__V17*/ meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normal.melt:5620:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ meltfptr[16]; /*_.NVALUEXPORTER__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5621:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ meltfptr[19] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*_.NILNREP__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5624:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5624:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values nvaluexporter"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5624; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ meltfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5624:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5627:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V24*/ meltfptr[23] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_13*/ meltfrout->tabval[13])), (5)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ meltfptr[23])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ meltfptr[23])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ meltfptr[23])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ meltfptr[23])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[3] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ meltfptr[16]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V24*/ meltfptr[23])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V24*/ meltfptr[23]))); ((meltclosure_ptr_t)/*_.LAMBDA___V24*/ meltfptr[23])->tabval[4] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ meltfptr[17]); ; /*_.LAMBDA___V23*/ meltfptr[21] = /*_.LAMBDA___V24*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:5625:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V23*/ meltfptr[21]; /*_.MULTIPLE_EVERY__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SXNAMES__V16*/ meltfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5642:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5642:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values final nilnrep"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5642; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[25] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5642:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5643:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5643:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values final bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5643; /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V28*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5643:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ meltfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5644:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NILNREP__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normal.melt:5644:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ meltfptr[16]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:5616:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SXNAMES__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.BINDSLIST__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NVALUEXPORTER__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NILNREP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_EVERY__V25*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V30*/ meltfptr[28] = 0 ; MELT_LOCATION("warmelt-normal.melt:5605:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5605:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_EXPORT_VALUES", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_144_warmelt_normal_NORMEXP_EXPORT_VALUES*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_145_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_145_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 22 void* varptr[22]; #define MELTFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 22; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5627:/ getarg"); /*_.XNAM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5628:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5628:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5628:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5628)?(5628):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5628:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5629:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5629:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values xnam"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5629; /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V5*/ meltfptr[3] = /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5629:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ meltfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V5*/ meltfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5630:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[0]);/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]);/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ meltfptr[8];/*^multimsend.send*/ /*_.NSYM__V8*/ meltfptr[7] = meltgc_send ((melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5633:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5633:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values nsym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5633; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.NSYM__V8*/ meltfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5633:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5634:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5634:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values nsymbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5634; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.NSYMBINDS__V9*/ meltfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5634:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5635:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYMBINDS__V9*/ meltfptr[8]; /*_.LIST_APPEND2LIST__V14*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[3])), (melt_ptr_t)((/*~BINDSLIST*/ meltfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5636:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5636:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values xnam again"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5636; /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V15*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5636:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ meltfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5637:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5637:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values before normal_exported_value bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5637; /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)((/*~BINDSLIST*/ meltfclos->tabval[3])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V17*/ meltfptr[15] = /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5637:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ meltfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5638:/ quasiblock"); /*^apply*/ /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NSYM__V8*/ meltfptr[7]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ meltfclos->tabval[4]); /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[0]); /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ meltfclos->tabval[3]); /*_.NEXPV__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5640:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5640:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_values normal_exported_value gave nexpv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5640; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[1])), (melt_ptr_t)(/*_.NEXPV__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5640:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_.LET___V19*/ meltfptr[17] = /*_.IFCPP___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:5638:/ clear"); /*clear*/ /*_.NEXPV__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*_.MULTI___V7*/ meltfptr[5] = /*_.LET___V19*/ meltfptr[17];; MELT_LOCATION("warmelt-normal.melt:5630:/ clear"); /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NSYMBINDS__V9*/ meltfptr[8] = 0 ; MELT_LOCATION("warmelt-normal.melt:5627:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.MULTI___V7*/ meltfptr[5];; MELT_LOCATION("warmelt-normal.melt:5627:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V5*/ meltfptr[3] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V7*/ meltfptr[5] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_145_warmelt_normal_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 48 void* varptr[48]; #define MELTFRAM_NBVARNUM 14 long varnum[14]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<48; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 48; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_EXPORT_SYNONYM", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5651:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5653:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_SYNONYM*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5653:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5653:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check exportsyn recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5653)?(5653):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5653:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5654:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5654:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5654:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5654)?(5654):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5654:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5655:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5655:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5655:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5655)?(5655):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5655:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5656:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5656:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5656; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5656:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5657:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5658:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5659:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SEXPSYN_NEWNAME");/*_.NEWNAME__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5660:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SEXPSYN_OLDNAME");/*_.OLDNAME__V17*/ meltfptr[16] = slot; }; ; /*_.BINDSLIST__V18*/ meltfptr[17] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normal.melt:5662:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ meltfptr[17]; /*_.NVALUEXPORTER__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5663:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*_.NILNREP__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5666:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5666:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym nvaluexporter"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5666; /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NVALUEXPORTER__V19*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V22*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5666:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ meltfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5667:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5667:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym newname"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5667; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEWNAME__V16*/ meltfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5667:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5668:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5668:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym oldname"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5668; /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.OLDNAME__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V26*/ meltfptr[24] = /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5668:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ meltfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5669:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEWNAME__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:5669:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5669:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check newname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5669)?(5669):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5669:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5670:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L9*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.OLDNAME__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:5670:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V31*/ meltfptr[30] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5670:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check oldname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5670)?(5670):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V30*/ meltfptr[28] = /*_.IFELSE___V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5670:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V31*/ meltfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V30*/ meltfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5676:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ meltfptr[33];/*^multimsend.send*/ /*_.NOLDSYM__V33*/ meltfptr[32] = meltgc_send ((melt_ptr_t)(/*_.OLDNAME__V17*/ meltfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5679:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5679:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym noldsym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5679; /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYM__V33*/ meltfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V35*/ meltfptr[34] = /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5679:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ meltfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V35*/ meltfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5680:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5680:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym noldsymbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5680; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NOLDSYMBINDS__V34*/ meltfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5680:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V37*/ meltfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5681:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYMBINDS__V34*/ meltfptr[33]; /*_.LIST_APPEND2LIST__V39*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ meltfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5682:/ quasiblock"); /*^apply*/ /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NOLDSYM__V33*/ meltfptr[32]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NVALUEXPORTER__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ meltfptr[17]; /*_.NEXPV__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.NEWNAME__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5684:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5684:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym normal_exported_value gave nexpv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5684; /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPV__V41*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5684:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5685:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5685:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym final nilnrep"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5685; /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V44*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5685:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5686:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5686:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_synonym final bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5686; /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ meltfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V46*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5686:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5687:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NILNREP__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5687:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ meltfptr[17]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.LET___V40*/ meltfptr[39] = /*_.RETURN___V48*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:5682:/ clear"); /*clear*/ /*_.NEXPV__V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V48*/ meltfptr[46] = 0 ; /*_.MULTI___V32*/ meltfptr[30] = /*_.LET___V40*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:5676:/ clear"); /*clear*/ /*_.IFCPP___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.LIST_APPEND2LIST__V39*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.NOLDSYMBINDS__V34*/ meltfptr[33] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.MULTI___V32*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:5657:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NEWNAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.OLDNAME__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.BINDSLIST__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NVALUEXPORTER__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.NILNREP__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V30*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V32*/ meltfptr[30] = 0 ; MELT_LOCATION("warmelt-normal.melt:5651:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5651:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_EXPORT_SYNONYM", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_146_warmelt_normal_NORMEXP_EXPORT_SYNONYM*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_147_warmelt_normal_NORMEXP_EXPORT_CLASS(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_147_warmelt_normal_NORMEXP_EXPORT_CLASS_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 31 void* varptr[31]; #define MELTFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 31; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_EXPORT_CLASS", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5694:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5695:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_CLASS*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5695:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5695:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check export_class recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5695)?(5695):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5695:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5696:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5696:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5696:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5696)?(5696):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5696:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5697:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5697:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5697:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5697)?(5697):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5697:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5698:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5698:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp export_class recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5698; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5698:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5699:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5700:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5701:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ meltfptr[15] = slot; }; ; /*_.BINDSLIST__V17*/ meltfptr[16] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normal.melt:5703:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V17*/ meltfptr[16]; /*_.NVALUEXPORTER__V18*/ meltfptr[17] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5704:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ meltfptr[19] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V20*/ meltfptr[19])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V20*/ meltfptr[19]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*_.NILNREP__V19*/ meltfptr[18] = /*_.INST__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5706:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MOCX__V21*/ meltfptr[20] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5708:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MOCX__V21*/ meltfptr[20]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:5708:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5708:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check mocx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5708)?(5708):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5708:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5711:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V25*/ meltfptr[24] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_26*/ meltfrout->tabval[26])), (6)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[0] = (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[1] = (melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[2] = (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[3] = (melt_ptr_t)(/*_.NVALUEXPORTER__V18*/ meltfptr[17]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[4] = (melt_ptr_t)(/*_.BINDSLIST__V17*/ meltfptr[16]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V25*/ meltfptr[24])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V25*/ meltfptr[24]))); ((meltclosure_ptr_t)/*_.LAMBDA___V25*/ meltfptr[24])->tabval[5] = (melt_ptr_t)(/*_.MOCX__V21*/ meltfptr[20]); ; /*_.LAMBDA___V24*/ meltfptr[22] = /*_.LAMBDA___V25*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:5709:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V24*/ meltfptr[22]; /*_.MULTIPLE_EVERY__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[8])), (melt_ptr_t)(/*_.SXNAMES__V16*/ meltfptr[15]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5767:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5767:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class final nilnrep"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5767; /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NILNREP__V19*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V27*/ meltfptr[26] = /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5767:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ meltfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5768:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5768:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class final bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5768; /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V29*/ meltfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5768:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ meltfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V29*/ meltfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5769:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NILNREP__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normal.melt:5769:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V17*/ meltfptr[16]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V31*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:5699:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SXNAMES__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.BINDSLIST__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NVALUEXPORTER__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NILNREP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MOCX__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_EVERY__V26*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V29*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V31*/ meltfptr[29] = 0 ; MELT_LOCATION("warmelt-normal.melt:5694:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5694:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_EXPORT_CLASS", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_147_warmelt_normal_NORMEXP_EXPORT_CLASS*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_148_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_148_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 37 void* varptr[37]; #define MELTFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<37; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 37; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5711:/ getarg"); /*_.XNAM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5712:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5712:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5712:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check xnam"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5712)?(5712):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5712:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5713:/ quasiblock"); /*^apply*/ /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XNAM__V2*/ meltfptr[1]; /*_.XBIND__V6*/ meltfptr[5] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ meltfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5714:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); /*_.XSYMDATA__V7*/ meltfptr[6] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5716:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5716:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class xbind"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5716; /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.XBIND__V6*/ meltfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V8*/ meltfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5716:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5717:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.XSYMDATA__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5717:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5717:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check xsymdata"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5717)?(5717):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5717:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_NOT_A__L5*/ meltfnum[1] = !melt_is_instance_of((melt_ptr_t)(/*_.XBIND__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_CLASS_BINDING*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:5718:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5721:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ meltfptr[12] = slot; }; ; { MELT_LOCATION("warmelt-normal.melt:5720:/ locexp"); melt_error_str((melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), ( "EXPORT_CLASS with non-class-bound symbol"), (melt_ptr_t)(/*_.NAMED_NAME__V13*/ meltfptr[12]));} ; MELT_LOCATION("warmelt-normal.melt:5722:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; MELT_LOCATION("warmelt-normal.melt:5722:/ finalreturn"); ; /*finalret*/ goto labend_rout ; MELT_LOCATION("warmelt-normal.melt:5719:/ quasiblock"); /*_.PROGN___V15*/ meltfptr[14] = /*_.RETURN___V14*/ meltfptr[13];; /*^compute*/ /*_.IF___V12*/ meltfptr[10] = /*_.PROGN___V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5718:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V14*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V15*/ meltfptr[14] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V12*/ meltfptr[10] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:5724:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ meltfptr[5]), 1, "FIXBIND_DATA");/*_.XDATA__V17*/ meltfptr[13] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5725:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XBIND__V6*/ meltfptr[5]), 3, "CBIND_CLASS");/*_.XCLASS__V18*/ meltfptr[14] = slot; }; ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5727:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5727:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class xdata"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5727; /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.XDATA__V17*/ meltfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V19*/ meltfptr[18] = /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5727:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V19*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_NOT_A__L7*/ meltfnum[5] = !melt_is_instance_of((melt_ptr_t)(/*_.XDATA__V17*/ meltfptr[13]), (melt_ptr_t)((/*!CLASS_NREP_DATA*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:5728:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5730:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ meltfptr[19] = slot; }; ; { MELT_LOCATION("warmelt-normal.melt:5729:/ locexp"); melt_error_str((melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])), ( "forward defined class symbol to EXPORT_CLASS"), (melt_ptr_t)(/*_.NAMED_NAME__V21*/ meltfptr[19]));} ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5728:/ clear"); /*clear*/ /*_.NAMED_NAME__V21*/ meltfptr[19] = 0 ;} ; } /*noelse*/ ; MELT_LOCATION("warmelt-normal.melt:5731:/ quasiblock"); /*^apply*/ /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.XDATA__V17*/ meltfptr[13]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ meltfclos->tabval[3]); /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[0]); /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[2]); /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ meltfclos->tabval[4]); /*_.NCLAV__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.XNAM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5733:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5733:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class nclav"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5733; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NCLAV__V23*/ meltfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5733:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5734:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L9*/ meltfnum[7] = melt_is_instance_of((melt_ptr_t)(/*_.XCLASS__V18*/ meltfptr[14]), (melt_ptr_t)((/*!CLASS_CLASS*/ meltfrout->tabval[8])));; MELT_LOCATION("warmelt-normal.melt:5734:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[7]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5734:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check xclass"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5734)?(5734):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V26*/ meltfptr[24] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5734:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5735:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ meltfptr[14]), 6, "CLASS_FIELDS");/*_.XCLFIELDS__V29*/ meltfptr[28] = slot; }; ; /*_#OBJECT_LENGTH__L10*/ meltfnum[7] = ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ meltfclos->tabval[5]))));; /*^compute*/ /*_#GET_INT__L11*/ meltfnum[10] = (melt_get_int((melt_ptr_t)((/*!MOCX_EXPCLASSDICT*/ meltfrout->tabval[9]))));; /*^compute*/ /*_#I__L12*/ meltfnum[11] = ((/*_#OBJECT_LENGTH__L10*/ meltfnum[7]) > (/*_#GET_INT__L11*/ meltfnum[10]));; MELT_LOCATION("warmelt-normal.melt:5739:/ cond"); /*cond*/ if (/*_#I__L12*/ meltfnum[11]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5740:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ meltfclos->tabval[5])), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V31*/ meltfptr[30] = slot; }; ; /*_.EXPCLADIC__V30*/ meltfptr[29] = /*_.MOCX_EXPCLASSDICT__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5739:/ clear"); /*clear*/ /*_.MOCX_EXPCLASSDICT__V31*/ meltfptr[30] = 0 ;} ; } else {/*^cond.else*/ /*_.EXPCLADIC__V30*/ meltfptr[29] = NULL;; } ; /*^compute*/ /*_#OBJECT_LENGTH__L13*/ meltfnum[12] = ((long)melt_object_length((melt_ptr_t)((/*~MOCX*/ meltfclos->tabval[5]))));; /*^compute*/ /*_#GET_INT__L14*/ meltfnum[13] = (melt_get_int((melt_ptr_t)((/*!MOCX_EXPFIELDICT*/ meltfrout->tabval[10]))));; /*^compute*/ /*_#I__L15*/ meltfnum[14] = ((/*_#OBJECT_LENGTH__L13*/ meltfnum[12]) > (/*_#GET_INT__L14*/ meltfnum[13]));; MELT_LOCATION("warmelt-normal.melt:5742:/ cond"); /*cond*/ if (/*_#I__L15*/ meltfnum[14]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5743:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)((/*~MOCX*/ meltfclos->tabval[5])), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V33*/ meltfptr[32] = slot; }; ; /*_.EXPFLDIC__V32*/ meltfptr[30] = /*_.MOCX_EXPFIELDICT__V33*/ meltfptr[32];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5742:/ clear"); /*clear*/ /*_.MOCX_EXPFIELDICT__V33*/ meltfptr[32] = 0 ;} ; } else {/*^cond.else*/ /*_.EXPFLDIC__V32*/ meltfptr[30] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:5745:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.XCLASS__V18*/ meltfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ meltfptr[32] = slot; }; ; { /*^locexp*/ meltgc_put_mapstrings((struct meltmapstrings_st *) (/*_.EXPCLADIC__V30*/ meltfptr[29]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V34*/ meltfptr[32])), (melt_ptr_t)(/*_.XCLASS__V18*/ meltfptr[14]));} ; MELT_LOCATION("warmelt-normal.melt:5748:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V36*/ meltfptr[35] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_17*/ meltfrout->tabval[17])), (7)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[0] = (melt_ptr_t)(/*_.XCLASS__V18*/ meltfptr[14]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[1] = (melt_ptr_t)((/*~ENV*/ meltfclos->tabval[0])); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 2>= 0 && 2< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[2] = (melt_ptr_t)((/*~NVALUEXPORTER*/ meltfclos->tabval[3])); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 3>= 0 && 3< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[3] = (melt_ptr_t)((/*~NCX*/ meltfclos->tabval[1])); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 4>= 0 && 4< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[4] = (melt_ptr_t)((/*~SLOC*/ meltfclos->tabval[2])); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 5>= 0 && 5< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[5] = (melt_ptr_t)((/*~BINDSLIST*/ meltfclos->tabval[4])); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V36*/ meltfptr[35])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 6>= 0 && 6< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V36*/ meltfptr[35]))); ((meltclosure_ptr_t)/*_.LAMBDA___V36*/ meltfptr[35])->tabval[6] = (melt_ptr_t)(/*_.EXPFLDIC__V32*/ meltfptr[30]); ; /*_.LAMBDA___V35*/ meltfptr[34] = /*_.LAMBDA___V36*/ meltfptr[35];; MELT_LOCATION("warmelt-normal.melt:5746:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V35*/ meltfptr[34]; /*_.MULTIPLE_EVERY__V37*/ meltfptr[36] = melt_apply ((meltclosure_ptr_t)((/*!MULTIPLE_EVERY*/ meltfrout->tabval[11])), (melt_ptr_t)(/*_.XCLFIELDS__V29*/ meltfptr[28]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.LET___V28*/ meltfptr[26] = /*_.MULTIPLE_EVERY__V37*/ meltfptr[36];; MELT_LOCATION("warmelt-normal.melt:5735:/ clear"); /*clear*/ /*_.XCLFIELDS__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_#OBJECT_LENGTH__L10*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#I__L12*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.EXPCLADIC__V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_#OBJECT_LENGTH__L13*/ meltfnum[12] = 0 ; /*^clear*/ /*clear*/ /*_#GET_INT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_#I__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.EXPFLDIC__V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V34*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.MULTIPLE_EVERY__V37*/ meltfptr[36] = 0 ; /*_.LET___V22*/ meltfptr[19] = /*_.LET___V28*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:5731:/ clear"); /*clear*/ /*_.NCLAV__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V28*/ meltfptr[26] = 0 ; /*_.LET___V16*/ meltfptr[12] = /*_.LET___V22*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5724:/ clear"); /*clear*/ /*_.XDATA__V17*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.XCLASS__V18*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V22*/ meltfptr[19] = 0 ; /*_.LET___V5*/ meltfptr[3] = /*_.LET___V16*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5713:/ clear"); /*clear*/ /*_.XBIND__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.XSYMDATA__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[7] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_#IS_NOT_A__L5*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V16*/ meltfptr[12] = 0 ; MELT_LOCATION("warmelt-normal.melt:5711:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; MELT_LOCATION("warmelt-normal.melt:5711:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_148_warmelt_normal_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_149_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_149_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 22 void* varptr[22]; #define MELTFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 22; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5748:/ getarg"); /*_.CURFLD__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#IX__L1*/ meltfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5749:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[1] = melt_is_instance_of((melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5749:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V4*/ meltfptr[3] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5749:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check curfld"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5749)?(5749):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V3*/ meltfptr[2] = /*_.IFELSE___V4*/ meltfptr[3];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5749:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V4*/ meltfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V3*/ meltfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5750:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.FLDNAM__V6*/ meltfptr[5] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5751:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURFLD__V2*/ meltfptr[1]), 2, "FLD_OWNCLASS");/*_.FLDCLASS__V7*/ meltfptr[6] = slot; }; ; /*_#__L3*/ meltfnum[1] = ((/*_.FLDCLASS__V7*/ meltfptr[6]) == ((/*~XCLASS*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5753:/ cond"); /*cond*/ if (/*_#__L3*/ meltfnum[1]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:5754:/ quasiblock"); /*_.FLDSYM__V10*/ meltfptr[9] = meltgc_named_symbol( melt_string_str((melt_ptr_t)(/*_.FLDNAM__V6*/ meltfptr[5])), MELT_GET);; MELT_LOCATION("warmelt-normal.melt:5755:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDSYM__V10*/ meltfptr[9]; /*_.FLDBIND__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!FIND_ENV*/ meltfrout->tabval[1])), (melt_ptr_t)((/*~ENV*/ meltfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5757:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.FLDBIND__V11*/ meltfptr[10]), (melt_ptr_t)((/*!CLASS_FIELD_BINDING*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5757:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V13*/ meltfptr[12] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5757:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check fldbind"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5757)?(5757):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V12*/ meltfptr[11] = /*_.IFELSE___V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5757:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5758:/ quasiblock"); /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ meltfptr[10]), 1, "FIXBIND_DATA");/*_.FLDATA__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5759:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FLDBIND__V11*/ meltfptr[10]), 3, "FLBIND_FIELD");/*_.FIELD__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5760:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.FLDATA__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &(/*~NVALUEXPORTER*/ meltfclos->tabval[2]); /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &(/*~ENV*/ meltfclos->tabval[1]); /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &(/*~NCX*/ meltfclos->tabval[3]); /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &(/*~SLOC*/ meltfclos->tabval[4]); /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &(/*~BINDSLIST*/ meltfclos->tabval[5]); /*_.NFLD__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.FLDSYM__V10*/ meltfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5762:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[3] = melt_is_instance_of((melt_ptr_t)(/*_.FIELD__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_FIELD*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5762:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[3]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5762:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check field"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5762)?(5762):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V18*/ meltfptr[17] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5762:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5763:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.FIELD__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ meltfptr[18] = slot; }; ; { /*^locexp*/ meltgc_put_mapstrings((struct meltmapstrings_st *) ((/*~EXPFLDIC*/ meltfclos->tabval[6])), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V20*/ meltfptr[18])), (melt_ptr_t)(/*_.FIELD__V16*/ meltfptr[15]));} ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5764:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[3] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5764:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_class nfld"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[3]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5764; /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[4])), (melt_ptr_t)(/*_.NFLD__V17*/ meltfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V21*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5764:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[3] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_.LET___V14*/ meltfptr[12] = /*_.IFCPP___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:5758:/ clear"); /*clear*/ /*_.FLDATA__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.FIELD__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NFLD__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[20] = 0 ; /*_.LET___V9*/ meltfptr[8] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5754:/ clear"); /*clear*/ /*_.FLDSYM__V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.FLDBIND__V11*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ; /*_.IF___V8*/ meltfptr[7] = /*_.LET___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5753:/ clear"); /*clear*/ /*_.LET___V9*/ meltfptr[8] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V8*/ meltfptr[7] = NULL;; } ; /*^compute*/ /*_.LET___V5*/ meltfptr[3] = /*_.IF___V8*/ meltfptr[7];; MELT_LOCATION("warmelt-normal.melt:5750:/ clear"); /*clear*/ /*_.FLDNAM__V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.FLDCLASS__V7*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_#__L3*/ meltfnum[1] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V8*/ meltfptr[7] = 0 ; MELT_LOCATION("warmelt-normal.melt:5748:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V5*/ meltfptr[3];; MELT_LOCATION("warmelt-normal.melt:5748:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V3*/ meltfptr[2] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V5*/ meltfptr[3] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_149_warmelt_normal_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_150_warmelt_normal_NORMAL_MACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_150_warmelt_normal_NORMAL_MACRO_EXPORTER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 26 void* varptr[26]; #define MELTFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<26; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 26; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_MACRO_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5776:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5777:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5777:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5777:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5777)?(5777):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5777:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5778:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5778:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5778:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5778)?(5778):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5778:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5779:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5779:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5779:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5779)?(5779):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5779:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5780:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5780:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_macro_exporter start psloc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5780; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5780:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5781:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMVALEXP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_MACROXPORTER_*/ meltfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5782:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ meltfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ meltfptr[16] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ meltfrout->tabval[6])), "NRPREDEF"); ; /*_.NSYSDAT__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normal.melt:5789:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ meltfptr[18] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (1), (/*_.NSYSDAT__V16*/ meltfptr[15]), "NUGET_OBJ"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (2), ((/*!SYSDATA_MACRO_EXPORTER*/ meltfrout->tabval[10])), "NUGET_FIELD"); ; /*_.INST___V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normal.melt:5785:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (3), (/*_.PSLOC__V4*/ meltfptr[3]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ meltfptr[14]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), (/*_.INST___V18*/ meltfptr[17]), "LETBIND_EXPR"); ; /*_.CBIND__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:5793:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ meltfptr[22] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ meltfptr[14]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (3), (/*_.CBIND__V20*/ meltfptr[19]), "NOCC_BIND"); ; /*_.LOCSYM__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-normal.melt:5799:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ meltfptr[19]));} ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5800:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5800:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_macro_exporter return locsym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5800; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5800:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5801:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LOCSYM__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:5801:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V26*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:5781:/ clear"); /*clear*/ /*_.CSYMVALEXP__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NSYSDAT__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LOCSYM__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V26*/ meltfptr[24] = 0 ; MELT_LOCATION("warmelt-normal.melt:5776:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5776:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_MACRO_EXPORTER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_150_warmelt_normal_NORMAL_MACRO_EXPORTER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 26 void* varptr[26]; #define MELTFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<26; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 26; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_PATMACRO_EXPORTER", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5806:/ getarg"); /*_.ENV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5807:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5807:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5807:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5807)?(5807):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5807:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5808:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L2*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5808:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5808:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5808)?(5808):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5808:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5809:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5809:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5809:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5809)?(5809):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5809:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5810:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5810:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_patmacro_exporter start psloc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5810; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.PSLOC__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5810:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5811:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMVALEXP__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[3])), (melt_ptr_t)((/*!konst_4_PATMACROXPORTER_*/ meltfrout->tabval[4])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5812:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ meltfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ meltfptr[16] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V17*/ meltfptr[16])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V17*/ meltfptr[16]), (1), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ meltfrout->tabval[6])), "NRPREDEF"); ; /*_.NSYSDAT__V16*/ meltfptr[15] = /*_.INST__V17*/ meltfptr[16];; MELT_LOCATION("warmelt-normal.melt:5819:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ meltfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ meltfptr[18] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (1), (/*_.NSYSDAT__V16*/ meltfptr[15]), "NUGET_OBJ"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (2), ((/*!SYSDATA_PATMACRO_EXPORTER*/ meltfrout->tabval[10])), "NUGET_FIELD"); ; /*_.INST___V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; MELT_LOCATION("warmelt-normal.melt:5815:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[7])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (3), (/*_.PSLOC__V4*/ meltfptr[3]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.CSYMVALEXP__V15*/ meltfptr[14]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), (/*_.INST___V18*/ meltfptr[17]), "LETBIND_EXPR"); ; /*_.CBIND__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:5823:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ meltfptr[22] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (0), (/*_.PSLOC__V4*/ meltfptr[3]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[8])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (1), (/*_.CSYMVALEXP__V15*/ meltfptr[14]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V23*/ meltfptr[22])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V23*/ meltfptr[22]), (3), (/*_.CBIND__V20*/ meltfptr[19]), "NOCC_BIND"); ; /*_.LOCSYM__V22*/ meltfptr[21] = /*_.INST__V23*/ meltfptr[22];; { MELT_LOCATION("warmelt-normal.melt:5829:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V5*/ meltfptr[4]), (melt_ptr_t)(/*_.CBIND__V20*/ meltfptr[19]));} ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5830:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5830:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_patmacro_exporter return locsym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5830; /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[2])), (melt_ptr_t)(/*_.LOCSYM__V22*/ meltfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V24*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5830:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5831:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LOCSYM__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:5831:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V26*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:5811:/ clear"); /*clear*/ /*_.CSYMVALEXP__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.NSYSDAT__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LOCSYM__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V26*/ meltfptr[24] = 0 ; MELT_LOCATION("warmelt-normal.melt:5806:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5806:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_PATMACRO_EXPORTER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_151_warmelt_normal_NORMAL_PATMACRO_EXPORTER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_152_warmelt_normal_NORMAL_EXPORTED_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_152_warmelt_normal_NORMAL_EXPORTED_MACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 60 void* varptr[60]; #define MELTFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<60; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 60; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_EXPORTED_MACRO", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5838:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NMACROXP__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ meltfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V7*/ meltfptr[6])) != NULL); /*getarg#6*/ /*^getarg*/ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V8*/ meltfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5839:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5839:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro start sym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5839; /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V9*/ meltfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5839:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ meltfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V9*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5840:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5840:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro start nexp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5840; /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V11*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5840:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ meltfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V11*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5841:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5841:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro start nmacroxp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5841; /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V13*/ meltfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5841:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ meltfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V13*/ meltfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5842:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L4*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5842:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V16*/ meltfptr[15] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5842:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5842)?(5842):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V15*/ meltfptr[13] = /*_.IFELSE___V16*/ meltfptr[15];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5842:/ clear"); /*clear*/ /*_#IS_A__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V16*/ meltfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V15*/ meltfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5843:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5843:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V18*/ meltfptr[17] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5843:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5843)?(5843):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V17*/ meltfptr[15] = /*_.IFELSE___V18*/ meltfptr[17];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5843:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V17*/ meltfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5844:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5844:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V20*/ meltfptr[19] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5844:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5844)?(5844):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V19*/ meltfptr[17] = /*_.IFELSE___V20*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5844:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V20*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V19*/ meltfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5845:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V5*/ meltfptr[4]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5845:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V22*/ meltfptr[21] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5845:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5845)?(5845):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V21*/ meltfptr[19] = /*_.IFELSE___V22*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5845:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V22*/ meltfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V21*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5846:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5846:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V24*/ meltfptr[23] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5846:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5846)?(5846):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V23*/ meltfptr[21] = /*_.IFELSE___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5846:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V24*/ meltfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5847:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L9*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5847:/ cond"); /*cond*/ if (/*_#IS_LIST__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V26*/ meltfptr[25] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5847:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5847)?(5847):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V25*/ meltfptr[23] = /*_.IFELSE___V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5847:/ clear"); /*clear*/ /*_#IS_LIST__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V25*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5848:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMEXPO__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDM_*/ meltfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5849:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ meltfptr[5]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ meltfptr[6]; /*_.SYMDATA__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5850:/ quasiblock"); /*_.SB__V31*/ meltfptr[30] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (char*)0);; { MELT_LOCATION("warmelt-normal.melt:5851:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ meltfptr[30]), ( "norm.exp.val : "));} ; MELT_LOCATION("warmelt-normal.melt:5852:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ meltfptr[31] = slot; }; ; { /*^locexp*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V31*/ meltfptr[30]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V32*/ meltfptr[31])));} ; /*_.LET___V30*/ meltfptr[29] = /*_.SB__V31*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:5850:/ clear"); /*clear*/ /*_.SB__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V32*/ meltfptr[31] = 0 ; /*_.CSBUF__V33*/ meltfptr[30] = /*_.LET___V30*/ meltfptr[29];; /*^compute*/ /*_.STRBUF2STRING__V34*/ meltfptr[31] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V33*/ meltfptr[30]))));; MELT_LOCATION("warmelt-normal.melt:5854:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ meltfptr[35] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ meltfptr[35])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (1), (/*_.PSLOC__V7*/ meltfptr[6]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V36*/ meltfptr[35])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V36*/ meltfptr[35]), (2), (/*_.STRBUF2STRING__V34*/ meltfptr[31]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V35*/ meltfptr[34] = /*_.INST__V36*/ meltfptr[35];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5858:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5858:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro sgetcurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5858; /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V35*/ meltfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V37*/ meltfptr[36] = /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5858:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ meltfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V37*/ meltfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5859:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V5*/ meltfptr[4];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V6*/ meltfptr[5];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V7*/ meltfptr[6]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ meltfptr[40];/*^multimsend.send*/ /*_.NCURENVBOX__V40*/ meltfptr[39] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V35*/ meltfptr[34]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5862:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5862:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro ncurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5862; /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V40*/ meltfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V42*/ meltfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5862:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ meltfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V42*/ meltfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5863:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5863:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro curenvbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5863; /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V41*/ meltfptr[40]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V44*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5863:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V44*/ meltfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_LIST__L13*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V41*/ meltfptr[40])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5864:/ cond"); /*cond*/ if (/*_#IS_LIST__L13*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*^apply*/ /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V41*/ meltfptr[40]; /*_.LIST_APPEND2LIST__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V46*/ meltfptr[44] = /*_.LIST_APPEND2LIST__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5864:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V47*/ meltfptr[46] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V46*/ meltfptr[44] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:5865:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5866:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(3) rtup_0__TUPLREC__x6; 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*/ /*inimult rtup_0__TUPLREC__x6*/ /*_.TUPLREC___V50*/ meltfptr[49] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x6; meltletrec_1_ptr->rtup_0__TUPLREC__x6.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x6.nbval = 3; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))->tabval[0] = (melt_ptr_t)(/*_.SYMDATA__V29*/ meltfptr[28]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))->tabval[1] = (melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))->tabval[2] = (melt_ptr_t)(/*_.NCURENVBOX__V40*/ meltfptr[39]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V50*/ meltfptr[49]); ; /*_.ARGTUP__V49*/ meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5866:/ clear"); /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ;} /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:5871:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[15])), (4), "CLASS_NREP_APPLY");/*_.INST__V52*/ meltfptr[51] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (0), (/*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "NEXPR_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (3), (/*_.NMACROXP__V4*/ meltfptr[3]), "NAPP_FUN"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (2), (/*_.ARGTUP__V49*/ meltfptr[48]), "NEXPR_ARGS"); ; /*_.INST___V51*/ meltfptr[49] = /*_.INST__V52*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:5867:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V54*/ meltfptr[53] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (3), (/*_.PSLOC__V7*/ meltfptr[6]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (0), (/*_.CSYMEXPO__V28*/ meltfptr[27]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V54*/ meltfptr[53])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V54*/ meltfptr[53]), (2), (/*_.INST___V51*/ meltfptr[49]), "LETBIND_EXPR"); ; /*_.CBIND__V53*/ meltfptr[52] = /*_.INST__V54*/ meltfptr[53];; MELT_LOCATION("warmelt-normal.melt:5877:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V56*/ meltfptr[55] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ meltfptr[55])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V56*/ meltfptr[55]), (0), (/*_.PSLOC__V7*/ meltfptr[6]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ meltfptr[55])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V56*/ meltfptr[55]), (2), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ meltfptr[55])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V56*/ meltfptr[55]), (1), (/*_.CSYMEXPO__V28*/ meltfptr[27]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V56*/ meltfptr[55])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V56*/ meltfptr[55]), (3), (/*_.CBIND__V53*/ meltfptr[52]), "NOCC_BIND"); ; /*_.SYOCC__V55*/ meltfptr[54] = /*_.INST__V56*/ meltfptr[55];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5883:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5883:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro cbind"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5883; /*_.DEBUG_MSG_FUN__V58*/ meltfptr[57] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V53*/ meltfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V57*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ meltfptr[57];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5883:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ meltfptr[57] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V57*/ meltfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5884:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5884:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_macro return syocc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5884; /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V55*/ meltfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V59*/ meltfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5884:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[13] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ meltfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V59*/ meltfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-normal.melt:5885:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V8*/ meltfptr[7]), (melt_ptr_t)(/*_.CBIND__V53*/ meltfptr[52]));} ; /*_.LET___V48*/ meltfptr[46] = /*_.SYOCC__V55*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:5865:/ clear"); /*clear*/ /*_.ARGTUP__V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V51*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.SYOCC__V55*/ meltfptr[54] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V57*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V59*/ meltfptr[57] = 0 ; /*_.MULTI___V39*/ meltfptr[37] = /*_.LET___V48*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:5859:/ clear"); /*clear*/ /*_.IFCPP___V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V44*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_#IS_LIST__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V48*/ meltfptr[46] = 0 ; /*^clear*/ /*clear*/ /*_.CURENVBINDS__V41*/ meltfptr[40] = 0 ; /*_.LET___V27*/ meltfptr[25] = /*_.MULTI___V39*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:5848:/ clear"); /*clear*/ /*_.CSYMEXPO__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.SYMDATA__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V30*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V33*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V34*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.SCURENVBOX__V35*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V39*/ meltfptr[37] = 0 ; MELT_LOCATION("warmelt-normal.melt:5838:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:5838:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V9*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V11*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V13*/ meltfptr[11] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V15*/ meltfptr[13] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V17*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V19*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V21*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V27*/ meltfptr[25] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_EXPORTED_MACRO", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_152_warmelt_normal_NORMAL_EXPORTED_MACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_153_warmelt_normal_NORMEXP_EXPORT_MACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_153_warmelt_normal_NORMEXP_EXPORT_MACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 36 void* varptr[36]; #define MELTFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<36; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 36; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_EXPORT_MACRO", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5891:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5892:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_MACRO*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5892:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5892:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check export_macro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5892)?(5892):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5892:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5893:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5893:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5893:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5893)?(5893):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5893:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5894:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5894:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5894:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5894)?(5894):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5894:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5895:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5895:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp export_macro recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5895; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5895:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5896:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5897:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5898:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5899:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ meltfptr[16] = slot; }; ; /*_.BINDSLIST__V18*/ meltfptr[17] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normal.melt:5901:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ meltfptr[17]; /*_.NMACEXP__V19*/ meltfptr[18] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_MACRO_EXPORTER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5902:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*_.NREPNIL__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5904:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:5904:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5904:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5904)?(5904):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5904:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5905:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ meltfptr[25];/*^multimsend.send*/ /*_.NEXP__V25*/ meltfptr[24] = meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ meltfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ MELT_LOCATION("warmelt-normal.melt:5908:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V26*/ meltfptr[25]; /*_.LIST_APPEND2LIST__V27*/ meltfptr[26] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ meltfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5909:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5910:/ apply"); /*apply*/{ union meltparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NEXP__V25*/ meltfptr[24]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NMACEXP__V19*/ meltfptr[18]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V18*/ meltfptr[17]; /*_.NEXPM__V29*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_MACRO*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5912:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5912:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_macro nexpm"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5912; /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V29*/ meltfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V30*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5912:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ meltfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V30*/ meltfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_.LET___V28*/ meltfptr[27] = /*_.IFCPP___V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:5909:/ clear"); /*clear*/ /*_.NEXPM__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V30*/ meltfptr[29] = 0 ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5914:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5914:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_macro final nrepnil"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5914; /*_.DEBUG_MSG_FUN__V33*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5914:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V32*/ meltfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5915:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5915:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_macro final bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5915; /*_.DEBUG_MSG_FUN__V35*/ meltfptr[28] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V18*/ meltfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V34*/ meltfptr[29] = /*_.DEBUG_MSG_FUN__V35*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5915:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ meltfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V34*/ meltfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5916:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NREPNIL__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:5916:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V18*/ meltfptr[17]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.MULTI___V24*/ meltfptr[22] = /*_.RETURN___V36*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:5905:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V27*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V32*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V34*/ meltfptr[29] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V36*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.NBINDS__V26*/ meltfptr[25] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.MULTI___V24*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:5896:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MNAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.MVALEXP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.BINDSLIST__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.NMACEXP__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.NREPNIL__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V24*/ meltfptr[22] = 0 ; MELT_LOCATION("warmelt-normal.melt:5891:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5891:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_EXPORT_MACRO", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_153_warmelt_normal_NORMEXP_EXPORT_MACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 63 void* varptr[63]; #define MELTFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<63; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 63; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMAL_EXPORTED_PATMACRO", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5928:/ getarg"); /*_.SYM__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXP__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NMACROXP__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.NPATTXP__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NPATTXP__V5*/ meltfptr[4])) != NULL); /*getarg#4*/ /*^getarg*/ if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V6*/ meltfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V6*/ meltfptr[5])) != NULL); /*getarg#5*/ /*^getarg*/ if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V7*/ meltfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V7*/ meltfptr[6])) != NULL); /*getarg#6*/ /*^getarg*/ if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V8*/ meltfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V8*/ meltfptr[7])) != NULL); /*getarg#7*/ /*^getarg*/ if (xargdescr_[6] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V9*/ meltfptr[8] = (xargtab_[6].bp_aptr) ? (*(xargtab_[6].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ meltfptr[8])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5929:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5929:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro start sym"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5929; /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V10*/ meltfptr[9] = /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5929:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5930:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5930:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro start nexp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5930; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5930:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5931:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5931:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro start nmacroxp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5931; /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V14*/ meltfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5931:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ meltfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V14*/ meltfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5932:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5932:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro start npattxp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5932; /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NPATTXP__V5*/ meltfptr[4]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V16*/ meltfptr[14] = /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5932:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ meltfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V16*/ meltfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5933:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5933:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V19*/ meltfptr[18] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5933:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check sym"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5933)?(5933):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V18*/ meltfptr[16] = /*_.IFELSE___V19*/ meltfptr[18];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5933:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V18*/ meltfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5934:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NEXP__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5934:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5934:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nexp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5934)?(5934):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V20*/ meltfptr[18] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5934:/ clear"); /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5935:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NREP*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5935:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5935:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nmacroxp"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5935)?(5935):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V22*/ meltfptr[20] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5935:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5936:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L8*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V6*/ meltfptr[5]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[3])));; MELT_LOCATION("warmelt-normal.melt:5936:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V25*/ meltfptr[24] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5936:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5936)?(5936):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V24*/ meltfptr[22] = /*_.IFELSE___V25*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5936:/ clear"); /*clear*/ /*_#IS_A__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V25*/ meltfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V24*/ meltfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5937:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L9*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V7*/ meltfptr[6]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:5937:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V27*/ meltfptr[26] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5937:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check ncx"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5937)?(5937):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V26*/ meltfptr[24] = /*_.IFELSE___V27*/ meltfptr[26];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5937:/ clear"); /*clear*/ /*_#IS_A__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V27*/ meltfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5938:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_LIST__L10*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.BINDSLIST__V9*/ meltfptr[8])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5938:/ cond"); /*cond*/ if (/*_#IS_LIST__L10*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V29*/ meltfptr[28] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5938:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check bindslist"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5938)?(5938):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V28*/ meltfptr[26] = /*_.IFELSE___V29*/ meltfptr[28];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5938:/ clear"); /*clear*/ /*_#IS_LIST__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V29*/ meltfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V28*/ meltfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5939:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYMEXPO__V31*/ meltfptr[30] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[5])), (melt_ptr_t)((/*!konst_6_EXPORTEDPAT_*/ meltfrout->tabval[6])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5940:/ apply"); /*apply*/{ union meltparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ meltfptr[6]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ meltfptr[7]; /*_.SYMDATA__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ meltfrout->tabval[7])), (melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5941:/ quasiblock"); /*_.SB__V34*/ meltfptr[33] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[8])), (char*)0);; { MELT_LOCATION("warmelt-normal.melt:5942:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ meltfptr[33]), ( "norm.exp.pat : "));} ; MELT_LOCATION("warmelt-normal.melt:5943:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SYM__V2*/ meltfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ meltfptr[34] = slot; }; ; { /*^locexp*/ meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ meltfptr[33]), melt_string_str((melt_ptr_t)(/*_.NAMED_NAME__V35*/ meltfptr[34])));} ; /*_.LET___V33*/ meltfptr[32] = /*_.SB__V34*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:5941:/ clear"); /*clear*/ /*_.SB__V34*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.NAMED_NAME__V35*/ meltfptr[34] = 0 ; /*_.CSBUF__V36*/ meltfptr[33] = /*_.LET___V33*/ meltfptr[32];; /*^compute*/ /*_.STRBUF2STRING__V37*/ meltfptr[34] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[10])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V36*/ meltfptr[33]))));; MELT_LOCATION("warmelt-normal.melt:5945:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[9])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V39*/ meltfptr[38] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (1), (/*_.PSLOC__V8*/ meltfptr[7]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (2), (/*_.STRBUF2STRING__V37*/ meltfptr[34]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5949:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5949:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro sgetcurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5949; /*_.DEBUG_MSG_FUN__V41*/ meltfptr[40] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SCURENVBOX__V38*/ meltfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V40*/ meltfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ meltfptr[40];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5949:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ meltfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V40*/ meltfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5950:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V6*/ meltfptr[5];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V7*/ meltfptr[6];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.PSLOC__V8*/ meltfptr[7]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ meltfptr[43];/*^multimsend.send*/ /*_.NCURENVBOX__V43*/ meltfptr[42] = meltgc_send ((melt_ptr_t)(/*_.SCURENVBOX__V38*/ meltfptr[37]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5953:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5953:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro ncurenvbox"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5953; /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.NCURENVBOX__V43*/ meltfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V45*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5953:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V45*/ meltfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5954:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5954:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro curenvbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5954; /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CURENVBINDS__V44*/ meltfptr[43]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V47*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5954:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V47*/ meltfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_LIST__L14*/ meltfnum[0] = (melt_magic_discr((melt_ptr_t)(/*_.CURENVBINDS__V44*/ meltfptr[43])) == OBMAG_LIST);; MELT_LOCATION("warmelt-normal.melt:5955:/ cond"); /*cond*/ if (/*_#IS_LIST__L14*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*^apply*/ /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.CURENVBINDS__V44*/ meltfptr[43]; /*_.LIST_APPEND2LIST__V50*/ meltfptr[49] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[12])), (melt_ptr_t)(/*_.BINDSLIST__V9*/ meltfptr[8]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.IF___V49*/ meltfptr[47] = /*_.LIST_APPEND2LIST__V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5955:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V50*/ meltfptr[49] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V49*/ meltfptr[47] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:5956:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5957:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(4) rtup_0__TUPLREC__x7; 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*/ /*inimult rtup_0__TUPLREC__x7*/ /*_.TUPLREC___V53*/ meltfptr[52] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x7; meltletrec_1_ptr->rtup_0__TUPLREC__x7.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x7.nbval = 4; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))->tabval[0] = (melt_ptr_t)(/*_.SYMDATA__V32*/ meltfptr[31]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))->tabval[1] = (melt_ptr_t)(/*_.NMACROXP__V4*/ meltfptr[3]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (2>=0 && 2< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))->tabval[2] = (melt_ptr_t)(/*_.NPATTXP__V5*/ meltfptr[4]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (3>=0 && 3< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V53*/ meltfptr[52]))->tabval[3] = (melt_ptr_t)(/*_.NCURENVBOX__V43*/ meltfptr[42]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V53*/ meltfptr[52]); ; /*_.ARGTUP__V52*/ meltfptr[51] = /*_.TUPLREC___V53*/ meltfptr[52];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5957:/ clear"); /*clear*/ /*_.TUPLREC___V53*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V53*/ meltfptr[52] = 0 ;} /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:5962:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_APPLY*/ meltfrout->tabval[15])), (4), "CLASS_NREP_APPLY");/*_.INST__V55*/ meltfptr[54] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (0), (/*_.PSLOC__V8*/ meltfptr[7]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "NEXPR_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (3), (/*_.NEXP__V3*/ meltfptr[2]), "NAPP_FUN"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NEXPR_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V55*/ meltfptr[54])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V55*/ meltfptr[54]), (2), (/*_.ARGTUP__V52*/ meltfptr[51]), "NEXPR_ARGS"); ; /*_.INST___V54*/ meltfptr[52] = /*_.INST__V55*/ meltfptr[54];; MELT_LOCATION("warmelt-normal.melt:5958:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V57*/ meltfptr[56] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (3), (/*_.PSLOC__V8*/ meltfptr[7]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (0), (/*_.CSYMEXPO__V31*/ meltfptr[30]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V57*/ meltfptr[56])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V57*/ meltfptr[56]), (2), (/*_.INST___V54*/ meltfptr[52]), "LETBIND_EXPR"); ; /*_.CBIND__V56*/ meltfptr[55] = /*_.INST__V57*/ meltfptr[56];; MELT_LOCATION("warmelt-normal.melt:5968:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V59*/ meltfptr[58] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (0), (/*_.PSLOC__V8*/ meltfptr[7]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (2), ((/*!CTYPE_VOID*/ meltfrout->tabval[14])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (1), (/*_.CSYMEXPO__V31*/ meltfptr[30]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V59*/ meltfptr[58])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V59*/ meltfptr[58]), (3), (/*_.CBIND__V56*/ meltfptr[55]), "NOCC_BIND"); ; /*_.SYOCC__V58*/ meltfptr[57] = /*_.INST__V59*/ meltfptr[58];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5974:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5974:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro cbind"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5974; /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.CBIND__V56*/ meltfptr[55]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V60*/ meltfptr[59] = /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5974:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V61*/ meltfptr[60] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V60*/ meltfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5975:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5975:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normal_exported_patmacro return syocc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5975; /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[0])), (melt_ptr_t)(/*_.SYOCC__V58*/ meltfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V62*/ meltfptr[60] = /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5975:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L16*/ meltfnum[14] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ meltfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V62*/ meltfptr[60] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; { MELT_LOCATION("warmelt-normal.melt:5976:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDSLIST__V9*/ meltfptr[8]), (melt_ptr_t)(/*_.CBIND__V56*/ meltfptr[55]));} ; /*_.LET___V51*/ meltfptr[49] = /*_.SYOCC__V58*/ meltfptr[57];; MELT_LOCATION("warmelt-normal.melt:5956:/ clear"); /*clear*/ /*_.ARGTUP__V52*/ meltfptr[51] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V54*/ meltfptr[52] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V56*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.SYOCC__V58*/ meltfptr[57] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V60*/ meltfptr[59] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V62*/ meltfptr[60] = 0 ; /*_.MULTI___V42*/ meltfptr[40] = /*_.LET___V51*/ meltfptr[49];; MELT_LOCATION("warmelt-normal.melt:5950:/ clear"); /*clear*/ /*_.IFCPP___V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_#IS_LIST__L14*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V49*/ meltfptr[47] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V51*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.CURENVBINDS__V44*/ meltfptr[43] = 0 ; /*_.LET___V30*/ meltfptr[28] = /*_.MULTI___V42*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:5939:/ clear"); /*clear*/ /*_.CSYMEXPO__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.SYMDATA__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V36*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V37*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.SCURENVBOX__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V42*/ meltfptr[40] = 0 ; MELT_LOCATION("warmelt-normal.melt:5928:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V30*/ meltfptr[28];; MELT_LOCATION("warmelt-normal.melt:5928:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[9] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V14*/ meltfptr[12] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V16*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V18*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V24*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V26*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V28*/ meltfptr[26] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V30*/ meltfptr[28] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMAL_EXPORTED_PATMACRO", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_154_warmelt_normal_NORMAL_EXPORTED_PATMACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 49 void* varptr[49]; #define MELTFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<49; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 49; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_EXPORT_PATMACRO", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:5982:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5983:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_EXPORT_PATMACRO*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:5983:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5983:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check export_patmacro recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5983)?(5983):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5983:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5984:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:5984:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5984:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5984)?(5984):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5984:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5985:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:5985:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5985:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5985)?(5985):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5985:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5986:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5986:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp export_patmacro recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5986; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5986:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5987:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:5988:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5989:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SEXPMAC_MNAME");/*_.MNAME__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5990:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:5991:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 5, "SEXPPAT_PVAL");/*_.MPATEXP__V18*/ meltfptr[17] = slot; }; ; /*_.BINDSLIST__V19*/ meltfptr[18] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[4]))));; MELT_LOCATION("warmelt-normal.melt:5993:/ apply"); /*apply*/{ union meltparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ meltfptr[18]; /*_.NPMAEXP__V20*/ meltfptr[19] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_PATMACRO_EXPORTER*/ meltfrout->tabval[5])), (melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:5994:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_NIL*/ meltfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V22*/ meltfptr[21] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V22*/ meltfptr[21])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V22*/ meltfptr[21]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*_.NREPNIL__V21*/ meltfptr[20] = /*_.INST__V22*/ meltfptr[21];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5996:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5996:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp export_patmacro mname"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5996; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.MNAME__V16*/ meltfptr[15]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5996:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5997:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:5997:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp export_patmacro npmaexp"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 5997; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NPMAEXP__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5997:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V25*/ meltfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:5998:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L7*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MNAME__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[7])));; MELT_LOCATION("warmelt-normal.melt:5998:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V28*/ meltfptr[27] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:5998:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check mname"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (5998)?(5998):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V28*/ meltfptr[27] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V27*/ meltfptr[25] = /*_.IFELSE___V28*/ meltfptr[27];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:5998:/ clear"); /*clear*/ /*_#IS_A__L7*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V28*/ meltfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:5999:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ meltfptr[30];/*^multimsend.send*/ /*_.NEXPMAC__V30*/ meltfptr[29] = meltgc_send ((melt_ptr_t)(/*_.MVALEXP__V17*/ meltfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ MELT_LOCATION("warmelt-normal.melt:6002:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDMS__V31*/ meltfptr[30]; /*_.LIST_APPEND2LIST__V32*/ meltfptr[31] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ meltfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6003:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6003:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_patmacro nexpmac"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6003; /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V33*/ meltfptr[32] = /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6003:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ meltfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V33*/ meltfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6004:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ meltfptr[36];/*^multimsend.send*/ /*_.NEXPPAT__V36*/ meltfptr[35] = meltgc_send ((melt_ptr_t)(/*_.MPATEXP__V18*/ meltfptr[17]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ MELT_LOCATION("warmelt-normal.melt:6007:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDPS__V37*/ meltfptr[36]; /*_.LIST_APPEND2LIST__V38*/ meltfptr[37] = melt_apply ((meltclosure_ptr_t)((/*!LIST_APPEND2LIST*/ meltfrout->tabval[9])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ meltfptr[18]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6008:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6008:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_patmacro nexppat"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6008; /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPMAC__V30*/ meltfptr[29]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V39*/ meltfptr[38] = /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6008:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L9*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ meltfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V39*/ meltfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6009:/ quasiblock"); /*^apply*/ /*apply*/{ union meltparam_un argtab[7]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.NPMAEXP__V20*/ meltfptr[19]; /*^apply.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NEXPMAC__V30*/ meltfptr[29]; /*^apply.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.NEXPPAT__V36*/ meltfptr[35]; /*^apply.arg*/ argtab[3].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2]; /*^apply.arg*/ argtab[4].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3]; /*^apply.arg*/ argtab[5].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^apply.arg*/ argtab[6].bp_aptr = (melt_ptr_t*) &/*_.BINDSLIST__V19*/ meltfptr[18]; /*_.NEXPM__V42*/ meltfptr[41] = melt_apply ((meltclosure_ptr_t)((/*!NORMAL_EXPORTED_PATMACRO*/ meltfrout->tabval[10])), (melt_ptr_t)(/*_.MNAME__V16*/ meltfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6010:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6010:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_patmacro nexpm"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6010; /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NEXPM__V42*/ meltfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V43*/ meltfptr[42] = /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6010:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L10*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V44*/ meltfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V43*/ meltfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6011:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6011:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_macro final nrepnil"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6011; /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NREPNIL__V21*/ meltfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V45*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6011:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L11*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ meltfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V45*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6012:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6012:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_export_macro final bindslist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6012; /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDSLIST__V19*/ meltfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V47*/ meltfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6012:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L12*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ meltfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V47*/ meltfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6013:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NREPNIL__V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:6013:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDSLIST__V19*/ meltfptr[18]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.LET___V41*/ meltfptr[39] = /*_.RETURN___V49*/ meltfptr[47];; MELT_LOCATION("warmelt-normal.melt:6009:/ clear"); /*clear*/ /*_.NEXPM__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V45*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V47*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V49*/ meltfptr[47] = 0 ; /*_.MULTI___V35*/ meltfptr[33] = /*_.LET___V41*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:6004:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V41*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.NBINDPS__V37*/ meltfptr[36] = 0 ; /*_.MULTI___V29*/ meltfptr[27] = /*_.MULTI___V35*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:5999:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V32*/ meltfptr[31] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.NBINDMS__V31*/ meltfptr[30] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.MULTI___V29*/ meltfptr[27];; MELT_LOCATION("warmelt-normal.melt:5987:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.MNAME__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.MVALEXP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.MPATEXP__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.BINDSLIST__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.NPMAEXP__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.NREPNIL__V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V27*/ meltfptr[25] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V29*/ meltfptr[27] = 0 ; MELT_LOCATION("warmelt-normal.melt:5982:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:5982:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_EXPORT_PATMACRO", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_155_warmelt_normal_NORMEXP_EXPORT_PATMACRO*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 27 void* varptr[27]; #define MELTFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<27; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 27; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6021:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6022:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6022:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6022:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6022)?(6022):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6022:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6023:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6023:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6023:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6023)?(6023):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6023:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6024:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6024:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6024:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6024)?(6024):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6024:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6025:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6025:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_current_module_environment_container recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6025; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6025:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6026:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:6027:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6028:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "CMEC_COMMENT");/*_.SCOMM__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6029:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 14, "NCTX_PROCURMODENVLIST");/*_.NCURMODENVLIST__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6030:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6031:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 12, "NCTX_QDATCURMODENVBOX");/*_.QDATCUR__V19*/ meltfptr[18] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6032:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[4])), (5), "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V21*/ meltfptr[20] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NCONST_SVAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (2), (/*_.CURPROC__V18*/ meltfptr[17]), "NCONST_PROC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (3), (/*_.QDATCUR__V19*/ meltfptr[18]), "NCONST_DATA"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NQCMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V21*/ meltfptr[20])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V21*/ meltfptr[20]), (4), (/*_.SCOMM__V16*/ meltfptr[15]), "NQCMEC_COMMENT"); ; /*_.NQUASI__V20*/ meltfptr[19] = /*_.INST__V21*/ meltfptr[20];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6040:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.QDATCUR__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:6040:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V23*/ meltfptr[22] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6040:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check qdatcur"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6040)?(6040):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V22*/ meltfptr[21] = /*_.IFELSE___V23*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6040:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V23*/ meltfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V22*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[17]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:6041:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6043:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[17]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V24*/ meltfptr[22] = slot; }; ; { /*^locexp*/ meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V24*/ meltfptr[22]), (melt_ptr_t)(/*_.QDATCUR__V19*/ meltfptr[18]));} ; { MELT_LOCATION("warmelt-normal.melt:6044:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.NCURMODENVLIST__V17*/ meltfptr[16]), (melt_ptr_t)(/*_.CURPROC__V18*/ meltfptr[17]));} ; MELT_LOCATION("warmelt-normal.melt:6042:/ quasiblock"); /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6041:/ clear"); /*clear*/ /*_.NRPRO_CONST__V24*/ meltfptr[22] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6046:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6046:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_current_module_environment_container nquasi"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6046; /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V20*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V25*/ meltfptr[22] = /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6046:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ meltfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V25*/ meltfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6047:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NQUASI__V20*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:6047:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V27*/ meltfptr[25];; MELT_LOCATION("warmelt-normal.melt:6026:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SCOMM__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.NCURMODENVLIST__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.CURPROC__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.QDATCUR__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.NQUASI__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V25*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V27*/ meltfptr[25] = 0 ; MELT_LOCATION("warmelt-normal.melt:6021:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:6021:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_156_warmelt_normal_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 25 void* varptr[25]; #define MELTFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<25; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 25; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_PARENT_MODULE_ENVIRONMENT", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6053:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6054:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6054:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6054:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check parent_module_environment recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6054)?(6054):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6054:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6055:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6055:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6055:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6055)?(6055):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6055:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6056:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6056:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6056:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6056)?(6056):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6056:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6057:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6057:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_parent_module_environment recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6057; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6057:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6058:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:6059:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6060:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6061:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 13, "NCTX_QDATPARMODENV");/*_.QDATPAR__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6062:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[4])), (4), "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT");/*_.INST__V19*/ meltfptr[18] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_SVAL", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (1), (/*_.RECV__V2*/ meltfptr[1]), "NCONST_SVAL"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_PROC", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (2), (/*_.CURPROC__V16*/ meltfptr[15]), "NCONST_PROC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCONST_DATA", melt_magic_discr((melt_ptr_t)(/*_.INST__V19*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V19*/ meltfptr[18]), (3), (/*_.QDATPAR__V17*/ meltfptr[16]), "NCONST_DATA"); ; /*_.NQUASI__V18*/ meltfptr[17] = /*_.INST__V19*/ meltfptr[18];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6069:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.QDATPAR__V17*/ meltfptr[16]), (melt_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[5])));; MELT_LOCATION("warmelt-normal.melt:6069:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V21*/ meltfptr[20] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6069:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check qdatpar"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6069)?(6069):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V20*/ meltfptr[19] = /*_.IFELSE___V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6069:/ clear"); /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V21*/ meltfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V20*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*^compute*/ /*_#IS_A__L6*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.CURPROC__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ meltfrout->tabval[6])));; MELT_LOCATION("warmelt-normal.melt:6070:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6071:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.CURPROC__V16*/ meltfptr[15]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V22*/ meltfptr[20] = slot; }; ; { /*^locexp*/ meltgc_append_list((melt_ptr_t)(/*_.NRPRO_CONST__V22*/ meltfptr[20]), (melt_ptr_t)(/*_.QDATPAR__V17*/ meltfptr[16]));} ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6070:/ clear"); /*clear*/ /*_.NRPRO_CONST__V22*/ meltfptr[20] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6072:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6072:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_parent_module_environment nquasi"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6072; /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NQUASI__V18*/ meltfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V23*/ meltfptr[20] = /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6072:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ meltfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V23*/ meltfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6073:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NQUASI__V18*/ meltfptr[17];; MELT_LOCATION("warmelt-normal.melt:6073:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V14*/ meltfptr[12] = /*_.RETURN___V25*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:6058:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.CURPROC__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.QDATPAR__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.NQUASI__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L6*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V23*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V25*/ meltfptr[23] = 0 ; MELT_LOCATION("warmelt-normal.melt:6053:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:6053:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_PARENT_MODULE_ENVIRONMENT", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_157_warmelt_normal_NORMEXP_PARENT_MODULE_ENVIRONMENT*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 60 void* varptr[60]; #define MELTFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<60; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 60; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6079:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6080:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6080:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6080:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check update_current_module_environment_container recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6080)?(6080):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6080:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6081:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6081:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6081:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6081)?(6081):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6081:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6082:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6082:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6082:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6082)?(6082):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6082:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6083:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6083:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_update_current_module_environment_container recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6083; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6083:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6084:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:6085:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6086:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SUCME_COMMENT");/*_.SCOMM__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6087:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6088:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 0, "NCTX_INITPROC");/*_.INIPROC__V18*/ meltfptr[17] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6089:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MODCTX__V19*/ meltfptr[18] = slot; }; ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.MODCTX__V19*/ meltfptr[18]), (melt_ptr_t)((/*!CLASS_MODULE_CONTEXT*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:6090:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*^getslot*/ { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.MODCTX__V19*/ meltfptr[18]), 0, "MOCX_MODULENAME");/*_.MOCX_MODULENAME__V21*/ meltfptr[20] = slot; }; ; /*_.MODNAM__V20*/ meltfptr[19] = /*_.MOCX_MODULENAME__V21*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6090:/ clear"); /*clear*/ /*_.MOCX_MODULENAME__V21*/ meltfptr[20] = 0 ;} ; } else {/*^cond.else*/ /*_.MODNAM__V20*/ meltfptr[19] = NULL;; } ; /*^compute*/ /*_#__L6*/ meltfnum[5] = ((/*_.CURPROC__V17*/ meltfptr[16]) != (/*_.INIPROC__V18*/ meltfptr[17]));; MELT_LOCATION("warmelt-normal.melt:6092:/ cond"); /*cond*/ if (/*_#__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { MELT_LOCATION("warmelt-normal.melt:6094:/ locexp"); melt_error_str((melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) not at toplevel"), (melt_ptr_t)0);} ; MELT_LOCATION("warmelt-normal.melt:6095:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = NULL;; MELT_LOCATION("warmelt-normal.melt:6095:/ finalreturn"); ; /*finalret*/ goto labend_rout ; MELT_LOCATION("warmelt-normal.melt:6093:/ quasiblock"); /*_.PROGN___V24*/ meltfptr[23] = /*_.RETURN___V23*/ meltfptr[22];; /*^compute*/ /*_.IF___V22*/ meltfptr[20] = /*_.PROGN___V24*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6092:/ clear"); /*clear*/ /*_.RETURN___V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V24*/ meltfptr[23] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V22*/ meltfptr[20] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:6096:/ quasiblock"); /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[5])), (3), "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V27*/ meltfptr[26] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NCUMEB_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V27*/ meltfptr[26])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V27*/ meltfptr[26]), (2), (/*_.SCOMM__V16*/ meltfptr[15]), "NCUMEB_COMMENT"); ; /*_.NUP__V26*/ meltfptr[23] = /*_.INST__V27*/ meltfptr[26];; MELT_LOCATION("warmelt-normal.melt:6101:/ apply"); /*apply*/{ /*_.CSYM__V28*/ meltfptr[27] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[6])), (melt_ptr_t)((/*!konst_7_UPDATCURMODENVBOX_*/ meltfrout->tabval[7])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6102:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[8])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V30*/ meltfptr[29] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (3), (/*_.SLOC__V15*/ meltfptr[14]), "LETBIND_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (0), (/*_.CSYM__V28*/ meltfptr[27]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (1), ((/*!CTYPE_VOID*/ meltfrout->tabval[9])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V30*/ meltfptr[29])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V30*/ meltfptr[29]), (2), (/*_.NUP__V26*/ meltfptr[23]), "LETBIND_EXPR"); ; /*_.CBIND__V29*/ meltfptr[28] = /*_.INST__V30*/ meltfptr[29];; MELT_LOCATION("warmelt-normal.melt:6109:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V32*/ meltfptr[31] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[31])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V32*/ meltfptr[31]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[31])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V32*/ meltfptr[31]), (2), ((/*!CTYPE_VOID*/ meltfrout->tabval[9])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[31])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V32*/ meltfptr[31]), (1), (/*_.CSYM__V28*/ meltfptr[27]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V32*/ meltfptr[31])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V32*/ meltfptr[31]), (3), (/*_.CBIND__V29*/ meltfptr[28]), "NOCC_BIND"); ; /*_.CLOCC__V31*/ meltfptr[30] = /*_.INST__V32*/ meltfptr[31];; MELT_LOCATION("warmelt-normal.melt:6115:/ quasiblock"); /*_.SB__V34*/ meltfptr[33] = meltgc_new_strbuf((meltobject_ptr_t)((/*!DISCR_STRBUF*/ meltfrout->tabval[11])), (char*)0);; { MELT_LOCATION("warmelt-normal.melt:6116:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ meltfptr[33]), ( "cur.mod.env.cont : "));} ; { MELT_LOCATION("warmelt-normal.melt:6117:/ locexp"); meltgc_add_strbuf((melt_ptr_t)(/*_.SB__V34*/ meltfptr[33]), melt_string_str((melt_ptr_t)(/*_.SCOMM__V16*/ meltfptr[15])));} ; /*_.LET___V33*/ meltfptr[32] = /*_.SB__V34*/ meltfptr[33];; MELT_LOCATION("warmelt-normal.melt:6115:/ clear"); /*clear*/ /*_.SB__V34*/ meltfptr[33] = 0 ; /*_.CSBUF__V35*/ meltfptr[33] = /*_.LET___V33*/ meltfptr[32];; /*^compute*/ /*_.STRBUF2STRING__V36*/ meltfptr[35] = (meltgc_new_stringdup((meltobject_ptr_t)((/*!DISCR_STRING*/ meltfrout->tabval[13])), melt_strbuf_str((melt_ptr_t)(/*_.CSBUF__V35*/ meltfptr[33]))));; MELT_LOCATION("warmelt-normal.melt:6119:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ meltfrout->tabval[12])), (3), "CLASS_SOURCE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ meltfptr[37] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (1), (/*_.SLOC__V15*/ meltfptr[14]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @CMEC_COMMENT", melt_magic_discr((melt_ptr_t)(/*_.INST__V38*/ meltfptr[37])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V38*/ meltfptr[37]), (2), (/*_.STRBUF2STRING__V36*/ meltfptr[35]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V37*/ meltfptr[36] = /*_.INST__V38*/ meltfptr[37];; MELT_LOCATION("warmelt-normal.melt:6135:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ meltfrout->tabval[17])), (3), "CLASS_SOURCE_FETCH_PREDEFINED");/*_.INST__V40*/ meltfptr[39] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ meltfptr[39])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V40*/ meltfptr[39]), (1), (/*_.PSLOC__V5*/ meltfptr[4]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SFEPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V40*/ meltfptr[39])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V40*/ meltfptr[39]), (2), ((/*!konst_18_INITIAL_SYSTEM_DATA*/ meltfrout->tabval[18])), "SFEPD_PREDEF"); ; /*_.INST___V39*/ meltfptr[38] = /*_.INST__V40*/ meltfptr[39];; MELT_LOCATION("warmelt-normal.melt:6132:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_UNSAFE_GET_FIELD*/ meltfrout->tabval[16])), (4), "CLASS_SOURCE_UNSAFE_GET_FIELD");/*_.INST__V42*/ meltfptr[41] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (1), (/*_.PSLOC__V5*/ meltfptr[4]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SUGET_OBJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (2), (/*_.INST___V39*/ meltfptr[38]), "SUGET_OBJ"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SUGET_FIELD", melt_magic_discr((melt_ptr_t)(/*_.INST__V42*/ meltfptr[41])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V42*/ meltfptr[41]), (3), ((/*!SYSDATA_CONT_FRESH_ENV*/ meltfrout->tabval[19])), "SUGET_FIELD"); ; /*_.INST___V41*/ meltfptr[40] = /*_.INST__V42*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:6143:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT*/ meltfrout->tabval[20])), (2), "CLASS_SOURCE_PARENT_MODULE_ENVIRONMENT");/*_.INST__V44*/ meltfptr[43] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V44*/ meltfptr[43])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V44*/ meltfptr[43]), (1), (/*_.PSLOC__V5*/ meltfptr[4]), "LOCA_LOCATION"); ; /*_.INST___V43*/ meltfptr[42] = /*_.INST__V44*/ meltfptr[43];; MELT_LOCATION("warmelt-normal.melt:6142:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_1_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x9; 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*/ /*inimult rtup_0__TUPLREC__x9*/ /*_.TUPLREC___V46*/ meltfptr[45] = (void*)&meltletrec_1_ptr->rtup_0__TUPLREC__x9; meltletrec_1_ptr->rtup_0__TUPLREC__x9.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_1_ptr->rtup_0__TUPLREC__x9.nbval = 2; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45]))->tabval[0] = (melt_ptr_t)(/*_.INST___V43*/ meltfptr[42]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V46*/ meltfptr[45]))->tabval[1] = (melt_ptr_t)(/*_.MODNAM__V20*/ meltfptr[19]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V46*/ meltfptr[45]); ; /*_.TUPLE___V45*/ meltfptr[44] = /*_.TUPLREC___V46*/ meltfptr[45];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6142:/ clear"); /*clear*/ /*_.TUPLREC___V46*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V46*/ meltfptr[45] = 0 ;} /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:6129:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_APPLY*/ meltfrout->tabval[15])), (4), "CLASS_SOURCE_APPLY");/*_.INST__V48*/ meltfptr[47] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[47])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V48*/ meltfptr[47]), (1), (/*_.PSLOC__V5*/ meltfptr[4]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SAPP_FUN", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[47])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V48*/ meltfptr[47]), (3), (/*_.INST___V41*/ meltfptr[40]), "SAPP_FUN"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SARGOP_ARGS", melt_magic_discr((melt_ptr_t)(/*_.INST__V48*/ meltfptr[47])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V48*/ meltfptr[47]), (2), (/*_.TUPLE___V45*/ meltfptr[44]), "SARGOP_ARGS"); ; /*_.INST___V47*/ meltfptr[45] = /*_.INST__V48*/ meltfptr[47];; MELT_LOCATION("warmelt-normal.melt:6127:/ blockmultialloc"); /*multiallocblock*/{ struct meltletrec_2_st { struct MELT_MULTIPLE_STRUCT(2) rtup_0__TUPLREC__x8; long meltletrec_2_endgap; } *meltletrec_2_ptr = 0; meltletrec_2_ptr = (struct meltletrec_2_st *) meltgc_allocate (sizeof (struct meltletrec_2_st), 0); /*^blockmultialloc.initfill*/ /*inimult rtup_0__TUPLREC__x8*/ /*_.TUPLREC___V50*/ meltfptr[49] = (void*)&meltletrec_2_ptr->rtup_0__TUPLREC__x8; meltletrec_2_ptr->rtup_0__TUPLREC__x8.discr = (meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_MULTIPLE)))); meltletrec_2_ptr->rtup_0__TUPLREC__x8.nbval = 2; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (0>=0 && 0< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))->tabval[0] = (melt_ptr_t)(/*_.SCURENVBOX__V37*/ meltfptr[36]); ; /*^putuple*/ /*putupl*/ melt_assertmsg("putupl checktup", melt_magic_discr((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))== OBMAG_MULTIPLE); melt_assertmsg("putupl checkoff", (1>=0 && 1< melt_multiple_length((melt_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49])))); ((meltmultiple_ptr_t)(/*_.TUPLREC___V50*/ meltfptr[49]))->tabval[1] = (melt_ptr_t)(/*_.INST___V47*/ meltfptr[45]); ; /*^touch*/ meltgc_touch(/*_.TUPLREC___V50*/ meltfptr[49]); ; /*_.TUPLE___V49*/ meltfptr[48] = /*_.TUPLREC___V50*/ meltfptr[49];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6127:/ clear"); /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLREC___V50*/ meltfptr[49] = 0 ;} /*end multiallocblock*/ ; MELT_LOCATION("warmelt-normal.melt:6123:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_SOURCE_OR*/ meltfrout->tabval[14])), (3), "CLASS_SOURCE_OR");/*_.INST__V52*/ meltfptr[51] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LOCA_LOCATION", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (1), (/*_.PSLOC__V5*/ meltfptr[4]), "LOCA_LOCATION"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @SOR_DISJ", melt_magic_discr((melt_ptr_t)(/*_.INST__V52*/ meltfptr[51])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V52*/ meltfptr[51]), (2), (/*_.TUPLE___V49*/ meltfptr[48]), "SOR_DISJ"); ; /*_.SGETCURENVBOX__V51*/ meltfptr[49] = /*_.INST__V52*/ meltfptr[51];; MELT_LOCATION("warmelt-normal.melt:6148:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.BINDLIST__V55*/ meltfptr[54];/*^multimsend.send*/ /*_.NCURENVBOX__V54*/ meltfptr[53] = meltgc_send ((melt_ptr_t)(/*_.SGETCURENVBOX__V51*/ meltfptr[49]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[21]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ { MELT_LOCATION("warmelt-normal.melt:6151:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.BINDLIST__V55*/ meltfptr[54]), (melt_ptr_t)(/*_.CBIND__V29*/ meltfptr[28]));} ; MELT_LOCATION("warmelt-normal.melt:6152:/ quasiblock"); /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NUCMEB_EXPR", melt_magic_discr((melt_ptr_t)(/*_.NUP__V26*/ meltfptr[23])) == OBMAG_OBJECT); melt_putfield_object((/*_.NUP__V26*/ meltfptr[23]), (1), (/*_.NCURENVBOX__V54*/ meltfptr[53]), "NUCMEB_EXPR"); ; /*^touch*/ meltgc_touch(/*_.NUP__V26*/ meltfptr[23]); ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6153:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6153:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_update_current_module_environment_container result bindlist"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6153; /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.BINDLIST__V55*/ meltfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V56*/ meltfptr[55] = /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6153:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L7*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ meltfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V56*/ meltfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6154:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6154:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_update_current_module_environment_container result clocc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6154; /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.CLOCC__V31*/ meltfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V58*/ meltfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6154:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L8*/ meltfnum[6] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ meltfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V58*/ meltfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6155:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.CLOCC__V31*/ meltfptr[30];; MELT_LOCATION("warmelt-normal.melt:6155:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.BINDLIST__V55*/ meltfptr[54]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.MULTI___V53*/ meltfptr[52] = /*_.RETURN___V60*/ meltfptr[58];; MELT_LOCATION("warmelt-normal.melt:6148:/ clear"); /*clear*/ /*_.IFCPP___V56*/ meltfptr[55] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V58*/ meltfptr[56] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V60*/ meltfptr[58] = 0 ; /*^clear*/ /*clear*/ /*_.BINDLIST__V55*/ meltfptr[54] = 0 ; /*_.LET___V25*/ meltfptr[22] = /*_.MULTI___V53*/ meltfptr[52];; MELT_LOCATION("warmelt-normal.melt:6096:/ clear"); /*clear*/ /*_.NUP__V26*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_.CSYM__V28*/ meltfptr[27] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V29*/ meltfptr[28] = 0 ; /*^clear*/ /*clear*/ /*_.CLOCC__V31*/ meltfptr[30] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V33*/ meltfptr[32] = 0 ; /*^clear*/ /*clear*/ /*_.CSBUF__V35*/ meltfptr[33] = 0 ; /*^clear*/ /*clear*/ /*_.STRBUF2STRING__V36*/ meltfptr[35] = 0 ; /*^clear*/ /*clear*/ /*_.SCURENVBOX__V37*/ meltfptr[36] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V39*/ meltfptr[38] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V41*/ meltfptr[40] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V43*/ meltfptr[42] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V45*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.INST___V47*/ meltfptr[45] = 0 ; /*^clear*/ /*clear*/ /*_.TUPLE___V49*/ meltfptr[48] = 0 ; /*^clear*/ /*clear*/ /*_.SGETCURENVBOX__V51*/ meltfptr[49] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V53*/ meltfptr[52] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V25*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:6084:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SCOMM__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.CURPROC__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.INIPROC__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.MODCTX__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.MODNAM__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_#__L6*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V22*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V25*/ meltfptr[22] = 0 ; MELT_LOCATION("warmelt-normal.melt:6079:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:6079:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_158_warmelt_normal_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 34 void* varptr[34]; #define MELTFRAM_NBVARNUM 13 long varnum[13]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 34; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_FETCH_PREDEFINED", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6163:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6164:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_FETCH_PREDEFINED*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6164:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6164:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check fetch_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6164)?(6164):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6164:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6165:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6165:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6165:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6165)?(6165):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6165:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6166:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6166:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6166:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6166)?(6166):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6166:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6167:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6167:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_fetch_predefined recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6167; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6167:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6168:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:6169:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6170:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SFEPD_PREDEF");/*_.SPRED__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6171:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V17*/ meltfptr[16] = slot; }; ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:6173:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6175:/ quasiblock"); /*_.BOXK__V19*/ meltfptr[18] = meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));; MELT_LOCATION("warmelt-normal.melt:6178:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V21*/ meltfptr[20] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (2)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ meltfptr[20])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ meltfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V21*/ meltfptr[20])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V21*/ meltfptr[20]))); ((meltclosure_ptr_t)/*_.LAMBDA___V21*/ meltfptr[20])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V19*/ meltfptr[18]); ; /*_.LAMBDA___V20*/ meltfptr[19] = /*_.LAMBDA___V21*/ meltfptr[20];; MELT_LOCATION("warmelt-normal.melt:6177:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V20*/ meltfptr[19]; /*_.MAPOBJECT_EVERY__V22*/ meltfptr[21] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V17*/ meltfptr[16]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.BOX_CONTENT__V23*/ meltfptr[22] = melt_box_content((meltbox_ptr_t)(/*_.BOXK__V19*/ meltfptr[18]));; /*^compute*/ /*_#NULL__L6*/ meltfnum[5] = ((/*_.BOX_CONTENT__V23*/ meltfptr[22]) == NULL);; MELT_LOCATION("warmelt-normal.melt:6180:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6182:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ meltfptr[23] = slot; }; ; { MELT_LOCATION("warmelt-normal.melt:6181:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]), ( "FETCH_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V24*/ meltfptr[23]));} ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6180:/ clear"); /*clear*/ /*_.NAMED_NAME__V24*/ meltfptr[23] = 0 ;} ; } /*noelse*/ ; /*_.IFELSE___V18*/ meltfptr[17] = /*_.MAPOBJECT_EVERY__V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:6175:/ clear"); /*clear*/ /*_.BOXK__V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_EVERY__V22*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.BOX_CONTENT__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6173:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_INTEGERBOX__L7*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15])) == OBMAG_INT);; MELT_LOCATION("warmelt-normal.melt:6185:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6187:/ quasiblock"); /*_#PREDRK__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15])));; /*^compute*/ /*_#I__L9*/ meltfnum[8] = ((/*_#PREDRK__L8*/ meltfnum[7]) <= (0));; MELT_LOCATION("warmelt-normal.melt:6188:/ cond"); /*cond*/ if (/*_#I__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_#OR___L10*/ meltfnum[9] = /*_#I__L9*/ meltfnum[8];; } else {MELT_LOCATION("warmelt-normal.melt:6188:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10] = BGLOB__LASTGLOB;; /*^compute*/ /*_#I__L12*/ meltfnum[11] = ((/*_#PREDRK__L8*/ meltfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10]));; /*^compute*/ /*_#OR___L10*/ meltfnum[9] = /*_#I__L12*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6188:/ clear"); /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#I__L12*/ meltfnum[11] = 0 ;} ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { MELT_LOCATION("warmelt-normal.melt:6189:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]), ( "FETCH_PREDEFINED invalid predef rank"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V25*/ meltfptr[23] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6188:/ cond.else"); /*_.IFELSE___V25*/ meltfptr[23] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:6187:/ clear"); /*clear*/ /*_#PREDRK__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L10*/ meltfnum[9] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6185:/ cond.else"); /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6193:/ cppif.then"); /*^block*/ /*anyblock*/{ /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V27*/ meltfptr[19] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6193:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "FETCH_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6193)?(6193):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V27*/ meltfptr[19] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V26*/ meltfptr[18] = /*_.IFELSE___V27*/ meltfptr[19];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6193:/ clear"); /*clear*/ /*_.IFELSE___V27*/ meltfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V26*/ meltfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6192:/ quasiblock"); /*_.PROGN___V28*/ meltfptr[21] = /*_.IFCPP___V26*/ meltfptr[18];; /*^compute*/ /*_.IFELSE___V25*/ meltfptr[23] = /*_.PROGN___V28*/ meltfptr[21];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6185:/ clear"); /*clear*/ /*_.IFCPP___V26*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V28*/ meltfptr[21] = 0 ;} ; } ; /*_.IFELSE___V18*/ meltfptr[17] = /*_.IFELSE___V25*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6173:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V25*/ meltfptr[23] = 0 ;} ; } ; MELT_LOCATION("warmelt-normal.melt:6195:/ quasiblock"); /*^quasiblock*/ /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_PREDEF*/ meltfrout->tabval[8])), (2), "CLASS_NREP_PREDEF");/*_.INST__V31*/ meltfptr[18] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[18]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NRPREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V31*/ meltfptr[18])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V31*/ meltfptr[18]), (1), (/*_.SPRED__V16*/ meltfptr[15]), "NRPREDEF"); ; /*_.NPRE__V30*/ meltfptr[19] = /*_.INST__V31*/ meltfptr[18];; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6200:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[10] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6200:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_fetch_predefined result npre"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[10]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6200; /*_.DEBUG_MSG_FUN__V33*/ meltfptr[23] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NPRE__V30*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V32*/ meltfptr[21] = /*_.DEBUG_MSG_FUN__V33*/ meltfptr[23];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6200:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L13*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ meltfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V32*/ meltfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6201:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.NPRE__V30*/ meltfptr[19];; MELT_LOCATION("warmelt-normal.melt:6201:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*_.LET___V29*/ meltfptr[22] = /*_.RETURN___V34*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:6195:/ clear"); /*clear*/ /*_.NPRE__V30*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V32*/ meltfptr[21] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V34*/ meltfptr[23] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.LET___V29*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:6168:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SPRED__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEFMAP__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V29*/ meltfptr[22] = 0 ; MELT_LOCATION("warmelt-normal.melt:6163:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:6163:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_FETCH_PREDEFINED", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_159_warmelt_normal_NORMEXP_FETCH_PREDEFINED*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_160_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_160_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 3 void* varptr[3]; #define MELTFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 3; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6178:/ getarg"); /*_.KEY__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ /*_#__L1*/ meltfnum[0] = ((/*_.VAL__V3*/ meltfptr[2]) == ((/*~SPRED*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6179:/ cond"); /*cond*/ if (/*_#__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { /*^locexp*/ meltgc_box_put((melt_ptr_t)((/*~BOXK*/ meltfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ meltfptr[1]));} ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6178:/ clear"); /*clear*/ /*_#__L1*/ meltfnum[0] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_160_warmelt_normal_LAMBDA_*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_161_warmelt_normal_NORMEXP_STORE_PREDEFINED(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_161_warmelt_normal_NORMEXP_STORE_PREDEFINED_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 48 void* varptr[48]; #define MELTFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<48; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 48; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("NORMEXP_STORE_PREDEFINED", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6209:/ getarg"); /*_.RECV__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2])) != NULL); /*getarg#2*/ /*^getarg*/ if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ meltfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3])) != NULL); /*getarg#3*/ /*^getarg*/ if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ meltfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.PSLOC__V5*/ meltfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6210:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L1*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (melt_ptr_t)((/*!CLASS_SOURCE_STORE_PREDEFINED*/ meltfrout->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6210:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V7*/ meltfptr[6] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6210:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check store_predefined recv"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6210)?(6210):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V6*/ meltfptr[5] = /*_.IFELSE___V7*/ meltfptr[6];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6210:/ clear"); /*clear*/ /*_#IS_A__L1*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V7*/ meltfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V6*/ meltfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6211:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L2*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.ENV__V3*/ meltfptr[2]), (melt_ptr_t)((/*!CLASS_ENVIRONMENT*/ meltfrout->tabval[1])));; MELT_LOCATION("warmelt-normal.melt:6211:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V9*/ meltfptr[8] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6211:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check env"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6211)?(6211):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V8*/ meltfptr[6] = /*_.IFELSE___V9*/ meltfptr[8];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6211:/ clear"); /*clear*/ /*_#IS_A__L2*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V9*/ meltfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V8*/ meltfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6212:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#IS_A__L3*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), (melt_ptr_t)((/*!CLASS_NORMALIZATION_CONTEXT*/ meltfrout->tabval[2])));; MELT_LOCATION("warmelt-normal.melt:6212:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*_.IFELSE___V11*/ meltfptr[10] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6212:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "check nctxt"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6212)?(6212):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V10*/ meltfptr[8] = /*_.IFELSE___V11*/ meltfptr[10];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6212:/ clear"); /*clear*/ /*_#IS_A__L3*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V11*/ meltfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V10*/ meltfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6213:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6213:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_store_predefined recv"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6213; /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V12*/ meltfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6213:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L4*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ meltfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V12*/ meltfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6214:/ quasiblock"); MELT_LOCATION("warmelt-normal.melt:6215:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 1, "LOCA_LOCATION");/*_.SLOC__V15*/ meltfptr[14] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6216:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 2, "SSTPD_PREDEF");/*_.SPRED__V16*/ meltfptr[15] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6217:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.RECV__V2*/ meltfptr[1]), 3, "SSTPD_VALUE");/*_.SVAL__V17*/ meltfptr[16] = slot; }; ; MELT_LOCATION("warmelt-normal.melt:6218:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.NCX__V4*/ meltfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V18*/ meltfptr[17] = slot; }; ; /*_#IS_A__L5*/ meltfnum[0] = melt_is_instance_of((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]), (melt_ptr_t)((/*!CLASS_SYMBOL*/ meltfrout->tabval[4])));; MELT_LOCATION("warmelt-normal.melt:6220:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6222:/ quasiblock"); /*_.BOXK__V20*/ meltfptr[19] = meltgc_new_box((meltobject_ptr_t)((/*!DISCR_BOX*/ meltfrout->tabval[5])), (melt_ptr_t)((/*nil*/NULL)));; MELT_LOCATION("warmelt-normal.melt:6225:/ quasiblock"); /*^newclosure*/ /*newclosure*/ /*_.LAMBDA___V22*/ meltfptr[21] = meltgc_new_closure((meltobject_ptr_t)(((void*)(MELT_PREDEF(DISCR_CLOSURE)))), (meltroutine_ptr_t)((/*!konst_7*/ meltfrout->tabval[7])), (2)); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ meltfptr[21])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 0>= 0 && 0< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ meltfptr[21]))); ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[0] = (melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]); ; /*^putclosedv*/ /*putclosv*/ melt_assertmsg("putclosv checkclo", melt_magic_discr((melt_ptr_t)(/*_.LAMBDA___V22*/ meltfptr[21])) == OBMAG_CLOSURE); melt_assertmsg("putclosv checkoff", 1>= 0 && 1< melt_closure_size((melt_ptr_t) (/*_.LAMBDA___V22*/ meltfptr[21]))); ((meltclosure_ptr_t)/*_.LAMBDA___V22*/ meltfptr[21])->tabval[1] = (melt_ptr_t)(/*_.BOXK__V20*/ meltfptr[19]); ; /*_.LAMBDA___V21*/ meltfptr[20] = /*_.LAMBDA___V22*/ meltfptr[21];; MELT_LOCATION("warmelt-normal.melt:6224:/ apply"); /*apply*/{ union meltparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.LAMBDA___V21*/ meltfptr[20]; /*_.MAPOBJECT_EVERY__V23*/ meltfptr[22] = melt_apply ((meltclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ meltfrout->tabval[6])), (melt_ptr_t)(/*_.PREDEFMAP__V18*/ meltfptr[17]), (BPARSTR_PTR ""), argtab, "", (union meltparam_un*)0); } ; /*_.BOX_CONTENT__V24*/ meltfptr[23] = melt_box_content((meltbox_ptr_t)(/*_.BOXK__V20*/ meltfptr[19]));; /*^compute*/ /*_#NULL__L6*/ meltfnum[5] = ((/*_.BOX_CONTENT__V24*/ meltfptr[23]) == NULL);; MELT_LOCATION("warmelt-normal.melt:6227:/ cond"); /*cond*/ if (/*_#NULL__L6*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6229:/ getslot"); { melt_ptr_t slot=0; melt_object_get_field(slot,(melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ meltfptr[24] = slot; }; ; { MELT_LOCATION("warmelt-normal.melt:6228:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]), ( "STORE_PREDEFINED unknown predef name"), (melt_ptr_t)(/*_.NAMED_NAME__V25*/ meltfptr[24]));} ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6227:/ clear"); /*clear*/ /*_.NAMED_NAME__V25*/ meltfptr[24] = 0 ;} ; } /*noelse*/ ; /*_.IFELSE___V19*/ meltfptr[18] = /*_.MAPOBJECT_EVERY__V23*/ meltfptr[22];; MELT_LOCATION("warmelt-normal.melt:6222:/ clear"); /*clear*/ /*_.BOXK__V20*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.LAMBDA___V21*/ meltfptr[20] = 0 ; /*^clear*/ /*clear*/ /*_.MAPOBJECT_EVERY__V23*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.BOX_CONTENT__V24*/ meltfptr[23] = 0 ; /*^clear*/ /*clear*/ /*_#NULL__L6*/ meltfnum[5] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6220:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#IS_INTEGERBOX__L7*/ meltfnum[5] = (melt_magic_discr((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15])) == OBMAG_INT);; MELT_LOCATION("warmelt-normal.melt:6232:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ meltfnum[5]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ MELT_LOCATION("warmelt-normal.melt:6234:/ quasiblock"); /*_#PREDRK__L8*/ meltfnum[7] = (melt_get_int((melt_ptr_t)(/*_.SPRED__V16*/ meltfptr[15])));; /*^compute*/ /*_#I__L9*/ meltfnum[8] = ((/*_#PREDRK__L8*/ meltfnum[7]) <= (0));; MELT_LOCATION("warmelt-normal.melt:6235:/ cond"); /*cond*/ if (/*_#I__L9*/ meltfnum[8]) /*then*/ { /*^cond.then*/ /*_#OR___L10*/ meltfnum[9] = /*_#I__L9*/ meltfnum[8];; } else {MELT_LOCATION("warmelt-normal.melt:6235:/ cond.else"); /*^block*/ /*anyblock*/{ /*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10] = BGLOB__LASTGLOB;; /*^compute*/ /*_#I__L12*/ meltfnum[11] = ((/*_#PREDRK__L8*/ meltfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10]));; /*^compute*/ /*_#OR___L10*/ meltfnum[9] = /*_#I__L12*/ meltfnum[11];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6235:/ clear"); /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_#I__L12*/ meltfnum[11] = 0 ;} ; } ; /*^cond*/ /*cond*/ if (/*_#OR___L10*/ meltfnum[9]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { MELT_LOCATION("warmelt-normal.melt:6236:/ locexp"); melt_warning_str(0, (melt_ptr_t)(/*_.SLOC__V15*/ meltfptr[14]), ( "STORE_PREDEFINED invalid predef rank"), (melt_ptr_t)0);} ; /*clear*/ /*_.IFELSE___V26*/ meltfptr[24] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6235:/ cond.else"); /*_.IFELSE___V26*/ meltfptr[24] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:6234:/ clear"); /*clear*/ /*_#PREDRK__L8*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_#I__L9*/ meltfnum[8] = 0 ; /*^clear*/ /*clear*/ /*_#OR___L10*/ meltfnum[9] = 0 ; /*epilog*/ } ; } else {MELT_LOCATION("warmelt-normal.melt:6232:/ cond.else"); /*^block*/ /*anyblock*/{ #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6240:/ cppif.then"); /*^block*/ /*anyblock*/{ /*^cond*/ /*cond*/ if ((/*nil*/NULL)) /*then*/ { /*^cond.then*/ /*_.IFELSE___V28*/ meltfptr[20] = (/*nil*/NULL);; } else {MELT_LOCATION("warmelt-normal.melt:6240:/ cond.else"); /*^block*/ /*anyblock*/{ { /*^locexp*/ melt_assert_failed(( "STORE_PREDEFINED bad predef"),( "warmelt-normal.melt")?( "warmelt-normal.melt"):__FILE__, (6240)?(6240):__LINE__, __FUNCTION__); ;} ; /*clear*/ /*_.IFELSE___V28*/ meltfptr[20] = 0 ; /*epilog*/ } ; } ; /*^compute*/ /*_.IFCPP___V27*/ meltfptr[19] = /*_.IFELSE___V28*/ meltfptr[20];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6240:/ clear"); /*clear*/ /*_.IFELSE___V28*/ meltfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V27*/ meltfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6239:/ quasiblock"); /*_.PROGN___V29*/ meltfptr[22] = /*_.IFCPP___V27*/ meltfptr[19];; /*^compute*/ /*_.IFELSE___V26*/ meltfptr[24] = /*_.PROGN___V29*/ meltfptr[22];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6232:/ clear"); /*clear*/ /*_.IFCPP___V27*/ meltfptr[19] = 0 ; /*^clear*/ /*clear*/ /*_.PROGN___V29*/ meltfptr[22] = 0 ;} ; } ; /*_.IFELSE___V19*/ meltfptr[18] = /*_.IFELSE___V26*/ meltfptr[24];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6220:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L7*/ meltfnum[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V26*/ meltfptr[24] = 0 ;} ; } ; MELT_LOCATION("warmelt-normal.melt:6242:/ quasiblock"); /*^multimsend*/ /*multimsend*/{ union meltparam_un argtab[3]; union meltparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); /*^multimsend.arg*/ argtab[0].bp_aptr = (melt_ptr_t*) &/*_.ENV__V3*/ meltfptr[2];/*^multimsend.arg*/ argtab[1].bp_aptr = (melt_ptr_t*) &/*_.NCX__V4*/ meltfptr[3];/*^multimsend.arg*/ argtab[2].bp_aptr = (melt_ptr_t*) &/*_.SLOC__V15*/ meltfptr[14]; /*^multimsend.xres*/ restab[0].bp_aptr = (melt_ptr_t*) &/*_.NBINDS__V32*/ meltfptr[19];/*^multimsend.send*/ /*_.NVAL__V31*/ meltfptr[20] = meltgc_send ((melt_ptr_t)(/*_.SVAL__V17*/ meltfptr[16]), ((melt_ptr_t)((/*!NORMAL_EXP*/ meltfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; /*^quasiblock*/ /*_#NULL__L13*/ meltfnum[10] = ((/*_.NBINDS__V32*/ meltfptr[19]) == NULL);; MELT_LOCATION("warmelt-normal.melt:6245:/ cond"); /*cond*/ if (/*_#NULL__L13*/ meltfnum[10]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ /*_.MAKE_LIST__V34*/ meltfptr[24] = (meltgc_new_list((meltobject_ptr_t)((/*!DISCR_LIST*/ meltfrout->tabval[9]))));; MELT_LOCATION("warmelt-normal.melt:6246:/ compute"); /*_.NBINDS__V32*/ meltfptr[19] = /*_.SETQ___V35*/ meltfptr[34] = /*_.MAKE_LIST__V34*/ meltfptr[24];; /*_.IF___V33*/ meltfptr[22] = /*_.SETQ___V35*/ meltfptr[34];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6245:/ clear"); /*clear*/ /*_.MAKE_LIST__V34*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.SETQ___V35*/ meltfptr[34] = 0 ;} ; } else {/*^cond.else*/ /*_.IF___V33*/ meltfptr[22] = NULL;; } ; MELT_LOCATION("warmelt-normal.melt:6247:/ quasiblock"); /*^apply*/ /*apply*/{ /*_.CSYM__V37*/ meltfptr[34] = melt_apply ((meltclosure_ptr_t)((/*!CLONE_SYMBOL*/ meltfrout->tabval[10])), (melt_ptr_t)((/*!konst_11_STOREPREDEF_*/ meltfrout->tabval[11])), (""), (union meltparam_un*)0, "", (union meltparam_un*)0); } ; MELT_LOCATION("warmelt-normal.melt:6248:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ meltfrout->tabval[12])), (3), "CLASS_NREP_STORE_PREDEFINED");/*_.INST__V39*/ meltfptr[38] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NSTPD_PREDEF", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (1), (/*_.SPRED__V16*/ meltfptr[15]), "NSTPD_PREDEF"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NSTPD_VALUE", melt_magic_discr((melt_ptr_t)(/*_.INST__V39*/ meltfptr[38])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V39*/ meltfptr[38]), (2), (/*_.NVAL__V31*/ meltfptr[20]), "NSTPD_VALUE"); ; /*_.NFPRE__V38*/ meltfptr[37] = /*_.INST__V39*/ meltfptr[38];; MELT_LOCATION("warmelt-normal.melt:6252:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NORMAL_LET_BINDING*/ meltfrout->tabval[13])), (4), "CLASS_NORMAL_LET_BINDING");/*_.INST__V41*/ meltfptr[40] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @BINDER", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (0), (/*_.CSYM__V37*/ meltfptr[34]), "BINDER"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_TYPE", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (1), ((/*!CTYPE_VALUE*/ meltfrout->tabval[14])), "LETBIND_TYPE"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @LETBIND_EXPR", melt_magic_discr((melt_ptr_t)(/*_.INST__V41*/ meltfptr[40])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V41*/ meltfptr[40]), (2), (/*_.NFPRE__V38*/ meltfptr[37]), "LETBIND_EXPR"); ; /*_.CBIND__V40*/ meltfptr[39] = /*_.INST__V41*/ meltfptr[40];; MELT_LOCATION("warmelt-normal.melt:6256:/ quasiblock"); /*^rawallocobj*/ /*rawallocobj*/ { melt_ptr_t newobj = 0; melt_raw_object_create(newobj,(melt_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ meltfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ meltfptr[42] = newobj; }; ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NREP_LOC", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ meltfptr[42])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V43*/ meltfptr[42]), (0), (/*_.SLOC__V15*/ meltfptr[14]), "NREP_LOC"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_CTYP", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ meltfptr[42])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V43*/ meltfptr[42]), (2), ((/*!CTYPE_VALUE*/ meltfrout->tabval[14])), "NOCC_CTYP"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_SYMB", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ meltfptr[42])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V43*/ meltfptr[42]), (1), (/*_.CSYM__V37*/ meltfptr[34]), "NOCC_SYMB"); ; /*^putslot*/ /*putslot*/ melt_assertmsg("putslot checkobj @NOCC_BIND", melt_magic_discr((melt_ptr_t)(/*_.INST__V43*/ meltfptr[42])) == OBMAG_OBJECT); melt_putfield_object((/*_.INST__V43*/ meltfptr[42]), (3), (/*_.CBIND__V40*/ meltfptr[39]), "NOCC_BIND"); ; /*_.SYOCC__V42*/ meltfptr[41] = /*_.INST__V43*/ meltfptr[42];; { MELT_LOCATION("warmelt-normal.melt:6262:/ locexp"); meltgc_append_list((melt_ptr_t)(/*_.NBINDS__V32*/ meltfptr[19]), (melt_ptr_t)(/*_.CBIND__V40*/ meltfptr[39]));} ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6263:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[11] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6263:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_store_predefined result nbinds"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[11]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6263; /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.NBINDS__V32*/ meltfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V44*/ meltfptr[43] = /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6263:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L14*/ meltfnum[11] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ meltfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V44*/ meltfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING MELT_LOCATION("warmelt-normal.melt:6264:/ cppif.then"); /*^block*/ /*anyblock*/{ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = meltcallcount;; MELT_LOCATION("warmelt-normal.melt:6264:/ apply"); /*apply*/{ union meltparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); /*^apply.arg*/ argtab[0].bp_cstring = "normexp_store_predefined result syocc"; /*^apply.arg*/ argtab[1].bp_long = /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7]; /*^apply.arg*/ argtab[2].bp_cstring = "warmelt-normal.melt"; /*^apply.arg*/ argtab[3].bp_long = 6264; /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = melt_apply ((meltclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ meltfrout->tabval[3])), (melt_ptr_t)(/*_.SYOCC__V42*/ meltfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union meltparam_un*)0); } ; /*_.IFCPP___V46*/ meltfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46];; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6264:/ clear"); /*clear*/ /*_#THE_MELTCALLCOUNT__L15*/ meltfnum[7] = 0 ; /*^clear*/ /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ meltfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ /*^cppif.else*/ /*_.IFCPP___V46*/ meltfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; MELT_LOCATION("warmelt-normal.melt:6265:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.SYOCC__V42*/ meltfptr[41];; MELT_LOCATION("warmelt-normal.melt:6265:/ putxtraresult"); if (!xrestab_ || !xresdescr_) goto labend_rout; if (xresdescr_[0] != BPAR_PTR) goto labend_rout; if (xrestab_[0].bp_aptr) *(xrestab_[0].bp_aptr) = (melt_ptr_t) (/*_.NBINDS__V32*/ meltfptr[19]); ; /*^finalreturn*/ ; /*finalret*/ goto labend_rout ; /*_.LET___V36*/ meltfptr[24] = /*_.RETURN___V48*/ meltfptr[46];; MELT_LOCATION("warmelt-normal.melt:6247:/ clear"); /*clear*/ /*_.CSYM__V37*/ meltfptr[34] = 0 ; /*^clear*/ /*clear*/ /*_.NFPRE__V38*/ meltfptr[37] = 0 ; /*^clear*/ /*clear*/ /*_.CBIND__V40*/ meltfptr[39] = 0 ; /*^clear*/ /*clear*/ /*_.SYOCC__V42*/ meltfptr[41] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V44*/ meltfptr[43] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V46*/ meltfptr[44] = 0 ; /*^clear*/ /*clear*/ /*_.RETURN___V48*/ meltfptr[46] = 0 ; /*_.MULTI___V30*/ meltfptr[23] = /*_.LET___V36*/ meltfptr[24];; MELT_LOCATION("warmelt-normal.melt:6242:/ clear"); /*clear*/ /*_#NULL__L13*/ meltfnum[10] = 0 ; /*^clear*/ /*clear*/ /*_.IF___V33*/ meltfptr[22] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V36*/ meltfptr[24] = 0 ; /*^clear*/ /*clear*/ /*_.NBINDS__V32*/ meltfptr[19] = 0 ; /*_.LET___V14*/ meltfptr[12] = /*_.MULTI___V30*/ meltfptr[23];; MELT_LOCATION("warmelt-normal.melt:6214:/ clear"); /*clear*/ /*_.SLOC__V15*/ meltfptr[14] = 0 ; /*^clear*/ /*clear*/ /*_.SPRED__V16*/ meltfptr[15] = 0 ; /*^clear*/ /*clear*/ /*_.SVAL__V17*/ meltfptr[16] = 0 ; /*^clear*/ /*clear*/ /*_.PREDEFMAP__V18*/ meltfptr[17] = 0 ; /*^clear*/ /*clear*/ /*_#IS_A__L5*/ meltfnum[0] = 0 ; /*^clear*/ /*clear*/ /*_.IFELSE___V19*/ meltfptr[18] = 0 ; /*^clear*/ /*clear*/ /*_.MULTI___V30*/ meltfptr[23] = 0 ; MELT_LOCATION("warmelt-normal.melt:6209:/ quasiblock"); /*_.RETVAL___V1*/ meltfptr[0] = /*_.LET___V14*/ meltfptr[12];; MELT_LOCATION("warmelt-normal.melt:6209:/ finalreturn"); ; /*finalret*/ goto labend_rout ; /*epilog*/ /*^clear*/ /*clear*/ /*_.IFCPP___V6*/ meltfptr[5] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V8*/ meltfptr[6] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V10*/ meltfptr[8] = 0 ; /*^clear*/ /*clear*/ /*_.IFCPP___V12*/ meltfptr[10] = 0 ; /*^clear*/ /*clear*/ /*_.LET___V14*/ meltfptr[12] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("NORMEXP_STORE_PREDEFINED", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*_.RETVAL___V1*/ meltfptr[0]); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_161_warmelt_normal_NORMEXP_STORE_PREDEFINED*/ melt_ptr_t MELT_MODULE_VISIBILITY meltrout_162_warmelt_normal_LAMBDA_(meltclosure_ptr_t closp_, melt_ptr_t firstargp_, const char xargdescr_[], union meltparam_un *xargtab_, const char xresdescr_[], union meltparam_un *xrestab_) { #if ENABLE_CHECKING 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_162_warmelt_normal_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct meltclosure_st *clos; struct excepth_melt_st *exh; struct callframe_melt_st *prev; #define MELTFRAM_NBVARPTR 3 void* varptr[3]; #define MELTFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, meltframe; #define meltfram__ meltframe if (MELT_UNLIKELY(xargdescr_ == MELTPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_melt_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_melt_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&meltfram__, 0, sizeof(meltfram__)); meltfram__.nbvar = 3; meltfram__.clos = closp_; meltfram__.prev = (struct callframe_melt_st *) melt_topframe; melt_topframe = (struct callframe_melt_st *) &meltfram__; melt_trace_start("LAMBDA_", meltcallcount); /*getargs*/ /*getarg#0*/ MELT_LOCATION("warmelt-normal.melt:6225:/ getarg"); /*_.KEY__V2*/ meltfptr[1] = (melt_ptr_t) firstargp_; /*getarg#1*/ /*^getarg*/ if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ meltfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(melt_discr((melt_ptr_t)(/*_.VAL__V3*/ meltfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ /*^block*/ /*anyblock*/{ /*_#__L1*/ meltfnum[0] = ((/*_.VAL__V3*/ meltfptr[2]) == ((/*~SPRED*/ meltfclos->tabval[0])));; MELT_LOCATION("warmelt-normal.melt:6226:/ cond"); /*cond*/ if (/*_#__L1*/ meltfnum[0]) /*then*/ { /*^cond.then*/ /*^block*/ /*anyblock*/{ { /*^locexp*/ meltgc_box_put((melt_ptr_t)((/*~BOXK*/ meltfclos->tabval[1])), (melt_ptr_t)(/*_.KEY__V2*/ meltfptr[1]));} ; /*epilog*/ } ; } /*noelse*/ ; /*epilog*/ MELT_LOCATION("warmelt-normal.melt:6225:/ clear"); /*clear*/ /*_#__L1*/ meltfnum[0] = 0 ;} ; goto labend_rout; labend_rout: melt_trace_end("LAMBDA_", meltcallcount); melt_topframe = (struct callframe_melt_st*) meltfram__.prev; return (melt_ptr_t)(/*noretval*/ NULL); #undef meltcallcount #undef meltfram__ #undef MELTFRAM_NBVARNUM #undef MELTFRAM_NBVARPTR } /*end meltrout_162_warmelt_normal_LAMBDA_*/ /**** end of warmelt-normal.0+03.c ****/